3 interface
4 const
6 var
19 //s_particles:boolean; - module
33 //load_key_tex:integer;
41 //max_particles:integer; - module
49 implementation
50 uses keyboard,particles_store,vars,maps,items,canvas,mob,worldgen,jsr75i,particles,func, player,sensor, drop, inv, furnace, items_store, video;
51 const
55 var
69 begin
72 bytecode
80 begin
86 begin
92 var
94 begin
101 begin
107 var
109 begin
114 var
116 begin
124 begin
127 begin
131 else
133 begin
137 else
140 else
145 var
148 begin
162 begin
167 var
169 begin
172 begin
175 exit;
187 var
189 begin
196 var
198 begin
205 var
207 begin
218 var
221 begin
223 repeat
226 break;
229 forever;
234 var
236 begin
239 begin
245 else
246 begin
255 var
257 begin
258 repeat
261 exit;
263 {Symbol ';' is one line commentary}
265 begin
266 repeat
269 exit;
270 forever;
274 begin
275 //Go back
277 exit;
279 forever;
283 var
286 begin
288 clearSpaces;
289 repeat
293 begin
295 exit;
299 begin
300 //Go back
303 exit;
305 else
307 forever;
311 begin
315 else
318 else
321 else
325 //Перевод строки в целое число. base - система счисления
327 var
331 begin
334 begin
340 begin
344 else
347 else
348 begin
351 exit;
359 else
364 begin
369 else
372 else
377 begin
384 var
387 begin
389 begin
392 exit;
401 else
404 else
407 else
410 else
412 begin
415 else
417 begin
420 else
422 begin
425 else
427 begin
431 else
436 var
439 begin
441 clearSpaces;
443 exit;
448 begin
451 else
454 else
457 else
460 else
463 else
465 begin
469 else
471 begin
475 else
476 {if com='KILL_MOBS' then
477 for i:=0 to 31 do
478 begin
479 mob[i].m_type:=0;
480 mob[i].m_hp:=0;
481 end;
482 else}
484 begin
488 else
489 {if com='SPAWN_MOBS' then
490 s_spawn_mob:=strToBool(nextWord);
491 else}
492 {if com='SURVIVAL' then
493 begin
494 fly:=false;
495 gamemode:=0;
496 hp:=20;
497 hunger:=20;
498 for i:=0 to 35 do
499 begin
500 inv[i].item_i:=0;
501 inv[i].sum_i:=0;
502 end;
503 end;
504 else}
506 begin
509 else
514 begin
517 else
520 else
522 halt;
523 else
526 else
527 {if com='MEGASPAWN' then
528 megaspawn;
529 else}
532 else
535 else
538 else
539 {if com='AI_UPD' then
540 ai_upd:=strToBool(nextWord);
541 else}
544 else
549 else
550 {if com='DRW_MOBS' then
551 drw_mobs:=strToBool(nextWord);
552 else}
555 else
558 else
560 begin
567 else
570 else
573 else
576 else
579 else
582 else
585 else
586 {if com='LOAD_MOB_TEX' then
587 load_mob_tex:=strToBool(nextWord);
588 else}
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
633 else
635 begin
637 //addToLog('Max items: '+decodeInt(parsed_str[1]));
639 else
641 begin
649 else
651 begin
653 //addToLog('Max blocks: '+decodeInt(parsed_str[1]));
655 else
657 begin
668 else
670 begin
672 //addToLog('Max tools: '+decodeInt(parsed_str[1]));
674 else
676 begin
683 else
685 begin
687 //addToLog('Max fuel: '+decodeInt(parsed_str[1]));
689 else
691 begin
696 else
698 begin
700 //addToLog('Max recipes: '+decodeInt(parsed_str[1]));
702 else
704 begin
709 else
711 begin
713 //addToLog('Max crafts: '+decodeInt(parsed_str[1]));
715 else
717 begin
723 else
725 begin
731 else
733 begin
736 else
738 begin
741 else
744 else
746 resetTmpImg;
747 else
750 nextWord,
753 begin
762 tmp,
765 else
768 else
772 else
774 begin
779 else
782 else
785 else
788 else
790 swapStack;
791 else
793 dupStack;
794 else
797 else
799 begin
803 else
806 else
808 begin
812 else
814 begin
818 else
821 else
824 else
827 else
833 else
836 else
837 //addToLog('Unknown command "'+com+'"');
841 var
846 begin
850 repeat
851 ClearForm;
863 ShowForm;
864 Repaint;
866 repeat
869 begin
871 showCanvas;
872 exit;
874 else
876 begin
881 break;
883 forever;
884 forever;
888 var
892 begin
899 begin
903 else
905 begin
907 begin
912 else
914 begin
917 begin
919 begin
924 else
925 begin
930 else
931 begin
934 exit;
938 repeat
941 //addToLog('Exec: "'+str+'"');
945 else
952 initialization