src/console.pas

   1 unit console;
   2
   3 interface
   4  const
   5   version = 'BETA 9 DEV B12';
   6
   7  var
   8   osadki:boolean;
   9   bl_upd:integer;
  10   s_get_drp:boolean;
  11   drw_back:boolean;
  12   drw_sm:boolean;
  13   s_max_fps:integer;
  14   s_jpeg_quality:integer;
  15   drawgui:boolean;
  16   light_type:integer;
  17
  18   ifosad:boolean;
  19
  20   load_sm:integer;
  21   load_sky_siz:integer;
  22   load_back_tex:boolean;
  23   load_weather_tex:boolean;
  24   load_light_tex:boolean;
  25   load_gui_tex:boolean;
  26
  27   menu_background:integer;
  28
  29   load_minimap_tex:boolean;
  30
  31   //load_key_tex:integer;
  32
  33   drw_stars:boolean;
  34
  35   cheats:boolean;
  36
  37   sd:string;
  38
  39   EOFstr, ENDstr:boolean;
  40
  41  procedure save_settings;
  42  procedure load_settings;
  43  procedure call_console;
  44  procedure exec(s, search:string);
  45  procedure addToLog(str:string);
  46
  47 implementation
  48
  49   uses
  50     keyboard,
  51     vars,
  52     maps,
  53     canvas,
  54     mobs,
  55     worldgen,
  56     jsr75i,
  57     particles,
  58     func,
  59     player,
  60     sensor,
  61     drop,
  62     inv,
  63     furnace,
  64     items_store,
  65     video;
  66
  67 const
  68  CON_LOG_SIZE=9;
  69  PARSER_MAX_STR=15;
  70  MAX_IMGREG=2;
  71
  72 var
  73  logSTR: array [0..CON_LOG_SIZE] of string;
  74  lastCommand:string;
  75
  76  parseStr:string;
  77
  78  stack: array [0..0] of integer;
  79  stack_pointer:integer;
  80
  81  regimg:image;
  82
  83  procedure resetStack(size:integer);
  84   begin
  85    stack_pointer:=0;
  86    size:=size+1;
  87    bytecode
  88     iload 0;
  89     newarray 10;
  90     putstatic field 'console', 'stack', '[I';
  91    end;
  92   end;
  93
  94  procedure pushStack(i:integer;);
  95   begin
  96    stack[stack_pointer]:=i;
  97    stack_pointer:=stack_pointer+1;
  98   end;
  99
 100  function popStack:integer;
 101   begin
 102    stack_pointer:=stack_pointer-1;
 103    popStack:=stack[stack_pointer];
 104   end;
 105
 106  procedure swapStack;
 107   var
 108    tmp:integer;
 109   begin
 110    tmp:=stack[stack_pointer-2];
 111    stack[stack_pointer-2]:=stack[stack_pointer-1];
 112    stack[stack_pointer-1]:=tmp;
 113   end;
 114
 115  procedure dupStack;
 116   begin
 117    stack[stack_pointer]:=stack[stack_pointer-1];
 118    stack_pointer:=stack_pointer+1;
 119   end;
 120
 121  procedure resetTmpImg;
 122   var
 123    nullimg:image;
 124   begin
 125    regimg:=nullimg;
 126   end;
 127
 128 procedure addToLog(str:string);
 129  var
 130   i:integer;
 131  begin
 132   debug('::'+str);
 133   for i:=CON_LOG_SIZE-1 downto 0 do
 134    logSTR[i+1]:=logSTR[i];
 135   logSTR[0]:=str;
 136  end;
 137
 138  procedure setTexture(img:image; name:string; i:integer);
 139   begin
 140    name:=UpCase(name);
 141    if name='BLOCK' then
 142     begin
 143      tex[i]:=img;
 144      tex8[i]:=resize_image(img, 8, 8);
 145     end;
 146    else
 147    if name='ITEM' then
 148     begin
 149      item[i]:=img;
 150      item8[i]:=resize_image(img, 8, 8);
 151     end;
 152    else
 153    if name='VKEY' then
 154     setVkeyImg(img, i);
 155    else
 156     addToLog('Error: unknown texture type "'+name+'"');
 157   end;
 158
 159 procedure save_settings;
 160  var
 161   rs:recordstore;
 162   t:integer;
 163  begin
 164   deleteRecordStore('S');
 165   rs:=openRecordStore('S');
 166   t:=addRecordStoreEntry(rs,version);
 167   t:=addRecordStoreEntry(rs,''+light_type);
 168   t:=addRecordStoreEntry(rs,''+ifosad);
 169   t:=addRecordStoreEntry(rs, '' + Particles.enabled);
 170   t:=addRecordStoreEntry(rs,''+drawgui);
 171   t:=addRecordStoreEntry(rs,''+s_jpeg_quality);
 172   t:=addRecordStoreEntry(rs,''+load_key_tex);
 173   closeRecordStore(rs);
 174  end;
 175
 176 function sett_ld_bool(s:string):boolean;
 177  begin
 178   if s='true' then sett_ld_bool:=true;
 179  end;
 180
 181 procedure load_settings;
 182  var
 183   rs:recordstore;
 184  begin
 185   rs:=openRecordStore('S');
 186   if readRecordStoreEntry(rs,1)<>version then
 187    begin
 188     debug(readRecordStoreEntry(rs,1));
 189     closeRecordStore(rs);
 190     exit;
 191    end;
 192   light_type:=stringtointeger(readRecordStoreEntry(rs,2));
 193   ifosad:=sett_ld_bool(readRecordStoreEntry(rs,3));
 194   Particles.enabled := sett_ld_bool(readRecordStoreEntry(rs, 4));
 195   drawgui:=sett_ld_bool(readRecordStoreEntry(rs,5));
 196   s_jpeg_quality:=stringtointeger(readRecordStoreEntry(rs,6));
 197   load_key_tex:=stringtointeger(readRecordStoreEntry(rs,7));
 198   closeRecordStore(rs);
 199  end;
 200
 201 function isEOS(c:integer):boolean;
 202  var
 203   ch:char;
 204  begin
 205   ch:=chr(c);
 206   if (ch=#$0A) or (ch=#$0D) then
 207    isEOS:=true;
 208  end;
 209
 210 function isSpace(c:integer;):boolean;
 211  var
 212   ch:char;
 213  begin
 214   ch:=chr(c);
 215   if ((ch=' ') or (ch=#$09) or (ch=#$0B) or isEOS(c)) then
 216    isSpace:=true;
 217  end;
 218
 219 function nextByte(res:resource):integer;
 220  var
 221   i:integer;
 222  begin
 223   i:=ReadByte(res);
 224   if i=EOF then
 225    EOFstr:=true;
 226   if isEOS(i) then
 227    ENDstr:=true;
 228
 229   nextByte:=i and $FF;
 230  end;
 231
 232 function ReadString(res:resource):string;
 233  var
 234   b:integer;
 235   tmpstr:string;
 236  begin
 237   ENDstr:=false;
 238   repeat
 239    b:=nextByte(res);
 240    if EOFstr or ENDstr then
 241     break;
 242
 243    tmpstr:=tmpstr+chr(b);
 244   forever;
 245   ReadString:=tmpstr;
 246  end;
 247
 248 function nextChar:integer;
 249  var
 250   i:integer;
 251  begin
 252   ENDstr:=false;
 253   if length(parseStr)>0 then
 254    begin
 255     i:=ord(getChar(parseStr, 0));
 256     parseStr:=copy(parseStr, 1, length(parseStr));
 257     if isEOS(i) then
 258      ENDstr:=true;
 259    end;
 260   else
 261    begin
 262     parseStr:='';
 263     ENDstr:=true;
 264    end;
 265
 266   nextChar:=i;
 267  end;
 268
 269 procedure clearSpaces;
 270  var
 271   i:integer;
 272  begin
 273   repeat
 274    i:=nextChar;
 275    if ENDstr then
 276     exit;
 277
 278    {Symbol ';' is one line commentary}
 279    if i=$3B then
 280     begin
 281      repeat
 282       i:=nextChar;
 283       if ENDstr then
 284        exit;
 285      forever;
 286     end;
 287
 288    if isSpace(i)=false then
 289     begin
 290      //Go back
 291      parseStr:=chr(i)+parseStr;
 292      exit;
 293     end;
 294   forever;
 295  end;
 296
 297 function nextWord:string;
 298  var
 299   str:string;
 300   i:integer;
 301  begin
 302   ENDstr:=false;
 303   clearSpaces;
 304   repeat
 305    i:=nextChar;
 306
 307    if ENDstr then
 308     begin
 309      nextWord:=str;
 310      exit;
 311     end;
 312
 313    if isSpace(i) then
 314     begin
 315      //Go back
 316      parseStr:=chr(i)+parseStr;
 317      nextWord:=str;
 318      exit;
 319     end;
 320    else
 321     str:=str+chr(i);
 322   forever;
 323  end;
 324
 325 function strToBool(str:string):boolean;
 326  begin
 327   str:=UpCase(str);
 328   if str='TRUE' then
 329    strToBool:=true;
 330   else
 331   if str='FALSE' then
 332    strToBool:=true;
 333   else
 334   if StringToInteger(str)<>0 then
 335    strToBool:=true;
 336   else
 337    strToBool:=false;
 338  end;
 339
 340 //Перевод строки в целое число. base - система счисления
 341 function Str2Dec(str:string; base:integer;):integer;
 342  var
 343   i, tmp, res:integer;
 344   ch:char;
 345   neg:boolean;
 346  begin
 347   str:=UpCase(str);
 348   if GetChar(str, 0)='-' then
 349    begin
 350     neg:=true;
 351     i:=i+1;
 352    end;
 353
 354   for i:=i to length(str)-1 do
 355    begin
 356     ch:=GetChar(str, i);
 357     if ((ch>='0') and (ch<='9')) then
 358      tmp:=ord(ch)-$30;
 359     else
 360     if ((ch>='A') and (ch<=chr($36+base))) then
 361      tmp:=ord(ch)-$37;
 362     else
 363      begin
 364       addToLog('Error! I cant decode "'+str+'" -> "'+ch+'"');
 365       Str2Dec:=0;
 366       exit;
 367      end;
 368
 369     res:=res*base+tmp;
 370    end;
 371
 372   if neg then
 373    Str2Dec:=-res;
 374   else
 375    Str2Dec:=res;
 376  end;
 377
 378 function getVar(name:string):integer;
 379  begin
 380   name:=UpCase(name);
 381
 382   if name='SCREEN_W' then
 383    getVar:=getWidth;
 384   else
 385   if name='SCREEN_H' then
 386    getVar:=getHeight;
 387   else
 388    addToLog('Unknown variable "'+name+'"');
 389  end;
 390
 391 procedure setVar(name:string; value:integer);
 392  begin
 393   name:=UpCase(name);
 394
 395   addToLog('I cant set variable "'+name+'"');
 396  end;
 397
 398 function DecodeInt(str:string):integer;
 399  var
 400   head:char;
 401   num:string;
 402  begin
 403   if str='' then
 404    begin
 405     addToLog('DecodeInt getted null string!');
 406     DecodeInt:=0;
 407     exit;
 408    end;
 409
 410   str:=UpCase(str);
 411   head:=getchar(str, 0);
 412   num:=copy(str, 1, length(str));
 413
 414   if str='TRUE' then
 415    DecodeInt:=1;
 416   else
 417   if str='FALSE' then
 418    DecodeInt:=0;
 419   else
 420   if str='POP' then
 421    DecodeInt:=popStack;
 422   else
 423   if head='$' then
 424    DecodeInt:=getVar(num);
 425   else
 426   if (head='0') and (getchar(str, 1)='X') then
 427    begin
 428     DecodeInt:=Str2Dec(copy(str, 2, length(str)), 16);
 429    end;
 430   else
 431   if (head='0') and (length(str)>1) then
 432    begin
 433     DecodeInt:=Str2Dec(num, 8);
 434    end;
 435   else
 436   if head='B' then
 437    begin
 438     DecodeInt:=Str2Dec(num, 2);
 439    end;
 440   else
 441   if ((head>='0') and (head<='9')) or (head='-') then
 442    begin
 443     DecodeInt:=Str2Dec(str, 10);
 444
 445    end;
 446   else
 447    addToLog('Error! I cant decode "'+str+'"');
 448  end;
 449
 450 procedure exeCommand(str:string);
 451  var
 452   com, tmp, tmp2:string;
 453   i:integer;
 454  begin
 455   parseStr:=str;
 456   clearSpaces;
 457   if parseStr='' then
 458    exit;
 459
 460   com:=UpCase(nextWord);
 461
 462   if (cheats) or (gamemode=1) then
 463    begin
 464     if com='TIME' then
 465      game_time:=decodeInt(nextWord);
 466     else
 467     if com='FLY' then
 468      fly:=strToBool(nextWord);
 469     else
 470     if com='PL_HP' then
 471      hp:=decodeInt(nextWord);
 472     else
 473     if com='PL_EP' then
 474      hunger:=decodeInt(nextWord);
 475     else
 476     if com='GIVE' then
 477      player.dropItem(decodeInt(nextWord), decodeInt(nextWord));
 478     else
 479     if com='PL_TP' then
 480      begin
 481       player.setX(decodeInt(nextWord));
 482       player.setY(decodeInt(nextWord));
 483      end;
 484     else
 485     if com='GAMEMODE' then
 486      begin
 487       gamemode:=decodeInt(nextWord);
 488       fly:=false;
 489      end;
 490     else
 491     if com='SPAWN' then
 492      begin
 493       player.setX(get_spawn_x*16+4);
 494       player.setY(get_spawn_y*16);
 495      end;
 496     else
 497     {if com='SPAWN_MOBS' then
 498      s_spawn_mob:=strToBool(nextWord);
 499     else}
 500     {if com='SURVIVAL' then
 501      begin
 502       fly:=false;
 503       gamemode:=0;
 504       hp:=20;
 505       hunger:=20;
 506       for i:=0 to 35 do
 507        begin
 508         inv[i].item_i:=0;
 509         inv[i].sum_i:=0;
 510        end;
 511      end;
 512     else}
 513     if com='CLEAR_INVENTORY' then
 514      begin
 515       inv.resetData;
 516      end;
 517     else
 518
 519    end;
 520
 521   if com='I_AM_CHEATER' then
 522    begin
 523     if nextWord=#$36+#$36+#$36 then
 524      cheats:=not cheats;
 525     else
 526      cheats:=false;
 527    end;
 528   else
 529   if com='HALT' then
 530    halt;
 531   else
 532   if com='WEATHER' then
 533    osadki:=strToBool(nextWord);
 534   else
 535   {if com='MEGASPAWN' then
 536    megaspawn;
 537   else}
 538   if com='REF_DRP' then
 539    ref_drp:=strToBool(nextWord);
 540   else
 541   if com='BL_UPD' then
 542    bl_upd:=decodeInt(nextWord);
 543   else
 544   if com='GET_DRP' then
 545    s_get_drp:=strToBool(nextWord);
 546   else
 547   if com='MAX_FPS' then
 548    s_max_fps:=decodeInt(nextWord); else
 549   if com='DRW_BACK' then
 550    drw_back:=strToBool(nextWord);
 551   else
 552   {if com='DRW_MOBS' then
 553    drw_mobs:=strToBool(nextWord);
 554   else}
 555   if com='DRP_PHY' then
 556    drp_phy:=strToBool(nextWord);
 557   else
 558   if com='DRW_SM' then
 559    drw_sm:=strToBool(nextWord);
 560   else
 561   if com='JPEG_Q' then
 562    begin
 563     s_jpeg_quality:=decodeInt(nextWord);
 564     if s_jpeg_quality>100 then
 565      s_jpeg_quality:=100;
 566     else if s_jpeg_quality<0 then
 567      s_jpeg_quality:=0;
 568    end;
 569   else
 570   if com='LOAD_SM' then
 571    load_sm:=decodeInt(nextWord);
 572   else
 573   if com='S_WEATHER' then
 574    ifosad:=strToBool(nextWord);
 575   else
 576   if com='S_HIDE_GUI' then
 577    drawgui:=strToBool(nextWord);
 578   else
 579   if com='S_LIGHT' then
 580    light_type:=decodeInt(nextWord);
 581   else
 582   if com='S_PARTICLES' then
 583    Particles.enabled := strToBool(nextWord);
 584   else
 585   if com='LOAD_SKY' then
 586    load_sky_siz:=decodeInt(nextWord);
 587   else
 588   {if com='LOAD_MOB_TEX' then
 589    load_mob_tex:=strToBool(nextWord);
 590   else}
 591   if com='LOAD_BACK_TEX' then
 592    load_back_tex:=strToBool(nextWord);
 593   else
 594   if com='LOAD_WEATHER_TEX' then
 595    load_weather_tex:=strToBool(nextWord);
 596   else
 597   if com='LOAD_LIGHT_TEX' then
 598    load_light_tex:=strToBool(nextWord);
 599   else
 600   if com='LOAD_GUI_TEX' then
 601    load_gui_tex:=strToBool(nextWord);
 602   else
 603   if com='MENU_BACKGROUND' then
 604    menu_background:=decodeInt(nextWord);
 605   else
 606   if com='DRW_DRP' then
 607    drw_drp:=strToBool(nextWord);
 608   else
 609   if com='DRW_STARS' then
 610    drw_stars:=strToBool(nextWord);
 611   else
 612   if com='SV_SETT' then
 613    save_settings;
 614   else
 615   if com='LD_SETT' then
 616    load_settings;
 617   else
 618   if com='LOAD_MINIMAP_TEX' then
 619    load_minimap_tex:=strToBool(nextWord);
 620   else
 621   if com='EXEC' then
 622    begin
 623     tmp:=nextWord;
 624     exec(nextWord, tmp);
 625    end;
 626   else
 627   if com='RESET_ITEMS' then
 628    begin
 629     resetItems(decodeInt(nextWord)+1);
 630     //addToLog('Max items: '+decodeInt(parsed_str[1]));
 631    end;
 632   else
 633   if com='SET_ITEM' then
 634    begin
 635     setItemData(decodeInt(nextWord),
 636                 decodeInt(nextWord),
 637                 decodeInt(nextWord),
 638                 decodeInt(nextWord),
 639                 decodeInt(nextWord),
 640                 decodeInt(nextWord));
 641    end;
 642   else
 643   if com='RESET_BLOCKS' then
 644    begin
 645     resetBlocks(decodeInt(nextWord)+1);
 646     //addToLog('Max blocks: '+decodeInt(parsed_str[1]));
 647    end;
 648   else
 649   if com='SET_BLOCK' then
 650    begin
 651     setBlockData(decodeInt(nextWord),
 652                  decodeInt(nextWord),
 653                  decodeInt(nextWord),
 654                  decodeInt(nextWord),
 655                  decodeInt(nextWord),
 656                  decodeInt(nextWord),
 657                  decodeInt(nextWord),
 658                  decodeInt(nextWord),
 659                  decodeInt(nextWord));
 660    end;
 661   else
 662   if com='RESET_TOOLS' then
 663    begin
 664     resetTools(decodeInt(nextWord)+1);
 665     //addToLog('Max tools: '+decodeInt(parsed_str[1]));
 666    end;
 667   else
 668   if com='SET_TOOL' then
 669    begin
 670     setToolData(decodeInt(nextWord),
 671                 decodeInt(nextWord),
 672                 decodeInt(nextWord),
 673                 decodeInt(nextWord),
 674                 decodeInt(nextWord));
 675    end;
 676   else
 677   if com='RESET_FUELS' then
 678    begin
 679     furnace.setMaxFuel(decodeInt(nextWord));
 680     //addToLog('Max fuel: '+decodeInt(parsed_str[1]));
 681    end;
 682   else
 683   if com='SET_FUEL' then
 684    begin
 685     furnace.initFuel(decodeInt(nextWord),
 686                      decodeInt(nextWord),
 687                      decodeInt(nextWord));
 688    end;
 689   else
 690   if com='RESET_RECIPES' then
 691    begin
 692     furnace.setMaxRecipes(decodeInt(nextWord));
 693     //addToLog('Max recipes: '+decodeInt(parsed_str[1]));
 694    end;
 695   else
 696   if com='SET_RECIPE' then
 697    begin
 698     furnace.initRecipe(decodeInt(nextWord),
 699                        decodeInt(nextWord),
 700                        decodeInt(nextWord));
 701    end;
 702   else
 703   if com='RESET_CRAFTS' then
 704    begin
 705     resetCrafts(decodeInt(nextWord));
 706     //addToLog('Max crafts: '+decodeInt(parsed_str[1]));
 707    end;
 708   else
 709   if com='SET_CRAFT_IN' then
 710    begin
 711     setCraftIn(decodeInt(nextWord),
 712                decodeInt(nextWord),
 713                decodeInt(nextWord),
 714                decodeInt(nextWord));
 715    end;
 716   else
 717   if com='SET_CRAFT_OUT' then
 718    begin
 719     setCraftOUT(decodeInt(nextWord),
 720                 decodeInt(nextWord),
 721                 decodeInt(nextWord),
 722                 decodeInt(nextWord));
 723    end;
 724   else
 725   if com='RESET_BLOCKS_TEX' then
 726    begin
 727     initBlockTex(decodeInt(nextWord));
 728    end;
 729   else
 730   if com='RESET_ITEMS_TEX' then
 731    begin
 732     initItemTex(decodeInt(nextWord));
 733    end;
 734   else
 735   if com='LOAD_TEX' then
 736    begin
 737     regimg:=ld_tex(nextWord, '/'+sd+'/cavecraft/texturepacks/'+tex_pack+'/', '');
 738    end;
 739   else
 740   if com='RESET_TEX' then
 741    resetTmpImg;
 742   else
 743   if com='SET_TEX' then
 744    setTexture(regimg,
 745               nextWord,
 746               decodeInt(nextWord));
 747   if com='SET_CANV_TEX' then
 748    begin
 749     tmp:=nextWord;
 750     tmp2:=nextWord;
 751     setTexture(rotate_image_from_image(regimg,
 752                                        decodeInt(nextWord),
 753                                        decodeInt(nextWord),
 754                                        decodeInt(nextWord),
 755                                        decodeInt(nextWord),
 756                                        0),
 757                tmp,
 758                decodeInt(tmp2));
 759    end;
 760   else
 761   if com='BIND_KEY' then
 762    begin
 763     tmp:=nextWord;
 764     for i:=0 to MAX_KEY_BIND do
 765      keyboard.bindKey(decodeInt(tmp), i, decodeInt(nextWord));
 766    end;
 767   else
 768   if com='STACK' then
 769    resetStack(decodeInt(nextWord));
 770   else
 771   if com='PUSH' then
 772    pushStack(decodeInt(nextWord));
 773   else
 774   if com='POP' then
 775    i:=popStack;
 776   else
 777   if com='SWAP' then
 778    swapStack;
 779   else
 780   if com='DUP' then
 781    dupStack;
 782   else
 783   if com='ADD' then
 784    pushStack(popStack+popStack);
 785   else
 786   if com='SUB' then
 787    begin
 788     i:=popStack;
 789     pushStack(popStack-i);
 790    end;
 791   else
 792   if com='MUL' then
 793    pushStack(popStack*popStack);
 794   else
 795   if com='DIV' then
 796    begin
 797     i:=popStack;
 798     pushStack(popStack/i);
 799    end;
 800   else
 801   if com='MOD' then
 802    begin
 803     i:=popStack;
 804     pushStack(popStack mod i);
 805    end;
 806   else
 807   if com='SET' then
 808    setVar(nextWord, decodeInt(nextWord));
 809   else
 810   if com='POPSET' then
 811    setVar(nextWord, popStack);
 812   else
 813   if com='MAX_VKEYS' then
 814    resetVirtualKeyboard(decodeInt(nextWord));
 815   else
 816   if com='SET_VKEY' then
 817    bindVKey(decodeInt(nextWord),
 818             decodeInt(nextWord),
 819             decodeInt(nextWord),
 820             decodeInt(nextWord));
 821   else
 822   if com='SET_RESOLUTION' then
 823    initVideo(decodeInt(nextWord), decodeInt(nextWord), strToBool(nextWord));
 824   else
 825    //addToLog('Unknown command "'+com+'"');
 826  end;
 827
 828 procedure call_console;
 829  var
 830   commandTxt:integer;
 831   i, tmpid:integer;
 832   exitCmd, exeCmd, Clicked:command;
 833   str:string;
 834  begin
 835
 836   setFont(FONT_FACE_SYSTEM,FONT_STYLE_PLAIN,FONT_SIZE_SMALL);
 837
 838   repeat
 839    ClearForm;
 840
 841    exitCmd:=createCommand('Exit', CM_EXIT, 1);
 842    exeCmd:=createCommand('Execute', CM_OK, 1);
 843    addCommand(exitCmd);
 844    addCommand(exeCmd);
 845
 846    commandTxt:=formAddTextField('Enter command:', ''+lastCommand, 32, TF_ANY);
 847
 848    for i:=0 to CON_LOG_SIZE do
 849     tmpid:=formAddString(logSTR[i]+chr(10));
 850
 851    ShowForm;
 852    Repaint;
 853
 854    repeat
 855     Clicked:=getClickedCommand;
 856     if Clicked=exitCmd then
 857      begin
 858       lastCommand:=formGetText(commandTxt);
 859       showCanvas;
 860       exit;
 861      end;
 862     else
 863     if Clicked=exeCmd then
 864      begin
 865       str:=formGetText(commandTxt);
 866       addToLog(str);
 867       exeCommand(str);
 868       lastCommand:='';
 869       break;
 870      end;
 871    forever;
 872   forever;
 873  end;
 874
 875 procedure exec(s, search:string);
 876  var
 877   res:resource;
 878   str:string;
 879   tmpEOF : Boolean;
 880  begin
 881   search:=UpCase(search);
 882
 883   if search='LOCAL' then
 884    begin
 885     addToLog('Load file "'+s+'" at LOCAL!');
 886     res:=OpenResource('/'+s);
 887    end;
 888   else
 889   if search='SD' then
 890    begin
 891     if open_file('/'+sd+'/cavecraft/'+s)=1 then
 892      begin
 893       addToLog('Load file "'+s+'" at SD!');
 894       res:=get_stream;
 895      end;
 896    end;
 897   else
 898   if search='AUTO' then
 899    begin
 900     addToLog('path "/'+sd+'/cavecraft/'+s+'"');
 901     if file_exists('/'+sd+'/cavecraft/'+s)=1 then
 902      begin
 903       if open_file('/'+sd+'/cavecraft/'+s)=1 then
 904        begin
 905         addToLog('Load file "'+s+'" at SD(AUTO)!');
 906         res:=get_stream;
 907        end;
 908      end;
 909     else
 910      begin
 911       addToLog('Load file "'+s+'" at LOCAL(AUTO)!');
 912       res:=OpenResource('/'+s);
 913      end;
 914    end;
 915   else
 916    begin
 917     addToLog('Unknown load type "'+search+'", file "'+s+'" not executed!');
 918     exit;
 919    end;
 920
 921   if ResourceAvailable(res) then
 922    repeat
 923     str:=ReadString(res);
 924     tmpEOF:=EOFstr;
 925     //addToLog('Exec: "'+str+'"');
 926     exeCommand(str);
 927     EOFstr:=tmpEOF;
 928    until EOFstr;
 929   else
 930    addToLog('Execute file "'+s+'" not found!');
 931
 932   EOFstr := false;
 933   ENDstr := false;
 934   CloseResource(res);
 935  end;
 936
 937 initialization
 938
 939 end.