// starting begin resetfog ;
   0: CALL_OW 335
// Hero ;
   4: CALL 20 0 0
// saveforquickrestart ;
   8: CALL_OW 22
// changemissionobjectives ( Cel1 ) ;
  12: LD_STRING Cel1
  14: PPUSH
  15: CALL_OW 337
// end ; end_of_file
  19: END
// export postac1 , postac2 , un555 , jednostka , jednostka1 , jednostka2 , pojazdarab , postac4 , pojazd , postac99 , postac3 , postac5 , un , inzynier , heros , un1 , un2 , un3 , un4 , un5 , un6 ; export function Hero ; var Level ; begin
  20: LD_INT 0
  22: PPUSH
  23: PPUSH
// Level = [ 6 , 7 , 8 ] [ Difficulty ] ;
  24: LD_ADDR_VAR 0 2
  28: PUSH
  29: LD_INT 6
  31: PUSH
  32: LD_INT 7
  34: PUSH
  35: LD_INT 8
  37: PUSH
  38: EMPTY
  39: LIST
  40: LIST
  41: LIST
  42: PUSH
  43: LD_OWVAR 67
  47: ARRAY
  48: ST_TO_ADDR
// uc_side = 3 ;
  49: LD_ADDR_OWVAR 20
  53: PUSH
  54: LD_INT 3
  56: ST_TO_ADDR
// uc_nation = 3 ;
  57: LD_ADDR_OWVAR 21
  61: PUSH
  62: LD_INT 3
  64: ST_TO_ADDR
// hc_gallery =  ;
  65: LD_ADDR_OWVAR 33
  69: PUSH
  70: LD_STRING 
  72: ST_TO_ADDR
// hc_name =  ;
  73: LD_ADDR_OWVAR 26
  77: PUSH
  78: LD_STRING 
  80: ST_TO_ADDR
// hc_skills = [ rand ( 3 , 5 ) , rand ( 1 , 3 ) , rand ( 0 , 2 ) , rand ( 0 , 1 ) ] ;
  81: LD_ADDR_OWVAR 31
  85: PUSH
  86: LD_INT 3
  88: PPUSH
  89: LD_INT 5
  91: PPUSH
  92: CALL_OW 12
  96: PUSH
  97: LD_INT 1
  99: PPUSH
 100: LD_INT 3
 102: PPUSH
 103: CALL_OW 12
 107: PUSH
 108: LD_INT 0
 110: PPUSH
 111: LD_INT 2
 113: PPUSH
 114: CALL_OW 12
 118: PUSH
 119: LD_INT 0
 121: PPUSH
 122: LD_INT 1
 124: PPUSH
 125: CALL_OW 12
 129: PUSH
 130: EMPTY
 131: LIST
 132: LIST
 133: LIST
 134: LIST
 135: ST_TO_ADDR
// postac1 = CreateHuman ;
 136: LD_ADDR_EXP 1
 140: PUSH
 141: CALL_OW 44
 145: ST_TO_ADDR
// placeunitarea ( postac1 , Area04 , false ) ;
 146: LD_EXP 1
 150: PPUSH
 151: LD_INT 4
 153: PPUSH
 154: LD_INT 0
 156: PPUSH
 157: CALL_OW 49
// uc_side = 3 ;
 161: LD_ADDR_OWVAR 20
 165: PUSH
 166: LD_INT 3
 168: ST_TO_ADDR
// uc_nation = 3 ;
 169: LD_ADDR_OWVAR 21
 173: PUSH
 174: LD_INT 3
 176: ST_TO_ADDR
// hc_importance = 100 ;
 177: LD_ADDR_OWVAR 32
 181: PUSH
 182: LD_INT 100
 184: ST_TO_ADDR
// HC_gallery =  ;
 185: LD_ADDR_OWVAR 33
 189: PUSH
 190: LD_STRING 
 192: ST_TO_ADDR
// hc_name =  ;
 193: LD_ADDR_OWVAR 26
 197: PUSH
 198: LD_STRING 
 200: ST_TO_ADDR
// hc_skills = [ 6 , 4 , 4 , 4 ] ;
 201: LD_ADDR_OWVAR 31
 205: PUSH
 206: LD_INT 6
 208: PUSH
 209: LD_INT 4
 211: PUSH
 212: LD_INT 4
 214: PUSH
 215: LD_INT 4
 217: PUSH
 218: EMPTY
 219: LIST
 220: LIST
 221: LIST
 222: LIST
 223: ST_TO_ADDR
// postac2 = CreateHuman ;
 224: LD_ADDR_EXP 2
 228: PUSH
 229: CALL_OW 44
 233: ST_TO_ADDR
// placeunitarea ( postac2 , Area04 , false ) ;
 234: LD_EXP 2
 238: PPUSH
 239: LD_INT 4
 241: PPUSH
 242: LD_INT 0
 244: PPUSH
 245: CALL_OW 49
// hc_importance = 0 ;
 249: LD_ADDR_OWVAR 32
 253: PUSH
 254: LD_INT 0
 256: ST_TO_ADDR
// uc_side = 4 ;
 257: LD_ADDR_OWVAR 20
 261: PUSH
 262: LD_INT 4
 264: ST_TO_ADDR
// uc_nation = 1 ;
 265: LD_ADDR_OWVAR 21
 269: PUSH
 270: LD_INT 1
 272: ST_TO_ADDR
// hc_gallery =  ;
 273: LD_ADDR_OWVAR 33
 277: PUSH
 278: LD_STRING 
 280: ST_TO_ADDR
// hc_name = Kryptonim Orze1 ;
 281: LD_ADDR_OWVAR 26
 285: PUSH
 286: LD_STRING Kryptonim Orze1
 288: ST_TO_ADDR
// hc_skills = [ 6 , 4 , 4 , 4 ] ;
 289: LD_ADDR_OWVAR 31
 293: PUSH
 294: LD_INT 6
 296: PUSH
 297: LD_INT 4
 299: PUSH
 300: LD_INT 4
 302: PUSH
 303: LD_INT 4
 305: PUSH
 306: EMPTY
 307: LIST
 308: LIST
 309: LIST
 310: LIST
 311: ST_TO_ADDR
// postac5 = CreateHuman ;
 312: LD_ADDR_EXP 12
 316: PUSH
 317: CALL_OW 44
 321: ST_TO_ADDR
// PlaceUnitarea ( postac5 , Area05 , false ) ;
 322: LD_EXP 12
 326: PPUSH
 327: LD_INT 5
 329: PPUSH
 330: LD_INT 0
 332: PPUSH
 333: CALL_OW 49
// uc_side = 3 ;
 337: LD_ADDR_OWVAR 20
 341: PUSH
 342: LD_INT 3
 344: ST_TO_ADDR
// uc_nation = 3 ;
 345: LD_ADDR_OWVAR 21
 349: PUSH
 350: LD_INT 3
 352: ST_TO_ADDR
// hc_gallery =  ;
 353: LD_ADDR_OWVAR 33
 357: PUSH
 358: LD_STRING 
 360: ST_TO_ADDR
// hc_name =  ;
 361: LD_ADDR_OWVAR 26
 365: PUSH
 366: LD_STRING 
 368: ST_TO_ADDR
// hc_skills = [ 1 , 2 , 1 , 1 ] ;
 369: LD_ADDR_OWVAR 31
 373: PUSH
 374: LD_INT 1
 376: PUSH
 377: LD_INT 2
 379: PUSH
 380: LD_INT 1
 382: PUSH
 383: LD_INT 1
 385: PUSH
 386: EMPTY
 387: LIST
 388: LIST
 389: LIST
 390: LIST
 391: ST_TO_ADDR
// un1 = Createhuman ;
 392: LD_ADDR_EXP 16
 396: PUSH
 397: CALL_OW 44
 401: ST_TO_ADDR
// uc_side = 3 ;
 402: LD_ADDR_OWVAR 20
 406: PUSH
 407: LD_INT 3
 409: ST_TO_ADDR
// uc_nation = 3 ;
 410: LD_ADDR_OWVAR 21
 414: PUSH
 415: LD_INT 3
 417: ST_TO_ADDR
// hc_gallery =  ;
 418: LD_ADDR_OWVAR 33
 422: PUSH
 423: LD_STRING 
 425: ST_TO_ADDR
// hc_name =  ;
 426: LD_ADDR_OWVAR 26
 430: PUSH
 431: LD_STRING 
 433: ST_TO_ADDR
// hc_skills = [ 2 , 2 , 1 , 1 ] ;
 434: LD_ADDR_OWVAR 31
 438: PUSH
 439: LD_INT 2
 441: PUSH
 442: LD_INT 2
 444: PUSH
 445: LD_INT 1
 447: PUSH
 448: LD_INT 1
 450: PUSH
 451: EMPTY
 452: LIST
 453: LIST
 454: LIST
 455: LIST
 456: ST_TO_ADDR
// un2 = Createhuman ;
 457: LD_ADDR_EXP 17
 461: PUSH
 462: CALL_OW 44
 466: ST_TO_ADDR
// uc_side = 3 ;
 467: LD_ADDR_OWVAR 20
 471: PUSH
 472: LD_INT 3
 474: ST_TO_ADDR
// uc_nation = 3 ;
 475: LD_ADDR_OWVAR 21
 479: PUSH
 480: LD_INT 3
 482: ST_TO_ADDR
// hc_gallery =  ;
 483: LD_ADDR_OWVAR 33
 487: PUSH
 488: LD_STRING 
 490: ST_TO_ADDR
// hc_name =  ;
 491: LD_ADDR_OWVAR 26
 495: PUSH
 496: LD_STRING 
 498: ST_TO_ADDR
// hc_skills = [ 2 , 2 , 1 , 1 ] ;
 499: LD_ADDR_OWVAR 31
 503: PUSH
 504: LD_INT 2
 506: PUSH
 507: LD_INT 2
 509: PUSH
 510: LD_INT 1
 512: PUSH
 513: LD_INT 1
 515: PUSH
 516: EMPTY
 517: LIST
 518: LIST
 519: LIST
 520: LIST
 521: ST_TO_ADDR
// un3 = Createhuman ;
 522: LD_ADDR_EXP 18
 526: PUSH
 527: CALL_OW 44
 531: ST_TO_ADDR
// uc_side = 3 ;
 532: LD_ADDR_OWVAR 20
 536: PUSH
 537: LD_INT 3
 539: ST_TO_ADDR
// uc_nation = 3 ;
 540: LD_ADDR_OWVAR 21
 544: PUSH
 545: LD_INT 3
 547: ST_TO_ADDR
// hc_gallery =  ;
 548: LD_ADDR_OWVAR 33
 552: PUSH
 553: LD_STRING 
 555: ST_TO_ADDR
// hc_name =  ;
 556: LD_ADDR_OWVAR 26
 560: PUSH
 561: LD_STRING 
 563: ST_TO_ADDR
// hc_skills = [ 1 , 2 , 0 , 1 ] ;
 564: LD_ADDR_OWVAR 31
 568: PUSH
 569: LD_INT 1
 571: PUSH
 572: LD_INT 2
 574: PUSH
 575: LD_INT 0
 577: PUSH
 578: LD_INT 1
 580: PUSH
 581: EMPTY
 582: LIST
 583: LIST
 584: LIST
 585: LIST
 586: ST_TO_ADDR
// un4 = Createhuman ;
 587: LD_ADDR_EXP 19
 591: PUSH
 592: CALL_OW 44
 596: ST_TO_ADDR
// uc_side = 3 ;
 597: LD_ADDR_OWVAR 20
 601: PUSH
 602: LD_INT 3
 604: ST_TO_ADDR
// uc_nation = 3 ;
 605: LD_ADDR_OWVAR 21
 609: PUSH
 610: LD_INT 3
 612: ST_TO_ADDR
// hc_gallery =  ;
 613: LD_ADDR_OWVAR 33
 617: PUSH
 618: LD_STRING 
 620: ST_TO_ADDR
// hc_name =  ;
 621: LD_ADDR_OWVAR 26
 625: PUSH
 626: LD_STRING 
 628: ST_TO_ADDR
// hc_skills = [ 1 , 2 , 0 , 1 ] ;
 629: LD_ADDR_OWVAR 31
 633: PUSH
 634: LD_INT 1
 636: PUSH
 637: LD_INT 2
 639: PUSH
 640: LD_INT 0
 642: PUSH
 643: LD_INT 1
 645: PUSH
 646: EMPTY
 647: LIST
 648: LIST
 649: LIST
 650: LIST
 651: ST_TO_ADDR
// un5 = Createhuman ;
 652: LD_ADDR_EXP 20
 656: PUSH
 657: CALL_OW 44
 661: ST_TO_ADDR
// uc_side = 3 ;
 662: LD_ADDR_OWVAR 20
 666: PUSH
 667: LD_INT 3
 669: ST_TO_ADDR
// uc_nation = 3 ;
 670: LD_ADDR_OWVAR 21
 674: PUSH
 675: LD_INT 3
 677: ST_TO_ADDR
// hc_gallery =  ;
 678: LD_ADDR_OWVAR 33
 682: PUSH
 683: LD_STRING 
 685: ST_TO_ADDR
// hc_name =  ;
 686: LD_ADDR_OWVAR 26
 690: PUSH
 691: LD_STRING 
 693: ST_TO_ADDR
// hc_skills = [ 2 , 2 , 1 , 1 ] ;
 694: LD_ADDR_OWVAR 31
 698: PUSH
 699: LD_INT 2
 701: PUSH
 702: LD_INT 2
 704: PUSH
 705: LD_INT 1
 707: PUSH
 708: LD_INT 1
 710: PUSH
 711: EMPTY
 712: LIST
 713: LIST
 714: LIST
 715: LIST
 716: ST_TO_ADDR
// un6 = Createhuman ;
 717: LD_ADDR_EXP 21
 721: PUSH
 722: CALL_OW 44
 726: ST_TO_ADDR
// uc_side = 3 ;
 727: LD_ADDR_OWVAR 20
 731: PUSH
 732: LD_INT 3
 734: ST_TO_ADDR
// uc_nation = 3 ;
 735: LD_ADDR_OWVAR 21
 739: PUSH
 740: LD_INT 3
 742: ST_TO_ADDR
// hc_class = class_engineer ;
 743: LD_ADDR_OWVAR 28
 747: PUSH
 748: LD_INT 2
 750: ST_TO_ADDR
// hc_gallery =  ;
 751: LD_ADDR_OWVAR 33
 755: PUSH
 756: LD_STRING 
 758: ST_TO_ADDR
// hc_name =  ;
 759: LD_ADDR_OWVAR 26
 763: PUSH
 764: LD_STRING 
 766: ST_TO_ADDR
// hc_skills = [ 1 , 3 , 2 , 1 ] ;
 767: LD_ADDR_OWVAR 31
 771: PUSH
 772: LD_INT 1
 774: PUSH
 775: LD_INT 3
 777: PUSH
 778: LD_INT 2
 780: PUSH
 781: LD_INT 1
 783: PUSH
 784: EMPTY
 785: LIST
 786: LIST
 787: LIST
 788: LIST
 789: ST_TO_ADDR
// inzynier = Createhuman ;
 790: LD_ADDR_EXP 14
 794: PUSH
 795: CALL_OW 44
 799: ST_TO_ADDR
// placeunitarea ( inzynier , Area04 , false ) ;
 800: LD_EXP 14
 804: PPUSH
 805: LD_INT 4
 807: PPUSH
 808: LD_INT 0
 810: PPUSH
 811: CALL_OW 49
// uc_side = 3 ;
 815: LD_ADDR_OWVAR 20
 819: PUSH
 820: LD_INT 3
 822: ST_TO_ADDR
// uc_nation = 3 ;
 823: LD_ADDR_OWVAR 21
 827: PUSH
 828: LD_INT 3
 830: ST_TO_ADDR
// hc_class = class_scientistic ;
 831: LD_ADDR_OWVAR 28
 835: PUSH
 836: LD_INT 4
 838: ST_TO_ADDR
// hc_gallery =  ;
 839: LD_ADDR_OWVAR 33
 843: PUSH
 844: LD_STRING 
 846: ST_TO_ADDR
// hc_name =  ;
 847: LD_ADDR_OWVAR 26
 851: PUSH
 852: LD_STRING 
 854: ST_TO_ADDR
// hc_skills = [ 1 , 3 , 2 , 1 ] ;
 855: LD_ADDR_OWVAR 31
 859: PUSH
 860: LD_INT 1
 862: PUSH
 863: LD_INT 3
 865: PUSH
 866: LD_INT 2
 868: PUSH
 869: LD_INT 1
 871: PUSH
 872: EMPTY
 873: LIST
 874: LIST
 875: LIST
 876: LIST
 877: ST_TO_ADDR
// inzynier = Createhuman ;
 878: LD_ADDR_EXP 14
 882: PUSH
 883: CALL_OW 44
 887: ST_TO_ADDR
// placeunitarea ( inzynier , Area04 , false ) ;
 888: LD_EXP 14
 892: PPUSH
 893: LD_INT 4
 895: PPUSH
 896: LD_INT 0
 898: PPUSH
 899: CALL_OW 49
// uc_side = 3 ;
 903: LD_ADDR_OWVAR 20
 907: PUSH
 908: LD_INT 3
 910: ST_TO_ADDR
// uc_nation = 3 ;
 911: LD_ADDR_OWVAR 21
 915: PUSH
 916: LD_INT 3
 918: ST_TO_ADDR
// hc_class = class_engineer ;
 919: LD_ADDR_OWVAR 28
 923: PUSH
 924: LD_INT 2
 926: ST_TO_ADDR
// hc_gallery =  ;
 927: LD_ADDR_OWVAR 33
 931: PUSH
 932: LD_STRING 
 934: ST_TO_ADDR
// hc_name =  ;
 935: LD_ADDR_OWVAR 26
 939: PUSH
 940: LD_STRING 
 942: ST_TO_ADDR
// hc_skills = [ 1 , 3 , 2 , 1 ] ;
 943: LD_ADDR_OWVAR 31
 947: PUSH
 948: LD_INT 1
 950: PUSH
 951: LD_INT 3
 953: PUSH
 954: LD_INT 2
 956: PUSH
 957: LD_INT 1
 959: PUSH
 960: EMPTY
 961: LIST
 962: LIST
 963: LIST
 964: LIST
 965: ST_TO_ADDR
// inzynier = Createhuman ;
 966: LD_ADDR_EXP 14
 970: PUSH
 971: CALL_OW 44
 975: ST_TO_ADDR
// placeunitarea ( inzynier , Area04 , false ) ;
 976: LD_EXP 14
 980: PPUSH
 981: LD_INT 4
 983: PPUSH
 984: LD_INT 0
 986: PPUSH
 987: CALL_OW 49
// uc_side = 3 ;
 991: LD_ADDR_OWVAR 20
 995: PUSH
 996: LD_INT 3
 998: ST_TO_ADDR
// uc_nation = 3 ;
 999: LD_ADDR_OWVAR 21
1003: PUSH
1004: LD_INT 3
1006: ST_TO_ADDR
// hc_class = class_engineer ;
1007: LD_ADDR_OWVAR 28
1011: PUSH
1012: LD_INT 2
1014: ST_TO_ADDR
// hc_gallery =  ;
1015: LD_ADDR_OWVAR 33
1019: PUSH
1020: LD_STRING 
1022: ST_TO_ADDR
// hc_name =  ;
1023: LD_ADDR_OWVAR 26
1027: PUSH
1028: LD_STRING 
1030: ST_TO_ADDR
// hc_skills = [ 1 , 3 , 2 , 1 ] ;
1031: LD_ADDR_OWVAR 31
1035: PUSH
1036: LD_INT 1
1038: PUSH
1039: LD_INT 3
1041: PUSH
1042: LD_INT 2
1044: PUSH
1045: LD_INT 1
1047: PUSH
1048: EMPTY
1049: LIST
1050: LIST
1051: LIST
1052: LIST
1053: ST_TO_ADDR
// inzynier = Createhuman ;
1054: LD_ADDR_EXP 14
1058: PUSH
1059: CALL_OW 44
1063: ST_TO_ADDR
// placeunitarea ( inzynier , Area04 , false ) ;
1064: LD_EXP 14
1068: PPUSH
1069: LD_INT 4
1071: PPUSH
1072: LD_INT 0
1074: PPUSH
1075: CALL_OW 49
// uc_nation = 3 ;
1079: LD_ADDR_OWVAR 21
1083: PUSH
1084: LD_INT 3
1086: ST_TO_ADDR
// hc_class = class_engineer ;
1087: LD_ADDR_OWVAR 28
1091: PUSH
1092: LD_INT 2
1094: ST_TO_ADDR
// hc_gallery =  ;
1095: LD_ADDR_OWVAR 33
1099: PUSH
1100: LD_STRING 
1102: ST_TO_ADDR
// hc_name =  ;
1103: LD_ADDR_OWVAR 26
1107: PUSH
1108: LD_STRING 
1110: ST_TO_ADDR
// hc_skills = [ 1 , 3 , 2 , 1 ] ;
1111: LD_ADDR_OWVAR 31
1115: PUSH
1116: LD_INT 1
1118: PUSH
1119: LD_INT 3
1121: PUSH
1122: LD_INT 2
1124: PUSH
1125: LD_INT 1
1127: PUSH
1128: EMPTY
1129: LIST
1130: LIST
1131: LIST
1132: LIST
1133: ST_TO_ADDR
// inzynier = Createhuman ;
1134: LD_ADDR_EXP 14
1138: PUSH
1139: CALL_OW 44
1143: ST_TO_ADDR
// placeunitarea ( inzynier , Area04 , false ) ;
1144: LD_EXP 14
1148: PPUSH
1149: LD_INT 4
1151: PPUSH
1152: LD_INT 0
1154: PPUSH
1155: CALL_OW 49
// uc_side = 4 ;
1159: LD_ADDR_OWVAR 20
1163: PUSH
1164: LD_INT 4
1166: ST_TO_ADDR
// uc_nation = 1 ;
1167: LD_ADDR_OWVAR 21
1171: PUSH
1172: LD_INT 1
1174: ST_TO_ADDR
// hc_class = class_engineer ;
1175: LD_ADDR_OWVAR 28
1179: PUSH
1180: LD_INT 2
1182: ST_TO_ADDR
// hc_gallery =  ;
1183: LD_ADDR_OWVAR 33
1187: PUSH
1188: LD_STRING 
1190: ST_TO_ADDR
// hc_name =  ;
1191: LD_ADDR_OWVAR 26
1195: PUSH
1196: LD_STRING 
1198: ST_TO_ADDR
// hc_skills = [ 1 , 3 , 2 , 1 ] ;
1199: LD_ADDR_OWVAR 31
1203: PUSH
1204: LD_INT 1
1206: PUSH
1207: LD_INT 3
1209: PUSH
1210: LD_INT 2
1212: PUSH
1213: LD_INT 1
1215: PUSH
1216: EMPTY
1217: LIST
1218: LIST
1219: LIST
1220: LIST
1221: ST_TO_ADDR
// inzynier = Createhuman ;
1222: LD_ADDR_EXP 14
1226: PUSH
1227: CALL_OW 44
1231: ST_TO_ADDR
// placeunitarea ( inzynier , Area02 , false ) ;
1232: LD_EXP 14
1236: PPUSH
1237: LD_INT 2
1239: PPUSH
1240: LD_INT 0
1242: PPUSH
1243: CALL_OW 49
// uc_side = 4 ;
1247: LD_ADDR_OWVAR 20
1251: PUSH
1252: LD_INT 4
1254: ST_TO_ADDR
// uc_nation = 1 ;
1255: LD_ADDR_OWVAR 21
1259: PUSH
1260: LD_INT 1
1262: ST_TO_ADDR
// hc_class = class_scientistic ;
1263: LD_ADDR_OWVAR 28
1267: PUSH
1268: LD_INT 4
1270: ST_TO_ADDR
// hc_gallery =  ;
1271: LD_ADDR_OWVAR 33
1275: PUSH
1276: LD_STRING 
1278: ST_TO_ADDR
// hc_name =  ;
1279: LD_ADDR_OWVAR 26
1283: PUSH
1284: LD_STRING 
1286: ST_TO_ADDR
// hc_skills = [ 1 , 3 , 2 , 1 ] ;
1287: LD_ADDR_OWVAR 31
1291: PUSH
1292: LD_INT 1
1294: PUSH
1295: LD_INT 3
1297: PUSH
1298: LD_INT 2
1300: PUSH
1301: LD_INT 1
1303: PUSH
1304: EMPTY
1305: LIST
1306: LIST
1307: LIST
1308: LIST
1309: ST_TO_ADDR
// inzynier = Createhuman ;
1310: LD_ADDR_EXP 14
1314: PUSH
1315: CALL_OW 44
1319: ST_TO_ADDR
// placeunitarea ( inzynier , Area02 , false ) ;
1320: LD_EXP 14
1324: PPUSH
1325: LD_INT 2
1327: PPUSH
1328: LD_INT 0
1330: PPUSH
1331: CALL_OW 49
// uc_side = 4 ;
1335: LD_ADDR_OWVAR 20
1339: PUSH
1340: LD_INT 4
1342: ST_TO_ADDR
// uc_nation = 1 ;
1343: LD_ADDR_OWVAR 21
1347: PUSH
1348: LD_INT 1
1350: ST_TO_ADDR
// hc_class = class_engineer ;
1351: LD_ADDR_OWVAR 28
1355: PUSH
1356: LD_INT 2
1358: ST_TO_ADDR
// hc_gallery =  ;
1359: LD_ADDR_OWVAR 33
1363: PUSH
1364: LD_STRING 
1366: ST_TO_ADDR
// hc_name =  ;
1367: LD_ADDR_OWVAR 26
1371: PUSH
1372: LD_STRING 
1374: ST_TO_ADDR
// hc_skills = [ 1 , 3 , 2 , 1 ] ;
1375: LD_ADDR_OWVAR 31
1379: PUSH
1380: LD_INT 1
1382: PUSH
1383: LD_INT 3
1385: PUSH
1386: LD_INT 2
1388: PUSH
1389: LD_INT 1
1391: PUSH
1392: EMPTY
1393: LIST
1394: LIST
1395: LIST
1396: LIST
1397: ST_TO_ADDR
// inzynier = Createhuman ;
1398: LD_ADDR_EXP 14
1402: PUSH
1403: CALL_OW 44
1407: ST_TO_ADDR
// placeunitarea ( inzynier , Area02 , false ) ;
1408: LD_EXP 14
1412: PPUSH
1413: LD_INT 2
1415: PPUSH
1416: LD_INT 0
1418: PPUSH
1419: CALL_OW 49
// uc_side = 2 ;
1423: LD_ADDR_OWVAR 20
1427: PUSH
1428: LD_INT 2
1430: ST_TO_ADDR
// uc_nation = 2 ;
1431: LD_ADDR_OWVAR 21
1435: PUSH
1436: LD_INT 2
1438: ST_TO_ADDR
// hc_class = class_desert_warior ;
1439: LD_ADDR_OWVAR 28
1443: PUSH
1444: LD_INT 11
1446: ST_TO_ADDR
// hc_gallery =  ;
1447: LD_ADDR_OWVAR 33
1451: PUSH
1452: LD_STRING 
1454: ST_TO_ADDR
// hc_name =  ;
1455: LD_ADDR_OWVAR 26
1459: PUSH
1460: LD_STRING 
1462: ST_TO_ADDR
// hc_skills = [ rand ( 3 , 5 ) , rand ( 1 , 3 ) , rand ( 0 , 2 ) , rand ( 0 , 1 ) ] ;
1463: LD_ADDR_OWVAR 31
1467: PUSH
1468: LD_INT 3
1470: PPUSH
1471: LD_INT 5
1473: PPUSH
1474: CALL_OW 12
1478: PUSH
1479: LD_INT 1
1481: PPUSH
1482: LD_INT 3
1484: PPUSH
1485: CALL_OW 12
1489: PUSH
1490: LD_INT 0
1492: PPUSH
1493: LD_INT 2
1495: PPUSH
1496: CALL_OW 12
1500: PUSH
1501: LD_INT 0
1503: PPUSH
1504: LD_INT 1
1506: PPUSH
1507: CALL_OW 12
1511: PUSH
1512: EMPTY
1513: LIST
1514: LIST
1515: LIST
1516: LIST
1517: ST_TO_ADDR
// jednostka = CreateHuman ;
1518: LD_ADDR_EXP 4
1522: PUSH
1523: CALL_OW 44
1527: ST_TO_ADDR
// placeunitarea ( jednostka , Araby , false ) ;
1528: LD_EXP 4
1532: PPUSH
1533: LD_INT 8
1535: PPUSH
1536: LD_INT 0
1538: PPUSH
1539: CALL_OW 49
// uc_side = 5 ;
1543: LD_ADDR_OWVAR 20
1547: PUSH
1548: LD_INT 5
1550: ST_TO_ADDR
// uc_nation = 2 ;
1551: LD_ADDR_OWVAR 21
1555: PUSH
1556: LD_INT 2
1558: ST_TO_ADDR
// hc_class = 2 ;
1559: LD_ADDR_OWVAR 28
1563: PUSH
1564: LD_INT 2
1566: ST_TO_ADDR
// hc_gallery =  ;
1567: LD_ADDR_OWVAR 33
1571: PUSH
1572: LD_STRING 
1574: ST_TO_ADDR
// hc_name =  ;
1575: LD_ADDR_OWVAR 26
1579: PUSH
1580: LD_STRING 
1582: ST_TO_ADDR
// hc_skills = [ rand ( 1 , 3 ) , rand ( 0 , 2 ) , rand ( 0 , 2 ) , rand ( 0 , 1 ) ] ;
1583: LD_ADDR_OWVAR 31
1587: PUSH
1588: LD_INT 1
1590: PPUSH
1591: LD_INT 3
1593: PPUSH
1594: CALL_OW 12
1598: PUSH
1599: LD_INT 0
1601: PPUSH
1602: LD_INT 2
1604: PPUSH
1605: CALL_OW 12
1609: PUSH
1610: LD_INT 0
1612: PPUSH
1613: LD_INT 2
1615: PPUSH
1616: CALL_OW 12
1620: PUSH
1621: LD_INT 0
1623: PPUSH
1624: LD_INT 1
1626: PPUSH
1627: CALL_OW 12
1631: PUSH
1632: EMPTY
1633: LIST
1634: LIST
1635: LIST
1636: LIST
1637: ST_TO_ADDR
// jednostka1 = CreateHuman ;
1638: LD_ADDR_EXP 5
1642: PUSH
1643: CALL_OW 44
1647: ST_TO_ADDR
// placeunitarea ( jednostka1 , Araby2 , false ) ;
1648: LD_EXP 5
1652: PPUSH
1653: LD_INT 9
1655: PPUSH
1656: LD_INT 0
1658: PPUSH
1659: CALL_OW 49
// hc_importance = 100 ;
1663: LD_ADDR_OWVAR 32
1667: PUSH
1668: LD_INT 100
1670: ST_TO_ADDR
// uc_side = 5 ;
1671: LD_ADDR_OWVAR 20
1675: PUSH
1676: LD_INT 5
1678: ST_TO_ADDR
// uc_nation = 2 ;
1679: LD_ADDR_OWVAR 21
1683: PUSH
1684: LD_INT 2
1686: ST_TO_ADDR
// hc_class = 2 ;
1687: LD_ADDR_OWVAR 28
1691: PUSH
1692: LD_INT 2
1694: ST_TO_ADDR
// hc_gallery =  ;
1695: LD_ADDR_OWVAR 33
1699: PUSH
1700: LD_STRING 
1702: ST_TO_ADDR
// hc_name =  ;
1703: LD_ADDR_OWVAR 26
1707: PUSH
1708: LD_STRING 
1710: ST_TO_ADDR
// hc_skills = [ rand ( 1 , 3 ) , rand ( 0 , 2 ) , rand ( 0 , 2 ) , rand ( 0 , 1 ) ] ;
1711: LD_ADDR_OWVAR 31
1715: PUSH
1716: LD_INT 1
1718: PPUSH
1719: LD_INT 3
1721: PPUSH
1722: CALL_OW 12
1726: PUSH
1727: LD_INT 0
1729: PPUSH
1730: LD_INT 2
1732: PPUSH
1733: CALL_OW 12
1737: PUSH
1738: LD_INT 0
1740: PPUSH
1741: LD_INT 2
1743: PPUSH
1744: CALL_OW 12
1748: PUSH
1749: LD_INT 0
1751: PPUSH
1752: LD_INT 1
1754: PPUSH
1755: CALL_OW 12
1759: PUSH
1760: EMPTY
1761: LIST
1762: LIST
1763: LIST
1764: LIST
1765: ST_TO_ADDR
// jednostka1 = CreateHuman ;
1766: LD_ADDR_EXP 5
1770: PUSH
1771: CALL_OW 44
1775: ST_TO_ADDR
// placeunitarea ( jednostka1 , Araby2 , false ) ;
1776: LD_EXP 5
1780: PPUSH
1781: LD_INT 9
1783: PPUSH
1784: LD_INT 0
1786: PPUSH
1787: CALL_OW 49
// hc_importance = 0 ;
1791: LD_ADDR_OWVAR 32
1795: PUSH
1796: LD_INT 0
1798: ST_TO_ADDR
// game_speed = 7 ;
1799: LD_ADDR_OWVAR 65
1803: PUSH
1804: LD_INT 7
1806: ST_TO_ADDR
// say ( jednostka , dr1 ) ;
1807: LD_EXP 4
1811: PPUSH
1812: LD_STRING dr1
1814: PPUSH
1815: CALL_OW 88
// end ; end_of_file
1819: LD_VAR 0 1
1823: RET
// every 0 0$01 do var magazyn ;
1824: GO 1826
1826: DISABLE
1827: LD_INT 0
1829: PPUSH
// begin enable ;
1830: ENABLE
// magazyn := Filterallunits ( [ [ f_side , 3 ] , [ f_btype , b_depot ] ] ) ;
1831: LD_ADDR_VAR 0 1
1835: PUSH
1836: LD_INT 22
1838: PUSH
1839: LD_INT 3
1841: PUSH
1842: EMPTY
1843: LIST
1844: LIST
1845: PUSH
1846: LD_INT 30
1848: PUSH
1849: LD_INT 0
1851: PUSH
1852: EMPTY
1853: LIST
1854: LIST
1855: PUSH
1856: EMPTY
1857: LIST
1858: LIST
1859: PPUSH
1860: CALL_OW 69
1864: ST_TO_ADDR
// if GetLives ( magazyn ) <= 49 then
1865: LD_VAR 0 1
1869: PPUSH
1870: CALL_OW 256
1874: PUSH
1875: LD_INT 49
1877: LESSEQUAL
1878: IFFALSE 1921
// begin addmedal ( med1 , 1 ) ;
1880: LD_STRING med1
1882: PPUSH
1883: LD_INT 1
1885: PPUSH
1886: CALL_OW 101
// addmedal ( med2 , 1 ) ;
1890: LD_STRING med2
1892: PPUSH
1893: LD_INT 1
1895: PPUSH
1896: CALL_OW 101
// addmedal ( med3 , 1 ) ;
1900: LD_STRING med3
1902: PPUSH
1903: LD_INT 1
1905: PPUSH
1906: CALL_OW 101
// GiveMedals ( MAIN ) ;
1910: LD_STRING MAIN
1912: PPUSH
1913: CALL_OW 102
// youwin ;
1917: CALL_OW 103
// end ; end ;
1921: PPOPN 1
1923: END
// every 0 0$01 do var magazyn1 ;
1924: GO 1926
1926: DISABLE
1927: LD_INT 0
1929: PPUSH
// begin enable ;
1930: ENABLE
// magazyn1 := Filterallunits ( [ [ f_side , 1 ] , [ f_btype , b_depot ] ] ) ;
1931: LD_ADDR_VAR 0 1
1935: PUSH
1936: LD_INT 22
1938: PUSH
1939: LD_INT 1
1941: PUSH
1942: EMPTY
1943: LIST
1944: LIST
1945: PUSH
1946: LD_INT 30
1948: PUSH
1949: LD_INT 0
1951: PUSH
1952: EMPTY
1953: LIST
1954: LIST
1955: PUSH
1956: EMPTY
1957: LIST
1958: LIST
1959: PPUSH
1960: CALL_OW 69
1964: ST_TO_ADDR
// if GetLives ( magazyn1 ) <= 49 then
1965: LD_VAR 0 1
1969: PPUSH
1970: CALL_OW 256
1974: PUSH
1975: LD_INT 49
1977: LESSEQUAL
1978: IFFALSE 1987
// begin youlost ( POS1 ) ;
1980: LD_STRING POS1
1982: PPUSH
1983: CALL_OW 104
// end ; end ; end_of_file
1987: PPOPN 1
1989: END
// export koszary1 , koszary2 , koszary3 , koszary4 , i1 , i2 ; var koszary1 , koszary2 , level ; every 0 0$20 do
1990: GO 1992
1992: DISABLE
// begin enable ;
1993: ENABLE
// koszary1 := Filterallunits ( [ [ f_side , 3 ] , [ f_btype , b_armoury ] ] ) ;
1994: LD_ADDR_LOC 1
1998: PUSH
1999: LD_INT 22
2001: PUSH
2002: LD_INT 3
2004: PUSH
2005: EMPTY
2006: LIST
2007: LIST
2008: PUSH
2009: LD_INT 30
2011: PUSH
2012: LD_INT 4
2014: PUSH
2015: EMPTY
2016: LIST
2017: LIST
2018: PUSH
2019: EMPTY
2020: LIST
2021: LIST
2022: PPUSH
2023: CALL_OW 69
2027: ST_TO_ADDR
// setside ( koszary1 , 6 ) ;
2028: LD_LOC 1
2032: PPUSH
2033: LD_INT 6
2035: PPUSH
2036: CALL_OW 235
// end ;
2040: END
// every 0 0$20 do
2041: GO 2043
2043: DISABLE
// begin enable ;
2044: ENABLE
// koszary3 := Filterallunits ( [ [ f_side , 6 ] , [ f_btype , b_armoury ] ] ) ;
2045: LD_ADDR_EXP 24
2049: PUSH
2050: LD_INT 22
2052: PUSH
2053: LD_INT 6
2055: PUSH
2056: EMPTY
2057: LIST
2058: LIST
2059: PUSH
2060: LD_INT 30
2062: PUSH
2063: LD_INT 4
2065: PUSH
2066: EMPTY
2067: LIST
2068: LIST
2069: PUSH
2070: EMPTY
2071: LIST
2072: LIST
2073: PPUSH
2074: CALL_OW 69
2078: ST_TO_ADDR
// for i1 in koszary3 do
2079: LD_ADDR_EXP 26
2083: PUSH
2084: LD_EXP 24
2088: PUSH
2089: FOR_IN
2090: IFFALSE 2286
// begin if GetLives ( koszary3 ) <= 1000 then
2092: LD_EXP 24
2096: PPUSH
2097: CALL_OW 256
2101: PUSH
2102: LD_INT 1000
2104: LESSEQUAL
2105: IFFALSE 2284
// begin Level = [ 7 , 5 , 4 ] [ Difficulty ] ;
2107: LD_ADDR_LOC 3
2111: PUSH
2112: LD_INT 7
2114: PUSH
2115: LD_INT 5
2117: PUSH
2118: LD_INT 4
2120: PUSH
2121: EMPTY
2122: LIST
2123: LIST
2124: LIST
2125: PUSH
2126: LD_OWVAR 67
2130: ARRAY
2131: ST_TO_ADDR
// uc_side = 6 ;
2132: LD_ADDR_OWVAR 20
2136: PUSH
2137: LD_INT 6
2139: ST_TO_ADDR
// uc_nation = 3 ;
2140: LD_ADDR_OWVAR 21
2144: PUSH
2145: LD_INT 3
2147: ST_TO_ADDR
// hc_gallery =  ;
2148: LD_ADDR_OWVAR 33
2152: PUSH
2153: LD_STRING 
2155: ST_TO_ADDR
// hc_name =  ;
2156: LD_ADDR_OWVAR 26
2160: PUSH
2161: LD_STRING 
2163: ST_TO_ADDR
// hc_attr = [ Rand ( 9 , 11 ) , Rand ( 10 , 12 ) ] ;
2164: LD_ADDR_OWVAR 29
2168: PUSH
2169: LD_INT 9
2171: PPUSH
2172: LD_INT 11
2174: PPUSH
2175: CALL_OW 12
2179: PUSH
2180: LD_INT 10
2182: PPUSH
2183: LD_INT 12
2185: PPUSH
2186: CALL_OW 12
2190: PUSH
2191: EMPTY
2192: LIST
2193: LIST
2194: ST_TO_ADDR
// hc_skills = [ Level , 1 , Rand ( 2 , 5 ) , Rand ( 0 , 2 ) ] ;
2195: LD_ADDR_OWVAR 31
2199: PUSH
2200: LD_LOC 3
2204: PUSH
2205: LD_INT 1
2207: PUSH
2208: LD_INT 2
2210: PPUSH
2211: LD_INT 5
2213: PPUSH
2214: CALL_OW 12
2218: PUSH
2219: LD_INT 0
2221: PPUSH
2222: LD_INT 2
2224: PPUSH
2225: CALL_OW 12
2229: PUSH
2230: EMPTY
2231: LIST
2232: LIST
2233: LIST
2234: LIST
2235: ST_TO_ADDR
// hc_sex = Rand ( sex_male , sex_female ) ;
2236: LD_ADDR_OWVAR 27
2240: PUSH
2241: LD_INT 1
2243: PPUSH
2244: LD_INT 2
2246: PPUSH
2247: CALL_OW 12
2251: ST_TO_ADDR
// hc_class = 1 ;
2252: LD_ADDR_OWVAR 28
2256: PUSH
2257: LD_INT 1
2259: ST_TO_ADDR
// un1 := CreateHuman ;
2260: LD_ADDR_EXP 16
2264: PUSH
2265: CALL_OW 44
2269: ST_TO_ADDR
// PlaceHumanInUnit ( un1 , i1 ) ;
2270: LD_EXP 16
2274: PPUSH
2275: LD_EXP 26
2279: PPUSH
2280: CALL_OW 52
// end ; end ;
2284: GO 2089
2286: POP
2287: POP
// end ;
2288: END
// every 0 0$20 do
2289: GO 2291
2291: DISABLE
// begin enable ;
2292: ENABLE
// koszary2 := Filterallunits ( [ [ f_side , 4 ] , [ f_btype , b_armoury ] ] ) ;
2293: LD_ADDR_LOC 2
2297: PUSH
2298: LD_INT 22
2300: PUSH
2301: LD_INT 4
2303: PUSH
2304: EMPTY
2305: LIST
2306: LIST
2307: PUSH
2308: LD_INT 30
2310: PUSH
2311: LD_INT 4
2313: PUSH
2314: EMPTY
2315: LIST
2316: LIST
2317: PUSH
2318: EMPTY
2319: LIST
2320: LIST
2321: PPUSH
2322: CALL_OW 69
2326: ST_TO_ADDR
// setside ( koszary2 , 1 ) ;
2327: LD_LOC 2
2331: PPUSH
2332: LD_INT 1
2334: PPUSH
2335: CALL_OW 235
// end ;
2339: END
// every 0 0$20 do
2340: GO 2342
2342: DISABLE
// begin enable ;
2343: ENABLE
// koszary4 := Filterallunits ( [ [ f_side , 1 ] , [ f_btype , b_armoury ] ] ) ;
2344: LD_ADDR_EXP 25
2348: PUSH
2349: LD_INT 22
2351: PUSH
2352: LD_INT 1
2354: PUSH
2355: EMPTY
2356: LIST
2357: LIST
2358: PUSH
2359: LD_INT 30
2361: PUSH
2362: LD_INT 4
2364: PUSH
2365: EMPTY
2366: LIST
2367: LIST
2368: PUSH
2369: EMPTY
2370: LIST
2371: LIST
2372: PPUSH
2373: CALL_OW 69
2377: ST_TO_ADDR
// uc_side = 1 ;
2378: LD_ADDR_OWVAR 20
2382: PUSH
2383: LD_INT 1
2385: ST_TO_ADDR
// uc_nation = 1 ;
2386: LD_ADDR_OWVAR 21
2390: PUSH
2391: LD_INT 1
2393: ST_TO_ADDR
// hc_gallery =  ;
2394: LD_ADDR_OWVAR 33
2398: PUSH
2399: LD_STRING 
2401: ST_TO_ADDR
// hc_name =  ;
2402: LD_ADDR_OWVAR 26
2406: PUSH
2407: LD_STRING 
2409: ST_TO_ADDR
// for i2 in koszary4 do
2410: LD_ADDR_EXP 27
2414: PUSH
2415: LD_EXP 25
2419: PUSH
2420: FOR_IN
2421: IFFALSE 2585
// begin if GetLives ( koszary4 ) <= 1000 then
2423: LD_EXP 25
2427: PPUSH
2428: CALL_OW 256
2432: PUSH
2433: LD_INT 1000
2435: LESSEQUAL
2436: IFFALSE 2583
// begin Level = [ 4 , 5 , 7 ] [ Difficulty ] ;
2438: LD_ADDR_LOC 3
2442: PUSH
2443: LD_INT 4
2445: PUSH
2446: LD_INT 5
2448: PUSH
2449: LD_INT 7
2451: PUSH
2452: EMPTY
2453: LIST
2454: LIST
2455: LIST
2456: PUSH
2457: LD_OWVAR 67
2461: ARRAY
2462: ST_TO_ADDR
// hc_attr = [ Rand ( 9 , 11 ) , Rand ( 10 , 12 ) ] ;
2463: LD_ADDR_OWVAR 29
2467: PUSH
2468: LD_INT 9
2470: PPUSH
2471: LD_INT 11
2473: PPUSH
2474: CALL_OW 12
2478: PUSH
2479: LD_INT 10
2481: PPUSH
2482: LD_INT 12
2484: PPUSH
2485: CALL_OW 12
2489: PUSH
2490: EMPTY
2491: LIST
2492: LIST
2493: ST_TO_ADDR
// hc_skills = [ Level , 1 , Rand ( 2 , 5 ) , Rand ( 0 , 2 ) ] ;
2494: LD_ADDR_OWVAR 31
2498: PUSH
2499: LD_LOC 3
2503: PUSH
2504: LD_INT 1
2506: PUSH
2507: LD_INT 2
2509: PPUSH
2510: LD_INT 5
2512: PPUSH
2513: CALL_OW 12
2517: PUSH
2518: LD_INT 0
2520: PPUSH
2521: LD_INT 2
2523: PPUSH
2524: CALL_OW 12
2528: PUSH
2529: EMPTY
2530: LIST
2531: LIST
2532: LIST
2533: LIST
2534: ST_TO_ADDR
// hc_sex = Rand ( sex_male , sex_female ) ;
2535: LD_ADDR_OWVAR 27
2539: PUSH
2540: LD_INT 1
2542: PPUSH
2543: LD_INT 2
2545: PPUSH
2546: CALL_OW 12
2550: ST_TO_ADDR
// hc_class = 1 ;
2551: LD_ADDR_OWVAR 28
2555: PUSH
2556: LD_INT 1
2558: ST_TO_ADDR
// un := CreateHuman ;
2559: LD_ADDR_EXP 13
2563: PUSH
2564: CALL_OW 44
2568: ST_TO_ADDR
// PlaceHumanInUnit ( un , i2 ) ;
2569: LD_EXP 13
2573: PPUSH
2574: LD_EXP 27
2578: PPUSH
2579: CALL_OW 52
// end ; end ;
2583: GO 2420
2585: POP
2586: POP
// end ; end_of_file
2587: END
// export inzynierki ; every 0 0$0.1 do
2588: GO 2590
2590: DISABLE
// begin inzynierki := Filterallunits ( [ [ f_side , 4 ] , [ f_type , unit_human ] , [ f_class , class_engineer ] ] ) ;
2591: LD_ADDR_EXP 28
2595: PUSH
2596: LD_INT 22
2598: PUSH
2599: LD_INT 4
2601: PUSH
2602: EMPTY
2603: LIST
2604: LIST
2605: PUSH
2606: LD_INT 21
2608: PUSH
2609: LD_INT 1
2611: PUSH
2612: EMPTY
2613: LIST
2614: LIST
2615: PUSH
2616: LD_INT 25
2618: PUSH
2619: LD_INT 2
2621: PUSH
2622: EMPTY
2623: LIST
2624: LIST
2625: PUSH
2626: EMPTY
2627: LIST
2628: LIST
2629: LIST
2630: PPUSH
2631: CALL_OW 69
2635: ST_TO_ADDR
// enable end ;
2636: ENABLE
2637: END
// every 0 0$01 do
2638: GO 2640
2640: DISABLE
// begin ComBuild ( inzynierki , b_solar_power , 30 , 2 , 3 ) ;
2641: LD_EXP 28
2645: PPUSH
2646: LD_INT 27
2648: PPUSH
2649: LD_INT 30
2651: PPUSH
2652: LD_INT 2
2654: PPUSH
2655: LD_INT 3
2657: PPUSH
2658: CALL_OW 145
// end ;
2662: END
// every 1 1$35 do
2663: GO 2665
2665: DISABLE
// begin enable ;
2666: ENABLE
// if inzynierki = 0 then
2667: LD_EXP 28
2671: PUSH
2672: LD_INT 0
2674: EQUAL
2675: IFFALSE 2679
// begin end else
2677: GO 2700
// ComBuild ( inzynierki , b_armoury , 15 , 17 , 0 ) ;
2679: LD_EXP 28
2683: PPUSH
2684: LD_INT 4
2686: PPUSH
2687: LD_INT 15
2689: PPUSH
2690: LD_INT 17
2692: PPUSH
2693: LD_INT 0
2695: PPUSH
2696: CALL_OW 145
// end ;
2700: END
// every 2 2$30 do
2701: GO 2703
2703: DISABLE
// begin enable ;
2704: ENABLE
// if inzynierki = 0 then
2705: LD_EXP 28
2709: PUSH
2710: LD_INT 0
2712: EQUAL
2713: IFFALSE 2717
// begin end else
2715: GO 2738
// ComBuild ( inzynierki , b_armoury , 32 , 23 , 0 ) ;
2717: LD_EXP 28
2721: PPUSH
2722: LD_INT 4
2724: PPUSH
2725: LD_INT 32
2727: PPUSH
2728: LD_INT 23
2730: PPUSH
2731: LD_INT 0
2733: PPUSH
2734: CALL_OW 145
// end ;
2738: END
// every 3 3$35 do
2739: GO 2741
2741: DISABLE
// begin enable ;
2742: ENABLE
// if inzynierki = 0 then
2743: LD_EXP 28
2747: PUSH
2748: LD_INT 0
2750: EQUAL
2751: IFFALSE 2755
// begin end else
2753: GO 2776
// ComBuild ( inzynierki , b_armoury , 27 , 26 , 0 ) ;
2755: LD_EXP 28
2759: PPUSH
2760: LD_INT 4
2762: PPUSH
2763: LD_INT 27
2765: PPUSH
2766: LD_INT 26
2768: PPUSH
2769: LD_INT 0
2771: PPUSH
2772: CALL_OW 145
// end ;
2776: END
// every 4 4$40 do
2777: GO 2779
2779: DISABLE
// begin enable ;
2780: ENABLE
// if inzynierki = 0 then
2781: LD_EXP 28
2785: PUSH
2786: LD_INT 0
2788: EQUAL
2789: IFFALSE 2793
// begin end else
2791: GO 2814
// ComBuild ( inzynierki , b_armoury , 33 , 17 , 5 ) ;
2793: LD_EXP 28
2797: PPUSH
2798: LD_INT 4
2800: PPUSH
2801: LD_INT 33
2803: PPUSH
2804: LD_INT 17
2806: PPUSH
2807: LD_INT 5
2809: PPUSH
2810: CALL_OW 145
// end ;
2814: END
// every 5 5$30 do
2815: GO 2817
2817: DISABLE
// begin enable ;
2818: ENABLE
// if inzynierki = 0 then
2819: LD_EXP 28
2823: PUSH
2824: LD_INT 0
2826: EQUAL
2827: IFFALSE 2831
// begin end else
2829: GO 2852
// ComBuild ( inzynierki , b_armoury , 21 , 8 , 0 ) ;
2831: LD_EXP 28
2835: PPUSH
2836: LD_INT 4
2838: PPUSH
2839: LD_INT 21
2841: PPUSH
2842: LD_INT 8
2844: PPUSH
2845: LD_INT 0
2847: PPUSH
2848: CALL_OW 145
// end ;
2852: END
// every 3 3$25 do
2853: GO 2855
2855: DISABLE
// begin enable ;
2856: ENABLE
// if inzynierki = 0 then
2857: LD_EXP 28
2861: PUSH
2862: LD_INT 0
2864: EQUAL
2865: IFFALSE 2869
// begin end else
2867: GO 2890
// ComBuild ( inzynierki , b_depot , 26 , 5 , 3 ) ;
2869: LD_EXP 28
2873: PPUSH
2874: LD_INT 0
2876: PPUSH
2877: LD_INT 26
2879: PPUSH
2880: LD_INT 5
2882: PPUSH
2883: LD_INT 3
2885: PPUSH
2886: CALL_OW 145
// end ; end_of_file
2890: END
// every 1 1$55 do
2891: GO 2893
2893: DISABLE
// begin enable ;
2894: ENABLE
// CreateCratesArea ( Rand ( 1 , 2 ) , Araby , true ) ;
2895: LD_INT 1
2897: PPUSH
2898: LD_INT 2
2900: PPUSH
2901: CALL_OW 12
2905: PPUSH
2906: LD_INT 8
2908: PPUSH
2909: LD_INT 1
2911: PPUSH
2912: CALL_OW 55
// end ;
2916: END
// every 0 0$01 do
2917: GO 2919
2919: DISABLE
// begin createcratesarea ( 5 , Arenaskrzynek , false ) ;
2920: LD_INT 5
2922: PPUSH
2923: LD_INT 10
2925: PPUSH
2926: LD_INT 0
2928: PPUSH
2929: CALL_OW 55
// end ; end_of_file
2933: END
// export sklad , sklad2 , sklad69 , i69 , i4 , i3 ; var sklad , sklad2 , sklad69 , level ; every 0 0$01 do
2934: GO 2936
2936: DISABLE
// begin sklad := Filterallunits ( [ [ f_side , 4 ] , [ f_btype , b_depot ] ] ) ;
2937: LD_ADDR_LOC 4
2941: PUSH
2942: LD_INT 22
2944: PUSH
2945: LD_INT 4
2947: PUSH
2948: EMPTY
2949: LIST
2950: LIST
2951: PUSH
2952: LD_INT 30
2954: PUSH
2955: LD_INT 0
2957: PUSH
2958: EMPTY
2959: LIST
2960: LIST
2961: PUSH
2962: EMPTY
2963: LIST
2964: LIST
2965: PPUSH
2966: CALL_OW 69
2970: ST_TO_ADDR
// SetBName ( sklad , mobaus ) ;
2971: LD_LOC 4
2975: PPUSH
2976: LD_STRING mobaus
2978: PPUSH
2979: CALL_OW 500
// end ;
2983: END
// every 0 0$60 do
2984: GO 2986
2986: DISABLE
// begin enable ;
2987: ENABLE
// for i3 in sklad do
2988: LD_ADDR_EXP 34
2992: PUSH
2993: LD_LOC 4
2997: PUSH
2998: FOR_IN
2999: IFFALSE 3195
// begin if GetLives ( sklad ) <= 1000 then
3001: LD_LOC 4
3005: PPUSH
3006: CALL_OW 256
3010: PUSH
3011: LD_INT 1000
3013: LESSEQUAL
3014: IFFALSE 3193
// begin Level = [ 3 , 4 , 5 ] [ Difficulty ] ;
3016: LD_ADDR_LOC 7
3020: PUSH
3021: LD_INT 3
3023: PUSH
3024: LD_INT 4
3026: PUSH
3027: LD_INT 5
3029: PUSH
3030: EMPTY
3031: LIST
3032: LIST
3033: LIST
3034: PUSH
3035: LD_OWVAR 67
3039: ARRAY
3040: ST_TO_ADDR
// uc_side = 4 ;
3041: LD_ADDR_OWVAR 20
3045: PUSH
3046: LD_INT 4
3048: ST_TO_ADDR
// uc_nation = 1 ;
3049: LD_ADDR_OWVAR 21
3053: PUSH
3054: LD_INT 1
3056: ST_TO_ADDR
// hc_gallery =  ;
3057: LD_ADDR_OWVAR 33
3061: PUSH
3062: LD_STRING 
3064: ST_TO_ADDR
// hc_name =  ;
3065: LD_ADDR_OWVAR 26
3069: PUSH
3070: LD_STRING 
3072: ST_TO_ADDR
// hc_attr = [ Rand ( 9 , 11 ) , Rand ( 10 , 12 ) ] ;
3073: LD_ADDR_OWVAR 29
3077: PUSH
3078: LD_INT 9
3080: PPUSH
3081: LD_INT 11
3083: PPUSH
3084: CALL_OW 12
3088: PUSH
3089: LD_INT 10
3091: PPUSH
3092: LD_INT 12
3094: PPUSH
3095: CALL_OW 12
3099: PUSH
3100: EMPTY
3101: LIST
3102: LIST
3103: ST_TO_ADDR
// hc_skills = [ Level , 1 , Rand ( 2 , 5 ) , Rand ( 0 , 2 ) ] ;
3104: LD_ADDR_OWVAR 31
3108: PUSH
3109: LD_LOC 7
3113: PUSH
3114: LD_INT 1
3116: PUSH
3117: LD_INT 2
3119: PPUSH
3120: LD_INT 5
3122: PPUSH
3123: CALL_OW 12
3127: PUSH
3128: LD_INT 0
3130: PPUSH
3131: LD_INT 2
3133: PPUSH
3134: CALL_OW 12
3138: PUSH
3139: EMPTY
3140: LIST
3141: LIST
3142: LIST
3143: LIST
3144: ST_TO_ADDR
// hc_sex = Rand ( sex_male , sex_female ) ;
3145: LD_ADDR_OWVAR 27
3149: PUSH
3150: LD_INT 1
3152: PPUSH
3153: LD_INT 2
3155: PPUSH
3156: CALL_OW 12
3160: ST_TO_ADDR
// hc_class = 2 ;
3161: LD_ADDR_OWVAR 28
3165: PUSH
3166: LD_INT 2
3168: ST_TO_ADDR
// un2 := CreateHuman ;
3169: LD_ADDR_EXP 17
3173: PUSH
3174: CALL_OW 44
3178: ST_TO_ADDR
// PlaceHumanInUnit ( un2 , i3 ) ;
3179: LD_EXP 17
3183: PPUSH
3184: LD_EXP 34
3188: PPUSH
3189: CALL_OW 52
// end ; end ;
3193: GO 2998
3195: POP
3196: POP
// end ;
3197: END
// every 0 0$01 do
3198: GO 3200
3200: DISABLE
// begin sklad2 := Filterallunits ( [ [ f_side , 3 ] , [ f_btype , b_depot ] ] ) ;
3201: LD_ADDR_LOC 5
3205: PUSH
3206: LD_INT 22
3208: PUSH
3209: LD_INT 3
3211: PUSH
3212: EMPTY
3213: LIST
3214: LIST
3215: PUSH
3216: LD_INT 30
3218: PUSH
3219: LD_INT 0
3221: PUSH
3222: EMPTY
3223: LIST
3224: LIST
3225: PUSH
3226: EMPTY
3227: LIST
3228: LIST
3229: PPUSH
3230: CALL_OW 69
3234: ST_TO_ADDR
// SetBName ( sklad2 , mobaru ) ;
3235: LD_LOC 5
3239: PPUSH
3240: LD_STRING mobaru
3242: PPUSH
3243: CALL_OW 500
// end ;
3247: END
// every 0 0$60 do
3248: GO 3250
3250: DISABLE
// begin enable ;
3251: ENABLE
// for i4 in sklad2 do
3252: LD_ADDR_EXP 33
3256: PUSH
3257: LD_LOC 5
3261: PUSH
3262: FOR_IN
3263: IFFALSE 3459
// begin if GetLives ( sklad2 ) <= 1000 then
3265: LD_LOC 5
3269: PPUSH
3270: CALL_OW 256
3274: PUSH
3275: LD_INT 1000
3277: LESSEQUAL
3278: IFFALSE 3457
// begin Level = [ 3 , 4 , 5 ] [ Difficulty ] ;
3280: LD_ADDR_LOC 7
3284: PUSH
3285: LD_INT 3
3287: PUSH
3288: LD_INT 4
3290: PUSH
3291: LD_INT 5
3293: PUSH
3294: EMPTY
3295: LIST
3296: LIST
3297: LIST
3298: PUSH
3299: LD_OWVAR 67
3303: ARRAY
3304: ST_TO_ADDR
// uc_side = 3 ;
3305: LD_ADDR_OWVAR 20
3309: PUSH
3310: LD_INT 3
3312: ST_TO_ADDR
// uc_nation = 3 ;
3313: LD_ADDR_OWVAR 21
3317: PUSH
3318: LD_INT 3
3320: ST_TO_ADDR
// hc_gallery =  ;
3321: LD_ADDR_OWVAR 33
3325: PUSH
3326: LD_STRING 
3328: ST_TO_ADDR
// hc_name =  ;
3329: LD_ADDR_OWVAR 26
3333: PUSH
3334: LD_STRING 
3336: ST_TO_ADDR
// hc_attr = [ Rand ( 9 , 11 ) , Rand ( 10 , 12 ) ] ;
3337: LD_ADDR_OWVAR 29
3341: PUSH
3342: LD_INT 9
3344: PPUSH
3345: LD_INT 11
3347: PPUSH
3348: CALL_OW 12
3352: PUSH
3353: LD_INT 10
3355: PPUSH
3356: LD_INT 12
3358: PPUSH
3359: CALL_OW 12
3363: PUSH
3364: EMPTY
3365: LIST
3366: LIST
3367: ST_TO_ADDR
// hc_skills = [ Level , 1 , Rand ( 2 , 5 ) , Rand ( 0 , 2 ) ] ;
3368: LD_ADDR_OWVAR 31
3372: PUSH
3373: LD_LOC 7
3377: PUSH
3378: LD_INT 1
3380: PUSH
3381: LD_INT 2
3383: PPUSH
3384: LD_INT 5
3386: PPUSH
3387: CALL_OW 12
3391: PUSH
3392: LD_INT 0
3394: PPUSH
3395: LD_INT 2
3397: PPUSH
3398: CALL_OW 12
3402: PUSH
3403: EMPTY
3404: LIST
3405: LIST
3406: LIST
3407: LIST
3408: ST_TO_ADDR
// hc_sex = Rand ( sex_male , sex_female ) ;
3409: LD_ADDR_OWVAR 27
3413: PUSH
3414: LD_INT 1
3416: PPUSH
3417: LD_INT 2
3419: PPUSH
3420: CALL_OW 12
3424: ST_TO_ADDR
// hc_class = 2 ;
3425: LD_ADDR_OWVAR 28
3429: PUSH
3430: LD_INT 2
3432: ST_TO_ADDR
// un3 := CreateHuman ;
3433: LD_ADDR_EXP 18
3437: PUSH
3438: CALL_OW 44
3442: ST_TO_ADDR
// PlaceHumanInUnit ( un3 , i4 ) ;
3443: LD_EXP 18
3447: PPUSH
3448: LD_EXP 33
3452: PPUSH
3453: CALL_OW 52
// end ; end ;
3457: GO 3262
3459: POP
3460: POP
// end ;
3461: END
// every 0 0$01 do
3462: GO 3464
3464: DISABLE
// begin sklad69 := Filterallunits ( [ [ f_side , 2 ] , [ f_btype , b_depot ] ] ) ;
3465: LD_ADDR_LOC 6
3469: PUSH
3470: LD_INT 22
3472: PUSH
3473: LD_INT 2
3475: PUSH
3476: EMPTY
3477: LIST
3478: LIST
3479: PUSH
3480: LD_INT 30
3482: PUSH
3483: LD_INT 0
3485: PUSH
3486: EMPTY
3487: LIST
3488: LIST
3489: PUSH
3490: EMPTY
3491: LIST
3492: LIST
3493: PPUSH
3494: CALL_OW 69
3498: ST_TO_ADDR
// SetBName ( sklad , mobaus ) ;
3499: LD_LOC 4
3503: PPUSH
3504: LD_STRING mobaus
3506: PPUSH
3507: CALL_OW 500
// end ;
3511: END
// every 0 0$60 do
3512: GO 3514
3514: DISABLE
// begin enable ;
3515: ENABLE
// for i69 in sklad69 do
3516: LD_ADDR_EXP 32
3520: PUSH
3521: LD_LOC 6
3525: PUSH
3526: FOR_IN
3527: IFFALSE 3723
// begin if GetLives ( sklad ) <= 1000 then
3529: LD_LOC 4
3533: PPUSH
3534: CALL_OW 256
3538: PUSH
3539: LD_INT 1000
3541: LESSEQUAL
3542: IFFALSE 3721
// begin Level = [ 4 , 3 , 2 ] [ Difficulty ] ;
3544: LD_ADDR_LOC 7
3548: PUSH
3549: LD_INT 4
3551: PUSH
3552: LD_INT 3
3554: PUSH
3555: LD_INT 2
3557: PUSH
3558: EMPTY
3559: LIST
3560: LIST
3561: LIST
3562: PUSH
3563: LD_OWVAR 67
3567: ARRAY
3568: ST_TO_ADDR
// uc_side = 2 ;
3569: LD_ADDR_OWVAR 20
3573: PUSH
3574: LD_INT 2
3576: ST_TO_ADDR
// uc_nation = 2 ;
3577: LD_ADDR_OWVAR 21
3581: PUSH
3582: LD_INT 2
3584: ST_TO_ADDR
// hc_gallery =  ;
3585: LD_ADDR_OWVAR 33
3589: PUSH
3590: LD_STRING 
3592: ST_TO_ADDR
// hc_name =  ;
3593: LD_ADDR_OWVAR 26
3597: PUSH
3598: LD_STRING 
3600: ST_TO_ADDR
// hc_attr = [ Rand ( 9 , 11 ) , Rand ( 10 , 12 ) ] ;
3601: LD_ADDR_OWVAR 29
3605: PUSH
3606: LD_INT 9
3608: PPUSH
3609: LD_INT 11
3611: PPUSH
3612: CALL_OW 12
3616: PUSH
3617: LD_INT 10
3619: PPUSH
3620: LD_INT 12
3622: PPUSH
3623: CALL_OW 12
3627: PUSH
3628: EMPTY
3629: LIST
3630: LIST
3631: ST_TO_ADDR
// hc_skills = [ Level , 1 , Rand ( 2 , 5 ) , Rand ( 0 , 2 ) ] ;
3632: LD_ADDR_OWVAR 31
3636: PUSH
3637: LD_LOC 7
3641: PUSH
3642: LD_INT 1
3644: PUSH
3645: LD_INT 2
3647: PPUSH
3648: LD_INT 5
3650: PPUSH
3651: CALL_OW 12
3655: PUSH
3656: LD_INT 0
3658: PPUSH
3659: LD_INT 2
3661: PPUSH
3662: CALL_OW 12
3666: PUSH
3667: EMPTY
3668: LIST
3669: LIST
3670: LIST
3671: LIST
3672: ST_TO_ADDR
// hc_sex = Rand ( sex_male , sex_female ) ;
3673: LD_ADDR_OWVAR 27
3677: PUSH
3678: LD_INT 1
3680: PPUSH
3681: LD_INT 2
3683: PPUSH
3684: CALL_OW 12
3688: ST_TO_ADDR
// hc_class = 2 ;
3689: LD_ADDR_OWVAR 28
3693: PUSH
3694: LD_INT 2
3696: ST_TO_ADDR
// un3 := CreateHuman ;
3697: LD_ADDR_EXP 18
3701: PUSH
3702: CALL_OW 44
3706: ST_TO_ADDR
// PlaceHumanInUnit ( un3 , i69 ) ;
3707: LD_EXP 18
3711: PPUSH
3712: LD_EXP 32
3716: PPUSH
3717: CALL_OW 52
// end ; end ;
3721: GO 3526
3723: POP
3724: POP
// end ; end_of_file
3725: END
// export function WOWOWO ; var i , atakujacy , broniacy ; begin
3726: LD_INT 0
3728: PPUSH
3729: PPUSH
3730: PPUSH
3731: PPUSH
// broniacy = FilterAllUnits ( [ f_side , 6 ] ) ;
3732: LD_ADDR_VAR 0 4
3736: PUSH
3737: LD_INT 22
3739: PUSH
3740: LD_INT 6
3742: PUSH
3743: EMPTY
3744: LIST
3745: LIST
3746: PPUSH
3747: CALL_OW 69
3751: ST_TO_ADDR
// atakujacy = FilterAllUnits ( [ f_side , 1 ] ) ;
3752: LD_ADDR_VAR 0 3
3756: PUSH
3757: LD_INT 22
3759: PUSH
3760: LD_INT 1
3762: PUSH
3763: EMPTY
3764: LIST
3765: LIST
3766: PPUSH
3767: CALL_OW 69
3771: ST_TO_ADDR
// for i in atakujacy do
3772: LD_ADDR_VAR 0 2
3776: PUSH
3777: LD_VAR 0 3
3781: PUSH
3782: FOR_IN
3783: IFFALSE 3811
// begin ComAttackUnit ( i , NearestUnitToUnit ( broniacy , i ) ) ;
3785: LD_VAR 0 2
3789: PPUSH
3790: LD_VAR 0 4
3794: PPUSH
3795: LD_VAR 0 2
3799: PPUSH
3800: CALL_OW 74
3804: PPUSH
3805: CALL_OW 115
// end ;
3809: GO 3782
3811: POP
3812: POP
// end ;
3813: LD_VAR 0 1
3817: RET
// every 0 0$2 do
3818: GO 3820
3820: DISABLE
// begin WOWOWO ;
3821: CALL 3726 0 0
// enable ;
3825: ENABLE
// end ;
3826: END
// export function OP ; var i1 , atakujacy1 , broniacy1 ; begin
3827: LD_INT 0
3829: PPUSH
3830: PPUSH
3831: PPUSH
3832: PPUSH
// broniacy1 = FilterAllUnits ( [ f_side , 1 ] ) ;
3833: LD_ADDR_VAR 0 4
3837: PUSH
3838: LD_INT 22
3840: PUSH
3841: LD_INT 1
3843: PUSH
3844: EMPTY
3845: LIST
3846: LIST
3847: PPUSH
3848: CALL_OW 69
3852: ST_TO_ADDR
// atakujacy1 = FilterAllUnits ( [ f_side , 6 ] ) ;
3853: LD_ADDR_VAR 0 3
3857: PUSH
3858: LD_INT 22
3860: PUSH
3861: LD_INT 6
3863: PUSH
3864: EMPTY
3865: LIST
3866: LIST
3867: PPUSH
3868: CALL_OW 69
3872: ST_TO_ADDR
// for i1 in atakujacy1 do
3873: LD_ADDR_VAR 0 2
3877: PUSH
3878: LD_VAR 0 3
3882: PUSH
3883: FOR_IN
3884: IFFALSE 3912
// begin ComAttackUnit ( i1 , NearestUnitToUnit ( broniacy1 , i1 ) ) ;
3886: LD_VAR 0 2
3890: PPUSH
3891: LD_VAR 0 4
3895: PPUSH
3896: LD_VAR 0 2
3900: PPUSH
3901: CALL_OW 74
3905: PPUSH
3906: CALL_OW 115
// end ;
3910: GO 3883
3912: POP
3913: POP
// end ;
3914: LD_VAR 0 1
3918: RET
// every 0 0$2 do
3919: GO 3921
3921: DISABLE
// begin OP ;
3922: CALL 3827 0 0
// enable ;
3926: ENABLE
// end ;
3927: END
// export function COMBO ; var i123 , atakujacy123 , broniacy123 ; begin
3928: LD_INT 0
3930: PPUSH
3931: PPUSH
3932: PPUSH
3933: PPUSH
// broniacy123 = FilterAllUnits ( [ f_side , 3 ] ) ;
3934: LD_ADDR_VAR 0 4
3938: PUSH
3939: LD_INT 22
3941: PUSH
3942: LD_INT 3
3944: PUSH
3945: EMPTY
3946: LIST
3947: LIST
3948: PPUSH
3949: CALL_OW 69
3953: ST_TO_ADDR
// atakujacy123 = FilterAllUnits ( [ f_side , 8 ] ) ;
3954: LD_ADDR_VAR 0 3
3958: PUSH
3959: LD_INT 22
3961: PUSH
3962: LD_INT 8
3964: PUSH
3965: EMPTY
3966: LIST
3967: LIST
3968: PPUSH
3969: CALL_OW 69
3973: ST_TO_ADDR
// for i123 in atakujacy123 do
3974: LD_ADDR_VAR 0 2
3978: PUSH
3979: LD_VAR 0 3
3983: PUSH
3984: FOR_IN
3985: IFFALSE 4013
// begin ComAttackUnit ( i123 , NearestUnitToUnit ( broniacy123 , i123 ) ) ;
3987: LD_VAR 0 2
3991: PPUSH
3992: LD_VAR 0 4
3996: PPUSH
3997: LD_VAR 0 2
4001: PPUSH
4002: CALL_OW 74
4006: PPUSH
4007: CALL_OW 115
// end ;
4011: GO 3984
4013: POP
4014: POP
// end ;
4015: LD_VAR 0 1
4019: RET
// every 0 0$2 do
4020: GO 4022
4022: DISABLE
// begin COMBO ;
4023: CALL 3928 0 0
// enable ;
4027: ENABLE
// end ; end_of_file
4028: END
// export lab , i999 ; var lab , level ; every 0 0$30 do
4029: GO 4031
4031: DISABLE
// begin enable ;
4032: ENABLE
// lab := Filterallunits ( [ [ f_side , 2 ] , [ f_btype , b_lab ] ] ) ;
4033: LD_ADDR_LOC 8
4037: PUSH
4038: LD_INT 22
4040: PUSH
4041: LD_INT 2
4043: PUSH
4044: EMPTY
4045: LIST
4046: LIST
4047: PUSH
4048: LD_INT 30
4050: PUSH
4051: LD_INT 6
4053: PUSH
4054: EMPTY
4055: LIST
4056: LIST
4057: PUSH
4058: EMPTY
4059: LIST
4060: LIST
4061: PPUSH
4062: CALL_OW 69
4066: ST_TO_ADDR
// for i999 in lab do
4067: LD_ADDR_EXP 36
4071: PUSH
4072: LD_LOC 8
4076: PUSH
4077: FOR_IN
4078: IFFALSE 4288
// begin if GetLives ( lab ) <= 1000 then
4080: LD_LOC 8
4084: PPUSH
4085: CALL_OW 256
4089: PUSH
4090: LD_INT 1000
4092: LESSEQUAL
4093: IFFALSE 4286
// begin Level = [ 0 , 1 , 2 ] [ Difficulty ] ;
4095: LD_ADDR_LOC 9
4099: PUSH
4100: LD_INT 0
4102: PUSH
4103: LD_INT 1
4105: PUSH
4106: LD_INT 2
4108: PUSH
4109: EMPTY
4110: LIST
4111: LIST
4112: LIST
4113: PUSH
4114: LD_OWVAR 67
4118: ARRAY
4119: ST_TO_ADDR
// uc_side = 2 ;
4120: LD_ADDR_OWVAR 20
4124: PUSH
4125: LD_INT 2
4127: ST_TO_ADDR
// uc_nation = 2 ;
4128: LD_ADDR_OWVAR 21
4132: PUSH
4133: LD_INT 2
4135: ST_TO_ADDR
// hc_gallery =  ;
4136: LD_ADDR_OWVAR 33
4140: PUSH
4141: LD_STRING 
4143: ST_TO_ADDR
// hc_name =  ;
4144: LD_ADDR_OWVAR 26
4148: PUSH
4149: LD_STRING 
4151: ST_TO_ADDR
// hc_attr = [ Rand ( 9 , 11 ) , Rand ( 10 , 12 ) ] ;
4152: LD_ADDR_OWVAR 29
4156: PUSH
4157: LD_INT 9
4159: PPUSH
4160: LD_INT 11
4162: PPUSH
4163: CALL_OW 12
4167: PUSH
4168: LD_INT 10
4170: PPUSH
4171: LD_INT 12
4173: PPUSH
4174: CALL_OW 12
4178: PUSH
4179: EMPTY
4180: LIST
4181: LIST
4182: ST_TO_ADDR
// hc_skills = [ Rand ( 0 , 3 ) , Rand ( 0 , 3 ) , Rand ( 0 , 3 ) , Rand ( 0 , 3 ) ] ;
4183: LD_ADDR_OWVAR 31
4187: PUSH
4188: LD_INT 0
4190: PPUSH
4191: LD_INT 3
4193: PPUSH
4194: CALL_OW 12
4198: PUSH
4199: LD_INT 0
4201: PPUSH
4202: LD_INT 3
4204: PPUSH
4205: CALL_OW 12
4209: PUSH
4210: LD_INT 0
4212: PPUSH
4213: LD_INT 3
4215: PPUSH
4216: CALL_OW 12
4220: PUSH
4221: LD_INT 0
4223: PPUSH
4224: LD_INT 3
4226: PPUSH
4227: CALL_OW 12
4231: PUSH
4232: EMPTY
4233: LIST
4234: LIST
4235: LIST
4236: LIST
4237: ST_TO_ADDR
// hc_sex = Rand ( sex_male , sex_female ) ;
4238: LD_ADDR_OWVAR 27
4242: PUSH
4243: LD_INT 1
4245: PPUSH
4246: LD_INT 2
4248: PPUSH
4249: CALL_OW 12
4253: ST_TO_ADDR
// hc_class = 1 ;
4254: LD_ADDR_OWVAR 28
4258: PUSH
4259: LD_INT 1
4261: ST_TO_ADDR
// un4 := CreateHuman ;
4262: LD_ADDR_EXP 19
4266: PUSH
4267: CALL_OW 44
4271: ST_TO_ADDR
// PlaceHumanInUnit ( un4 , i999 ) ;
4272: LD_EXP 19
4276: PPUSH
4277: LD_EXP 36
4281: PPUSH
4282: CALL_OW 52
// end ; end ;
4286: GO 4077
4288: POP
4289: POP
// end ; end_of_file
4290: END
// export time ; every 1 do
4291: GO 4293
4293: DISABLE
// time := 0 0$00 ;
4294: LD_ADDR_EXP 37
4298: PUSH
4299: LD_INT 0
4301: ST_TO_ADDR
4302: END
// every 0 0$01 do
4303: GO 4305
4305: DISABLE
// begin enable ;
4306: ENABLE
// time := time + 0 0$01 ;
4307: LD_ADDR_EXP 37
4311: PUSH
4312: LD_EXP 37
4316: PUSH
4317: LD_INT 35
4319: PLUS
4320: ST_TO_ADDR
// Display_Strings := [ #timer , time ] ;
4321: LD_ADDR_OWVAR 47
4325: PUSH
4326: LD_STRING #timer
4328: PUSH
4329: LD_EXP 37
4333: PUSH
4334: EMPTY
4335: LIST
4336: LIST
4337: ST_TO_ADDR
// end ; end_of_file
4338: END
// export sib_bomb , ludzie ; var sib_bomb , ludzie ; every 25 25$00 do
4339: GO 4341
4341: DISABLE
// begin say ( postac2 , dr2 ) ;
4342: LD_EXP 2
4346: PPUSH
4347: LD_STRING dr2
4349: PPUSH
4350: CALL_OW 88
// sib_bomb := FilterAllUnits ( [ [ f_side , 7 ] , [ f_weapon , ru_siberium_rocket ] ] ) ;
4354: LD_ADDR_LOC 10
4358: PUSH
4359: LD_INT 22
4361: PUSH
4362: LD_INT 7
4364: PUSH
4365: EMPTY
4366: LIST
4367: LIST
4368: PUSH
4369: LD_INT 34
4371: PUSH
4372: LD_INT 48
4374: PUSH
4375: EMPTY
4376: LIST
4377: LIST
4378: PUSH
4379: EMPTY
4380: LIST
4381: LIST
4382: PPUSH
4383: CALL_OW 69
4387: ST_TO_ADDR
// if sib_bomb = 0 then
4388: LD_LOC 10
4392: PUSH
4393: LD_INT 0
4395: EQUAL
4396: IFFALSE 4410
// begin sendsiberiterocket ( 21 , 8 ) ;
4398: LD_INT 21
4400: PPUSH
4401: LD_INT 8
4403: PPUSH
4404: CALL_OW 429
// end else
4408: GO 4425
// ComAttackPlace ( sib_bomb , 21 , 8 ) ;
4410: LD_LOC 10
4414: PPUSH
4415: LD_INT 21
4417: PPUSH
4418: LD_INT 8
4420: PPUSH
4421: CALL_OW 116
// end ;
4425: END
// every 0 0$01 do
4426: GO 4428
4428: DISABLE
// begin end ; end_of_file
4429: END
// export solar1 ; var solar1 ; every 1 1$00 do
4430: GO 4432
4432: DISABLE
// begin solar1 := filterallunits ( [ [ f_side , 4 ] , [ f_btype , b_solar_power ] ] ) ;
4433: LD_ADDR_LOC 12
4437: PUSH
4438: LD_INT 22
4440: PUSH
4441: LD_INT 4
4443: PUSH
4444: EMPTY
4445: LIST
4446: LIST
4447: PUSH
4448: LD_INT 30
4450: PUSH
4451: LD_INT 27
4453: PUSH
4454: EMPTY
4455: LIST
4456: LIST
4457: PUSH
4458: EMPTY
4459: LIST
4460: LIST
4461: PPUSH
4462: CALL_OW 69
4466: ST_TO_ADDR
// setside ( solar1 , 1 ) ;
4467: LD_LOC 12
4471: PPUSH
4472: LD_INT 1
4474: PPUSH
4475: CALL_OW 235
// enable ;
4479: ENABLE
// end ; end_of_file
4480: END
// every 0 0$20 do
4481: GO 4483
4483: DISABLE
// begin comexitbuilding ( un ) ;
4484: LD_EXP 13
4488: PPUSH
4489: CALL_OW 122
// comagressivemove ( un , 61 , 66 ) ;
4493: LD_EXP 13
4497: PPUSH
4498: LD_INT 61
4500: PPUSH
4501: LD_INT 66
4503: PPUSH
4504: CALL_OW 114
// enable ;
4508: ENABLE
// end ;
4509: END
// every 0 0$20 do
4510: GO 4512
4512: DISABLE
// begin comexitbuilding ( un1 ) ;
4513: LD_EXP 16
4517: PPUSH
4518: CALL_OW 122
// comagressivemove ( un1 , 26 , 6 ) ;
4522: LD_EXP 16
4526: PPUSH
4527: LD_INT 26
4529: PPUSH
4530: LD_INT 6
4532: PPUSH
4533: CALL_OW 114
// enable ;
4537: ENABLE
// end ; end_of_file
4538: END
// every 2 2$30 do
4539: GO 4541
4541: DISABLE
// begin saveforquickrestart ;
4542: CALL_OW 22
// enable ;
4546: ENABLE
// end ; end_of_file
4547: END
// export inzynierki2 ; every 0 0$01 do
4548: GO 4550
4550: DISABLE
// begin inzynierki2 := Filterallunits ( [ [ f_side , 3 ] , [ f_type , unit_human ] , [ f_class , class_engineer ] ] ) ;
4551: LD_ADDR_EXP 41
4555: PUSH
4556: LD_INT 22
4558: PUSH
4559: LD_INT 3
4561: PUSH
4562: EMPTY
4563: LIST
4564: LIST
4565: PUSH
4566: LD_INT 21
4568: PUSH
4569: LD_INT 1
4571: PUSH
4572: EMPTY
4573: LIST
4574: LIST
4575: PUSH
4576: LD_INT 25
4578: PUSH
4579: LD_INT 2
4581: PUSH
4582: EMPTY
4583: LIST
4584: LIST
4585: PUSH
4586: EMPTY
4587: LIST
4588: LIST
4589: LIST
4590: PPUSH
4591: CALL_OW 69
4595: ST_TO_ADDR
// enable ;
4596: ENABLE
// end ;
4597: END
// every 0 0$01 do
4598: GO 4600
4600: DISABLE
// begin ComBuild ( inzynierki2 , b_oil_mine , 63 , 73 , 3 ) ;
4601: LD_EXP 41
4605: PPUSH
4606: LD_INT 29
4608: PPUSH
4609: LD_INT 63
4611: PPUSH
4612: LD_INT 73
4614: PPUSH
4615: LD_INT 3
4617: PPUSH
4618: CALL_OW 145
// end ;
4622: END
// every 0 0$40 do
4623: GO 4625
4625: DISABLE
// begin ComBuild ( inzynierki2 , b_oil_power , 58 , 77 , 3 ) ;
4626: LD_EXP 41
4630: PPUSH
4631: LD_INT 26
4633: PPUSH
4634: LD_INT 58
4636: PPUSH
4637: LD_INT 77
4639: PPUSH
4640: LD_INT 3
4642: PPUSH
4643: CALL_OW 145
// end ;
4647: END
// every 1 1$25 do
4648: GO 4650
4650: DISABLE
// begin ComBuild ( inzynierki2 , b_oil_power , 49 , 77 , 3 ) ;
4651: LD_EXP 41
4655: PPUSH
4656: LD_INT 26
4658: PPUSH
4659: LD_INT 49
4661: PPUSH
4662: LD_INT 77
4664: PPUSH
4665: LD_INT 3
4667: PPUSH
4668: CALL_OW 145
// end ;
4672: END
// every 2 2$05 do
4673: GO 4675
4675: DISABLE
// begin ComBuild ( inzynierki2 , b_armoury , 47 , 57 , 2 ) ;
4676: LD_EXP 41
4680: PPUSH
4681: LD_INT 4
4683: PPUSH
4684: LD_INT 47
4686: PPUSH
4687: LD_INT 57
4689: PPUSH
4690: LD_INT 2
4692: PPUSH
4693: CALL_OW 145
// enable ;
4697: ENABLE
// end ;
4698: END
// every 2 2$30 do
4699: GO 4701
4701: DISABLE
// begin ComBuild ( inzynierki2 , b_armoury , 47 , 57 , 2 ) ;
4702: LD_EXP 41
4706: PPUSH
4707: LD_INT 4
4709: PPUSH
4710: LD_INT 47
4712: PPUSH
4713: LD_INT 57
4715: PPUSH
4716: LD_INT 2
4718: PPUSH
4719: CALL_OW 145
// enable ;
4723: ENABLE
// end ;
4724: END
// every 2 2$45 do
4725: GO 4727
4727: DISABLE
// begin ComBuild ( inzynierki2 , b_armoury , 44 , 61 , 2 ) ;
4728: LD_EXP 41
4732: PPUSH
4733: LD_INT 4
4735: PPUSH
4736: LD_INT 44
4738: PPUSH
4739: LD_INT 61
4741: PPUSH
4742: LD_INT 2
4744: PPUSH
4745: CALL_OW 145
// enable ;
4749: ENABLE
// end ;
4750: END
// every 5 5$30 do
4751: GO 4753
4753: DISABLE
// begin ComBuild ( inzynierki2 , b_armoury , 53 , 65 , 2 ) ;
4754: LD_EXP 41
4758: PPUSH
4759: LD_INT 4
4761: PPUSH
4762: LD_INT 53
4764: PPUSH
4765: LD_INT 65
4767: PPUSH
4768: LD_INT 2
4770: PPUSH
4771: CALL_OW 145
// enable ;
4775: ENABLE
// end ;
4776: END
// every 3 3$25 do
4777: GO 4779
4779: DISABLE
// begin ComBuild ( inzynierki2 , b_depot , 61 , 66 , 4 ) ;
4780: LD_EXP 41
4784: PPUSH
4785: LD_INT 0
4787: PPUSH
4788: LD_INT 61
4790: PPUSH
4791: LD_INT 66
4793: PPUSH
4794: LD_INT 4
4796: PPUSH
4797: CALL_OW 145
// enable ;
4801: ENABLE
// end ; end_of_file
4802: END
// on contact ( s1 , s2 ) do begin if s1 = 1 and s2 = 2 then
4803: LD_VAR 0 1
4807: PUSH
4808: LD_INT 1
4810: EQUAL
4811: PUSH
4812: LD_VAR 0 2
4816: PUSH
4817: LD_INT 2
4819: EQUAL
4820: AND
4821: IFFALSE 4830
// youlost ( WYK1 ) ;
4823: LD_STRING WYK1
4825: PPUSH
4826: CALL_OW 104
// end ;
4830: PPOPN 2
4832: END
// every 0 0$01 do
4833: GO 4835
4835: DISABLE
// begin enable ;
4836: ENABLE
// if GetLives ( jednostka ) <= 1 then
4837: LD_EXP 4
4841: PPUSH
4842: CALL_OW 256
4846: PUSH
4847: LD_INT 1
4849: LESSEQUAL
4850: IFFALSE 4859
// begin youlost ( SZE1 ) ;
4852: LD_STRING SZE1
4854: PPUSH
4855: CALL_OW 104
// end ; end ; end_of_file
4859: END
// export inzynierki45 , fab1 ; every 0 0$0.1 do
4860: GO 4862
4862: DISABLE
// begin inzynierki45 := Filterallunits ( [ [ f_side , 5 ] , [ f_type , unit_human ] , [ f_class , class_engineer ] ] ) ;
4863: LD_ADDR_EXP 42
4867: PUSH
4868: LD_INT 22
4870: PUSH
4871: LD_INT 5
4873: PUSH
4874: EMPTY
4875: LIST
4876: LIST
4877: PUSH
4878: LD_INT 21
4880: PUSH
4881: LD_INT 1
4883: PUSH
4884: EMPTY
4885: LIST
4886: LIST
4887: PUSH
4888: LD_INT 25
4890: PUSH
4891: LD_INT 2
4893: PUSH
4894: EMPTY
4895: LIST
4896: LIST
4897: PUSH
4898: EMPTY
4899: LIST
4900: LIST
4901: LIST
4902: PPUSH
4903: CALL_OW 69
4907: ST_TO_ADDR
// fab1 := Filterallunits ( [ [ f_side , 5 ] , [ f_btype , b_workshop ] ] ) ;
4908: LD_ADDR_EXP 43
4912: PUSH
4913: LD_INT 22
4915: PUSH
4916: LD_INT 5
4918: PUSH
4919: EMPTY
4920: LIST
4921: LIST
4922: PUSH
4923: LD_INT 30
4925: PUSH
4926: LD_INT 2
4928: PUSH
4929: EMPTY
4930: LIST
4931: LIST
4932: PUSH
4933: EMPTY
4934: LIST
4935: LIST
4936: PPUSH
4937: CALL_OW 69
4941: ST_TO_ADDR
// enable end ;
4942: ENABLE
4943: END
// every 0 0$01 do
4944: GO 4946
4946: DISABLE
// begin ComBuild ( inzynierki45 , b_workshop , 92 , 73 , 5 ) ;
4947: LD_EXP 42
4951: PPUSH
4952: LD_INT 2
4954: PPUSH
4955: LD_INT 92
4957: PPUSH
4958: LD_INT 73
4960: PPUSH
4961: LD_INT 5
4963: PPUSH
4964: CALL_OW 145
// end ;
4968: END
// every 1 1$00 do
4969: GO 4971
4971: DISABLE
// begin ComUpgrade ( fab1 ) ;
4972: LD_EXP 43
4976: PPUSH
4977: CALL_OW 146
// enable ;
4981: ENABLE
// end ;
4982: END
// every 3 3$35 do
4983: GO 4985
4985: DISABLE
// begin ComBuild ( inzynierki45 , b_solar_power , 84 , 53 , 5 ) ;
4986: LD_EXP 42
4990: PPUSH
4991: LD_INT 27
4993: PPUSH
4994: LD_INT 84
4996: PPUSH
4997: LD_INT 53
4999: PPUSH
5000: LD_INT 5
5002: PPUSH
5003: CALL_OW 145
// end ; end_of_file
5007: END
// export czolg1 , czolg2 , fac1 ; var fac1 , i643 ; every 0 0$01 do
5008: GO 5010
5010: DISABLE
// begin enable ;
5011: ENABLE
// fac1 := Filterallunits ( [ [ f_side , 5 ] , [ f_btype , b_factory ] ] ) ;
5012: LD_ADDR_LOC 13
5016: PUSH
5017: LD_INT 22
5019: PUSH
5020: LD_INT 5
5022: PUSH
5023: EMPTY
5024: LIST
5025: LIST
5026: PUSH
5027: LD_INT 30
5029: PUSH
5030: LD_INT 3
5032: PUSH
5033: EMPTY
5034: LIST
5035: LIST
5036: PUSH
5037: EMPTY
5038: LIST
5039: LIST
5040: PPUSH
5041: CALL_OW 69
5045: ST_TO_ADDR
// end ;
5046: END
// every 0 0$15 do
5047: GO 5049
5049: DISABLE
// begin enable ;
5050: ENABLE
// for i643 in fac1 do
5051: LD_ADDR_LOC 14
5055: PUSH
5056: LD_LOC 13
5060: PUSH
5061: FOR_IN
5062: IFFALSE 5231
// begin if GetLives ( fac1 ) <= 1000 then
5064: LD_LOC 13
5068: PPUSH
5069: CALL_OW 256
5073: PUSH
5074: LD_INT 1000
5076: LESSEQUAL
5077: IFFALSE 5229
// begin uc_side = 5 ;
5079: LD_ADDR_OWVAR 20
5083: PUSH
5084: LD_INT 5
5086: ST_TO_ADDR
// uc_nation = 2 ;
5087: LD_ADDR_OWVAR 21
5091: PUSH
5092: LD_INT 2
5094: ST_TO_ADDR
// hc_gallery =  ;
5095: LD_ADDR_OWVAR 33
5099: PUSH
5100: LD_STRING 
5102: ST_TO_ADDR
// hc_name =  ;
5103: LD_ADDR_OWVAR 26
5107: PUSH
5108: LD_STRING 
5110: ST_TO_ADDR
// hc_attr = [ Rand ( 9 , 11 ) , Rand ( 10 , 12 ) ] ;
5111: LD_ADDR_OWVAR 29
5115: PUSH
5116: LD_INT 9
5118: PPUSH
5119: LD_INT 11
5121: PPUSH
5122: CALL_OW 12
5126: PUSH
5127: LD_INT 10
5129: PPUSH
5130: LD_INT 12
5132: PPUSH
5133: CALL_OW 12
5137: PUSH
5138: EMPTY
5139: LIST
5140: LIST
5141: ST_TO_ADDR
// hc_skills = [ 2 , 1 , Rand ( 2 , 5 ) , Rand ( 0 , 2 ) ] ;
5142: LD_ADDR_OWVAR 31
5146: PUSH
5147: LD_INT 2
5149: PUSH
5150: LD_INT 1
5152: PUSH
5153: LD_INT 2
5155: PPUSH
5156: LD_INT 5
5158: PPUSH
5159: CALL_OW 12
5163: PUSH
5164: LD_INT 0
5166: PPUSH
5167: LD_INT 2
5169: PPUSH
5170: CALL_OW 12
5174: PUSH
5175: EMPTY
5176: LIST
5177: LIST
5178: LIST
5179: LIST
5180: ST_TO_ADDR
// hc_sex = Rand ( sex_male , sex_female ) ;
5181: LD_ADDR_OWVAR 27
5185: PUSH
5186: LD_INT 1
5188: PPUSH
5189: LD_INT 2
5191: PPUSH
5192: CALL_OW 12
5196: ST_TO_ADDR
// hc_class = 3 ;
5197: LD_ADDR_OWVAR 28
5201: PUSH
5202: LD_INT 3
5204: ST_TO_ADDR
// un555 := CreateHuman ;
5205: LD_ADDR_EXP 3
5209: PUSH
5210: CALL_OW 44
5214: ST_TO_ADDR
// PlaceHumanInUnit ( un555 , i643 ) ;
5215: LD_EXP 3
5219: PPUSH
5220: LD_LOC 14
5224: PPUSH
5225: CALL_OW 52
// end ; end ;
5229: GO 5061
5231: POP
5232: POP
// end ;
5233: END
// every 0 0$01 do
5234: GO 5236
5236: DISABLE
// begin czolg1 := addcomconstruct ( fac1 , ar_medium_trike , engine_combustion , control_manual , ar_double_machine_gun ) ;
5237: LD_ADDR_EXP 44
5241: PUSH
5242: LD_LOC 13
5246: PPUSH
5247: LD_INT 13
5249: PPUSH
5250: LD_INT 1
5252: PPUSH
5253: LD_INT 1
5255: PPUSH
5256: LD_INT 24
5258: PPUSH
5259: CALL_OW 185
5263: ST_TO_ADDR
// enable ;
5264: ENABLE
// end ;
5265: END
// on VehicleConstructed ( un555 , fab ) do begin setside ( un555 , 8 ) ;
5266: LD_VAR 0 1
5270: PPUSH
5271: LD_INT 8
5273: PPUSH
5274: CALL_OW 235
// end ; end_of_file
5278: PPOPN 2
5280: END
// export function IGNORUJ ; var ip , atakujacyp , broniacyp ; begin
5281: LD_INT 0
5283: PPUSH
5284: PPUSH
5285: PPUSH
5286: PPUSH
// broniacyp = Filterallunits ( [ f_side , 8 ] ) ;
5287: LD_ADDR_VAR 0 4
5291: PUSH
5292: LD_INT 22
5294: PUSH
5295: LD_INT 8
5297: PUSH
5298: EMPTY
5299: LIST
5300: LIST
5301: PPUSH
5302: CALL_OW 69
5306: ST_TO_ADDR
// atakujacyp = Filterallunits ( [ [ f_side , 3 ] , [ f_btype , b_turret ] ] ) ;
5307: LD_ADDR_VAR 0 3
5311: PUSH
5312: LD_INT 22
5314: PUSH
5315: LD_INT 3
5317: PUSH
5318: EMPTY
5319: LIST
5320: LIST
5321: PUSH
5322: LD_INT 30
5324: PUSH
5325: LD_INT 33
5327: PUSH
5328: EMPTY
5329: LIST
5330: LIST
5331: PUSH
5332: EMPTY
5333: LIST
5334: LIST
5335: PPUSH
5336: CALL_OW 69
5340: ST_TO_ADDR
// for ip in atakujacyp do
5341: LD_ADDR_VAR 0 2
5345: PUSH
5346: LD_VAR 0 3
5350: PUSH
5351: FOR_IN
5352: IFFALSE 5380
// begin ComAttackUnit ( ip , NearestUnitToUnit ( broniacyp , ip ) ) ;
5354: LD_VAR 0 2
5358: PPUSH
5359: LD_VAR 0 4
5363: PPUSH
5364: LD_VAR 0 2
5368: PPUSH
5369: CALL_OW 74
5373: PPUSH
5374: CALL_OW 115
// end ;
5378: GO 5351
5380: POP
5381: POP
// end ;
5382: LD_VAR 0 1
5386: RET
// every 0 0$2 do
5387: GO 5389
5389: DISABLE
// begin IGNORUJ ;
5390: CALL 5281 0 0
// enable ;
5394: ENABLE
// end ;
5395: END
