// export You , You2 , Amici ; starting begin RandomizeAll ;
   0: CALL_OW 8
// nastav_obtiznosti ;
   4: CALL 6517 0 0
// You = 2 ;
   8: LD_ADDR_EXP 1
  12: PUSH
  13: LD_INT 2
  15: ST_TO_ADDR
// You2 = 8 ;
  16: LD_ADDR_EXP 2
  20: PUSH
  21: LD_INT 8
  23: ST_TO_ADDR
// Amici = 1 ;
  24: LD_ADDR_EXP 3
  28: PUSH
  29: LD_INT 1
  31: ST_TO_ADDR
// zakladna_dobyta = false ;
  32: LD_ADDR_EXP 15
  36: PUSH
  37: LD_INT 0
  39: ST_TO_ADDR
// create_araby ;
  40: CALL 108 0 0
// uprav_amiky_enter ;
  44: CALL 704 0 0
// create_attack1 ;
  48: CALL 919 0 0
// create_attack2 ;
  52: CALL 1979 0 0
// create_attack3 ;
  56: CALL 1241 0 0
// CenterOnXY ( 95 , 16 ) ;
  60: LD_INT 95
  62: PPUSH
  63: LD_INT 16
  65: PPUSH
  66: CALL_OW 67
// end ; end_of_file
  70: END
// export CREATE_ATTACK1_LIST ; export CREATE_ATTACK2_LIST ; export CREATE_ATTACK3_LIST1 ; export CREATE_ATTACK3_LIST2 ; export CREATE_ATTACK3_LIST3 ; var ah , av ; function prepare_human ( sex , clas , level , name ) ; begin
  71: LD_INT 0
  73: PPUSH
// PrepareHuman ( sex , clas , level ) ;
  74: LD_VAR 0 1
  78: PPUSH
  79: LD_VAR 0 2
  83: PPUSH
  84: LD_VAR 0 3
  88: PPUSH
  89: CALL_OW 280
// hc_name := name ;
  93: LD_ADDR_OWVAR 16
  97: PUSH
  98: LD_VAR 0 4
 102: ST_TO_ADDR
// end ;
 103: LD_VAR 0 5
 107: RET
// export function create_araby ; begin
 108: LD_INT 0
 110: PPUSH
// InitUc ;
 111: CALL_OW 15
// InitHc ;
 115: CALL_OW 16
// InitVc ;
 119: CALL_OW 17
// uc_side := You ;
 123: LD_ADDR_OWVAR 10
 127: PUSH
 128: LD_EXP 1
 132: ST_TO_ADDR
// uc_nation := nation_arabian ;
 133: LD_ADDR_OWVAR 11
 137: PUSH
 138: LD_INT 2
 140: ST_TO_ADDR
// uc_direction := 4 ;
 141: LD_ADDR_OWVAR 14
 145: PUSH
 146: LD_INT 4
 148: ST_TO_ADDR
// prepare_human ( sex_female , class_soldier , 2 , Heike Steiner ) ;
 149: LD_INT 2
 151: PPUSH
 152: LD_INT 1
 154: PPUSH
 155: LD_INT 2
 157: PPUSH
 158: LD_STRING Heike Steiner
 160: PPUSH
 161: CALL 71 0 4
// ah = CreateHuman ;
 165: LD_ADDR_LOC 1
 169: PUSH
 170: CALL_OW 37
 174: ST_TO_ADDR
// Heike = ah ;
 175: LD_ADDR_EXP 10
 179: PUSH
 180: LD_LOC 1
 184: ST_TO_ADDR
// PlaceUnitArea ( ah , Enter , false ) ;
 185: LD_LOC 1
 189: PPUSH
 190: LD_INT 1
 192: PPUSH
 193: LD_INT 0
 195: PPUSH
 196: CALL_OW 42
// prepare_human ( sex_female , class_scientistic , 2 , Sonya ??? ) ;
 200: LD_INT 2
 202: PPUSH
 203: LD_INT 4
 205: PPUSH
 206: LD_INT 2
 208: PPUSH
 209: LD_STRING Sonya ???
 211: PPUSH
 212: CALL 71 0 4
// ah = CreateHuman ;
 216: LD_ADDR_LOC 1
 220: PUSH
 221: CALL_OW 37
 225: ST_TO_ADDR
// Sonya = ah ;
 226: LD_ADDR_EXP 13
 230: PUSH
 231: LD_LOC 1
 235: ST_TO_ADDR
// PlaceUnitArea ( ah , Enter , false ) ;
 236: LD_LOC 1
 240: PPUSH
 241: LD_INT 1
 243: PPUSH
 244: LD_INT 0
 246: PPUSH
 247: CALL_OW 42
// prepare_human ( sex_male , class_soldier , 2 , Oswald ??? ) ;
 251: LD_INT 1
 253: PPUSH
 254: LD_INT 1
 256: PPUSH
 257: LD_INT 2
 259: PPUSH
 260: LD_STRING Oswald ???
 262: PPUSH
 263: CALL 71 0 4
// ah = CreateHuman ;
 267: LD_ADDR_LOC 1
 271: PUSH
 272: CALL_OW 37
 276: ST_TO_ADDR
// Oswald = ah ;
 277: LD_ADDR_EXP 11
 281: PUSH
 282: LD_LOC 1
 286: ST_TO_ADDR
// PlaceUnitArea ( ah , Enter , false ) ;
 287: LD_LOC 1
 291: PPUSH
 292: LD_INT 1
 294: PPUSH
 295: LD_INT 0
 297: PPUSH
 298: CALL_OW 42
// prepare_human ( sex_male , class_scientistic , 2 , Aviradze ) ;
 302: LD_INT 1
 304: PPUSH
 305: LD_INT 4
 307: PPUSH
 308: LD_INT 2
 310: PPUSH
 311: LD_STRING Aviradze
 313: PPUSH
 314: CALL 71 0 4
// ah = CreateHuman ;
 318: LD_ADDR_LOC 1
 322: PUSH
 323: CALL_OW 37
 327: ST_TO_ADDR
// Avi = ah ;
 328: LD_ADDR_EXP 9
 332: PUSH
 333: LD_LOC 1
 337: ST_TO_ADDR
// PlaceUnitArea ( ah , Enter , false ) ;
 338: LD_LOC 1
 342: PPUSH
 343: LD_INT 1
 345: PPUSH
 346: LD_INT 0
 348: PPUSH
 349: CALL_OW 42
// prepare_human ( sex_male , class_soldier , 2 , Ralph ??? ) ;
 353: LD_INT 1
 355: PPUSH
 356: LD_INT 1
 358: PPUSH
 359: LD_INT 2
 361: PPUSH
 362: LD_STRING Ralph ???
 364: PPUSH
 365: CALL 71 0 4
// ah = CreateHuman ;
 369: LD_ADDR_LOC 1
 373: PUSH
 374: CALL_OW 37
 378: ST_TO_ADDR
// Ralph = ah ;
 379: LD_ADDR_EXP 12
 383: PUSH
 384: LD_LOC 1
 388: ST_TO_ADDR
// PlaceUnitArea ( ah , Enter , false ) ;
 389: LD_LOC 1
 393: PPUSH
 394: LD_INT 1
 396: PPUSH
 397: LD_INT 0
 399: PPUSH
 400: CALL_OW 42
// prepare_human ( sex_male , class_soldier , 2 , dalsi ) ;
 404: LD_INT 1
 406: PPUSH
 407: LD_INT 1
 409: PPUSH
 410: LD_INT 2
 412: PPUSH
 413: LD_STRING dalsi
 415: PPUSH
 416: CALL 71 0 4
// ah = CreateHuman ;
 420: LD_ADDR_LOC 1
 424: PUSH
 425: CALL_OW 37
 429: ST_TO_ADDR
// PlaceUnitArea ( ah , Enter , false ) ;
 430: LD_LOC 1
 434: PPUSH
 435: LD_INT 1
 437: PPUSH
 438: LD_INT 0
 440: PPUSH
 441: CALL_OW 42
// Ar_enter = [ Heike , Ralph , Oswald , Avi , ah , Sonya ] ;
 445: LD_ADDR_EXP 16
 449: PUSH
 450: LD_EXP 10
 454: PUSH
 455: LD_EXP 12
 459: PUSH
 460: LD_EXP 11
 464: PUSH
 465: LD_EXP 9
 469: PUSH
 470: LD_LOC 1
 474: PUSH
 475: LD_EXP 13
 479: PUSH
 480: EMPTY
 481: LIST
 482: LIST
 483: LIST
 484: LIST
 485: LIST
 486: LIST
 487: ST_TO_ADDR
// prepare_human ( sex_male , class_soldier , 2 , Robert Farmer ) ;
 488: LD_INT 1
 490: PPUSH
 491: LD_INT 1
 493: PPUSH
 494: LD_INT 2
 496: PPUSH
 497: LD_STRING Robert Farmer
 499: PPUSH
 500: CALL 71 0 4
// ah = CreateHuman ;
 504: LD_ADDR_LOC 1
 508: PUSH
 509: CALL_OW 37
 513: ST_TO_ADDR
// far = ah ;
 514: LD_ADDR_EXP 14
 518: PUSH
 519: LD_LOC 1
 523: ST_TO_ADDR
// vc_chassis := ar_medium_trike ;
 524: LD_ADDR_OWVAR 27
 528: PUSH
 529: LD_INT 13
 531: ST_TO_ADDR
// vc_control := control_manual ;
 532: LD_ADDR_OWVAR 28
 536: PUSH
 537: LD_INT 1
 539: ST_TO_ADDR
// vc_engine := engine_solar ;
 540: LD_ADDR_OWVAR 29
 544: PUSH
 545: LD_INT 2
 547: ST_TO_ADDR
// vc_weapon := ar_double_machine_gun ;
 548: LD_ADDR_OWVAR 30
 552: PUSH
 553: LD_INT 24
 555: ST_TO_ADDR
// av = CreateVehicle ;
 556: LD_ADDR_LOC 2
 560: PUSH
 561: CALL_OW 38
 565: ST_TO_ADDR
// PlaceHumanInUnit ( ah , av ) ;
 566: LD_LOC 1
 570: PPUSH
 571: LD_LOC 2
 575: PPUSH
 576: CALL_OW 45
// fauto = av ;
 580: LD_ADDR_EXP 17
 584: PUSH
 585: LD_LOC 2
 589: ST_TO_ADDR
// PlaceUnitXY ( av , 96 , 11 , false ) ;
 590: LD_LOC 2
 594: PPUSH
 595: LD_INT 96
 597: PPUSH
 598: LD_INT 11
 600: PPUSH
 601: LD_INT 0
 603: PPUSH
 604: CALL_OW 41
// end ;
 608: LD_VAR 0 1
 612: RET
// export function create_engineer ; begin
 613: LD_INT 0
 615: PPUSH
// uc_side := You2 ;
 616: LD_ADDR_OWVAR 10
 620: PUSH
 621: LD_EXP 2
 625: ST_TO_ADDR
// uc_nation := nation_arabian ;
 626: LD_ADDR_OWVAR 11
 630: PUSH
 631: LD_INT 2
 633: ST_TO_ADDR
// uc_direction := 4 ;
 634: LD_ADDR_OWVAR 14
 638: PUSH
 639: LD_INT 4
 641: ST_TO_ADDR
// prepare_human ( sex_female , class_engineer , 2 , Else Mesigna ) ;
 642: LD_INT 2
 644: PPUSH
 645: LD_INT 2
 647: PPUSH
 648: LD_INT 2
 650: PPUSH
 651: LD_STRING Else Mesigna
 653: PPUSH
 654: CALL 71 0 4
// ah = CreateHuman ;
 658: LD_ADDR_LOC 1
 662: PUSH
 663: CALL_OW 37
 667: ST_TO_ADDR
// PlaceUnitXYR ( ah , 118 , 73 , 3 , false ) ;
 668: LD_LOC 1
 672: PPUSH
 673: LD_INT 118
 675: PPUSH
 676: LD_INT 73
 678: PPUSH
 679: LD_INT 3
 681: PPUSH
 682: LD_INT 0
 684: PPUSH
 685: CALL_OW 43
// result := ah ;
 689: LD_ADDR_VAR 0 1
 693: PUSH
 694: LD_LOC 1
 698: ST_TO_ADDR
// end ;
 699: LD_VAR 0 1
 703: RET
// export function uprav_amiky_enter ; begin
 704: LD_INT 0
 706: PPUSH
// uc_side := Amici ;
 707: LD_ADDR_OWVAR 10
 711: PUSH
 712: LD_EXP 3
 716: ST_TO_ADDR
// if UTEKLI_VEDCI then
 717: LD_EXP 20
 721: IFFALSE 749
// begin uc_nation = nation_nature ;
 723: LD_ADDR_OWVAR 11
 727: PUSH
 728: LD_INT 0
 730: ST_TO_ADDR
// prepare_human ( sex_male , class_apeman_engineer , 1 , Opa ) ;
 731: LD_INT 1
 733: PPUSH
 734: LD_INT 16
 736: PPUSH
 737: LD_INT 1
 739: PPUSH
 740: LD_STRING Opa
 742: PPUSH
 743: CALL 71 0 4
// end else
 747: GO 773
// begin uc_nation = nation_american ;
 749: LD_ADDR_OWVAR 11
 753: PUSH
 754: LD_INT 1
 756: ST_TO_ADDR
// prepare_human ( sex_male , class_engineer , 1 , Azgil Ahlib ) ;
 757: LD_INT 1
 759: PPUSH
 760: LD_INT 2
 762: PPUSH
 763: LD_INT 1
 765: PPUSH
 766: LD_STRING Azgil Ahlib
 768: PPUSH
 769: CALL 71 0 4
// end ; ah = CreateHuman ;
 773: LD_ADDR_LOC 1
 777: PUSH
 778: CALL_OW 37
 782: ST_TO_ADDR
// PlaceUnitXYR ( ah , 36 , 28 , 3 , false ) ;
 783: LD_LOC 1
 787: PPUSH
 788: LD_INT 36
 790: PPUSH
 791: LD_INT 28
 793: PPUSH
 794: LD_INT 3
 796: PPUSH
 797: LD_INT 0
 799: PPUSH
 800: CALL_OW 43
// if difficulty > 1 then
 804: LD_OWVAR 48
 808: PUSH
 809: LD_INT 1
 811: GREATER
 812: IFFALSE 863
// begin uc_nation = nation_american ;
 814: LD_ADDR_OWVAR 11
 818: PUSH
 819: LD_INT 1
 821: ST_TO_ADDR
// prepare_human ( sex_female , class_soldier , 2 , Katty Green ) ;
 822: LD_INT 2
 824: PPUSH
 825: LD_INT 1
 827: PPUSH
 828: LD_INT 2
 830: PPUSH
 831: LD_STRING Katty Green
 833: PPUSH
 834: CALL 71 0 4
// ah = CreateHuman ;
 838: LD_ADDR_LOC 1
 842: PUSH
 843: CALL_OW 37
 847: ST_TO_ADDR
// PlaceUnitArea ( ah , putbase , false ) ;
 848: LD_LOC 1
 852: PPUSH
 853: LD_INT 11
 855: PPUSH
 856: LD_INT 0
 858: PPUSH
 859: CALL_OW 42
// end ; if difficulty > 2 then
 863: LD_OWVAR 48
 867: PUSH
 868: LD_INT 2
 870: GREATER
 871: IFFALSE 914
// begin prepare_human ( sex_male , class_soldier , 2 , Johny Deep ) ;
 873: LD_INT 1
 875: PPUSH
 876: LD_INT 1
 878: PPUSH
 879: LD_INT 2
 881: PPUSH
 882: LD_STRING Johny Deep
 884: PPUSH
 885: CALL 71 0 4
// ah = CreateHuman ;
 889: LD_ADDR_LOC 1
 893: PUSH
 894: CALL_OW 37
 898: ST_TO_ADDR
// PlaceUnitArea ( ah , putbase , false ) ;
 899: LD_LOC 1
 903: PPUSH
 904: LD_INT 11
 906: PPUSH
 907: LD_INT 0
 909: PPUSH
 910: CALL_OW 42
// end ; end ;
 914: LD_VAR 0 1
 918: RET
// export function create_attack1 ; var pom ; begin
 919: LD_INT 0
 921: PPUSH
 922: PPUSH
// pom = [ ] ;
 923: LD_ADDR_VAR 0 2
 927: PUSH
 928: EMPTY
 929: ST_TO_ADDR
// uc_side := Amici ;
 930: LD_ADDR_OWVAR 10
 934: PUSH
 935: LD_EXP 3
 939: ST_TO_ADDR
// uc_nation := nation_american ;
 940: LD_ADDR_OWVAR 11
 944: PUSH
 945: LD_INT 1
 947: ST_TO_ADDR
// uc_direction := 4 ;
 948: LD_ADDR_OWVAR 14
 952: PUSH
 953: LD_INT 4
 955: ST_TO_ADDR
// prepare_human ( sex_male , class_soldier , levely [ difficulty ] , Mike Damme ) ;
 956: LD_INT 1
 958: PPUSH
 959: LD_INT 1
 961: PPUSH
 962: LD_EXP 22
 966: PUSH
 967: LD_OWVAR 48
 971: ARRAY
 972: PPUSH
 973: LD_STRING Mike Damme
 975: PPUSH
 976: CALL 71 0 4
// ah = CreateHuman ;
 980: LD_ADDR_LOC 1
 984: PUSH
 985: CALL_OW 37
 989: ST_TO_ADDR
// pom = pom ^ ah ;
 990: LD_ADDR_VAR 0 2
 994: PUSH
 995: LD_VAR 0 2
 999: PUSH
1000: LD_LOC 1
1004: ADD
1005: ST_TO_ADDR
// prepare_human ( sex_male , class_soldier , levely [ difficulty ] , Jay Stocky ) ;
1006: LD_INT 1
1008: PPUSH
1009: LD_INT 1
1011: PPUSH
1012: LD_EXP 22
1016: PUSH
1017: LD_OWVAR 48
1021: ARRAY
1022: PPUSH
1023: LD_STRING Jay Stocky
1025: PPUSH
1026: CALL 71 0 4
// ah = CreateHuman ;
1030: LD_ADDR_LOC 1
1034: PUSH
1035: CALL_OW 37
1039: ST_TO_ADDR
// pom = pom ^ ah ;
1040: LD_ADDR_VAR 0 2
1044: PUSH
1045: LD_VAR 0 2
1049: PUSH
1050: LD_LOC 1
1054: ADD
1055: ST_TO_ADDR
// prepare_human ( sex_male , class_soldier , levely [ difficulty ] , James McGregor ) ;
1056: LD_INT 1
1058: PPUSH
1059: LD_INT 1
1061: PPUSH
1062: LD_EXP 22
1066: PUSH
1067: LD_OWVAR 48
1071: ARRAY
1072: PPUSH
1073: LD_STRING James McGregor
1075: PPUSH
1076: CALL 71 0 4
// ah = CreateHuman ;
1080: LD_ADDR_LOC 1
1084: PUSH
1085: CALL_OW 37
1089: ST_TO_ADDR
// pom = pom ^ ah ;
1090: LD_ADDR_VAR 0 2
1094: PUSH
1095: LD_VAR 0 2
1099: PUSH
1100: LD_LOC 1
1104: ADD
1105: ST_TO_ADDR
// if difficulty > 1 then
1106: LD_OWVAR 48
1110: PUSH
1111: LD_INT 1
1113: GREATER
1114: IFFALSE 1166
// begin prepare_human ( sex_male , class_soldier , levely [ difficulty ] , Joe Lindros ) ;
1116: LD_INT 1
1118: PPUSH
1119: LD_INT 1
1121: PPUSH
1122: LD_EXP 22
1126: PUSH
1127: LD_OWVAR 48
1131: ARRAY
1132: PPUSH
1133: LD_STRING Joe Lindros
1135: PPUSH
1136: CALL 71 0 4
// ah = CreateHuman ;
1140: LD_ADDR_LOC 1
1144: PUSH
1145: CALL_OW 37
1149: ST_TO_ADDR
// pom = pom ^ ah ;
1150: LD_ADDR_VAR 0 2
1154: PUSH
1155: LD_VAR 0 2
1159: PUSH
1160: LD_LOC 1
1164: ADD
1165: ST_TO_ADDR
// end ; if difficulty > 2 then
1166: LD_OWVAR 48
1170: PUSH
1171: LD_INT 2
1173: GREATER
1174: IFFALSE 1226
// begin prepare_human ( sex_male , class_soldier , levely [ difficulty ] , Bill Torons ) ;
1176: LD_INT 1
1178: PPUSH
1179: LD_INT 1
1181: PPUSH
1182: LD_EXP 22
1186: PUSH
1187: LD_OWVAR 48
1191: ARRAY
1192: PPUSH
1193: LD_STRING Bill Torons
1195: PPUSH
1196: CALL 71 0 4
// ah = CreateHuman ;
1200: LD_ADDR_LOC 1
1204: PUSH
1205: CALL_OW 37
1209: ST_TO_ADDR
// pom = pom ^ ah ;
1210: LD_ADDR_VAR 0 2
1214: PUSH
1215: LD_VAR 0 2
1219: PUSH
1220: LD_LOC 1
1224: ADD
1225: ST_TO_ADDR
// end ; CREATE_ATTACK1_LIST = pom ;
1226: LD_ADDR_EXP 4
1230: PUSH
1231: LD_VAR 0 2
1235: ST_TO_ADDR
// end ;
1236: LD_VAR 0 1
1240: RET
// export function create_attack3 ; var pom ; begin
1241: LD_INT 0
1243: PPUSH
1244: PPUSH
// pom = [ ] ;
1245: LD_ADDR_VAR 0 2
1249: PUSH
1250: EMPTY
1251: ST_TO_ADDR
// uc_side := Amici ;
1252: LD_ADDR_OWVAR 10
1256: PUSH
1257: LD_EXP 3
1261: ST_TO_ADDR
// uc_nation := nation_american ;
1262: LD_ADDR_OWVAR 11
1266: PUSH
1267: LD_INT 1
1269: ST_TO_ADDR
// uc_direction := 4 ;
1270: LD_ADDR_OWVAR 14
1274: PUSH
1275: LD_INT 4
1277: ST_TO_ADDR
// prepare_human ( sex_male , class_soldier , levely [ difficulty ] , Nathan Knight ) ;
1278: LD_INT 1
1280: PPUSH
1281: LD_INT 1
1283: PPUSH
1284: LD_EXP 22
1288: PUSH
1289: LD_OWVAR 48
1293: ARRAY
1294: PPUSH
1295: LD_STRING Nathan Knight
1297: PPUSH
1298: CALL 71 0 4
// ah = CreateHuman ;
1302: LD_ADDR_LOC 1
1306: PUSH
1307: CALL_OW 37
1311: ST_TO_ADDR
// pom = pom ^ ah ;
1312: LD_ADDR_VAR 0 2
1316: PUSH
1317: LD_VAR 0 2
1321: PUSH
1322: LD_LOC 1
1326: ADD
1327: ST_TO_ADDR
// prepare_human ( sex_male , class_soldier , levely [ difficulty ] , Darrin Vernier ) ;
1328: LD_INT 1
1330: PPUSH
1331: LD_INT 1
1333: PPUSH
1334: LD_EXP 22
1338: PUSH
1339: LD_OWVAR 48
1343: ARRAY
1344: PPUSH
1345: LD_STRING Darrin Vernier
1347: PPUSH
1348: CALL 71 0 4
// ah = CreateHuman ;
1352: LD_ADDR_LOC 1
1356: PUSH
1357: CALL_OW 37
1361: ST_TO_ADDR
// pom = pom ^ ah ;
1362: LD_ADDR_VAR 0 2
1366: PUSH
1367: LD_VAR 0 2
1371: PUSH
1372: LD_LOC 1
1376: ADD
1377: ST_TO_ADDR
// if difficulty = 3 then
1378: LD_OWVAR 48
1382: PUSH
1383: LD_INT 3
1385: EQUAL
1386: IFFALSE 1438
// begin prepare_human ( sex_male , class_soldier , levely [ difficulty ] , John Rickard ) ;
1388: LD_INT 1
1390: PPUSH
1391: LD_INT 1
1393: PPUSH
1394: LD_EXP 22
1398: PUSH
1399: LD_OWVAR 48
1403: ARRAY
1404: PPUSH
1405: LD_STRING John Rickard
1407: PPUSH
1408: CALL 71 0 4
// ah = CreateHuman ;
1412: LD_ADDR_LOC 1
1416: PUSH
1417: CALL_OW 37
1421: ST_TO_ADDR
// pom = pom ^ ah ;
1422: LD_ADDR_VAR 0 2
1426: PUSH
1427: LD_VAR 0 2
1431: PUSH
1432: LD_LOC 1
1436: ADD
1437: ST_TO_ADDR
// end ; CREATE_ATTACK3_LIST2 = pom ;
1438: LD_ADDR_EXP 7
1442: PUSH
1443: LD_VAR 0 2
1447: ST_TO_ADDR
// pom = [ ] ;
1448: LD_ADDR_VAR 0 2
1452: PUSH
1453: EMPTY
1454: ST_TO_ADDR
// prepare_human ( sex_male , class_soldier , levely [ difficulty ] , David Monagan ) ;
1455: LD_INT 1
1457: PPUSH
1458: LD_INT 1
1460: PPUSH
1461: LD_EXP 22
1465: PUSH
1466: LD_OWVAR 48
1470: ARRAY
1471: PPUSH
1472: LD_STRING David Monagan
1474: PPUSH
1475: CALL 71 0 4
// ah = CreateHuman ;
1479: LD_ADDR_LOC 1
1483: PUSH
1484: CALL_OW 37
1488: ST_TO_ADDR
// pom = pom ^ ah ;
1489: LD_ADDR_VAR 0 2
1493: PUSH
1494: LD_VAR 0 2
1498: PUSH
1499: LD_LOC 1
1503: ADD
1504: ST_TO_ADDR
// if difficulty > 1 then
1505: LD_OWVAR 48
1509: PUSH
1510: LD_INT 1
1512: GREATER
1513: IFFALSE 1565
// begin prepare_human ( sex_male , class_soldier , levely [ difficulty ] , Victor Gaddes ) ;
1515: LD_INT 1
1517: PPUSH
1518: LD_INT 1
1520: PPUSH
1521: LD_EXP 22
1525: PUSH
1526: LD_OWVAR 48
1530: ARRAY
1531: PPUSH
1532: LD_STRING Victor Gaddes
1534: PPUSH
1535: CALL 71 0 4
// ah = CreateHuman ;
1539: LD_ADDR_LOC 1
1543: PUSH
1544: CALL_OW 37
1548: ST_TO_ADDR
// pom = pom ^ ah ;
1549: LD_ADDR_VAR 0 2
1553: PUSH
1554: LD_VAR 0 2
1558: PUSH
1559: LD_LOC 1
1563: ADD
1564: ST_TO_ADDR
// end ; CREATE_ATTACK3_LIST3 = pom ;
1565: LD_ADDR_EXP 8
1569: PUSH
1570: LD_VAR 0 2
1574: ST_TO_ADDR
// pom = [ ] ;
1575: LD_ADDR_VAR 0 2
1579: PUSH
1580: EMPTY
1581: ST_TO_ADDR
// prepare_human ( sex_female , class_soldier , levely [ difficulty ] , Jane Acanta ) ;
1582: LD_INT 2
1584: PPUSH
1585: LD_INT 1
1587: PPUSH
1588: LD_EXP 22
1592: PUSH
1593: LD_OWVAR 48
1597: ARRAY
1598: PPUSH
1599: LD_STRING Jane Acanta
1601: PPUSH
1602: CALL 71 0 4
// ah = CreateHuman ;
1606: LD_ADDR_LOC 1
1610: PUSH
1611: CALL_OW 37
1615: ST_TO_ADDR
// pom = pom ^ ah ;
1616: LD_ADDR_VAR 0 2
1620: PUSH
1621: LD_VAR 0 2
1625: PUSH
1626: LD_LOC 1
1630: ADD
1631: ST_TO_ADDR
// prepare_human ( sex_female , class_mechanic , levely [ difficulty ] , Quinn Deakin ) ;
1632: LD_INT 2
1634: PPUSH
1635: LD_INT 3
1637: PPUSH
1638: LD_EXP 22
1642: PUSH
1643: LD_OWVAR 48
1647: ARRAY
1648: PPUSH
1649: LD_STRING Quinn Deakin
1651: PPUSH
1652: CALL 71 0 4
// ah = CreateHuman ;
1656: LD_ADDR_LOC 1
1660: PUSH
1661: CALL_OW 37
1665: ST_TO_ADDR
// vc_chassis := us_light_wheeled ;
1666: LD_ADDR_OWVAR 27
1670: PUSH
1671: LD_INT 1
1673: ST_TO_ADDR
// vc_control := control_manual ;
1674: LD_ADDR_OWVAR 28
1678: PUSH
1679: LD_INT 1
1681: ST_TO_ADDR
// vc_engine := engine_solar ;
1682: LD_ADDR_OWVAR 29
1686: PUSH
1687: LD_INT 2
1689: ST_TO_ADDR
// vc_weapon := us_machine_gun ;
1690: LD_ADDR_OWVAR 30
1694: PUSH
1695: LD_INT 2
1697: ST_TO_ADDR
// av = CreateVehicle ;
1698: LD_ADDR_LOC 2
1702: PUSH
1703: CALL_OW 38
1707: ST_TO_ADDR
// PlaceHumanInUnit ( ah , av ) ;
1708: LD_LOC 1
1712: PPUSH
1713: LD_LOC 2
1717: PPUSH
1718: CALL_OW 45
// pom = pom ^ av ;
1722: LD_ADDR_VAR 0 2
1726: PUSH
1727: LD_VAR 0 2
1731: PUSH
1732: LD_LOC 2
1736: ADD
1737: ST_TO_ADDR
// if difficulty > 1 then
1738: LD_OWVAR 48
1742: PUSH
1743: LD_INT 1
1745: GREATER
1746: IFFALSE 1822
// begin prepare_human ( sex_male , class_mechanic , levely [ difficulty ] , Todd Hal ) ;
1748: LD_INT 1
1750: PPUSH
1751: LD_INT 3
1753: PPUSH
1754: LD_EXP 22
1758: PUSH
1759: LD_OWVAR 48
1763: ARRAY
1764: PPUSH
1765: LD_STRING Todd Hal
1767: PPUSH
1768: CALL 71 0 4
// ah = CreateHuman ;
1772: LD_ADDR_LOC 1
1776: PUSH
1777: CALL_OW 37
1781: ST_TO_ADDR
// av = CreateVehicle ;
1782: LD_ADDR_LOC 2
1786: PUSH
1787: CALL_OW 38
1791: ST_TO_ADDR
// PlaceHumanInUnit ( ah , av ) ;
1792: LD_LOC 1
1796: PPUSH
1797: LD_LOC 2
1801: PPUSH
1802: CALL_OW 45
// pom = pom ^ av ;
1806: LD_ADDR_VAR 0 2
1810: PUSH
1811: LD_VAR 0 2
1815: PUSH
1816: LD_LOC 2
1820: ADD
1821: ST_TO_ADDR
// end ; if difficulty > 2 then
1822: LD_OWVAR 48
1826: PUSH
1827: LD_INT 2
1829: GREATER
1830: IFFALSE 1964
// begin prepare_human ( sex_male , class_soldier , levely [ difficulty ] , Pete Brian ) ;
1832: LD_INT 1
1834: PPUSH
1835: LD_INT 1
1837: PPUSH
1838: LD_EXP 22
1842: PUSH
1843: LD_OWVAR 48
1847: ARRAY
1848: PPUSH
1849: LD_STRING Pete Brian
1851: PPUSH
1852: CALL 71 0 4
// ah = CreateHuman ;
1856: LD_ADDR_LOC 1
1860: PUSH
1861: CALL_OW 37
1865: ST_TO_ADDR
// pom = pom ^ ah ;
1866: LD_ADDR_VAR 0 2
1870: PUSH
1871: LD_VAR 0 2
1875: PUSH
1876: LD_LOC 1
1880: ADD
1881: ST_TO_ADDR
// prepare_human ( sex_male , class_mechanic , levely [ difficulty ] , Pete Brian ) ;
1882: LD_INT 1
1884: PPUSH
1885: LD_INT 3
1887: PPUSH
1888: LD_EXP 22
1892: PUSH
1893: LD_OWVAR 48
1897: ARRAY
1898: PPUSH
1899: LD_STRING Pete Brian
1901: PPUSH
1902: CALL 71 0 4
// ah = CreateHuman ;
1906: LD_ADDR_LOC 1
1910: PUSH
1911: CALL_OW 37
1915: ST_TO_ADDR
// vc_weapon := us_light_gun ;
1916: LD_ADDR_OWVAR 30
1920: PUSH
1921: LD_INT 3
1923: ST_TO_ADDR
// av = CreateVehicle ;
1924: LD_ADDR_LOC 2
1928: PUSH
1929: CALL_OW 38
1933: ST_TO_ADDR
// PlaceHumanInUnit ( ah , av ) ;
1934: LD_LOC 1
1938: PPUSH
1939: LD_LOC 2
1943: PPUSH
1944: CALL_OW 45
// pom = pom ^ av ;
1948: LD_ADDR_VAR 0 2
1952: PUSH
1953: LD_VAR 0 2
1957: PUSH
1958: LD_LOC 2
1962: ADD
1963: ST_TO_ADDR
// end ; CREATE_ATTACK3_LIST1 = pom ;
1964: LD_ADDR_EXP 6
1968: PUSH
1969: LD_VAR 0 2
1973: ST_TO_ADDR
// end ;
1974: LD_VAR 0 1
1978: RET
// export function create_attack2 ; var pom ; begin
1979: LD_INT 0
1981: PPUSH
1982: PPUSH
// pom = [ ] ;
1983: LD_ADDR_VAR 0 2
1987: PUSH
1988: EMPTY
1989: ST_TO_ADDR
// uc_side := Amici ;
1990: LD_ADDR_OWVAR 10
1994: PUSH
1995: LD_EXP 3
1999: ST_TO_ADDR
// uc_nation := nation_american ;
2000: LD_ADDR_OWVAR 11
2004: PUSH
2005: LD_INT 1
2007: ST_TO_ADDR
// uc_direction := 4 ;
2008: LD_ADDR_OWVAR 14
2012: PUSH
2013: LD_INT 4
2015: ST_TO_ADDR
// prepare_human ( sex_male , class_soldier , levely [ difficulty ] , Gregory Simpson ) ;
2016: LD_INT 1
2018: PPUSH
2019: LD_INT 1
2021: PPUSH
2022: LD_EXP 22
2026: PUSH
2027: LD_OWVAR 48
2031: ARRAY
2032: PPUSH
2033: LD_STRING Gregory Simpson
2035: PPUSH
2036: CALL 71 0 4
// ah = CreateHuman ;
2040: LD_ADDR_LOC 1
2044: PUSH
2045: CALL_OW 37
2049: ST_TO_ADDR
// pom = pom ^ ah ;
2050: LD_ADDR_VAR 0 2
2054: PUSH
2055: LD_VAR 0 2
2059: PUSH
2060: LD_LOC 1
2064: ADD
2065: ST_TO_ADDR
// prepare_human ( sex_male , class_soldier , levely [ difficulty ] , Peter Black ) ;
2066: LD_INT 1
2068: PPUSH
2069: LD_INT 1
2071: PPUSH
2072: LD_EXP 22
2076: PUSH
2077: LD_OWVAR 48
2081: ARRAY
2082: PPUSH
2083: LD_STRING Peter Black
2085: PPUSH
2086: CALL 71 0 4
// ah = CreateHuman ;
2090: LD_ADDR_LOC 1
2094: PUSH
2095: CALL_OW 37
2099: ST_TO_ADDR
// pom = pom ^ ah ;
2100: LD_ADDR_VAR 0 2
2104: PUSH
2105: LD_VAR 0 2
2109: PUSH
2110: LD_LOC 1
2114: ADD
2115: ST_TO_ADDR
// prepare_human ( sex_male , class_soldier , levely [ difficulty ] , Larry Clinton ) ;
2116: LD_INT 1
2118: PPUSH
2119: LD_INT 1
2121: PPUSH
2122: LD_EXP 22
2126: PUSH
2127: LD_OWVAR 48
2131: ARRAY
2132: PPUSH
2133: LD_STRING Larry Clinton
2135: PPUSH
2136: CALL 71 0 4
// ah = CreateHuman ;
2140: LD_ADDR_LOC 1
2144: PUSH
2145: CALL_OW 37
2149: ST_TO_ADDR
// pom = pom ^ ah ;
2150: LD_ADDR_VAR 0 2
2154: PUSH
2155: LD_VAR 0 2
2159: PUSH
2160: LD_LOC 1
2164: ADD
2165: ST_TO_ADDR
// prepare_human ( sex_female , class_soldier , levely [ difficulty ] + 1 , Kitty Sandstorm ) ;
2166: LD_INT 2
2168: PPUSH
2169: LD_INT 1
2171: PPUSH
2172: LD_EXP 22
2176: PUSH
2177: LD_OWVAR 48
2181: ARRAY
2182: PUSH
2183: LD_INT 1
2185: PLUS
2186: PPUSH
2187: LD_STRING Kitty Sandstorm
2189: PPUSH
2190: CALL 71 0 4
// ah = CreateHuman ;
2194: LD_ADDR_LOC 1
2198: PUSH
2199: CALL_OW 37
2203: ST_TO_ADDR
// pom = pom ^ ah ;
2204: LD_ADDR_VAR 0 2
2208: PUSH
2209: LD_VAR 0 2
2213: PUSH
2214: LD_LOC 1
2218: ADD
2219: ST_TO_ADDR
// if difficulty > 1 then
2220: LD_OWVAR 48
2224: PUSH
2225: LD_INT 1
2227: GREATER
2228: IFFALSE 2280
// begin prepare_human ( sex_male , class_soldier , levely [ difficulty ] , Bob Rose ) ;
2230: LD_INT 1
2232: PPUSH
2233: LD_INT 1
2235: PPUSH
2236: LD_EXP 22
2240: PUSH
2241: LD_OWVAR 48
2245: ARRAY
2246: PPUSH
2247: LD_STRING Bob Rose
2249: PPUSH
2250: CALL 71 0 4
// ah = CreateHuman ;
2254: LD_ADDR_LOC 1
2258: PUSH
2259: CALL_OW 37
2263: ST_TO_ADDR
// pom = pom ^ ah ;
2264: LD_ADDR_VAR 0 2
2268: PUSH
2269: LD_VAR 0 2
2273: PUSH
2274: LD_LOC 1
2278: ADD
2279: ST_TO_ADDR
// end ; if difficulty > 2 then
2280: LD_OWVAR 48
2284: PUSH
2285: LD_INT 2
2287: GREATER
2288: IFFALSE 2390
// begin prepare_human ( sex_male , class_soldier , levely [ difficulty ] , Bob Rose ) ;
2290: LD_INT 1
2292: PPUSH
2293: LD_INT 1
2295: PPUSH
2296: LD_EXP 22
2300: PUSH
2301: LD_OWVAR 48
2305: ARRAY
2306: PPUSH
2307: LD_STRING Bob Rose
2309: PPUSH
2310: CALL 71 0 4
// ah = CreateHuman ;
2314: LD_ADDR_LOC 1
2318: PUSH
2319: CALL_OW 37
2323: ST_TO_ADDR
// pom = pom ^ ah ;
2324: LD_ADDR_VAR 0 2
2328: PUSH
2329: LD_VAR 0 2
2333: PUSH
2334: LD_LOC 1
2338: ADD
2339: ST_TO_ADDR
// prepare_human ( sex_male , class_soldier , levely [ difficulty ] , Bob Rose ) ;
2340: LD_INT 1
2342: PPUSH
2343: LD_INT 1
2345: PPUSH
2346: LD_EXP 22
2350: PUSH
2351: LD_OWVAR 48
2355: ARRAY
2356: PPUSH
2357: LD_STRING Bob Rose
2359: PPUSH
2360: CALL 71 0 4
// ah = CreateHuman ;
2364: LD_ADDR_LOC 1
2368: PUSH
2369: CALL_OW 37
2373: ST_TO_ADDR
// pom = pom ^ ah ;
2374: LD_ADDR_VAR 0 2
2378: PUSH
2379: LD_VAR 0 2
2383: PUSH
2384: LD_LOC 1
2388: ADD
2389: ST_TO_ADDR
// end ; end ; end_of_file
2390: LD_VAR 0 1
2394: RET
// export Avi ; export Heike ; export Oswald ; export Ralph ; export Sonya ; export far ; export Zakladna_dobyta ; every 0 0$9 trigger Zakladna_dobyta do
2395: LD_EXP 15
2399: IFFALSE 2554
2401: GO 2403
2403: DISABLE
// begin wait ( 2 2$0 ) ;
2404: LD_INT 4200
2406: PPUSH
2407: CALL_OW 54
// SetSide ( fauto , You2 ) ;
2411: LD_EXP 17
2415: PPUSH
2416: LD_EXP 2
2420: PPUSH
2421: CALL_OW 175
// SetSide ( far , You2 ) ;
2425: LD_EXP 14
2429: PPUSH
2430: LD_EXP 2
2434: PPUSH
2435: CALL_OW 175
// PlaceUnitXY ( fauto , 120 , 77 , false ) ;
2439: LD_EXP 17
2443: PPUSH
2444: LD_INT 120
2446: PPUSH
2447: LD_INT 77
2449: PPUSH
2450: LD_INT 0
2452: PPUSH
2453: CALL_OW 41
// ChangeSideFog ( You2 , You ) ;
2457: LD_EXP 2
2461: PPUSH
2462: LD_EXP 1
2466: PPUSH
2467: CALL_OW 257
// wait ( 0 0$0.1 ) ;
2471: LD_INT 4
2473: PPUSH
2474: CALL_OW 54
// ComMoveXY ( fauto , 39 , 33 ) ;
2478: LD_EXP 17
2482: PPUSH
2483: LD_INT 39
2485: PPUSH
2486: LD_INT 33
2488: PPUSH
2489: CALL_OW 81
// while not IsInArea ( fauto , Ambase ) do
2493: LD_EXP 17
2497: PPUSH
2498: LD_INT 7
2500: PPUSH
2501: CALL_OW 233
2505: NOT
2506: IFFALSE 2517
// wait ( 0 0$3 ) ;
2508: LD_INT 105
2510: PPUSH
2511: CALL_OW 54
2515: GO 2493
// ComStop ( fauto ) ;
2517: LD_EXP 17
2521: PPUSH
2522: CALL_OW 109
// AddComExitVehicle ( fauto ) ;
2526: LD_EXP 17
2530: PPUSH
2531: CALL_OW 134
// wait ( 0 0$1 ) ;
2535: LD_INT 35
2537: PPUSH
2538: CALL_OW 54
// dialog_dalsi_instrukce ;
2542: CALL 5179 0 0
// odjezd_farela ;
2546: CALL 2894 0 0
// build_2nd_base ;
2550: CALL 2555 0 0
// end ;
2554: END
// function build_2nd_base ; var engin ; var ba ; begin
2555: LD_INT 0
2557: PPUSH
2558: PPUSH
2559: PPUSH
// engin = create_engineer ;
2560: LD_ADDR_VAR 0 2
2564: PUSH
2565: CALL 613 0 0
2569: ST_TO_ADDR
// wait ( 0 0$30 ) ;
2570: LD_INT 1050
2572: PPUSH
2573: CALL_OW 54
// ComBuild ( engin , b_depot , 116 , 74 , 3 ) ;
2577: LD_VAR 0 2
2581: PPUSH
2582: LD_INT 0
2584: PPUSH
2585: LD_INT 116
2587: PPUSH
2588: LD_INT 74
2590: PPUSH
2591: LD_INT 3
2593: PPUSH
2594: CALL_OW 113
// wait ( 0 0$2 ) ;
2598: LD_INT 70
2600: PPUSH
2601: CALL_OW 54
// while not IsIdle ( engin ) do
2605: LD_VAR 0 2
2609: PPUSH
2610: CALL_OW 241
2614: NOT
2615: IFFALSE 2626
// wait ( 0 0$7 ) ;
2617: LD_INT 245
2619: PPUSH
2620: CALL_OW 54
2624: GO 2605
// ba = FilterAllUnits ( [ [ f_side , You2 ] , [ f_btype , b_depot ] ] ) ;
2626: LD_ADDR_VAR 0 3
2630: PUSH
2631: LD_INT 22
2633: PUSH
2634: LD_EXP 2
2638: PUSH
2639: EMPTY
2640: LIST
2641: LIST
2642: PUSH
2643: LD_INT 30
2645: PUSH
2646: LD_INT 0
2648: PUSH
2649: EMPTY
2650: LIST
2651: LIST
2652: PUSH
2653: EMPTY
2654: LIST
2655: LIST
2656: PPUSH
2657: CALL_OW 55
2661: ST_TO_ADDR
// while ba = 0 do
2662: LD_VAR 0 3
2666: PUSH
2667: LD_INT 0
2669: EQUAL
2670: IFFALSE 2717
// begin wait ( 0 0$20 ) ;
2672: LD_INT 700
2674: PPUSH
2675: CALL_OW 54
// ba = FilterAllUnits ( [ [ f_side , You2 ] , [ f_btype , b_depot ] ] ) ;
2679: LD_ADDR_VAR 0 3
2683: PUSH
2684: LD_INT 22
2686: PUSH
2687: LD_EXP 2
2691: PUSH
2692: EMPTY
2693: LIST
2694: LIST
2695: PUSH
2696: LD_INT 30
2698: PUSH
2699: LD_INT 0
2701: PUSH
2702: EMPTY
2703: LIST
2704: LIST
2705: PUSH
2706: EMPTY
2707: LIST
2708: LIST
2709: PPUSH
2710: CALL_OW 55
2714: ST_TO_ADDR
// end ;
2715: GO 2662
// ba = GetBase ( ba [ 1 ] ) ;
2717: LD_ADDR_VAR 0 3
2721: PUSH
2722: LD_VAR 0 3
2726: PUSH
2727: LD_INT 1
2729: ARRAY
2730: PPUSH
2731: CALL_OW 207
2735: ST_TO_ADDR
// SetResourceType ( ba , mat_cans , 20 ) ;
2736: LD_VAR 0 3
2740: PPUSH
2741: LD_INT 1
2743: PPUSH
2744: LD_INT 20
2746: PPUSH
2747: CALL_OW 210
// ComBuild ( engin , b_breastwork , 104 , 73 , 2 ) ;
2751: LD_VAR 0 2
2755: PPUSH
2756: LD_INT 31
2758: PPUSH
2759: LD_INT 104
2761: PPUSH
2762: LD_INT 73
2764: PPUSH
2765: LD_INT 2
2767: PPUSH
2768: CALL_OW 113
// AddComBuild ( engin , b_breastwork , 111 , 67 , 2 ) ;
2772: LD_VAR 0 2
2776: PPUSH
2777: LD_INT 31
2779: PPUSH
2780: LD_INT 111
2782: PPUSH
2783: LD_INT 67
2785: PPUSH
2786: LD_INT 2
2788: PPUSH
2789: CALL_OW 158
// while FilterAllUnits ( [ [ f_side , You2 ] , [ f_btype , b_breastwork ] ] ) < 2 do
2793: LD_INT 22
2795: PUSH
2796: LD_EXP 2
2800: PUSH
2801: EMPTY
2802: LIST
2803: LIST
2804: PUSH
2805: LD_INT 30
2807: PUSH
2808: LD_INT 31
2810: PUSH
2811: EMPTY
2812: LIST
2813: LIST
2814: PUSH
2815: EMPTY
2816: LIST
2817: LIST
2818: PPUSH
2819: CALL_OW 55
2823: PUSH
2824: LD_INT 2
2826: LESS
2827: IFFALSE 2838
// wait ( 0 0$11 ) ;
2829: LD_INT 385
2831: PPUSH
2832: CALL_OW 54
2836: GO 2793
// AddComMoveXY ( engin , 130 , 74 ) ;
2838: LD_VAR 0 2
2842: PPUSH
2843: LD_INT 130
2845: PPUSH
2846: LD_INT 74
2848: PPUSH
2849: CALL_OW 126
// while not IsAt ( engin , 130 , 74 ) do
2853: LD_VAR 0 2
2857: PPUSH
2858: LD_INT 130
2860: PPUSH
2861: LD_INT 74
2863: PPUSH
2864: CALL_OW 232
2868: NOT
2869: IFFALSE 2880
// wait ( 0 0$5 ) ;
2871: LD_INT 175
2873: PPUSH
2874: CALL_OW 54
2878: GO 2853
// RemoveUnit ( engin ) ;
2880: LD_VAR 0 2
2884: PPUSH
2885: CALL_OW 51
// end ;
2889: LD_VAR 0 1
2893: RET
// function odjezd_farela ; begin
2894: LD_INT 0
2896: PPUSH
// ComEnterUnit ( far , fauto ) ;
2897: LD_EXP 14
2901: PPUSH
2902: LD_EXP 17
2906: PPUSH
2907: CALL_OW 88
// while IsDrivenBy ( fauto ) <> far do
2911: LD_EXP 17
2915: PPUSH
2916: CALL_OW 236
2920: PUSH
2921: LD_EXP 14
2925: NONEQUAL
2926: IFFALSE 2937
// wait ( 0 0$3 ) ;
2928: LD_INT 105
2930: PPUSH
2931: CALL_OW 54
2935: GO 2911
// ComAgressiveMove ( fauto , 104 , 10 ) ;
2937: LD_EXP 17
2941: PPUSH
2942: LD_INT 104
2944: PPUSH
2945: LD_INT 10
2947: PPUSH
2948: CALL_OW 83
// while not IsInArea ( fauto , Enter ) do
2952: LD_EXP 17
2956: PPUSH
2957: LD_INT 1
2959: PPUSH
2960: CALL_OW 233
2964: NOT
2965: IFFALSE 2976
// wait ( 0 0$7 ) ;
2967: LD_INT 245
2969: PPUSH
2970: CALL_OW 54
2974: GO 2952
// RemoveUnit ( fauto ) ;
2976: LD_EXP 17
2980: PPUSH
2981: CALL_OW 51
// end ; end_of_file
2985: LD_VAR 0 1
2989: RET
// export Ar_enter ; export fauto ; every 0 0$1 do
2990: GO 2992
2992: DISABLE
// begin ComMoveXY ( fauto , 90 , 36 ) ;
2993: LD_EXP 17
2997: PPUSH
2998: LD_INT 90
3000: PPUSH
3001: LD_INT 36
3003: PPUSH
3004: CALL_OW 81
// ComMoveXY ( Ar_enter , 90 , 37 ) ;
3008: LD_EXP 16
3012: PPUSH
3013: LD_INT 90
3015: PPUSH
3016: LD_INT 37
3018: PPUSH
3019: CALL_OW 81
// end ;
3023: END
// every 0 0$1 trigger IsAt ( fauto , 90 , 36 ) do
3024: LD_EXP 17
3028: PPUSH
3029: LD_INT 90
3031: PPUSH
3032: LD_INT 36
3034: PPUSH
3035: CALL_OW 232
3039: IFFALSE 3078
3041: GO 3043
3043: DISABLE
// begin CenterOnUnits ( fauto ) ;
3044: LD_EXP 17
3048: PPUSH
3049: CALL_OW 68
// wait ( 0 0$2 ) ;
3053: LD_INT 70
3055: PPUSH
3056: CALL_OW 54
// ComStop ( fauto ) ;
3060: LD_EXP 17
3064: PPUSH
3065: CALL_OW 109
// AddComExitVehicle ( fauto ) ;
3069: LD_EXP 17
3073: PPUSH
3074: CALL_OW 134
// end ;
3078: END
// every 0 0$17 trigger EOINTRO do
3079: LD_EXP 18
3083: IFFALSE 3124
3085: GO 3087
3087: DISABLE
// begin wait ( 0 0$30 ) ;
3088: LD_INT 1050
3090: PPUSH
3091: CALL_OW 54
// CreateCratesAnywhere ( Rand ( 1 , 5 ) , true ) ;
3095: LD_INT 1
3097: PPUSH
3098: LD_INT 5
3100: PPUSH
3101: CALL_OW 9
3105: PPUSH
3106: LD_INT 1
3108: PPUSH
3109: CALL_OW 50
// wait ( 0 0$2 ) ;
3113: LD_INT 70
3115: PPUSH
3116: CALL_OW 54
// kecy_crates1 ;
3120: CALL 5573 0 0
// end ;
3124: END
// every 0 0$23 trigger AttacksNo > 0 do
3125: LD_EXP 28
3129: PUSH
3130: LD_INT 0
3132: GREATER
3133: IFFALSE 3190
3135: GO 3137
3137: DISABLE
// begin CreateCratesXYR ( Rand ( 1 , 5 ) , GetX ( Heike ) , GetY ( Heike ) , 5 , true ) ;
3138: LD_INT 1
3140: PPUSH
3141: LD_INT 5
3143: PPUSH
3144: CALL_OW 9
3148: PPUSH
3149: LD_EXP 10
3153: PPUSH
3154: CALL_OW 186
3158: PPUSH
3159: LD_EXP 10
3163: PPUSH
3164: CALL_OW 187
3168: PPUSH
3169: LD_INT 5
3171: PPUSH
3172: LD_INT 1
3174: PPUSH
3175: CALL_OW 49
// wait ( 0 0$2 ) ;
3179: LD_INT 70
3181: PPUSH
3182: CALL_OW 54
// hlaska_konzervy2 ;
3186: CALL 5721 0 0
// end ; end_of_file
3190: END
// var ochocenych_opoci ; var auto_vyrobeno ; export EOINTRO ; export utoky_begin ; every 0 0$0.1 do var i ;
3191: GO 3193
3193: DISABLE
3194: LD_INT 0
3196: PPUSH
// begin ochocenych_opoci = 0 ;
3197: LD_ADDR_LOC 3
3201: PUSH
3202: LD_INT 0
3204: ST_TO_ADDR
// auto_vyrobeno = false ;
3205: LD_ADDR_LOC 4
3209: PUSH
3210: LD_INT 0
3212: ST_TO_ADDR
// EOINTRO = false ;
3213: LD_ADDR_EXP 18
3217: PUSH
3218: LD_INT 0
3220: ST_TO_ADDR
// utoky_begin = false ;
3221: LD_ADDR_EXP 19
3225: PUSH
3226: LD_INT 0
3228: ST_TO_ADDR
// for i := 1 to 2 do
3229: LD_ADDR_VAR 0 1
3233: PUSH
3234: DOUBLE
3235: LD_INT 1
3237: DEC
3238: ST_TO_ADDR
3239: LD_INT 2
3241: PUSH
3242: FOR_TO
3243: IFFALSE 3252
// disable ( i ) ;
3245: LD_VAR 0 1
3249: DISABLE_MARKED
3250: GO 3242
3252: POP
3253: POP
// end ;
3254: PPOPN 1
3256: END
// every 0 0$1 trigger FilterUnitsInArea ( MEETA , [ [ f_side , You ] , [ f_class , class_soldier ] ] ) > 2 do
3257: LD_INT 2
3259: PPUSH
3260: LD_INT 22
3262: PUSH
3263: LD_EXP 1
3267: PUSH
3268: EMPTY
3269: LIST
3270: LIST
3271: PUSH
3272: LD_INT 25
3274: PUSH
3275: LD_INT 1
3277: PUSH
3278: EMPTY
3279: LIST
3280: LIST
3281: PUSH
3282: EMPTY
3283: LIST
3284: LIST
3285: PPUSH
3286: CALL_OW 56
3290: PUSH
3291: LD_INT 2
3293: GREATER
3294: IFFALSE 3652
3296: GO 3298
3298: DISABLE
// begin ComHold ( Koval ) ;
3299: LD_INT 21
3301: PPUSH
3302: CALL_OW 108
// ComHold ( far ) ;
3306: LD_EXP 14
3310: PPUSH
3311: CALL_OW 108
// ComHold ( Ar_enter ) ;
3315: LD_EXP 16
3319: PPUSH
3320: CALL_OW 108
// AddComTurnUnit ( far , Koval ) ;
3324: LD_EXP 14
3328: PPUSH
3329: LD_INT 21
3331: PPUSH
3332: CALL_OW 132
// AddComTurnUnit ( Koval , far ) ;
3336: LD_INT 21
3338: PPUSH
3339: LD_EXP 14
3343: PPUSH
3344: CALL_OW 132
// Say ( far , DJoin-Far-1 ) ;
3348: LD_EXP 14
3352: PPUSH
3353: LD_STRING DJoin-Far-1
3355: PPUSH
3356: CALL_OW 71
// Say ( Koval , DJoin-Kow-1 ) ;
3360: LD_INT 21
3362: PPUSH
3363: LD_STRING DJoin-Kow-1
3365: PPUSH
3366: CALL_OW 71
// ComTurnUnit ( Heike , Koval ) ;
3370: LD_EXP 10
3374: PPUSH
3375: LD_INT 21
3377: PPUSH
3378: CALL_OW 87
// Say ( Heike , DJoin-H-1 ) ;
3382: LD_EXP 10
3386: PPUSH
3387: LD_STRING DJoin-H-1
3389: PPUSH
3390: CALL_OW 71
// Say ( Koval , DJoin-Kow-2 ) ;
3394: LD_INT 21
3396: PPUSH
3397: LD_STRING DJoin-Kow-2
3399: PPUSH
3400: CALL_OW 71
// Say ( Heike , DJoin-H-2 ) ;
3404: LD_EXP 10
3408: PPUSH
3409: LD_STRING DJoin-H-2
3411: PPUSH
3412: CALL_OW 71
// Say ( Koval , DJoin-Kow-3 ) ;
3416: LD_INT 21
3418: PPUSH
3419: LD_STRING DJoin-Kow-3
3421: PPUSH
3422: CALL_OW 71
// Say ( Heike , DJoin-H-3 ) ;
3426: LD_EXP 10
3430: PPUSH
3431: LD_STRING DJoin-H-3
3433: PPUSH
3434: CALL_OW 71
// Say ( Koval , DJoin-Kow-4 ) ;
3438: LD_INT 21
3440: PPUSH
3441: LD_STRING DJoin-Kow-4
3443: PPUSH
3444: CALL_OW 71
// Say ( Heike , DJoin-H-4 ) ;
3448: LD_EXP 10
3452: PPUSH
3453: LD_STRING DJoin-H-4
3455: PPUSH
3456: CALL_OW 71
// Say ( Koval , DJoin-Kow-5 ) ;
3460: LD_INT 21
3462: PPUSH
3463: LD_STRING DJoin-Kow-5
3465: PPUSH
3466: CALL_OW 71
// Say ( Oswald , DJoin-Osw-5 ) ;
3470: LD_EXP 11
3474: PPUSH
3475: LD_STRING DJoin-Osw-5
3477: PPUSH
3478: CALL_OW 71
// ComTurnUnit ( Heike , Avi ) ;
3482: LD_EXP 10
3486: PPUSH
3487: LD_EXP 9
3491: PPUSH
3492: CALL_OW 87
// Say ( Heike , DJoin-H-5 ) ;
3496: LD_EXP 10
3500: PPUSH
3501: LD_STRING DJoin-H-5
3503: PPUSH
3504: CALL_OW 71
// ComTurnUnit ( Avi , Heike ) ;
3508: LD_EXP 9
3512: PPUSH
3513: LD_EXP 10
3517: PPUSH
3518: CALL_OW 87
// Say ( Avi , DJoin-Avi-5 ) ;
3522: LD_EXP 9
3526: PPUSH
3527: LD_STRING DJoin-Avi-5
3529: PPUSH
3530: CALL_OW 71
// if IsOK ( Ralph ) then
3534: LD_EXP 12
3538: PPUSH
3539: CALL_OW 227
3543: IFFALSE 3557
// Say ( Ralph , DJoin-Ralph-5 ) ;
3545: LD_EXP 12
3549: PPUSH
3550: LD_STRING DJoin-Ralph-5
3552: PPUSH
3553: CALL_OW 71
// Say ( Heike , DJoin-H-6 ) ;
3557: LD_EXP 10
3561: PPUSH
3562: LD_STRING DJoin-H-6
3564: PPUSH
3565: CALL_OW 71
// ComEnterUnit ( far , fauto ) ;
3569: LD_EXP 14
3573: PPUSH
3574: LD_EXP 17
3578: PPUSH
3579: CALL_OW 88
// wait ( 0 0$2 ) ;
3583: LD_INT 70
3585: PPUSH
3586: CALL_OW 54
// SetSide ( far , You2 ) ;
3590: LD_EXP 14
3594: PPUSH
3595: LD_EXP 2
3599: PPUSH
3600: CALL_OW 175
// SetSide ( fauto , You2 ) ;
3604: LD_EXP 17
3608: PPUSH
3609: LD_EXP 2
3613: PPUSH
3614: CALL_OW 175
// ComMoveXY ( fauto , 125 , 73 ) ;
3618: LD_EXP 17
3622: PPUSH
3623: LD_INT 125
3625: PPUSH
3626: LD_INT 73
3628: PPUSH
3629: CALL_OW 81
// InGameOff ;
3633: CALL_OW 6
// ChangeMissionObjectives ( MCapture ) ;
3637: LD_STRING MCapture
3639: PPUSH
3640: CALL_OW 252
// EOINTRO = true ;
3644: LD_ADDR_EXP 18
3648: PUSH
3649: LD_INT 1
3651: ST_TO_ADDR
// end ;
3652: END
// every 0 0$1 trigger IsInArea ( fauto , Exfar ) do
3653: LD_EXP 17
3657: PPUSH
3658: LD_INT 10
3660: PPUSH
3661: CALL_OW 233
3665: IFFALSE 3679
3667: GO 3669
3669: DISABLE
// begin RemoveUnit ( fauto ) ;
3670: LD_EXP 17
3674: PPUSH
3675: CALL_OW 51
// end ;
3679: END
// every 0 0$1 do var pom , pom1 ;
3680: GO 3682
3682: DISABLE
3683: LD_INT 0
3685: PPUSH
3686: PPUSH
// begin pom = FilterUnitsInArea ( kopec , [ [ f_side , You ] ] ) ;
3687: LD_ADDR_VAR 0 1
3691: PUSH
3692: LD_INT 3
3694: PPUSH
3695: LD_INT 22
3697: PUSH
3698: LD_EXP 1
3702: PUSH
3703: EMPTY
3704: LIST
3705: LIST
3706: PUSH
3707: EMPTY
3708: LIST
3709: PPUSH
3710: CALL_OW 56
3714: ST_TO_ADDR
// if pom > 0 then
3715: LD_VAR 0 1
3719: PUSH
3720: LD_INT 0
3722: GREATER
3723: IFFALSE 3737
// Say ( Heike , DCrawl-H-1 ) ;
3725: LD_EXP 10
3729: PPUSH
3730: LD_STRING DCrawl-H-1
3732: PPUSH
3733: CALL_OW 71
// end ;
3737: PPOPN 2
3739: END
// every 0 0$1 trigger FilterUnitsInArea ( kraj_kop , [ [ f_side , You ] ] ) > 0 do var pom , pom1 ;
3740: LD_INT 4
3742: PPUSH
3743: LD_INT 22
3745: PUSH
3746: LD_EXP 1
3750: PUSH
3751: EMPTY
3752: LIST
3753: LIST
3754: PUSH
3755: EMPTY
3756: LIST
3757: PPUSH
3758: CALL_OW 56
3762: PUSH
3763: LD_INT 0
3765: GREATER
3766: IFFALSE 4021
3768: GO 3770
3770: DISABLE
3771: LD_INT 0
3773: PPUSH
3774: PPUSH
// begin if IsInArea ( Heike , kopec ) then
3775: LD_EXP 10
3779: PPUSH
3780: LD_INT 3
3782: PPUSH
3783: CALL_OW 233
3787: IFFALSE 3838
// begin Say ( Heike , DRock-H-1 ) ;
3789: LD_EXP 10
3793: PPUSH
3794: LD_STRING DRock-H-1
3796: PPUSH
3797: CALL_OW 71
// if IsOK ( Oswald ) then
3801: LD_EXP 11
3805: PPUSH
3806: CALL_OW 227
3810: IFFALSE 3824
// Say ( Oswald , DRock-Osw-1 ) ;
3812: LD_EXP 11
3816: PPUSH
3817: LD_STRING DRock-Osw-1
3819: PPUSH
3820: CALL_OW 71
// Say ( Heike , DRock-H-2a ) ;
3824: LD_EXP 10
3828: PPUSH
3829: LD_STRING DRock-H-2a
3831: PPUSH
3832: CALL_OW 71
// end else
3836: GO 3903
// if IsOK ( Oswald ) then
3838: LD_EXP 11
3842: PPUSH
3843: CALL_OW 227
3847: IFFALSE 3891
// if IsInArea ( Oswald , kopec ) then
3849: LD_EXP 11
3853: PPUSH
3854: LD_INT 3
3856: PPUSH
3857: CALL_OW 233
3861: IFFALSE 3877
// Say ( Oswald , DRock-Osw-1a ) else
3863: LD_EXP 11
3867: PPUSH
3868: LD_STRING DRock-Osw-1a
3870: PPUSH
3871: CALL_OW 71
3875: GO 3889
// Say ( Oswald , DRock-Osw-1b ) else
3877: LD_EXP 11
3881: PPUSH
3882: LD_STRING DRock-Osw-1b
3884: PPUSH
3885: CALL_OW 71
3889: GO 3903
// Say ( Heike , DRock-H-2 ) ;
3891: LD_EXP 10
3895: PPUSH
3896: LD_STRING DRock-H-2
3898: PPUSH
3899: CALL_OW 71
// if IsOK ( Oswald ) then
3903: LD_EXP 11
3907: PPUSH
3908: CALL_OW 227
3912: IFFALSE 3928
// Say ( Oswald , DRock-Osw-2 ) else
3914: LD_EXP 11
3918: PPUSH
3919: LD_STRING DRock-Osw-2
3921: PPUSH
3922: CALL_OW 71
3926: GO 3972
// begin pom = GetPeople ( sex_male , class_soldier , [ ] ) ;
3928: LD_ADDR_VAR 0 1
3932: PUSH
3933: LD_INT 1
3935: PPUSH
3936: LD_INT 1
3938: PPUSH
3939: EMPTY
3940: PPUSH
3941: CALL 6098 0 3
3945: ST_TO_ADDR
// if pom > 0 then
3946: LD_VAR 0 1
3950: PUSH
3951: LD_INT 0
3953: GREATER
3954: IFFALSE 3972
// Say ( pom [ 1 ] , DRock-S1-2 ) ;
3956: LD_VAR 0 1
3960: PUSH
3961: LD_INT 1
3963: ARRAY
3964: PPUSH
3965: LD_STRING DRock-S1-2
3967: PPUSH
3968: CALL_OW 71
// end ; Say ( Heike , DRock-H-3 ) ;
3972: LD_EXP 10
3976: PPUSH
3977: LD_STRING DRock-H-3
3979: PPUSH
3980: CALL_OW 71
// if UTEKLI_VEDCI then
3984: LD_EXP 20
3988: IFFALSE 4014
// begin Say ( Avi , DRock-Avi-3 ) ;
3990: LD_EXP 9
3994: PPUSH
3995: LD_STRING DRock-Avi-3
3997: PPUSH
3998: CALL_OW 71
// Say ( Heike , DRock-H-4 ) ;
4002: LD_EXP 10
4006: PPUSH
4007: LD_STRING DRock-H-4
4009: PPUSH
4010: CALL_OW 71
// end ; ChangeMissionObjectives ( MRockOut ) ;
4014: LD_STRING MRockOut
4016: PPUSH
4017: CALL_OW 252
// end ;
4021: PPOPN 2
4023: END
// every 0 0$1 trigger GetAttitude ( You , Amici ) = att_enemy do var pom , i , pom1 ;
4024: LD_EXP 1
4028: PPUSH
4029: LD_EXP 3
4033: PPUSH
4034: CALL_OW 66
4038: PUSH
4039: LD_INT 2
4041: EQUAL
4042: IFFALSE 4275
4044: GO 4046
4046: DISABLE
4047: LD_INT 0
4049: PPUSH
4050: PPUSH
4051: PPUSH
// begin DialogueOn ;
4052: CALL_OW 3
// pom = FilterAllUnits ( [ [ f_side , Amici ] , [ f_type , unit_human ] ] ) ;
4056: LD_ADDR_VAR 0 1
4060: PUSH
4061: LD_INT 22
4063: PUSH
4064: LD_EXP 3
4068: PUSH
4069: EMPTY
4070: LIST
4071: LIST
4072: PUSH
4073: LD_INT 21
4075: PUSH
4076: LD_INT 1
4078: PUSH
4079: EMPTY
4080: LIST
4081: LIST
4082: PUSH
4083: EMPTY
4084: LIST
4085: LIST
4086: PPUSH
4087: CALL_OW 55
4091: ST_TO_ADDR
// pom1 = [ ] ;
4092: LD_ADDR_VAR 0 3
4096: PUSH
4097: EMPTY
4098: ST_TO_ADDR
// for i in pom do
4099: LD_ADDR_VAR 0 2
4103: PUSH
4104: LD_VAR 0 1
4108: PUSH
4109: FOR_IN
4110: IFFALSE 4146
// if See ( You , i ) then
4112: LD_EXP 1
4116: PPUSH
4117: LD_VAR 0 2
4121: PPUSH
4122: CALL_OW 218
4126: IFFALSE 4144
// pom1 = pom1 ^ i ;
4128: LD_ADDR_VAR 0 3
4132: PUSH
4133: LD_VAR 0 3
4137: PUSH
4138: LD_VAR 0 2
4142: ADD
4143: ST_TO_ADDR
4144: GO 4109
4146: POP
4147: POP
// if pom1 > 0 then
4148: LD_VAR 0 3
4152: PUSH
4153: LD_INT 0
4155: GREATER
4156: IFFALSE 4176
// Say ( pom1 [ 1 ] , DAttack-Am1-1 ) else
4158: LD_VAR 0 3
4162: PUSH
4163: LD_INT 1
4165: ARRAY
4166: PPUSH
4167: LD_STRING DAttack-Am1-1
4169: PPUSH
4170: CALL_OW 71
4174: GO 4192
// Say ( pom [ 1 ] , DAttack-Am1-1 ) ;
4176: LD_VAR 0 1
4180: PUSH
4181: LD_INT 1
4183: ARRAY
4184: PPUSH
4185: LD_STRING DAttack-Am1-1
4187: PPUSH
4188: CALL_OW 71
// Say ( Heike , DAttack-H-1 ) ;
4192: LD_EXP 10
4196: PPUSH
4197: LD_STRING DAttack-H-1
4199: PPUSH
4200: CALL_OW 71
// if pom1 > 0 then
4204: LD_VAR 0 3
4208: PUSH
4209: LD_INT 0
4211: GREATER
4212: IFFALSE 4232
// Say ( pom1 [ 1 ] , DAttack-Am1-2 ) else
4214: LD_VAR 0 3
4218: PUSH
4219: LD_INT 1
4221: ARRAY
4222: PPUSH
4223: LD_STRING DAttack-Am1-2
4225: PPUSH
4226: CALL_OW 71
4230: GO 4248
// Say ( pom [ 1 ] , DAttack-Am1-2 ) ;
4232: LD_VAR 0 1
4236: PUSH
4237: LD_INT 1
4239: ARRAY
4240: PPUSH
4241: LD_STRING DAttack-Am1-2
4243: PPUSH
4244: CALL_OW 71
// Say ( Heike , DAttack-H-2 ) ;
4248: LD_EXP 10
4252: PPUSH
4253: LD_STRING DAttack-H-2
4255: PPUSH
4256: CALL_OW 71
// DialogueOff ;
4260: CALL_OW 4
// ChangeMissionObjectives ( MRockDel ) ;
4264: LD_STRING MRockDel
4266: PPUSH
4267: CALL_OW 252
// uprav_utok_amici ;
4271: CALL 6721 0 0
// end ;
4275: PPOPN 3
4277: END
// export function escape_dialog ; begin
4278: LD_INT 0
4280: PPUSH
// Say ( Heike , DEsc-H-1 ) ;
4281: LD_EXP 10
4285: PPUSH
4286: LD_STRING DEsc-H-1
4288: PPUSH
4289: CALL_OW 71
// end ;
4293: LD_VAR 0 1
4297: RET
// every 0 0$2 trigger GetSide ( dep ) = You do var pom ;
4298: LD_INT 26
4300: PPUSH
4301: CALL_OW 191
4305: PUSH
4306: LD_EXP 1
4310: EQUAL
4311: IFFALSE 4628
4313: GO 4315
4315: DISABLE
4316: LD_INT 0
4318: PPUSH
// begin DialogueOn ;
4319: CALL_OW 3
// pom = FilterAllUnits ( [ [ f_side , You ] , [ f_class , class_engineer ] ] ) ;
4323: LD_ADDR_VAR 0 1
4327: PUSH
4328: LD_INT 22
4330: PUSH
4331: LD_EXP 1
4335: PUSH
4336: EMPTY
4337: LIST
4338: LIST
4339: PUSH
4340: LD_INT 25
4342: PUSH
4343: LD_INT 2
4345: PUSH
4346: EMPTY
4347: LIST
4348: LIST
4349: PUSH
4350: EMPTY
4351: LIST
4352: LIST
4353: PPUSH
4354: CALL_OW 55
4358: ST_TO_ADDR
// if pom = 0 then
4359: LD_VAR 0 1
4363: PUSH
4364: LD_INT 0
4366: EQUAL
4367: IFFALSE 4387
// pom = GetPeople ( sex_male , class_engineer , [ ] ) ;
4369: LD_ADDR_VAR 0 1
4373: PUSH
4374: LD_INT 1
4376: PPUSH
4377: LD_INT 2
4379: PPUSH
4380: EMPTY
4381: PPUSH
4382: CALL 6098 0 3
4386: ST_TO_ADDR
// if pom = 0 then
4387: LD_VAR 0 1
4391: PUSH
4392: LD_INT 0
4394: EQUAL
4395: IFFALSE 4421
// pom = GetPeople ( sex_female , class_engineer , [ Heike ] ) ;
4397: LD_ADDR_VAR 0 1
4401: PUSH
4402: LD_INT 2
4404: PPUSH
4405: LD_INT 2
4407: PPUSH
4408: LD_EXP 10
4412: PUSH
4413: EMPTY
4414: LIST
4415: PPUSH
4416: CALL 6098 0 3
4420: ST_TO_ADDR
// if pom > 0 then
4421: LD_VAR 0 1
4425: PUSH
4426: LD_INT 0
4428: GREATER
4429: IFFALSE 4609
// begin if GetSex ( pom [ 1 ] ) = sex_male then
4431: LD_VAR 0 1
4435: PUSH
4436: LD_INT 1
4438: ARRAY
4439: PPUSH
4440: CALL_OW 194
4444: PUSH
4445: LD_INT 1
4447: EQUAL
4448: IFFALSE 4468
// Say ( pom [ 1 ] , DCapture-Eng1-1 ) else
4450: LD_VAR 0 1
4454: PUSH
4455: LD_INT 1
4457: ARRAY
4458: PPUSH
4459: LD_STRING DCapture-Eng1-1
4461: PPUSH
4462: CALL_OW 71
4466: GO 4484
// Say ( pom [ 1 ] , DCapture-FEng1-1 ) ;
4468: LD_VAR 0 1
4472: PUSH
4473: LD_INT 1
4475: ARRAY
4476: PPUSH
4477: LD_STRING DCapture-FEng1-1
4479: PPUSH
4480: CALL_OW 71
// if UTEKLI > 0 then
4484: LD_EXP 27
4488: PUSH
4489: LD_INT 0
4491: GREATER
4492: IFFALSE 4508
// Say ( Heike , DCapture-H-1 ) else
4494: LD_EXP 10
4498: PPUSH
4499: LD_STRING DCapture-H-1
4501: PPUSH
4502: CALL_OW 71
4506: GO 4520
// Say ( Heike , DCapture-H-1a ) ;
4508: LD_EXP 10
4512: PPUSH
4513: LD_STRING DCapture-H-1a
4515: PPUSH
4516: CALL_OW 71
// Say ( Avi , DCapture-Avi-1 ) ;
4520: LD_EXP 9
4524: PPUSH
4525: LD_STRING DCapture-Avi-1
4527: PPUSH
4528: CALL_OW 71
// if GetSex ( pom [ 1 ] ) = sex_male then
4532: LD_VAR 0 1
4536: PUSH
4537: LD_INT 1
4539: ARRAY
4540: PPUSH
4541: CALL_OW 194
4545: PUSH
4546: LD_INT 1
4548: EQUAL
4549: IFFALSE 4569
// Say ( pom [ 1 ] , DCapture-Eng1-2 ) else
4551: LD_VAR 0 1
4555: PUSH
4556: LD_INT 1
4558: ARRAY
4559: PPUSH
4560: LD_STRING DCapture-Eng1-2
4562: PPUSH
4563: CALL_OW 71
4567: GO 4585
// Say ( pom [ 1 ] , DCapture-FEng1-2 ) ;
4569: LD_VAR 0 1
4573: PUSH
4574: LD_INT 1
4576: ARRAY
4577: PPUSH
4578: LD_STRING DCapture-FEng1-2
4580: PPUSH
4581: CALL_OW 71
// Say ( Avi , DCapture-Avi-2 ) ;
4585: LD_EXP 9
4589: PPUSH
4590: LD_STRING DCapture-Avi-2
4592: PPUSH
4593: CALL_OW 71
// Say ( Heike , DCapture-H-2 ) ;
4597: LD_EXP 10
4601: PPUSH
4602: LD_STRING DCapture-H-2
4604: PPUSH
4605: CALL_OW 71
// end ; DialogueOff ;
4609: CALL_OW 4
// ChangeMissionObjectives ( MKeep ) ;
4613: LD_STRING MKeep
4615: PPUSH
4616: CALL_OW 252
// Zakladna_dobyta = true ;
4620: LD_ADDR_EXP 15
4624: PUSH
4625: LD_INT 1
4627: ST_TO_ADDR
// end ;
4628: PPOPN 1
4630: END
// every 0 0$3 trigger Researched ( You , tech_ApeLang ) do
4631: LD_EXP 1
4635: PPUSH
4636: LD_INT 1
4638: PPUSH
4639: CALL_OW 249
4643: IFFALSE 4716
4645: GO 4647
4647: DISABLE
// begin DialogueOn ;
4648: CALL_OW 3
// Say ( Avi , DTame-Avi-1 ) ;
4652: LD_EXP 9
4656: PPUSH
4657: LD_STRING DTame-Avi-1
4659: PPUSH
4660: CALL_OW 71
// Say ( Heike , DTame-H-1 ) ;
4664: LD_EXP 10
4668: PPUSH
4669: LD_STRING DTame-H-1
4671: PPUSH
4672: CALL_OW 71
// Say ( Avi , DTame-Avi-2 ) ;
4676: LD_EXP 9
4680: PPUSH
4681: LD_STRING DTame-Avi-2
4683: PPUSH
4684: CALL_OW 71
// Say ( Heike , DTame-H-2 ) ;
4688: LD_EXP 10
4692: PPUSH
4693: LD_STRING DTame-H-2
4695: PPUSH
4696: CALL_OW 71
// Say ( Avi , DTame-Avi-3 ) ;
4700: LD_EXP 9
4704: PPUSH
4705: LD_STRING DTame-Avi-3
4707: PPUSH
4708: CALL_OW 71
// DialogueOff ;
4712: CALL_OW 4
// end ;
4716: END
// every 0 0$1 trigger FIlterAllUnits ( [ [ f_side , You ] , [ f_class , class_apeman ] ] ) > 0 do var pom ;
4717: LD_INT 22
4719: PUSH
4720: LD_EXP 1
4724: PUSH
4725: EMPTY
4726: LIST
4727: LIST
4728: PUSH
4729: LD_INT 25
4731: PUSH
4732: LD_INT 12
4734: PUSH
4735: EMPTY
4736: LIST
4737: LIST
4738: PUSH
4739: EMPTY
4740: LIST
4741: LIST
4742: PPUSH
4743: CALL_OW 55
4747: PUSH
4748: LD_INT 0
4750: GREATER
4751: IFFALSE 4953
4753: GO 4755
4755: DISABLE
4756: LD_INT 0
4758: PPUSH
// begin pom = FilterAllUnits ( [ [ f_side , You ] , [ f_class , class_apeman ] ] ) ;
4759: LD_ADDR_VAR 0 1
4763: PUSH
4764: LD_INT 22
4766: PUSH
4767: LD_EXP 1
4771: PUSH
4772: EMPTY
4773: LIST
4774: LIST
4775: PUSH
4776: LD_INT 25
4778: PUSH
4779: LD_INT 12
4781: PUSH
4782: EMPTY
4783: LIST
4784: LIST
4785: PUSH
4786: EMPTY
4787: LIST
4788: LIST
4789: PPUSH
4790: CALL_OW 55
4794: ST_TO_ADDR
// if pom > 0 then
4795: LD_VAR 0 1
4799: PUSH
4800: LD_INT 0
4802: GREATER
4803: IFFALSE 4942
// begin case IsTamedBy ( pom [ 1 ] ) of Avi :
4805: LD_VAR 0 1
4809: PUSH
4810: LD_INT 1
4812: ARRAY
4813: PPUSH
4814: CALL_OW 242
4818: PUSH
4819: LD_EXP 9
4823: DOUBLE
4824: EQUAL
4825: IFTRUE 4829
4827: GO 4844
4829: POP
// Say ( Avi , DTame1-Avi-1 ) ; Sonya :
4830: LD_EXP 9
4834: PPUSH
4835: LD_STRING DTame1-Avi-1
4837: PPUSH
4838: CALL_OW 71
4842: GO 4924
4844: LD_EXP 13
4848: DOUBLE
4849: EQUAL
4850: IFTRUE 4854
4852: GO 4911
4854: POP
// begin Say ( Sonya , DTame2-Son-1 ) ;
4855: LD_EXP 13
4859: PPUSH
4860: LD_STRING DTame2-Son-1
4862: PPUSH
4863: CALL_OW 71
// Say ( Avi , DTame2-Avi-1 ) ;
4867: LD_EXP 9
4871: PPUSH
4872: LD_STRING DTame2-Avi-1
4874: PPUSH
4875: CALL_OW 71
// if ochocenych_opoci = 0 then
4879: LD_LOC 3
4883: PUSH
4884: LD_INT 0
4886: EQUAL
4887: IFFALSE 4901
// Say ( Avi , DTame2-Avi-1a ) ;
4889: LD_EXP 9
4893: PPUSH
4894: LD_STRING DTame2-Avi-1a
4896: PPUSH
4897: CALL_OW 71
// ochocenych_opoci = 10 ;
4901: LD_ADDR_LOC 3
4905: PUSH
4906: LD_INT 10
4908: ST_TO_ADDR
// end ; else
4909: GO 4924
4911: POP
// Say ( Avi , DTame1-Avi-1a ) ; end ;
4912: LD_EXP 9
4916: PPUSH
4917: LD_STRING DTame1-Avi-1a
4919: PPUSH
4920: CALL_OW 71
// if ochocenych_opoci = 0 then
4924: LD_LOC 3
4928: PUSH
4929: LD_INT 0
4931: EQUAL
4932: IFFALSE 4942
// ochocenych_opoci = 1 ;
4934: LD_ADDR_LOC 3
4938: PUSH
4939: LD_INT 1
4941: ST_TO_ADDR
// end ; if ochocenych_opoci < 10 then
4942: LD_LOC 3
4946: PUSH
4947: LD_INT 10
4949: LESS
4950: IFFALSE 4953
// enable ;
4952: ENABLE
// end ;
4953: PPOPN 1
4955: END
// every 0 0$1 trigger FilterAllUnits ( [ [ f_side , You ] , [ f_class , class_apeman_soldier ] ] ) > 0 do
4956: LD_INT 22
4958: PUSH
4959: LD_EXP 1
4963: PUSH
4964: EMPTY
4965: LIST
4966: LIST
4967: PUSH
4968: LD_INT 25
4970: PUSH
4971: LD_INT 15
4973: PUSH
4974: EMPTY
4975: LIST
4976: LIST
4977: PUSH
4978: EMPTY
4979: LIST
4980: LIST
4981: PPUSH
4982: CALL_OW 55
4986: PUSH
4987: LD_INT 0
4989: GREATER
4990: IFFALSE 5038
4992: GO 4994
4994: DISABLE
// begin Say ( Heike , DApe-H-1 ) ;
4995: LD_EXP 10
4999: PPUSH
5000: LD_STRING DApe-H-1
5002: PPUSH
5003: CALL_OW 71
// Say ( Avi , DApe-Avi-1 ) ;
5007: LD_EXP 9
5011: PPUSH
5012: LD_STRING DApe-Avi-1
5014: PPUSH
5015: CALL_OW 71
// Say ( Heike , DApe-H-2 ) ;
5019: LD_EXP 10
5023: PPUSH
5024: LD_STRING DApe-H-2
5026: PPUSH
5027: CALL_OW 71
// ChangeMissionObjectives ( MOutApeman ) ;
5031: LD_STRING MOutApeman
5033: PPUSH
5034: CALL_OW 252
// end ;
5038: END
// every 0 0$6 trigger GetSide ( dep ) = You do var pom , i ; var dis ;
5039: LD_INT 26
5041: PPUSH
5042: CALL_OW 191
5046: PUSH
5047: LD_EXP 1
5051: EQUAL
5052: IFFALSE 5176
5054: GO 5056
5056: DISABLE
5057: LD_INT 0
5059: PPUSH
5060: PPUSH
5061: PPUSH
// begin dis = false ;
5062: LD_ADDR_VAR 0 3
5066: PUSH
5067: LD_INT 0
5069: ST_TO_ADDR
// pom = FilterAllUnits ( [ [ f_side , You ] , [ f_type , unit_vehicle ] ] ) ;
5070: LD_ADDR_VAR 0 1
5074: PUSH
5075: LD_INT 22
5077: PUSH
5078: LD_EXP 1
5082: PUSH
5083: EMPTY
5084: LIST
5085: LIST
5086: PUSH
5087: LD_INT 21
5089: PUSH
5090: LD_INT 2
5092: PUSH
5093: EMPTY
5094: LIST
5095: LIST
5096: PUSH
5097: EMPTY
5098: LIST
5099: LIST
5100: PPUSH
5101: CALL_OW 55
5105: ST_TO_ADDR
// for i in pom do
5106: LD_ADDR_VAR 0 2
5110: PUSH
5111: LD_VAR 0 1
5115: PUSH
5116: FOR_IN
5117: IFFALSE 5166
// if i <> auto1 then
5119: LD_VAR 0 2
5123: PUSH
5124: LD_INT 25
5126: NONEQUAL
5127: IFFALSE 5164
// begin Say ( Heike , DVeh-H-1 ) ;
5129: LD_EXP 10
5133: PPUSH
5134: LD_STRING DVeh-H-1
5136: PPUSH
5137: CALL_OW 71
// ChangeMissionObjectives ( MOutVehicle ) ;
5141: LD_STRING MOutVehicle
5143: PPUSH
5144: CALL_OW 252
// dis = true ;
5148: LD_ADDR_VAR 0 3
5152: PUSH
5153: LD_INT 1
5155: ST_TO_ADDR
// auto_vyrobeno = true ;
5156: LD_ADDR_LOC 4
5160: PUSH
5161: LD_INT 1
5163: ST_TO_ADDR
// end ;
5164: GO 5116
5166: POP
5167: POP
// if not dis then
5168: LD_VAR 0 3
5172: NOT
5173: IFFALSE 5176
// enable ;
5175: ENABLE
// end ;
5176: PPOPN 3
5178: END
// export function dialog_dalsi_instrukce ; begin
5179: LD_INT 0
5181: PPUSH
// DialogueOn ;
5182: CALL_OW 3
// ComMoveUnit ( Heike , far ) ;
5186: LD_EXP 10
5190: PPUSH
5191: LD_EXP 14
5195: PPUSH
5196: CALL_OW 82
// ComMoveUnit ( far , Heike ) ;
5200: LD_EXP 14
5204: PPUSH
5205: LD_EXP 10
5209: PPUSH
5210: CALL_OW 82
// wait ( 0 0$2 ) ;
5214: LD_INT 70
5216: PPUSH
5217: CALL_OW 54
// Say ( far , DInstr-Far-1 ) ;
5221: LD_EXP 14
5225: PPUSH
5226: LD_STRING DInstr-Far-1
5228: PPUSH
5229: CALL_OW 71
// Say ( Heike , DInstr-H-1 ) ;
5233: LD_EXP 10
5237: PPUSH
5238: LD_STRING DInstr-H-1
5240: PPUSH
5241: CALL_OW 71
// Say ( far , DInstr-Far-2 ) ;
5245: LD_EXP 14
5249: PPUSH
5250: LD_STRING DInstr-Far-2
5252: PPUSH
5253: CALL_OW 71
// DialogueOff ;
5257: CALL_OW 4
// TYKANI = Query ( QFarmer ) ;
5261: LD_ADDR_EXP 21
5265: PUSH
5266: LD_STRING QFarmer
5268: PPUSH
5269: CALL_OW 74
5273: ST_TO_ADDR
// DialogueOn ;
5274: CALL_OW 3
// if TYKANI = 1 then
5278: LD_EXP 21
5282: PUSH
5283: LD_INT 1
5285: EQUAL
5286: IFFALSE 5314
// begin Say ( Heike , DInstr1-H-1 ) ;
5288: LD_EXP 10
5292: PPUSH
5293: LD_STRING DInstr1-H-1
5295: PPUSH
5296: CALL_OW 71
// Say ( far , DInstr1-Far-1 ) ;
5300: LD_EXP 14
5304: PPUSH
5305: LD_STRING DInstr1-Far-1
5307: PPUSH
5308: CALL_OW 71
// end else
5312: GO 5338
// begin Say ( Heike , DInstr2-H-1 ) ;
5314: LD_EXP 10
5318: PPUSH
5319: LD_STRING DInstr2-H-1
5321: PPUSH
5322: CALL_OW 71
// Say ( far , DInstr2-Far-1 ) ;
5326: LD_EXP 14
5330: PPUSH
5331: LD_STRING DInstr2-Far-1
5333: PPUSH
5334: CALL_OW 71
// end ; wait ( 0 0$0.5 ) ;
5338: LD_INT 18
5340: PPUSH
5341: CALL_OW 54
// Say ( Heike , DInstr3-H-1 ) ;
5345: LD_EXP 10
5349: PPUSH
5350: LD_STRING DInstr3-H-1
5352: PPUSH
5353: CALL_OW 71
// Say ( far , DInstr3-Far-1 ) ;
5357: LD_EXP 14
5361: PPUSH
5362: LD_STRING DInstr3-Far-1
5364: PPUSH
5365: CALL_OW 71
// Say ( Heike , DInstr3-H-2 ) ;
5369: LD_EXP 10
5373: PPUSH
5374: LD_STRING DInstr3-H-2
5376: PPUSH
5377: CALL_OW 71
// Say ( far , DInstr3-Far-2 ) ;
5381: LD_EXP 14
5385: PPUSH
5386: LD_STRING DInstr3-Far-2
5388: PPUSH
5389: CALL_OW 71
// Say ( Heike , DInstr3-H-3 ) ;
5393: LD_EXP 10
5397: PPUSH
5398: LD_STRING DInstr3-H-3
5400: PPUSH
5401: CALL_OW 71
// Say ( far , DInstr3-Far-3 ) ;
5405: LD_EXP 14
5409: PPUSH
5410: LD_STRING DInstr3-Far-3
5412: PPUSH
5413: CALL_OW 71
// if auto_vyrobeno then
5417: LD_LOC 4
5421: IFFALSE 5437
// Say ( Heike , DInstr3-H-4 ) else
5423: LD_EXP 10
5427: PPUSH
5428: LD_STRING DInstr3-H-4
5430: PPUSH
5431: CALL_OW 71
5435: GO 5513
// if Researched ( You , tech_ApeLang ) or FilterAllUnits ( [ [ f_side , You ] , [ f_btype , b_depot ] ] ) > 0 then
5437: LD_EXP 1
5441: PPUSH
5442: LD_INT 1
5444: PPUSH
5445: CALL_OW 249
5449: PUSH
5450: LD_INT 22
5452: PUSH
5453: LD_EXP 1
5457: PUSH
5458: EMPTY
5459: LIST
5460: LIST
5461: PUSH
5462: LD_INT 30
5464: PUSH
5465: LD_INT 0
5467: PUSH
5468: EMPTY
5469: LIST
5470: LIST
5471: PUSH
5472: EMPTY
5473: LIST
5474: LIST
5475: PPUSH
5476: CALL_OW 55
5480: PUSH
5481: LD_INT 0
5483: GREATER
5484: OR
5485: IFFALSE 5501
// Say ( Heike , DInstr3-H-4a ) else
5487: LD_EXP 10
5491: PPUSH
5492: LD_STRING DInstr3-H-4a
5494: PPUSH
5495: CALL_OW 71
5499: GO 5513
// Say ( Heike , DInstr3-H-4b ) ;
5501: LD_EXP 10
5505: PPUSH
5506: LD_STRING DInstr3-H-4b
5508: PPUSH
5509: CALL_OW 71
// if TYKANI = 1 then
5513: LD_EXP 21
5517: PUSH
5518: LD_INT 1
5520: EQUAL
5521: IFFALSE 5537
// Say ( far , DInstr3-Far-4 ) else
5523: LD_EXP 14
5527: PPUSH
5528: LD_STRING DInstr3-Far-4
5530: PPUSH
5531: CALL_OW 71
5535: GO 5549
// Say ( far , DInstr3-Far-4a ) ;
5537: LD_EXP 14
5541: PPUSH
5542: LD_STRING DInstr3-Far-4a
5544: PPUSH
5545: CALL_OW 71
// DialogueOff ;
5549: CALL_OW 4
// ChangeMissionObjectives ( MTransport ) ;
5553: LD_STRING MTransport
5555: PPUSH
5556: CALL_OW 252
// utoky_begin = true ;
5560: LD_ADDR_EXP 19
5564: PUSH
5565: LD_INT 1
5567: ST_TO_ADDR
// end ;
5568: LD_VAR 0 1
5572: RET
// export function kecy_crates1 ; var pom ; begin
5573: LD_INT 0
5575: PPUSH
5576: PPUSH
// DialogueOn ;
5577: CALL_OW 3
// if IsOK ( Koval ) then
5581: LD_INT 21
5583: PPUSH
5584: CALL_OW 227
5588: IFFALSE 5600
// pom = Koval else
5590: LD_ADDR_VAR 0 2
5594: PUSH
5595: LD_INT 21
5597: ST_TO_ADDR
5598: GO 5618
// pom = GetPeople ( sex_male , class_soldier , [ ] ) ;
5600: LD_ADDR_VAR 0 2
5604: PUSH
5605: LD_INT 1
5607: PPUSH
5608: LD_INT 1
5610: PPUSH
5611: EMPTY
5612: PPUSH
5613: CALL 6098 0 3
5617: ST_TO_ADDR
// if pom > 0 then
5618: LD_VAR 0 2
5622: PUSH
5623: LD_INT 0
5625: GREATER
5626: IFFALSE 5712
// begin Say ( Heike , DMat1-H-1 ) ;
5628: LD_EXP 10
5632: PPUSH
5633: LD_STRING DMat1-H-1
5635: PPUSH
5636: CALL_OW 71
// Say ( pom [ 1 ] , DMat1-Kow-1 ) ;
5640: LD_VAR 0 2
5644: PUSH
5645: LD_INT 1
5647: ARRAY
5648: PPUSH
5649: LD_STRING DMat1-Kow-1
5651: PPUSH
5652: CALL_OW 71
// Say ( Heike , DMat1-H-2 ) ;
5656: LD_EXP 10
5660: PPUSH
5661: LD_STRING DMat1-H-2
5663: PPUSH
5664: CALL_OW 71
// Say ( pom [ 1 ] , DMat1-Kow-2 ) ;
5668: LD_VAR 0 2
5672: PUSH
5673: LD_INT 1
5675: ARRAY
5676: PPUSH
5677: LD_STRING DMat1-Kow-2
5679: PPUSH
5680: CALL_OW 71
// Say ( Heike , DMat1-H-3 ) ;
5684: LD_EXP 10
5688: PPUSH
5689: LD_STRING DMat1-H-3
5691: PPUSH
5692: CALL_OW 71
// Say ( pom [ 1 ] , DMat1-Kow-3 ) ;
5696: LD_VAR 0 2
5700: PUSH
5701: LD_INT 1
5703: ARRAY
5704: PPUSH
5705: LD_STRING DMat1-Kow-3
5707: PPUSH
5708: CALL_OW 71
// end ; DialogueOff ;
5712: CALL_OW 4
// end ;
5716: LD_VAR 0 1
5720: RET
// export function hlaska_konzervy2 ; begin
5721: LD_INT 0
5723: PPUSH
// Say ( Heike , DMat2-H-1 ) ;
5724: LD_EXP 10
5728: PPUSH
5729: LD_STRING DMat2-H-1
5731: PPUSH
5732: CALL_OW 71
// end ;
5736: LD_VAR 0 1
5740: RET
// every 0 0$13 trigger AttacksNo = 1 do
5741: LD_EXP 28
5745: PUSH
5746: LD_INT 1
5748: EQUAL
5749: IFFALSE 5807
5751: GO 5753
5753: DISABLE
// begin while not ( See ( Amici , bunkr1 ) or See ( Amici , dep ) ) do
5754: LD_EXP 3
5758: PPUSH
5759: LD_INT 4
5761: PPUSH
5762: CALL_OW 218
5766: PUSH
5767: LD_EXP 3
5771: PPUSH
5772: LD_INT 26
5774: PPUSH
5775: CALL_OW 218
5779: OR
5780: NOT
5781: IFFALSE 5792
// wait ( 0 0$6 ) ;
5783: LD_INT 210
5785: PPUSH
5786: CALL_OW 54
5790: GO 5754
// Say ( Heike , DAm1-H-1 ) ;
5792: LD_EXP 10
5796: PPUSH
5797: LD_STRING DAm1-H-1
5799: PPUSH
5800: CALL_OW 71
// enable ( 1 ) ;
5804: LD_INT 1
5806: ENABLE_MARKED
// end ;
5807: END
// every 0 0$4 trigger FIlterAllUnits ( [ [ f_side , Amici ] , [ f_type , unit_human ] ] ) = 0 marked 1 do
5808: LD_INT 22
5810: PUSH
5811: LD_EXP 3
5815: PUSH
5816: EMPTY
5817: LIST
5818: LIST
5819: PUSH
5820: LD_INT 21
5822: PUSH
5823: LD_INT 1
5825: PUSH
5826: EMPTY
5827: LIST
5828: LIST
5829: PUSH
5830: EMPTY
5831: LIST
5832: LIST
5833: PPUSH
5834: CALL_OW 55
5838: PUSH
5839: LD_INT 0
5841: EQUAL
5842: IFFALSE 5859
5844: GO 5846
5846: DISABLE
// begin Say ( Heike , DAm1-H-1a ) ;
5847: LD_EXP 10
5851: PPUSH
5852: LD_STRING DAm1-H-1a
5854: PPUSH
5855: CALL_OW 71
// end ;
5859: END
// every 0 0$13 trigger AttacksNo = 2 do
5860: LD_EXP 28
5864: PUSH
5865: LD_INT 2
5867: EQUAL
5868: IFFALSE 5926
5870: GO 5872
5872: DISABLE
// begin while not ( See ( Amici , bunkr1 ) or See ( Amici , dep ) ) do
5873: LD_EXP 3
5877: PPUSH
5878: LD_INT 4
5880: PPUSH
5881: CALL_OW 218
5885: PUSH
5886: LD_EXP 3
5890: PPUSH
5891: LD_INT 26
5893: PPUSH
5894: CALL_OW 218
5898: OR
5899: NOT
5900: IFFALSE 5911
// wait ( 0 0$6 ) ;
5902: LD_INT 210
5904: PPUSH
5905: CALL_OW 54
5909: GO 5873
// Say ( Heike , DAm2-H-1 ) ;
5911: LD_EXP 10
5915: PPUSH
5916: LD_STRING DAm2-H-1
5918: PPUSH
5919: CALL_OW 71
// enable ( 2 ) ;
5923: LD_INT 2
5925: ENABLE_MARKED
// end ;
5926: END
// every 0 0$4 trigger FIlterAllUnits ( [ [ f_side , Amici ] , [ f_type , unit_human ] ] ) = 0 marked 2 do
5927: LD_INT 22
5929: PUSH
5930: LD_EXP 3
5934: PUSH
5935: EMPTY
5936: LIST
5937: LIST
5938: PUSH
5939: LD_INT 21
5941: PUSH
5942: LD_INT 1
5944: PUSH
5945: EMPTY
5946: LIST
5947: LIST
5948: PUSH
5949: EMPTY
5950: LIST
5951: LIST
5952: PPUSH
5953: CALL_OW 55
5957: PUSH
5958: LD_INT 0
5960: EQUAL
5961: IFFALSE 5978
5963: GO 5965
5965: DISABLE
// begin Say ( Heike , DAm2-H-1a ) ;
5966: LD_EXP 10
5970: PPUSH
5971: LD_STRING DAm2-H-1a
5973: PPUSH
5974: CALL_OW 71
// end ;
5978: END
// every 0 0$13 trigger AttacksNo = 3 do
5979: LD_EXP 28
5983: PUSH
5984: LD_INT 3
5986: EQUAL
5987: IFFALSE 6045
5989: GO 5991
5991: DISABLE
// begin while not ( See ( Amici , bunkr1 ) or See ( Amici , dep ) ) do
5992: LD_EXP 3
5996: PPUSH
5997: LD_INT 4
5999: PPUSH
6000: CALL_OW 218
6004: PUSH
6005: LD_EXP 3
6009: PPUSH
6010: LD_INT 26
6012: PPUSH
6013: CALL_OW 218
6017: OR
6018: NOT
6019: IFFALSE 6030
// wait ( 0 0$6 ) ;
6021: LD_INT 210
6023: PPUSH
6024: CALL_OW 54
6028: GO 5992
// Say ( Heike , DAm3-H-1 ) ;
6030: LD_EXP 10
6034: PPUSH
6035: LD_STRING DAm3-H-1
6037: PPUSH
6038: CALL_OW 71
// enable ( 3 ) ;
6042: LD_INT 3
6044: ENABLE_MARKED
// end ;
6045: END
// every 0 0$4 trigger FIlterAllUnits ( [ [ f_side , Amici ] , [ f_type , unit_human ] ] ) = 0 marked 2 do
6046: LD_INT 22
6048: PUSH
6049: LD_EXP 3
6053: PUSH
6054: EMPTY
6055: LIST
6056: LIST
6057: PUSH
6058: LD_INT 21
6060: PUSH
6061: LD_INT 1
6063: PUSH
6064: EMPTY
6065: LIST
6066: LIST
6067: PUSH
6068: EMPTY
6069: LIST
6070: LIST
6071: PPUSH
6072: CALL_OW 55
6076: PUSH
6077: LD_INT 0
6079: EQUAL
6080: IFFALSE 6097
6082: GO 6084
6084: DISABLE
// begin Say ( Heike , DAm3-H-1a ) ;
6085: LD_EXP 10
6089: PPUSH
6090: LD_STRING DAm3-H-1a
6092: PPUSH
6093: CALL_OW 71
// end ;
6097: END
// function GetPeople ( sex , povolani , diffseznam ) ; var pom , pom1 , pom2 , pom3 , pom4 ; begin
6098: LD_INT 0
6100: PPUSH
6101: PPUSH
6102: PPUSH
6103: PPUSH
6104: PPUSH
6105: PPUSH
// pom1 = FilterAllUnits ( [ [ f_side , You ] , [ f_class , class_scientistic ] , [ f_sex , sex ] ] ) ;
6106: LD_ADDR_VAR 0 6
6110: PUSH
6111: LD_INT 22
6113: PUSH
6114: LD_EXP 1
6118: PUSH
6119: EMPTY
6120: LIST
6121: LIST
6122: PUSH
6123: LD_INT 25
6125: PUSH
6126: LD_INT 4
6128: PUSH
6129: EMPTY
6130: LIST
6131: LIST
6132: PUSH
6133: LD_INT 26
6135: PUSH
6136: LD_VAR 0 1
6140: PUSH
6141: EMPTY
6142: LIST
6143: LIST
6144: PUSH
6145: EMPTY
6146: LIST
6147: LIST
6148: LIST
6149: PPUSH
6150: CALL_OW 55
6154: ST_TO_ADDR
// pom2 = FilterAllUnits ( [ [ f_side , You ] , [ f_class , class_mechanic ] , [ f_sex , sex ] ] ) ;
6155: LD_ADDR_VAR 0 7
6159: PUSH
6160: LD_INT 22
6162: PUSH
6163: LD_EXP 1
6167: PUSH
6168: EMPTY
6169: LIST
6170: LIST
6171: PUSH
6172: LD_INT 25
6174: PUSH
6175: LD_INT 3
6177: PUSH
6178: EMPTY
6179: LIST
6180: LIST
6181: PUSH
6182: LD_INT 26
6184: PUSH
6185: LD_VAR 0 1
6189: PUSH
6190: EMPTY
6191: LIST
6192: LIST
6193: PUSH
6194: EMPTY
6195: LIST
6196: LIST
6197: LIST
6198: PPUSH
6199: CALL_OW 55
6203: ST_TO_ADDR
// pom3 = FilterAllUnits ( [ [ f_side , You ] , [ f_class , class_engineer ] , [ f_sex , sex ] ] ) ;
6204: LD_ADDR_VAR 0 8
6208: PUSH
6209: LD_INT 22
6211: PUSH
6212: LD_EXP 1
6216: PUSH
6217: EMPTY
6218: LIST
6219: LIST
6220: PUSH
6221: LD_INT 25
6223: PUSH
6224: LD_INT 2
6226: PUSH
6227: EMPTY
6228: LIST
6229: LIST
6230: PUSH
6231: LD_INT 26
6233: PUSH
6234: LD_VAR 0 1
6238: PUSH
6239: EMPTY
6240: LIST
6241: LIST
6242: PUSH
6243: EMPTY
6244: LIST
6245: LIST
6246: LIST
6247: PPUSH
6248: CALL_OW 55
6252: ST_TO_ADDR
// pom4 = FilterAllUnits ( [ [ f_side , You ] , [ f_class , class_soldier ] , [ f_sex , sex ] ] ) ;
6253: LD_ADDR_VAR 0 9
6257: PUSH
6258: LD_INT 22
6260: PUSH
6261: LD_EXP 1
6265: PUSH
6266: EMPTY
6267: LIST
6268: LIST
6269: PUSH
6270: LD_INT 25
6272: PUSH
6273: LD_INT 1
6275: PUSH
6276: EMPTY
6277: LIST
6278: LIST
6279: PUSH
6280: LD_INT 26
6282: PUSH
6283: LD_VAR 0 1
6287: PUSH
6288: EMPTY
6289: LIST
6290: LIST
6291: PUSH
6292: EMPTY
6293: LIST
6294: LIST
6295: LIST
6296: PPUSH
6297: CALL_OW 55
6301: ST_TO_ADDR
// case povolani of class_scientistic :
6302: LD_VAR 0 2
6306: PUSH
6307: LD_INT 4
6309: DOUBLE
6310: EQUAL
6311: IFTRUE 6315
6313: GO 6328
6315: POP
// pom = pom1 ; class_mechanic :
6316: LD_ADDR_VAR 0 5
6320: PUSH
6321: LD_VAR 0 6
6325: ST_TO_ADDR
6326: GO 6392
6328: LD_INT 3
6330: DOUBLE
6331: EQUAL
6332: IFTRUE 6336
6334: GO 6349
6336: POP
// pom = pom2 ; class_engineer :
6337: LD_ADDR_VAR 0 5
6341: PUSH
6342: LD_VAR 0 7
6346: ST_TO_ADDR
6347: GO 6392
6349: LD_INT 2
6351: DOUBLE
6352: EQUAL
6353: IFTRUE 6357
6355: GO 6370
6357: POP
// pom = pom3 ; class_soldier :
6358: LD_ADDR_VAR 0 5
6362: PUSH
6363: LD_VAR 0 8
6367: ST_TO_ADDR
6368: GO 6392
6370: LD_INT 1
6372: DOUBLE
6373: EQUAL
6374: IFTRUE 6378
6376: GO 6391
6378: POP
// pom = pom4 ; end ;
6379: LD_ADDR_VAR 0 5
6383: PUSH
6384: LD_VAR 0 9
6388: ST_TO_ADDR
6389: GO 6392
6391: POP
// if povolani <> class_scientistic then
6392: LD_VAR 0 2
6396: PUSH
6397: LD_INT 4
6399: NONEQUAL
6400: IFFALSE 6418
// pom = pom ^ pom1 ;
6402: LD_ADDR_VAR 0 5
6406: PUSH
6407: LD_VAR 0 5
6411: PUSH
6412: LD_VAR 0 6
6416: ADD
6417: ST_TO_ADDR
// if povolani <> class_mechanic then
6418: LD_VAR 0 2
6422: PUSH
6423: LD_INT 3
6425: NONEQUAL
6426: IFFALSE 6444
// pom = pom ^ pom2 ;
6428: LD_ADDR_VAR 0 5
6432: PUSH
6433: LD_VAR 0 5
6437: PUSH
6438: LD_VAR 0 7
6442: ADD
6443: ST_TO_ADDR
// if povolani <> class_engineer then
6444: LD_VAR 0 2
6448: PUSH
6449: LD_INT 2
6451: NONEQUAL
6452: IFFALSE 6470
// pom = pom ^ pom3 ;
6454: LD_ADDR_VAR 0 5
6458: PUSH
6459: LD_VAR 0 5
6463: PUSH
6464: LD_VAR 0 8
6468: ADD
6469: ST_TO_ADDR
// if povolani <> class_soldier then
6470: LD_VAR 0 2
6474: PUSH
6475: LD_INT 1
6477: NONEQUAL
6478: IFFALSE 6496
// pom = pom ^ pom4 ;
6480: LD_ADDR_VAR 0 5
6484: PUSH
6485: LD_VAR 0 5
6489: PUSH
6490: LD_VAR 0 9
6494: ADD
6495: ST_TO_ADDR
// result := pom diff diffseznam ;
6496: LD_ADDR_VAR 0 4
6500: PUSH
6501: LD_VAR 0 5
6505: PUSH
6506: LD_VAR 0 3
6510: DIFF
6511: ST_TO_ADDR
// end ; end_of_file
6512: LD_VAR 0 4
6516: RET
// export UTEKLI_VEDCI ; export TYKANI ; export levely ; export utok1_casy ; export utok2_casy ; export utok3_casy ; export utok4_casy ; export function nastav_obtiznosti ; begin
6517: LD_INT 0
6519: PPUSH
// UTEKLI_VEDCI = true ;
6520: LD_ADDR_EXP 20
6524: PUSH
6525: LD_INT 1
6527: ST_TO_ADDR
// utok1_casy = [ 5 5$0 , 4 4$0 , 3 3$0 ] ;
6528: LD_ADDR_EXP 23
6532: PUSH
6533: LD_INT 10500
6535: PUSH
6536: LD_INT 8400
6538: PUSH
6539: LD_INT 6300
6541: PUSH
6542: EMPTY
6543: LIST
6544: LIST
6545: LIST
6546: ST_TO_ADDR
// levely = [ 1 , 2 , 3 ] ;
6547: LD_ADDR_EXP 22
6551: PUSH
6552: LD_INT 1
6554: PUSH
6555: LD_INT 2
6557: PUSH
6558: LD_INT 3
6560: PUSH
6561: EMPTY
6562: LIST
6563: LIST
6564: LIST
6565: ST_TO_ADDR
// utok2_casy = [ 4 4$0 , 3 3$0 , 2 2$0 ] ;
6566: LD_ADDR_EXP 24
6570: PUSH
6571: LD_INT 8400
6573: PUSH
6574: LD_INT 6300
6576: PUSH
6577: LD_INT 4200
6579: PUSH
6580: EMPTY
6581: LIST
6582: LIST
6583: LIST
6584: ST_TO_ADDR
// utok3_casy = [ 4 4$0 , 3 3$0 , 2 2$0 ] ;
6585: LD_ADDR_EXP 25
6589: PUSH
6590: LD_INT 8400
6592: PUSH
6593: LD_INT 6300
6595: PUSH
6596: LD_INT 4200
6598: PUSH
6599: EMPTY
6600: LIST
6601: LIST
6602: LIST
6603: ST_TO_ADDR
// end ; end_of_file
6604: LD_VAR 0 1
6608: RET
// var AM1 , AM2 ; export UTEKLI ; var EXITS_ON ; export AttacksNo ; every 0 0$0.5 do
6609: GO 6611
6611: DISABLE
// begin AM1 = FilterUnitsInArea ( Ambase1 , [ [ f_side , Amici ] , [ f_type , unit_human ] ] ) ;
6612: LD_ADDR_LOC 5
6616: PUSH
6617: LD_INT 5
6619: PPUSH
6620: LD_INT 22
6622: PUSH
6623: LD_EXP 3
6627: PUSH
6628: EMPTY
6629: LIST
6630: LIST
6631: PUSH
6632: LD_INT 21
6634: PUSH
6635: LD_INT 1
6637: PUSH
6638: EMPTY
6639: LIST
6640: LIST
6641: PUSH
6642: EMPTY
6643: LIST
6644: LIST
6645: PPUSH
6646: CALL_OW 56
6650: ST_TO_ADDR
// AM2 = FilterUnitsInArea ( Ambase2 , [ [ f_side , Amici ] , [ f_type , unit_human ] ] ) ;
6651: LD_ADDR_LOC 6
6655: PUSH
6656: LD_INT 6
6658: PPUSH
6659: LD_INT 22
6661: PUSH
6662: LD_EXP 3
6666: PUSH
6667: EMPTY
6668: LIST
6669: LIST
6670: PUSH
6671: LD_INT 21
6673: PUSH
6674: LD_INT 1
6676: PUSH
6677: EMPTY
6678: LIST
6679: LIST
6680: PUSH
6681: EMPTY
6682: LIST
6683: LIST
6684: PPUSH
6685: CALL_OW 56
6689: ST_TO_ADDR
// EXITS_ON = false ;
6690: LD_ADDR_LOC 7
6694: PUSH
6695: LD_INT 0
6697: ST_TO_ADDR
// UTEKLI = 0 ;
6698: LD_ADDR_EXP 27
6702: PUSH
6703: LD_INT 0
6705: ST_TO_ADDR
// end ;
6706: END
// every 0 0$2 do
6707: GO 6709
6709: DISABLE
// begin ComEnterUnit ( vojcl1 , bunkr1 ) ;
6710: LD_INT 7
6712: PPUSH
6713: LD_INT 4
6715: PPUSH
6716: CALL_OW 88
// end ;
6720: END
// export function uprav_utok_amici ; begin
6721: LD_INT 0
6723: PPUSH
// EXITS_ON = true ;
6724: LD_ADDR_LOC 7
6728: PUSH
6729: LD_INT 1
6731: ST_TO_ADDR
// ComExitBuilding ( vojcl1 ) ;
6732: LD_INT 7
6734: PPUSH
6735: CALL_OW 90
// AddComAgressiveMove ( AM1 , 30 , 2 ) ;
6739: LD_LOC 5
6743: PPUSH
6744: LD_INT 30
6746: PPUSH
6747: LD_INT 2
6749: PPUSH
6750: CALL_OW 128
// AddComMoveXY ( AM2 , 34 , 67 ) ;
6754: LD_LOC 6
6758: PPUSH
6759: LD_INT 34
6761: PPUSH
6762: LD_INT 67
6764: PPUSH
6765: CALL_OW 126
// end ;
6769: LD_VAR 0 1
6773: RET
// every 0 0$1 trigger EXITS_ON do var pom , i ;
6774: LD_LOC 7
6778: IFFALSE 6862
6780: GO 6782
6782: DISABLE
6783: LD_INT 0
6785: PPUSH
6786: PPUSH
// begin pom = FilterUnitsInArea ( EXITAM , [ [ f_side , Amici ] ] ) ;
6787: LD_ADDR_VAR 0 1
6791: PUSH
6792: LD_INT 8
6794: PPUSH
6795: LD_INT 22
6797: PUSH
6798: LD_EXP 3
6802: PUSH
6803: EMPTY
6804: LIST
6805: LIST
6806: PUSH
6807: EMPTY
6808: LIST
6809: PPUSH
6810: CALL_OW 56
6814: ST_TO_ADDR
// for i in pom do
6815: LD_ADDR_VAR 0 2
6819: PUSH
6820: LD_VAR 0 1
6824: PUSH
6825: FOR_IN
6826: IFFALSE 6853
// begin RemoveUnit ( i ) ;
6828: LD_VAR 0 2
6832: PPUSH
6833: CALL_OW 51
// UTEKLI = UTEKLI + 1 ;
6837: LD_ADDR_EXP 27
6841: PUSH
6842: LD_EXP 27
6846: PUSH
6847: LD_INT 1
6849: PLUS
6850: ST_TO_ADDR
// end ;
6851: GO 6825
6853: POP
6854: POP
// if EXITS_ON then
6855: LD_LOC 7
6859: IFFALSE 6862
// enable ;
6861: ENABLE
// end ;
6862: PPOPN 2
6864: END
// every 0 0$1 trigger FilterAllUnits ( [ [ f_side , Amici ] , [ f_type , unit_human ] ] ) = 0 do
6865: LD_INT 22
6867: PUSH
6868: LD_EXP 3
6872: PUSH
6873: EMPTY
6874: LIST
6875: LIST
6876: PUSH
6877: LD_INT 21
6879: PUSH
6880: LD_INT 1
6882: PUSH
6883: EMPTY
6884: LIST
6885: LIST
6886: PUSH
6887: EMPTY
6888: LIST
6889: LIST
6890: PPUSH
6891: CALL_OW 55
6895: PUSH
6896: LD_INT 0
6898: EQUAL
6899: IFFALSE 6926
6901: GO 6903
6903: DISABLE
// begin EXITS_ON = false ;
6904: LD_ADDR_LOC 7
6908: PUSH
6909: LD_INT 0
6911: ST_TO_ADDR
// if UTEKLI > 0 then
6912: LD_EXP 27
6916: PUSH
6917: LD_INT 0
6919: GREATER
6920: IFFALSE 6926
// escape_dialog ;
6922: CALL 4278 0 0
// end ;
6926: END
// every 0 0$10 trigger utoky_begin do var i ;
6927: LD_EXP 19
6931: IFFALSE 7027
6933: GO 6935
6935: DISABLE
6936: LD_INT 0
6938: PPUSH
// begin wait ( utok1_casy [ difficulty ] ) ;
6939: LD_EXP 23
6943: PUSH
6944: LD_OWVAR 48
6948: ARRAY
6949: PPUSH
6950: CALL_OW 54
// create_attack1 ;
6954: CALL 919 0 0
// wait ( 0 0$1 ) ;
6958: LD_INT 35
6960: PPUSH
6961: CALL_OW 54
// for i in CREATE_ATTACK1_LIST do
6965: LD_ADDR_VAR 0 1
6969: PUSH
6970: LD_EXP 4
6974: PUSH
6975: FOR_IN
6976: IFFALSE 6995
// PlaceUnitArea ( i , attack1 , false ) ;
6978: LD_VAR 0 1
6982: PPUSH
6983: LD_INT 12
6985: PPUSH
6986: LD_INT 0
6988: PPUSH
6989: CALL_OW 42
6993: GO 6975
6995: POP
6996: POP
// wait ( 0 0$1 ) ;
6997: LD_INT 35
6999: PPUSH
7000: CALL_OW 54
// ComAgressiveMove ( CREATE_ATTACK1_LIST , 41 , 36 ) ;
7004: LD_EXP 4
7008: PPUSH
7009: LD_INT 41
7011: PPUSH
7012: LD_INT 36
7014: PPUSH
7015: CALL_OW 83
// AttacksNo = 1 ;
7019: LD_ADDR_EXP 28
7023: PUSH
7024: LD_INT 1
7026: ST_TO_ADDR
// end ;
7027: PPOPN 1
7029: END
// every 0 0$10 trigger AttacksNo = 1 do var i ;
7030: LD_EXP 28
7034: PUSH
7035: LD_INT 1
7037: EQUAL
7038: IFFALSE 7134
7040: GO 7042
7042: DISABLE
7043: LD_INT 0
7045: PPUSH
// begin wait ( utok2_casy [ difficulty ] ) ;
7046: LD_EXP 24
7050: PUSH
7051: LD_OWVAR 48
7055: ARRAY
7056: PPUSH
7057: CALL_OW 54
// create_attack2 ;
7061: CALL 1979 0 0
// wait ( 0 0$1 ) ;
7065: LD_INT 35
7067: PPUSH
7068: CALL_OW 54
// for i in CREATE_ATTACK2_LIST do
7072: LD_ADDR_VAR 0 1
7076: PUSH
7077: LD_EXP 5
7081: PUSH
7082: FOR_IN
7083: IFFALSE 7102
// PlaceUnitArea ( i , attack2 , false ) ;
7085: LD_VAR 0 1
7089: PPUSH
7090: LD_INT 13
7092: PPUSH
7093: LD_INT 0
7095: PPUSH
7096: CALL_OW 42
7100: GO 7082
7102: POP
7103: POP
// wait ( 0 0$1 ) ;
7104: LD_INT 35
7106: PPUSH
7107: CALL_OW 54
// ComAgressiveMove ( CREATE_ATTACK2_LIST , 38 , 30 ) ;
7111: LD_EXP 5
7115: PPUSH
7116: LD_INT 38
7118: PPUSH
7119: LD_INT 30
7121: PPUSH
7122: CALL_OW 83
// AttacksNo = 2 ;
7126: LD_ADDR_EXP 28
7130: PUSH
7131: LD_INT 2
7133: ST_TO_ADDR
// end ;
7134: PPOPN 1
7136: END
// every 0 0$10 trigger AttacksNo = 2 do var i ;
7137: LD_EXP 28
7141: PUSH
7142: LD_INT 2
7144: EQUAL
7145: IFFALSE 7335
7147: GO 7149
7149: DISABLE
7150: LD_INT 0
7152: PPUSH
// begin wait ( utok3_casy [ difficulty ] ) ;
7153: LD_EXP 25
7157: PUSH
7158: LD_OWVAR 48
7162: ARRAY
7163: PPUSH
7164: CALL_OW 54
// create_attack3 ;
7168: CALL 1241 0 0
// wait ( 0 0$1 ) ;
7172: LD_INT 35
7174: PPUSH
7175: CALL_OW 54
// for i in CREATE_ATTACK3_LIST1 do
7179: LD_ADDR_VAR 0 1
7183: PUSH
7184: LD_EXP 6
7188: PUSH
7189: FOR_IN
7190: IFFALSE 7209
// PlaceUnitArea ( i , attack1 , false ) ;
7192: LD_VAR 0 1
7196: PPUSH
7197: LD_INT 12
7199: PPUSH
7200: LD_INT 0
7202: PPUSH
7203: CALL_OW 42
7207: GO 7189
7209: POP
7210: POP
// for i in CREATE_ATTACK3_LIST2 do
7211: LD_ADDR_VAR 0 1
7215: PUSH
7216: LD_EXP 7
7220: PUSH
7221: FOR_IN
7222: IFFALSE 7241
// PlaceUnitArea ( i , attack2 , false ) ;
7224: LD_VAR 0 1
7228: PPUSH
7229: LD_INT 13
7231: PPUSH
7232: LD_INT 0
7234: PPUSH
7235: CALL_OW 42
7239: GO 7221
7241: POP
7242: POP
// for i in CREATE_ATTACK3_LIST3 do
7243: LD_ADDR_VAR 0 1
7247: PUSH
7248: LD_EXP 8
7252: PUSH
7253: FOR_IN
7254: IFFALSE 7273
// PlaceUnitArea ( i , attack3 , false ) ;
7256: LD_VAR 0 1
7260: PPUSH
7261: LD_INT 14
7263: PPUSH
7264: LD_INT 0
7266: PPUSH
7267: CALL_OW 42
7271: GO 7253
7273: POP
7274: POP
// wait ( 0 0$1 ) ;
7275: LD_INT 35
7277: PPUSH
7278: CALL_OW 54
// ComAgressiveMove ( CREATE_ATTACK3_LIST2 , 38 , 30 ) ;
7282: LD_EXP 7
7286: PPUSH
7287: LD_INT 38
7289: PPUSH
7290: LD_INT 30
7292: PPUSH
7293: CALL_OW 83
// ComAgressiveMove ( CREATE_ATTACK3_LIST1 , 41 , 40 ) ;
7297: LD_EXP 6
7301: PPUSH
7302: LD_INT 41
7304: PPUSH
7305: LD_INT 40
7307: PPUSH
7308: CALL_OW 83
// ComAgressiveMove ( CREATE_ATTACK3_LIST3 , 53 , 36 ) ;
7312: LD_EXP 8
7316: PPUSH
7317: LD_INT 53
7319: PPUSH
7320: LD_INT 36
7322: PPUSH
7323: CALL_OW 83
// AttacksNo = 3 ;
7327: LD_ADDR_EXP 28
7331: PUSH
7332: LD_INT 3
7334: ST_TO_ADDR
// end ;
7335: PPOPN 1
7337: END
