c6c2f69dd056e7db6d8f3cdbcb8f94be8a5093d2
3 interface
4 const
7 var
31 //load_key_tex:integer;
47 implementation
49 uses
50 keyboard,
51 vars,
52 maps,
53 items,
54 canvas,
55 mobs,
56 worldgen,
57 jsr75i,
58 particles,
59 func,
60 player,
61 sensor,
62 drop,
63 inv,
64 furnace,
65 items_store,
66 video;
68 const
73 var
85 begin
88 bytecode
96 begin
102 begin
108 var
110 begin
117 begin
123 var
125 begin
130 var
132 begin
140 begin
143 begin
147 else
149 begin
153 else
156 else
161 var
164 begin
178 begin
183 var
185 begin
188 begin
191 exit;
203 var
205 begin
212 var
214 begin
221 var
223 begin
234 var
237 begin
239 repeat
242 break;
245 forever;
250 var
252 begin
255 begin
261 else
262 begin
271 var
273 begin
274 repeat
277 exit;
279 {Symbol ';' is one line commentary}
281 begin
282 repeat
285 exit;
286 forever;
290 begin
291 //Go back
293 exit;
295 forever;
299 var
302 begin
304 clearSpaces;
305 repeat
309 begin
311 exit;
315 begin
316 //Go back
319 exit;
321 else
323 forever;
327 begin
331 else
334 else
337 else
341 //Перевод строки в целое число. base - система счисления
343 var
347 begin
350 begin
356 begin
360 else
363 else
364 begin
367 exit;
375 else
380 begin
385 else
388 else
393 begin
400 var
403 begin
405 begin
408 exit;
417 else
420 else
423 else
426 else
428 begin
431 else
433 begin
436 else
438 begin
441 else
443 begin
447 else
452 var
455 begin
457 clearSpaces;
459 exit;
464 begin
467 else
470 else
473 else
476 else
479 else
481 begin
485 else
487 begin
491 else
493 begin
497 else
498 {if com='SPAWN_MOBS' then
499 s_spawn_mob:=strToBool(nextWord);
500 else}
501 {if com='SURVIVAL' then
502 begin
503 fly:=false;
504 gamemode:=0;
505 hp:=20;
506 hunger:=20;
507 for i:=0 to 35 do
508 begin
509 inv[i].item_i:=0;
510 inv[i].sum_i:=0;
511 end;
512 end;
513 else}
515 begin
518 else
523 begin
526 else
529 else
531 halt;
532 else
535 else
536 {if com='MEGASPAWN' then
537 megaspawn;
538 else}
541 else
544 else
547 else
552 else
553 {if com='DRW_MOBS' then
554 drw_mobs:=strToBool(nextWord);
555 else}
558 else
561 else
563 begin
570 else
573 else
576 else
579 else
582 else
585 else
588 else
589 {if com='LOAD_MOB_TEX' then
590 load_mob_tex:=strToBool(nextWord);
591 else}
594 else
597 else
600 else
603 else
606 else
609 else
612 else
614 save_settings;
615 else
617 load_settings;
618 else
621 else
623 begin
627 else
629 begin
631 //addToLog('Max items: '+decodeInt(parsed_str[1]));
633 else
635 begin
643 else
645 begin
647 //addToLog('Max blocks: '+decodeInt(parsed_str[1]));
649 else
651 begin
662 else
664 begin
666 //addToLog('Max tools: '+decodeInt(parsed_str[1]));
668 else
670 begin
677 else
679 begin
681 //addToLog('Max fuel: '+decodeInt(parsed_str[1]));
683 else
685 begin
690 else
692 begin
694 //addToLog('Max recipes: '+decodeInt(parsed_str[1]));
696 else
698 begin
703 else
705 begin
707 //addToLog('Max crafts: '+decodeInt(parsed_str[1]));
709 else
711 begin
717 else
719 begin
725 else
727 begin
730 else
732 begin
735 else
737 begin
740 else
742 resetTmpImg;
743 else
746 nextWord,
749 begin
758 tmp,
761 else
764 else
768 else
770 begin
775 else
778 else
781 else
784 else
786 swapStack;
787 else
789 dupStack;
790 else
793 else
795 begin
799 else
802 else
804 begin
808 else
810 begin
814 else
817 else
820 else
823 else
829 else
832 else
833 //addToLog('Unknown command "'+com+'"');
837 var
842 begin
846 repeat
847 ClearForm;
859 ShowForm;
860 Repaint;
862 repeat
865 begin
867 showCanvas;
868 exit;
870 else
872 begin
877 break;
879 forever;
880 forever;
884 var
888 begin
892 begin
896 else
898 begin
900 begin
905 else
907 begin
910 begin
912 begin
917 else
918 begin
923 else
924 begin
926 exit;
930 repeat
933 //addToLog('Exec: "'+str+'"');
937 else
945 initialization