// starting begin resetfog ;
   0: CALL_OW 335
// disable ( 1 ) ;
   4: LD_INT 1
   6: DISABLE_MARKED
// disable ( 2 ) ;
   7: LD_INT 2
   9: DISABLE_MARKED
// disable ( 3 ) ;
  10: LD_INT 3
  12: DISABLE_MARKED
// SaveForQuickRestart ;
  13: CALL_OW 22
// ChangeMissionObjectives ( CEL5 ) ;
  17: LD_STRING CEL5
  19: PPUSH
  20: CALL_OW 337
// CenteronUnits ( D ) ;
  24: LD_INT 360
  26: PPUSH
  27: CALL_OW 85
// wait ( 20 20$00 ) ;
  31: LD_INT 42000
  33: PPUSH
  34: CALL_OW 67
// RemoveUnit ( C ) ;
  38: LD_INT 459
  40: PPUSH
  41: CALL_OW 64
// wait ( 30 30$00 ) ;
  45: LD_INT 63000
  47: PPUSH
  48: CALL_OW 67
// Ingameon ;
  52: CALL_OW 8
// CenteronUnits ( AL ) ;
  56: LD_INT 452
  58: PPUSH
  59: CALL_OW 85
// comagressivemove ( [ AL ] , 26 , 34 ) ;
  63: LD_INT 452
  65: PUSH
  66: EMPTY
  67: LIST
  68: PPUSH
  69: LD_INT 26
  71: PPUSH
  72: LD_INT 34
  74: PPUSH
  75: CALL_OW 114
// ComAttackUnit ( s1 , AL ) ;
  79: LD_INT 381
  81: PPUSH
  82: LD_INT 452
  84: PPUSH
  85: CALL_OW 115
// ComAttackUnit ( s2 , AL ) ;
  89: LD_INT 382
  91: PPUSH
  92: LD_INT 452
  94: PPUSH
  95: CALL_OW 115
// ComAttackUnit ( s3 , AL ) ;
  99: LD_INT 383
 101: PPUSH
 102: LD_INT 452
 104: PPUSH
 105: CALL_OW 115
// ComAttackUnit ( s4 , AL ) ;
 109: LD_INT 425
 111: PPUSH
 112: LD_INT 452
 114: PPUSH
 115: CALL_OW 115
// ComAttackUnit ( s5 , AL ) ;
 119: LD_INT 426
 121: PPUSH
 122: LD_INT 452
 124: PPUSH
 125: CALL_OW 115
// ComAttackUnit ( s6 , AL ) ;
 129: LD_INT 433
 131: PPUSH
 132: LD_INT 452
 134: PPUSH
 135: CALL_OW 115
// ComAttackUnit ( s7 , AL ) ;
 139: LD_INT 434
 141: PPUSH
 142: LD_INT 452
 144: PPUSH
 145: CALL_OW 115
// ComAttackUnit ( s8 , AL ) ;
 149: LD_INT 435
 151: PPUSH
 152: LD_INT 452
 154: PPUSH
 155: CALL_OW 115
// ComAttackUnit ( s9 , AL ) ;
 159: LD_INT 439
 161: PPUSH
 162: LD_INT 452
 164: PPUSH
 165: CALL_OW 115
// ComAttackUnit ( s10 , AL ) ;
 169: LD_INT 436
 171: PPUSH
 172: LD_INT 452
 174: PPUSH
 175: CALL_OW 115
// end ; end_of_file
 179: END
// every 0 0$01 trigger IsInArea ( D , posilki ) do
 180: LD_INT 360
 182: PPUSH
 183: LD_INT 3
 185: PPUSH
 186: CALL_OW 308
 190: IFFALSE 283
 192: GO 194
 194: DISABLE
// begin CPUAR ;
 195: CALL 1476 0 0
// CT ;
 199: CALL 1640 0 0
// CJ ;
 203: CALL 1333 0 0
// enable ( 1 ) ;
 207: LD_INT 1
 209: ENABLE_MARKED
// CKI ;
 210: CALL 1783 0 0
// enable ( 2 ) ;
 214: LD_INT 2
 216: ENABLE_MARKED
// CK ;
 217: CALL 1926 0 0
// enable ( 3 ) ;
 221: LD_INT 3
 223: ENABLE_MARKED
// wait ( 0 0$10 ) ;
 224: LD_INT 350
 226: PPUSH
 227: CALL_OW 67
// Say ( J , John1 ) ;
 231: LD_EXP 1
 235: PPUSH
 236: LD_STRING John1
 238: PPUSH
 239: CALL_OW 88
// Say ( MO , Mona13 ) ;
 243: LD_INT 359
 245: PPUSH
 246: LD_STRING Mona13
 248: PPUSH
 249: CALL_OW 88
// Say ( KI , Kimiko1 ) ;
 253: LD_EXP 8
 257: PPUSH
 258: LD_STRING Kimiko1
 260: PPUSH
 261: CALL_OW 88
// comagressivemove ( [ J ] , 114 , 133 ) ;
 265: LD_EXP 1
 269: PUSH
 270: EMPTY
 271: LIST
 272: PPUSH
 273: LD_INT 114
 275: PPUSH
 276: LD_INT 133
 278: PPUSH
 279: CALL_OW 114
// end ;
 283: END
// every 0 0$01 trigger IsInArea ( J , rozmowa ) do
 284: LD_EXP 1
 288: PPUSH
 289: LD_INT 5
 291: PPUSH
 292: CALL_OW 308
 296: IFFALSE 797
 298: GO 300
 300: DISABLE
// begin comagressivemove ( [ D ] , 115 , 134 ) ;
 301: LD_INT 360
 303: PUSH
 304: EMPTY
 305: LIST
 306: PPUSH
 307: LD_INT 115
 309: PPUSH
 310: LD_INT 134
 312: PPUSH
 313: CALL_OW 114
// wait ( 0 0$03 ) ;
 317: LD_INT 105
 319: PPUSH
 320: CALL_OW 67
// CenteronUnits ( J ) ;
 324: LD_EXP 1
 328: PPUSH
 329: CALL_OW 85
// ingameon ;
 333: CALL_OW 8
// RevealFogArea ( 5 , Area85 ) ;
 337: LD_INT 5
 339: PPUSH
 340: LD_INT 7
 342: PPUSH
 343: CALL_OW 332
// RevealFogArea ( 5 , Area86 ) ;
 347: LD_INT 5
 349: PPUSH
 350: LD_INT 8
 352: PPUSH
 353: CALL_OW 332
// RevealFogArea ( 5 , Area87 ) ;
 357: LD_INT 5
 359: PPUSH
 360: LD_INT 9
 362: PPUSH
 363: CALL_OW 332
// RevealFogArea ( 5 , Area88 ) ;
 367: LD_INT 5
 369: PPUSH
 370: LD_INT 10
 372: PPUSH
 373: CALL_OW 332
// setside ( [ J , T , KI , K , soldat1 , soldat2 , soldat3 , soldat4 , soldat5 ] , 5 ) ;
 377: LD_EXP 1
 381: PUSH
 382: LD_EXP 7
 386: PUSH
 387: LD_EXP 8
 391: PUSH
 392: LD_EXP 9
 396: PUSH
 397: LD_EXP 2
 401: PUSH
 402: LD_EXP 3
 406: PUSH
 407: LD_EXP 4
 411: PUSH
 412: LD_EXP 5
 416: PUSH
 417: LD_EXP 6
 421: PUSH
 422: EMPTY
 423: LIST
 424: LIST
 425: LIST
 426: LIST
 427: LIST
 428: LIST
 429: LIST
 430: LIST
 431: LIST
 432: PPUSH
 433: LD_INT 5
 435: PPUSH
 436: CALL_OW 235
// dialogueon ;
 440: CALL_OW 6
// Say ( J , John2 ) ;
 444: LD_EXP 1
 448: PPUSH
 449: LD_STRING John2
 451: PPUSH
 452: CALL_OW 88
// Say ( D , Demi11 ) ;
 456: LD_INT 360
 458: PPUSH
 459: LD_STRING Demi11
 461: PPUSH
 462: CALL_OW 88
// Say ( J , John3 ) ;
 466: LD_EXP 1
 470: PPUSH
 471: LD_STRING John3
 473: PPUSH
 474: CALL_OW 88
// dialogueoff ;
 478: CALL_OW 7
// comagressivemove ( [ T ] , 114 , 133 ) ;
 482: LD_EXP 7
 486: PUSH
 487: EMPTY
 488: LIST
 489: PPUSH
 490: LD_INT 114
 492: PPUSH
 493: LD_INT 133
 495: PPUSH
 496: CALL_OW 114
// Say ( T , Tolek1 ) ;
 500: LD_EXP 7
 504: PPUSH
 505: LD_STRING Tolek1
 507: PPUSH
 508: CALL_OW 88
// Say ( J , John3a ) ;
 512: LD_EXP 1
 516: PPUSH
 517: LD_STRING John3a
 519: PPUSH
 520: CALL_OW 88
// Say ( T , Tolek2 ) ;
 524: LD_EXP 7
 528: PPUSH
 529: LD_STRING Tolek2
 531: PPUSH
 532: CALL_OW 88
// comagressivemove ( [ T ] , 139 , 141 ) ;
 536: LD_EXP 7
 540: PUSH
 541: EMPTY
 542: LIST
 543: PPUSH
 544: LD_INT 139
 546: PPUSH
 547: LD_INT 141
 549: PPUSH
 550: CALL_OW 114
// wait ( 0 0$10 ) ;
 554: LD_INT 350
 556: PPUSH
 557: CALL_OW 67
// RemoveUnit ( T ) ;
 561: LD_EXP 7
 565: PPUSH
 566: CALL_OW 64
// Say ( D , Demi12 ) ;
 570: LD_INT 360
 572: PPUSH
 573: LD_STRING Demi12
 575: PPUSH
 576: CALL_OW 88
// Say ( J , John4 ) ;
 580: LD_EXP 1
 584: PPUSH
 585: LD_STRING John4
 587: PPUSH
 588: CALL_OW 88
// Say ( J , John5 ) ;
 592: LD_EXP 1
 596: PPUSH
 597: LD_STRING John5
 599: PPUSH
 600: CALL_OW 88
// wait ( 0 0$15 ) ;
 604: LD_INT 525
 606: PPUSH
 607: CALL_OW 67
// CT ;
 611: CALL 1640 0 0
// comagressivemove ( [ T ] , 114 , 133 ) ;
 615: LD_EXP 7
 619: PUSH
 620: EMPTY
 621: LIST
 622: PPUSH
 623: LD_INT 114
 625: PPUSH
 626: LD_INT 133
 628: PPUSH
 629: CALL_OW 114
// Say ( J , John6 ) ;
 633: LD_EXP 1
 637: PPUSH
 638: LD_STRING John6
 640: PPUSH
 641: CALL_OW 88
// CenteronUnits ( bar2 ) ;
 645: LD_INT 233
 647: PPUSH
 648: CALL_OW 85
// Say ( T , Tolek3 ) ;
 652: LD_EXP 7
 656: PPUSH
 657: LD_STRING Tolek3
 659: PPUSH
 660: CALL_OW 88
// wait ( 0 0$3 ) ;
 664: LD_INT 105
 666: PPUSH
 667: CALL_OW 67
// CenteronUnits ( CC ) ;
 671: LD_INT 467
 673: PPUSH
 674: CALL_OW 85
// Say ( J , John7 ) ;
 678: LD_EXP 1
 682: PPUSH
 683: LD_STRING John7
 685: PPUSH
 686: CALL_OW 88
// CenteronUnits ( bar ) ;
 690: LD_INT 139
 692: PPUSH
 693: CALL_OW 85
// Say ( T , Tolek4 ) ;
 697: LD_EXP 7
 701: PPUSH
 702: LD_STRING Tolek4
 704: PPUSH
 705: CALL_OW 88
// wait ( 0 0$3 ) ;
 709: LD_INT 105
 711: PPUSH
 712: CALL_OW 67
// CenteronUnits ( vsevb2 ) ;
 716: LD_INT 287
 718: PPUSH
 719: CALL_OW 85
// Say ( J , John8 ) ;
 723: LD_EXP 1
 727: PPUSH
 728: LD_STRING John8
 730: PPUSH
 731: CALL_OW 88
// setside ( [ T ] , 5 ) ;
 735: LD_EXP 7
 739: PUSH
 740: EMPTY
 741: LIST
 742: PPUSH
 743: LD_INT 5
 745: PPUSH
 746: CALL_OW 235
// ChangeMissionObjectives ( CEL4 ) ;
 750: LD_STRING CEL4
 752: PPUSH
 753: CALL_OW 337
// ChangeMissionObjectives ( CEL1 ) ;
 757: LD_STRING CEL1
 759: PPUSH
 760: CALL_OW 337
// ChangeMissionObjectives ( CEL2 ) ;
 764: LD_STRING CEL2
 766: PPUSH
 767: CALL_OW 337
// ChangeMissionObjectives ( CEL3 ) ;
 771: LD_STRING CEL3
 773: PPUSH
 774: CALL_OW 337
// CzasAkcji = true ;
 778: LD_ADDR_EXP 10
 782: PUSH
 783: LD_INT 1
 785: ST_TO_ADDR
// CenteronUnits ( D ) ;
 786: LD_INT 360
 788: PPUSH
 789: CALL_OW 85
// ingameoff ;
 793: CALL_OW 9
// end ; end_of_file
 797: END
// every 0 0$01 trigger isDead ( D ) do
 798: LD_INT 360
 800: PPUSH
 801: CALL_OW 301
 805: IFFALSE 817
 807: GO 809
 809: DISABLE
// begin YouLost ( Demi_nie_zyje ) ;
 810: LD_STRING Demi_nie_zyje
 812: PPUSH
 813: CALL_OW 104
// end ;
 817: END
// every 0 0$01 trigger isDead ( MO ) do
 818: LD_INT 359
 820: PPUSH
 821: CALL_OW 301
 825: IFFALSE 837
 827: GO 829
 829: DISABLE
// begin YouLost ( Monalisa_nie_zyje ) ;
 830: LD_STRING Monalisa_nie_zyje
 832: PPUSH
 833: CALL_OW 104
// end ;
 837: END
// every 0 0$01 trigger isDead ( J ) marked 2 do
 838: LD_EXP 1
 842: PPUSH
 843: CALL_OW 301
 847: IFFALSE 859
 849: GO 851
 851: DISABLE
// begin YouLost ( Kimiko_nie_zyje ) ;
 852: LD_STRING Kimiko_nie_zyje
 854: PPUSH
 855: CALL_OW 104
// end ;
 859: END
// every 0 0$01 trigger isDead ( J ) marked 1 do
 860: LD_EXP 1
 864: PPUSH
 865: CALL_OW 301
 869: IFFALSE 881
 871: GO 873
 873: DISABLE
// begin YouLost ( John_nie_zyje ) ;
 874: LD_STRING John_nie_zyje
 876: PPUSH
 877: CALL_OW 104
// end ;
 881: END
// every 0 0$01 trigger isDead ( K ) marked 3 do
 882: LD_EXP 9
 886: PPUSH
 887: CALL_OW 301
 891: IFFALSE 903
 893: GO 895
 895: DISABLE
// begin YouLost ( Karen_nie_zyje ) ;
 896: LD_STRING Karen_nie_zyje
 898: PPUSH
 899: CALL_OW 104
// end ;
 903: END
// every 0 0$01 trigger isDead ( C ) do
 904: LD_INT 459
 906: PPUSH
 907: CALL_OW 301
 911: IFFALSE 923
 913: GO 915
 915: DISABLE
// begin YouLost ( Creative_nie_zyje ) ;
 916: LD_STRING Creative_nie_zyje
 918: PPUSH
 919: CALL_OW 104
// end ;
 923: END
// every 0 0$01 trigger isDead ( dg ) do
 924: LD_INT 148
 926: PPUSH
 927: CALL_OW 301
 931: IFFALSE 963
 933: GO 935
 935: DISABLE
// begin comenterunit ( [ C ] , vsevd1 ) ;
 936: LD_INT 459
 938: PUSH
 939: EMPTY
 940: LIST
 941: PPUSH
 942: LD_INT 182
 944: PPUSH
 945: CALL_OW 120
// wait ( 5 5$0 ) ;
 949: LD_INT 10500
 951: PPUSH
 952: CALL_OW 67
// RemoveUnit ( C ) ;
 956: LD_INT 459
 958: PPUSH
 959: CALL_OW 64
// end ;
 963: END
// every 0 0$01 trigger isDead ( war ) do
 964: LD_INT 175
 966: PPUSH
 967: CALL_OW 301
 971: IFFALSE 1037
 973: GO 975
 975: DISABLE
// begin setside ( [ AL ] , 5 ) ;
 976: LD_INT 452
 978: PUSH
 979: EMPTY
 980: LIST
 981: PPUSH
 982: LD_INT 5
 984: PPUSH
 985: CALL_OW 235
// wait ( 0 0$05 ) ;
 989: LD_INT 175
 991: PPUSH
 992: CALL_OW 67
// AddMedal ( medal1 , 1 ) ;
 996: LD_STRING medal1
 998: PPUSH
 999: LD_INT 1
1001: PPUSH
1002: CALL_OW 101
// AddMedal ( medal2 , 1 ) ;
1006: LD_STRING medal2
1008: PPUSH
1009: LD_INT 1
1011: PPUSH
1012: CALL_OW 101
// AddMedal ( medal3 , 1 ) ;
1016: LD_STRING medal3
1018: PPUSH
1019: LD_INT 1
1021: PPUSH
1022: CALL_OW 101
// GiveMedals ( Main ) ;
1026: LD_STRING Main
1028: PPUSH
1029: CALL_OW 102
// YouWin ;
1033: CALL_OW 103
// end ;
1037: END
// every 0 0$01 trigger isDead ( AL ) do
1038: LD_INT 452
1040: PPUSH
1041: CALL_OW 301
1045: IFFALSE 1057
1047: GO 1049
1049: DISABLE
// begin YouLost ( Alex_nie_zyje ) ;
1050: LD_STRING Alex_nie_zyje
1052: PPUSH
1053: CALL_OW 104
// end ; end_of_file
1057: END
// every 0 0$01 do var un , EnginerList , buildings , depots , i ;
1058: GO 1060
1060: DISABLE
1061: LD_INT 0
1063: PPUSH
1064: PPUSH
1065: PPUSH
1066: PPUSH
1067: PPUSH
// begin enable ;
1068: ENABLE
// EnginerList := FilterAllUnits ( [ [ [ f_side , 1 ] , [ f_class , 2 ] , [ f_lives , 1000 ] ] ] ) ;
1069: LD_ADDR_VAR 0 2
1073: PUSH
1074: LD_INT 22
1076: PUSH
1077: LD_INT 1
1079: PUSH
1080: EMPTY
1081: LIST
1082: LIST
1083: PUSH
1084: LD_INT 25
1086: PUSH
1087: LD_INT 2
1089: PUSH
1090: EMPTY
1091: LIST
1092: LIST
1093: PUSH
1094: LD_INT 24
1096: PUSH
1097: LD_INT 1000
1099: PUSH
1100: EMPTY
1101: LIST
1102: LIST
1103: PUSH
1104: EMPTY
1105: LIST
1106: LIST
1107: LIST
1108: PUSH
1109: EMPTY
1110: LIST
1111: PPUSH
1112: CALL_OW 69
1116: ST_TO_ADDR
// buildings := FilterAllUnits ( [ [ [ f_side , 1 ] , [ f_type , unit_building ] , [ f_not , [ f_lives , 1000 ] ] ] ] ) ;
1117: LD_ADDR_VAR 0 3
1121: PUSH
1122: LD_INT 22
1124: PUSH
1125: LD_INT 1
1127: PUSH
1128: EMPTY
1129: LIST
1130: LIST
1131: PUSH
1132: LD_INT 21
1134: PUSH
1135: LD_INT 3
1137: PUSH
1138: EMPTY
1139: LIST
1140: LIST
1141: PUSH
1142: LD_INT 3
1144: PUSH
1145: LD_INT 24
1147: PUSH
1148: LD_INT 1000
1150: PUSH
1151: EMPTY
1152: LIST
1153: LIST
1154: PUSH
1155: EMPTY
1156: LIST
1157: LIST
1158: PUSH
1159: EMPTY
1160: LIST
1161: LIST
1162: LIST
1163: PUSH
1164: EMPTY
1165: LIST
1166: PPUSH
1167: CALL_OW 69
1171: ST_TO_ADDR
// if buildings > 0 then
1172: LD_VAR 0 3
1176: PUSH
1177: LD_INT 0
1179: GREATER
1180: IFFALSE 1262
// begin for i = 1 to EnginerList do
1182: LD_ADDR_VAR 0 5
1186: PUSH
1187: DOUBLE
1188: LD_INT 1
1190: DEC
1191: ST_TO_ADDR
1192: LD_VAR 0 2
1196: PUSH
1197: FOR_TO
1198: IFFALSE 1260
// begin if IsInUnit ( EnginerList [ i ] ) then
1200: LD_VAR 0 2
1204: PUSH
1205: LD_VAR 0 5
1209: ARRAY
1210: PPUSH
1211: CALL_OW 310
1215: IFFALSE 1234
// ComExitBuilding ( EnginerList [ i ] ) else
1217: LD_VAR 0 2
1221: PUSH
1222: LD_VAR 0 5
1226: ARRAY
1227: PPUSH
1228: CALL_OW 122
1232: GO 1258
// ComRepairBuilding ( EnginerList [ i ] , buildings [ 1 ] ) ;
1234: LD_VAR 0 2
1238: PUSH
1239: LD_VAR 0 5
1243: ARRAY
1244: PPUSH
1245: LD_VAR 0 3
1249: PUSH
1250: LD_INT 1
1252: ARRAY
1253: PPUSH
1254: CALL_OW 130
// end ;
1258: GO 1197
1260: POP
1261: POP
// end ; if buildings = 0 then
1262: LD_VAR 0 3
1266: PUSH
1267: LD_INT 0
1269: EQUAL
1270: IFFALSE 1330
// begin for i = 1 to EnginerList do
1272: LD_ADDR_VAR 0 5
1276: PUSH
1277: DOUBLE
1278: LD_INT 1
1280: DEC
1281: ST_TO_ADDR
1282: LD_VAR 0 2
1286: PUSH
1287: FOR_TO
1288: IFFALSE 1328
// begin if not HasTask ( EnginerList [ i ] ) and not IsInUnit ( EnginerList [ i ] ) then
1290: LD_VAR 0 2
1294: PUSH
1295: LD_VAR 0 5
1299: ARRAY
1300: PPUSH
1301: CALL_OW 314
1305: NOT
1306: PUSH
1307: LD_VAR 0 2
1311: PUSH
1312: LD_VAR 0 5
1316: ARRAY
1317: PPUSH
1318: CALL_OW 310
1322: NOT
1323: AND
1324: IFFALSE 1326
// end ;
1326: GO 1287
1328: POP
1329: POP
// end ; end ; end_of_file
1330: PPOPN 5
1332: END
// export J ; export function CJ ; begin
1333: LD_INT 0
1335: PPUSH
// uc_side = 2 ;
1336: LD_ADDR_OWVAR 20
1340: PUSH
1341: LD_INT 2
1343: ST_TO_ADDR
// uc_nation = nation_arabian ;
1344: LD_ADDR_OWVAR 21
1348: PUSH
1349: LD_INT 2
1351: ST_TO_ADDR
// hc_name = John ;
1352: LD_ADDR_OWVAR 26
1356: PUSH
1357: LD_STRING John
1359: ST_TO_ADDR
// hc_sex = sex_male ;
1360: LD_ADDR_OWVAR 27
1364: PUSH
1365: LD_INT 1
1367: ST_TO_ADDR
// hc_class = 1 ;
1368: LD_ADDR_OWVAR 28
1372: PUSH
1373: LD_INT 1
1375: ST_TO_ADDR
// hc_importance = 80 ;
1376: LD_ADDR_OWVAR 32
1380: PUSH
1381: LD_INT 80
1383: ST_TO_ADDR
// hc_gallery := ar ;
1384: LD_ADDR_OWVAR 33
1388: PUSH
1389: LD_STRING ar
1391: ST_TO_ADDR
// hc_face_number := 9 ;
1392: LD_ADDR_OWVAR 34
1396: PUSH
1397: LD_INT 9
1399: ST_TO_ADDR
// hc_basic_skills := [ 7 , 0 , 0 , 0 ] ;
1400: LD_ADDR_OWVAR 30
1404: PUSH
1405: LD_INT 7
1407: PUSH
1408: LD_INT 0
1410: PUSH
1411: LD_INT 0
1413: PUSH
1414: LD_INT 0
1416: PUSH
1417: EMPTY
1418: LIST
1419: LIST
1420: LIST
1421: LIST
1422: ST_TO_ADDR
// hc_skills := [ 7 , 3 , 2 , 0 ] ;
1423: LD_ADDR_OWVAR 31
1427: PUSH
1428: LD_INT 7
1430: PUSH
1431: LD_INT 3
1433: PUSH
1434: LD_INT 2
1436: PUSH
1437: LD_INT 0
1439: PUSH
1440: EMPTY
1441: LIST
1442: LIST
1443: LIST
1444: LIST
1445: ST_TO_ADDR
// J = CreateHuman ;
1446: LD_ADDR_EXP 1
1450: PUSH
1451: CALL_OW 44
1455: ST_TO_ADDR
// PlaceUnitArea ( J , support , false ) ;
1456: LD_EXP 1
1460: PPUSH
1461: LD_INT 1
1463: PPUSH
1464: LD_INT 0
1466: PPUSH
1467: CALL_OW 49
// end ;
1471: LD_VAR 0 1
1475: RET
// export soldat1 , soldat2 , soldat3 , soldat4 , soldat5 ; export function CPUAR ; begin
1476: LD_INT 0
1478: PPUSH
// uc_side = 2 ;
1479: LD_ADDR_OWVAR 20
1483: PUSH
1484: LD_INT 2
1486: ST_TO_ADDR
// uc_nation = nation_arabian ;
1487: LD_ADDR_OWVAR 21
1491: PUSH
1492: LD_INT 2
1494: ST_TO_ADDR
// hc_class = CLASS_SOLDIER ;
1495: LD_ADDR_OWVAR 28
1499: PUSH
1500: LD_INT 1
1502: ST_TO_ADDR
// PrepareSoldierSkills ( 6 ) ;
1503: LD_INT 6
1505: PPUSH
1506: CALL_OW 375
// soldat1 = CreateHuman ;
1510: LD_ADDR_EXP 2
1514: PUSH
1515: CALL_OW 44
1519: ST_TO_ADDR
// soldat2 = CreateHuman ;
1520: LD_ADDR_EXP 3
1524: PUSH
1525: CALL_OW 44
1529: ST_TO_ADDR
// soldat3 = CreateHuman ;
1530: LD_ADDR_EXP 4
1534: PUSH
1535: CALL_OW 44
1539: ST_TO_ADDR
// soldat4 = CreateHuman ;
1540: LD_ADDR_EXP 5
1544: PUSH
1545: CALL_OW 44
1549: ST_TO_ADDR
// soldat5 = CreateHuman ;
1550: LD_ADDR_EXP 6
1554: PUSH
1555: CALL_OW 44
1559: ST_TO_ADDR
// PlaceUnitArea ( soldat1 , Support , false ) ;
1560: LD_EXP 2
1564: PPUSH
1565: LD_INT 1
1567: PPUSH
1568: LD_INT 0
1570: PPUSH
1571: CALL_OW 49
// PlaceUnitArea ( soldat2 , Support , false ) ;
1575: LD_EXP 3
1579: PPUSH
1580: LD_INT 1
1582: PPUSH
1583: LD_INT 0
1585: PPUSH
1586: CALL_OW 49
// PlaceUnitArea ( soldat3 , Support , false ) ;
1590: LD_EXP 4
1594: PPUSH
1595: LD_INT 1
1597: PPUSH
1598: LD_INT 0
1600: PPUSH
1601: CALL_OW 49
// PlaceUnitArea ( soldat4 , Support , false ) ;
1605: LD_EXP 5
1609: PPUSH
1610: LD_INT 1
1612: PPUSH
1613: LD_INT 0
1615: PPUSH
1616: CALL_OW 49
// PlaceUnitArea ( soldat5 , Support , false ) ;
1620: LD_EXP 6
1624: PPUSH
1625: LD_INT 1
1627: PPUSH
1628: LD_INT 0
1630: PPUSH
1631: CALL_OW 49
// end ;
1635: LD_VAR 0 1
1639: RET
// export T ; export function CT ; begin
1640: LD_INT 0
1642: PPUSH
// uc_side = 2 ;
1643: LD_ADDR_OWVAR 20
1647: PUSH
1648: LD_INT 2
1650: ST_TO_ADDR
// uc_nation = nation_arabian ;
1651: LD_ADDR_OWVAR 21
1655: PUSH
1656: LD_INT 2
1658: ST_TO_ADDR
// hc_name = Szer.Tolek ;
1659: LD_ADDR_OWVAR 26
1663: PUSH
1664: LD_STRING Szer.Tolek
1666: ST_TO_ADDR
// hc_sex = sex_male ;
1667: LD_ADDR_OWVAR 27
1671: PUSH
1672: LD_INT 1
1674: ST_TO_ADDR
// hc_class = 1 ;
1675: LD_ADDR_OWVAR 28
1679: PUSH
1680: LD_INT 1
1682: ST_TO_ADDR
// hc_importance = 80 ;
1683: LD_ADDR_OWVAR 32
1687: PUSH
1688: LD_INT 80
1690: ST_TO_ADDR
// hc_gallery := ar ;
1691: LD_ADDR_OWVAR 33
1695: PUSH
1696: LD_STRING ar
1698: ST_TO_ADDR
// hc_face_number := 3 ;
1699: LD_ADDR_OWVAR 34
1703: PUSH
1704: LD_INT 3
1706: ST_TO_ADDR
// hc_basic_skills := [ 3 , 0 , 0 , 0 ] ;
1707: LD_ADDR_OWVAR 30
1711: PUSH
1712: LD_INT 3
1714: PUSH
1715: LD_INT 0
1717: PUSH
1718: LD_INT 0
1720: PUSH
1721: LD_INT 0
1723: PUSH
1724: EMPTY
1725: LIST
1726: LIST
1727: LIST
1728: LIST
1729: ST_TO_ADDR
// hc_skills := [ 4 , 3 , 2 , 0 ] ;
1730: LD_ADDR_OWVAR 31
1734: PUSH
1735: LD_INT 4
1737: PUSH
1738: LD_INT 3
1740: PUSH
1741: LD_INT 2
1743: PUSH
1744: LD_INT 0
1746: PUSH
1747: EMPTY
1748: LIST
1749: LIST
1750: LIST
1751: LIST
1752: ST_TO_ADDR
// T = CreateHuman ;
1753: LD_ADDR_EXP 7
1757: PUSH
1758: CALL_OW 44
1762: ST_TO_ADDR
// PlaceUnitArea ( T , tolek , false ) ;
1763: LD_EXP 7
1767: PPUSH
1768: LD_INT 2
1770: PPUSH
1771: LD_INT 0
1773: PPUSH
1774: CALL_OW 49
// end ;
1778: LD_VAR 0 1
1782: RET
// export KI ; export function CKI ; begin
1783: LD_INT 0
1785: PPUSH
// uc_side = 2 ;
1786: LD_ADDR_OWVAR 20
1790: PUSH
1791: LD_INT 2
1793: ST_TO_ADDR
// uc_nation = nation_arabian ;
1794: LD_ADDR_OWVAR 21
1798: PUSH
1799: LD_INT 2
1801: ST_TO_ADDR
// hc_name = Kimiko ;
1802: LD_ADDR_OWVAR 26
1806: PUSH
1807: LD_STRING Kimiko
1809: ST_TO_ADDR
// hc_sex = sex_female ;
1810: LD_ADDR_OWVAR 27
1814: PUSH
1815: LD_INT 2
1817: ST_TO_ADDR
// hc_class = 4 ;
1818: LD_ADDR_OWVAR 28
1822: PUSH
1823: LD_INT 4
1825: ST_TO_ADDR
// hc_importance = 80 ;
1826: LD_ADDR_OWVAR 32
1830: PUSH
1831: LD_INT 80
1833: ST_TO_ADDR
// hc_gallery := multi ;
1834: LD_ADDR_OWVAR 33
1838: PUSH
1839: LD_STRING multi
1841: ST_TO_ADDR
// hc_face_number := 14 ;
1842: LD_ADDR_OWVAR 34
1846: PUSH
1847: LD_INT 14
1849: ST_TO_ADDR
// hc_basic_skills := [ 1 , 0 , 0 , 3 ] ;
1850: LD_ADDR_OWVAR 30
1854: PUSH
1855: LD_INT 1
1857: PUSH
1858: LD_INT 0
1860: PUSH
1861: LD_INT 0
1863: PUSH
1864: LD_INT 3
1866: PUSH
1867: EMPTY
1868: LIST
1869: LIST
1870: LIST
1871: LIST
1872: ST_TO_ADDR
// hc_skills := [ 1 , 3 , 2 , 4 ] ;
1873: LD_ADDR_OWVAR 31
1877: PUSH
1878: LD_INT 1
1880: PUSH
1881: LD_INT 3
1883: PUSH
1884: LD_INT 2
1886: PUSH
1887: LD_INT 4
1889: PUSH
1890: EMPTY
1891: LIST
1892: LIST
1893: LIST
1894: LIST
1895: ST_TO_ADDR
// KI = CreateHuman ;
1896: LD_ADDR_EXP 8
1900: PUSH
1901: CALL_OW 44
1905: ST_TO_ADDR
// PlaceUnitArea ( KI , kimikoarea , false ) ;
1906: LD_EXP 8
1910: PPUSH
1911: LD_INT 4
1913: PPUSH
1914: LD_INT 0
1916: PPUSH
1917: CALL_OW 49
// end ;
1921: LD_VAR 0 1
1925: RET
// export K ; export function CK ; begin
1926: LD_INT 0
1928: PPUSH
// uc_side = 2 ;
1929: LD_ADDR_OWVAR 20
1933: PUSH
1934: LD_INT 2
1936: ST_TO_ADDR
// uc_nation = nation_arabian ;
1937: LD_ADDR_OWVAR 21
1941: PUSH
1942: LD_INT 2
1944: ST_TO_ADDR
// hc_name = Karen ;
1945: LD_ADDR_OWVAR 26
1949: PUSH
1950: LD_STRING Karen
1952: ST_TO_ADDR
// hc_sex = sex_female ;
1953: LD_ADDR_OWVAR 27
1957: PUSH
1958: LD_INT 2
1960: ST_TO_ADDR
// hc_class = 4 ;
1961: LD_ADDR_OWVAR 28
1965: PUSH
1966: LD_INT 4
1968: ST_TO_ADDR
// hc_importance = 80 ;
1969: LD_ADDR_OWVAR 32
1973: PUSH
1974: LD_INT 80
1976: ST_TO_ADDR
// hc_gallery := HEIKE ;
1977: LD_ADDR_OWVAR 33
1981: PUSH
1982: LD_STRING HEIKE
1984: ST_TO_ADDR
// hc_face_number := 1 ;
1985: LD_ADDR_OWVAR 34
1989: PUSH
1990: LD_INT 1
1992: ST_TO_ADDR
// hc_basic_skills := [ 1 , 0 , 0 , 3 ] ;
1993: LD_ADDR_OWVAR 30
1997: PUSH
1998: LD_INT 1
2000: PUSH
2001: LD_INT 0
2003: PUSH
2004: LD_INT 0
2006: PUSH
2007: LD_INT 3
2009: PUSH
2010: EMPTY
2011: LIST
2012: LIST
2013: LIST
2014: LIST
2015: ST_TO_ADDR
// hc_skills := [ 1 , 3 , 2 , 4 ] ;
2016: LD_ADDR_OWVAR 31
2020: PUSH
2021: LD_INT 1
2023: PUSH
2024: LD_INT 3
2026: PUSH
2027: LD_INT 2
2029: PUSH
2030: LD_INT 4
2032: PUSH
2033: EMPTY
2034: LIST
2035: LIST
2036: LIST
2037: LIST
2038: ST_TO_ADDR
// K = CreateHuman ;
2039: LD_ADDR_EXP 9
2043: PUSH
2044: CALL_OW 44
2048: ST_TO_ADDR
// PlaceUnitArea ( K , Area84 , false ) ;
2049: LD_EXP 9
2053: PPUSH
2054: LD_INT 6
2056: PPUSH
2057: LD_INT 0
2059: PPUSH
2060: CALL_OW 49
// end ; end_of_file
2064: LD_VAR 0 1
2068: RET
// export CzasAkcji , Czas ; every 0 0$1 trigger CzasAkcji = true do
2069: LD_EXP 10
2073: PUSH
2074: LD_INT 1
2076: EQUAL
2077: IFFALSE 2100
2079: GO 2081
2081: DISABLE
// begin Display_Strings := [ #Ar08-1 , Czas ] ;
2082: LD_ADDR_OWVAR 47
2086: PUSH
2087: LD_STRING #Ar08-1
2089: PUSH
2090: LD_EXP 11
2094: PUSH
2095: EMPTY
2096: LIST
2097: LIST
2098: ST_TO_ADDR
// enable ;
2099: ENABLE
// end ;
2100: END
// every 0 0$1 trigger CzasAkcji = true do
2101: LD_EXP 10
2105: PUSH
2106: LD_INT 1
2108: EQUAL
2109: IFFALSE 2129
2111: GO 2113
2113: DISABLE
// begin Czas = Czas + 0 0$01 ;
2114: LD_ADDR_EXP 11
2118: PUSH
2119: LD_EXP 11
2123: PUSH
2124: LD_INT 35
2126: PLUS
2127: ST_TO_ADDR
// enable ;
2128: ENABLE
// end ; end_of_file
2129: END
// every 0 0$01 do
2130: GO 2132
2132: DISABLE
// begin comenterunit ( [ s6 , s7 , s8 ] , vseva1 ) ;
2133: LD_INT 433
2135: PUSH
2136: LD_INT 434
2138: PUSH
2139: LD_INT 435
2141: PUSH
2142: EMPTY
2143: LIST
2144: LIST
2145: LIST
2146: PPUSH
2147: LD_INT 190
2149: PPUSH
2150: CALL_OW 120
// comenterunit ( [ s4 ] , bar2 ) ;
2154: LD_INT 425
2156: PUSH
2157: EMPTY
2158: LIST
2159: PPUSH
2160: LD_INT 233
2162: PPUSH
2163: CALL_OW 120
// comenterunit ( [ s5 ] , bar3 ) ;
2167: LD_INT 426
2169: PUSH
2170: EMPTY
2171: LIST
2172: PPUSH
2173: LD_INT 235
2175: PPUSH
2176: CALL_OW 120
// comenterunit ( [ s1 ] , bar6 ) ;
2180: LD_INT 381
2182: PUSH
2183: EMPTY
2184: LIST
2185: PPUSH
2186: LD_INT 354
2188: PPUSH
2189: CALL_OW 120
// comenterunit ( [ s2 ] , bar4 ) ;
2193: LD_INT 382
2195: PUSH
2196: EMPTY
2197: LIST
2198: PPUSH
2199: LD_INT 358
2201: PPUSH
2202: CALL_OW 120
// comenterunit ( [ s3 ] , bar5 ) ;
2206: LD_INT 383
2208: PUSH
2209: EMPTY
2210: LIST
2211: PPUSH
2212: LD_INT 342
2214: PPUSH
2215: CALL_OW 120
// comenterunit ( [ s9 , s10 , s11 , s12 , s13 ] , bar ) ;
2219: LD_INT 439
2221: PUSH
2222: LD_INT 436
2224: PUSH
2225: LD_INT 430
2227: PUSH
2228: LD_INT 431
2230: PUSH
2231: LD_INT 432
2233: PUSH
2234: EMPTY
2235: LIST
2236: LIST
2237: LIST
2238: LIST
2239: LIST
2240: PPUSH
2241: LD_INT 139
2243: PPUSH
2244: CALL_OW 120
// comenterunit ( [ m1 , m2 ] , fac1 ) ;
2248: LD_INT 440
2250: PUSH
2251: LD_INT 441
2253: PUSH
2254: EMPTY
2255: LIST
2256: LIST
2257: PPUSH
2258: LD_INT 128
2260: PPUSH
2261: CALL_OW 120
// comenterunit ( [ m3 , m4 ] , fac2 ) ;
2265: LD_INT 442
2267: PUSH
2268: LD_INT 443
2270: PUSH
2271: EMPTY
2272: LIST
2273: LIST
2274: PPUSH
2275: LD_INT 223
2277: PPUSH
2278: CALL_OW 120
// comenterunit ( [ n1 , n2 ] , lab1 ) ;
2282: LD_INT 445
2284: PUSH
2285: LD_INT 444
2287: PUSH
2288: EMPTY
2289: LIST
2290: LIST
2291: PPUSH
2292: LD_INT 199
2294: PPUSH
2295: CALL_OW 120
// comenterunit ( [ AL , C ] , war ) ;
2299: LD_INT 452
2301: PUSH
2302: LD_INT 459
2304: PUSH
2305: EMPTY
2306: LIST
2307: LIST
2308: PPUSH
2309: LD_INT 175
2311: PPUSH
2312: CALL_OW 120
// end ;
2316: END
