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_TOOLS' then
 644    begin
 645     resetTools(decodeInt(nextWord)+1);
 646     //addToLog('Max tools: '+decodeInt(parsed_str[1]));
 647    end;
 648   else
 649   if com='SET_TOOL' then
 650    begin
 651     setToolData(decodeInt(nextWord),
 652                 decodeInt(nextWord),
 653                 decodeInt(nextWord),
 654                 decodeInt(nextWord),
 655                 decodeInt(nextWord));
 656    end;
 657   else
 658   if com='RESET_FUELS' then
 659    begin
 660     furnace.setMaxFuel(decodeInt(nextWord));
 661     //addToLog('Max fuel: '+decodeInt(parsed_str[1]));
 662    end;
 663   else
 664   if com='SET_FUEL' then
 665    begin
 666     furnace.initFuel(decodeInt(nextWord),
 667                      decodeInt(nextWord),
 668                      decodeInt(nextWord));
 669    end;
 670   else
 671   if com='RESET_RECIPES' then
 672    begin
 673     furnace.setMaxRecipes(decodeInt(nextWord));
 674     //addToLog('Max recipes: '+decodeInt(parsed_str[1]));
 675    end;
 676   else
 677   if com='SET_RECIPE' then
 678    begin
 679     furnace.initRecipe(decodeInt(nextWord),
 680                        decodeInt(nextWord),
 681                        decodeInt(nextWord));
 682    end;
 683   else
 684   if com='RESET_CRAFTS' then
 685    begin
 686     resetCrafts(decodeInt(nextWord));
 687     //addToLog('Max crafts: '+decodeInt(parsed_str[1]));
 688    end;
 689   else
 690   if com='SET_CRAFT_IN' then
 691    begin
 692     setCraftIn(decodeInt(nextWord),
 693                decodeInt(nextWord),
 694                decodeInt(nextWord),
 695                decodeInt(nextWord));
 696    end;
 697   else
 698   if com='SET_CRAFT_OUT' then
 699    begin
 700     setCraftOUT(decodeInt(nextWord),
 701                 decodeInt(nextWord),
 702                 decodeInt(nextWord),
 703                 decodeInt(nextWord));
 704    end;
 705   else
 706   if com='RESET_BLOCKS_TEX' then
 707    begin
 708     initBlockTex(decodeInt(nextWord));
 709    end;
 710   else
 711   if com='RESET_ITEMS_TEX' then
 712    begin
 713     initItemTex(decodeInt(nextWord));
 714    end;
 715   else
 716   if com='LOAD_TEX' then
 717    begin
 718     regimg:=ld_tex(nextWord, '/'+sd+'/cavecraft/texturepacks/'+tex_pack+'/', '');
 719    end;
 720   else
 721   if com='RESET_TEX' then
 722    resetTmpImg;
 723   else
 724   if com='SET_TEX' then
 725    setTexture(regimg,
 726               nextWord,
 727               decodeInt(nextWord));
 728   if com='SET_CANV_TEX' then
 729    begin
 730     tmp:=nextWord;
 731     tmp2:=nextWord;
 732     setTexture(rotate_image_from_image(regimg,
 733                                        decodeInt(nextWord),
 734                                        decodeInt(nextWord),
 735                                        decodeInt(nextWord),
 736                                        decodeInt(nextWord),
 737                                        0),
 738                tmp,
 739                decodeInt(tmp2));
 740    end;
 741   else
 742   if com='BIND_KEY' then
 743    begin
 744     tmp:=nextWord;
 745     for i:=0 to MAX_KEY_BIND do
 746      keyboard.bindKey(decodeInt(tmp), i, decodeInt(nextWord));
 747    end;
 748   else
 749   if com='STACK' then
 750    resetStack(decodeInt(nextWord));
 751   else
 752   if com='PUSH' then
 753    pushStack(decodeInt(nextWord));
 754   else
 755   if com='POP' then
 756    i:=popStack;
 757   else
 758   if com='SWAP' then
 759    swapStack;
 760   else
 761   if com='DUP' then
 762    dupStack;
 763   else
 764   if com='ADD' then
 765    pushStack(popStack+popStack);
 766   else
 767   if com='SUB' then
 768    begin
 769     i:=popStack;
 770     pushStack(popStack-i);
 771    end;
 772   else
 773   if com='MUL' then
 774    pushStack(popStack*popStack);
 775   else
 776   if com='DIV' then
 777    begin
 778     i:=popStack;
 779     pushStack(popStack/i);
 780    end;
 781   else
 782   if com='MOD' then
 783    begin
 784     i:=popStack;
 785     pushStack(popStack mod i);
 786    end;
 787   else
 788   if com='SET' then
 789    setVar(nextWord, decodeInt(nextWord));
 790   else
 791   if com='POPSET' then
 792    setVar(nextWord, popStack);
 793   else
 794   if com='MAX_VKEYS' then
 795    resetVirtualKeyboard(decodeInt(nextWord));
 796   else
 797   if com='SET_VKEY' then
 798    bindVKey(decodeInt(nextWord),
 799             decodeInt(nextWord),
 800             decodeInt(nextWord),
 801             decodeInt(nextWord));
 802   else
 803   if com='SET_RESOLUTION' then
 804    initVideo(decodeInt(nextWord), decodeInt(nextWord), strToBool(nextWord));
 805   else
 806    //addToLog('Unknown command "'+com+'"');
 807  end;
 808
 809 procedure call_console;
 810  var
 811   commandTxt:integer;
 812   i, tmpid:integer;
 813   exitCmd, exeCmd, Clicked:command;
 814   str:string;
 815  begin
 816
 817   setFont(FONT_FACE_SYSTEM,FONT_STYLE_PLAIN,FONT_SIZE_SMALL);
 818
 819   repeat
 820    ClearForm;
 821
 822    exitCmd:=createCommand('Exit', CM_EXIT, 1);
 823    exeCmd:=createCommand('Execute', CM_OK, 1);
 824    addCommand(exitCmd);
 825    addCommand(exeCmd);
 826
 827    commandTxt:=formAddTextField('Enter command:', ''+lastCommand, 32, TF_ANY);
 828
 829    for i:=0 to CON_LOG_SIZE do
 830     tmpid:=formAddString(logSTR[i]+chr(10));
 831
 832    ShowForm;
 833    Repaint;
 834
 835    repeat
 836     Clicked:=getClickedCommand;
 837     if Clicked=exitCmd then
 838      begin
 839       lastCommand:=formGetText(commandTxt);
 840       showCanvas;
 841       exit;
 842      end;
 843     else
 844     if Clicked=exeCmd then
 845      begin
 846       str:=formGetText(commandTxt);
 847       addToLog(str);
 848       exeCommand(str);
 849       lastCommand:='';
 850       break;
 851      end;
 852    forever;
 853   forever;
 854  end;
 855
 856 procedure exec(s, search:string);
 857  var
 858   res:resource;
 859   str:string;
 860   tmpEOF : Boolean;
 861  begin
 862   search:=UpCase(search);
 863
 864   if search='LOCAL' then
 865    begin
 866     addToLog('Load file "'+s+'" at LOCAL!');
 867     res:=OpenResource('/'+s);
 868    end;
 869   else
 870   if search='SD' then
 871    begin
 872     if open_file('/'+sd+'/cavecraft/'+s)=1 then
 873      begin
 874       addToLog('Load file "'+s+'" at SD!');
 875       res:=get_stream;
 876      end;
 877    end;
 878   else
 879   if search='AUTO' then
 880    begin
 881     addToLog('path "/'+sd+'/cavecraft/'+s+'"');
 882     if file_exists('/'+sd+'/cavecraft/'+s)=1 then
 883      begin
 884       if open_file('/'+sd+'/cavecraft/'+s)=1 then
 885        begin
 886         addToLog('Load file "'+s+'" at SD(AUTO)!');
 887         res:=get_stream;
 888        end;
 889      end;
 890     else
 891      begin
 892       addToLog('Load file "'+s+'" at LOCAL(AUTO)!');
 893       res:=OpenResource('/'+s);
 894      end;
 895    end;
 896   else
 897    begin
 898     addToLog('Unknown load type "'+search+'", file "'+s+'" not executed!');
 899     exit;
 900    end;
 901
 902   if ResourceAvailable(res) then
 903    repeat
 904     str:=ReadString(res);
 905     tmpEOF:=EOFstr;
 906     //addToLog('Exec: "'+str+'"');
 907     exeCommand(str);
 908     EOFstr:=tmpEOF;
 909    until EOFstr;
 910   else
 911    addToLog('Execute file "'+s+'" not found!');
 912
 913   EOFstr := false;
 914   ENDstr := false;
 915   CloseResource(res);
 916  end;
 917
 918 initialization
 919
 920 end.