// var depotar ; starting begin disable ( 1 ) ;
   0: LD_INT 1
   2: DISABLE_MARKED
// disable ( 2 ) ;
   3: LD_INT 2
   5: DISABLE_MARKED
// disable ( 3 ) ;
   6: LD_INT 3
   8: DISABLE_MARKED
// disable ( 4 ) ;
   9: LD_INT 4
  11: DISABLE_MARKED
// disable ( 5 ) ;
  12: LD_INT 5
  14: DISABLE_MARKED
// disable ( 6 ) ;
  15: LD_INT 6
  17: DISABLE_MARKED
// disable ( 7 ) ;
  18: LD_INT 7
  20: DISABLE_MARKED
// RemoveUnit ( ken ) ;
  21: LD_INT 424
  23: PPUSH
  24: CALL_OW 64
// resetfog ;
  28: CALL_OW 335
// SaveForQuickRestart ;
  32: CALL_OW 22
// ingameon ;
  36: CALL_OW 8
// CenteronUnits ( Falco ) ;
  40: LD_INT 355
  42: PPUSH
  43: CALL_OW 85
// Say ( Falco , Kpr.Falko1 ) ;
  47: LD_INT 355
  49: PPUSH
  50: LD_STRING Kpr.Falko1
  52: PPUSH
  53: CALL_OW 88
// CenteronUnits ( p1 ) ;
  57: LD_INT 217
  59: PPUSH
  60: CALL_OW 85
// ComAttackUnit ( p1 , at1 ) ;
  64: LD_INT 217
  66: PPUSH
  67: LD_INT 171
  69: PPUSH
  70: CALL_OW 115
// ComAttackUnit ( p2 , at2 ) ;
  74: LD_INT 218
  76: PPUSH
  77: LD_INT 174
  79: PPUSH
  80: CALL_OW 115
// ComAttackUnit ( p3 , at1 ) ;
  84: LD_INT 219
  86: PPUSH
  87: LD_INT 171
  89: PPUSH
  90: CALL_OW 115
// ComAttackUnit ( p4 , at2 ) ;
  94: LD_INT 220
  96: PPUSH
  97: LD_INT 174
  99: PPUSH
 100: CALL_OW 115
// ComAttackUnit ( p5 , at1 ) ;
 104: LD_INT 222
 106: PPUSH
 107: LD_INT 171
 109: PPUSH
 110: CALL_OW 115
// ComAttackUnit ( p6 , at2 ) ;
 114: LD_INT 223
 116: PPUSH
 117: LD_INT 174
 119: PPUSH
 120: CALL_OW 115
// ComAttackUnit ( p7 , at1 ) ;
 124: LD_INT 224
 126: PPUSH
 127: LD_INT 171
 129: PPUSH
 130: CALL_OW 115
// ComAttackUnit ( p8 , at2 ) ;
 134: LD_INT 225
 136: PPUSH
 137: LD_INT 174
 139: PPUSH
 140: CALL_OW 115
// ComAttackUnit ( a1 , bm ) ;
 144: LD_INT 226
 146: PPUSH
 147: LD_INT 440
 149: PPUSH
 150: CALL_OW 115
// ComAttackUnit ( a2 , at1 ) ;
 154: LD_INT 227
 156: PPUSH
 157: LD_INT 171
 159: PPUSH
 160: CALL_OW 115
// ComAttackUnit ( a3 , at2 ) ;
 164: LD_INT 237
 166: PPUSH
 167: LD_INT 174
 169: PPUSH
 170: CALL_OW 115
// ComAttackUnit ( a4 , at1 ) ;
 174: LD_INT 228
 176: PPUSH
 177: LD_INT 171
 179: PPUSH
 180: CALL_OW 115
// ComAttackUnit ( a5 , at2 ) ;
 184: LD_INT 283
 186: PPUSH
 187: LD_INT 174
 189: PPUSH
 190: CALL_OW 115
// ComAttackUnit ( a6 , bm ) ;
 194: LD_INT 231
 196: PPUSH
 197: LD_INT 440
 199: PPUSH
 200: CALL_OW 115
// ComAttackUnit ( a7 , bm ) ;
 204: LD_INT 230
 206: PPUSH
 207: LD_INT 440
 209: PPUSH
 210: CALL_OW 115
// ComAttackUnit ( a8 , at1 ) ;
 214: LD_INT 235
 216: PPUSH
 217: LD_INT 171
 219: PPUSH
 220: CALL_OW 115
// ComAttackUnit ( a9 , at2 ) ;
 224: LD_INT 236
 226: PPUSH
 227: LD_INT 174
 229: PPUSH
 230: CALL_OW 115
// ComAttackUnit ( a10 , at3 ) ;
 234: LD_INT 234
 236: PPUSH
 237: LD_INT 177
 239: PPUSH
 240: CALL_OW 115
// ComAttackUnit ( a11 , at3 ) ;
 244: LD_INT 233
 246: PPUSH
 247: LD_INT 177
 249: PPUSH
 250: CALL_OW 115
// ComAttackUnit ( a12 , at3 ) ;
 254: LD_INT 232
 256: PPUSH
 257: LD_INT 177
 259: PPUSH
 260: CALL_OW 115
// wait ( 0 0$05 ) ;
 264: LD_INT 175
 266: PPUSH
 267: CALL_OW 67
// CenteronUnits ( p1 ) ;
 271: LD_INT 217
 273: PPUSH
 274: CALL_OW 85
// wait ( 0 0$2 ) ;
 278: LD_INT 70
 280: PPUSH
 281: CALL_OW 67
// CenteronUnits ( p1 ) ;
 285: LD_INT 217
 287: PPUSH
 288: CALL_OW 85
// wait ( 0 0$2 ) ;
 292: LD_INT 70
 294: PPUSH
 295: CALL_OW 67
// CenteronUnits ( p1 ) ;
 299: LD_INT 217
 301: PPUSH
 302: CALL_OW 85
// wait ( 0 0$2 ) ;
 306: LD_INT 70
 308: PPUSH
 309: CALL_OW 67
// CenteronUnits ( p1 ) ;
 313: LD_INT 217
 315: PPUSH
 316: CALL_OW 85
// wait ( 0 0$2 ) ;
 320: LD_INT 70
 322: PPUSH
 323: CALL_OW 67
// CenteronUnits ( p1 ) ;
 327: LD_INT 217
 329: PPUSH
 330: CALL_OW 85
// wait ( 0 0$2 ) ;
 334: LD_INT 70
 336: PPUSH
 337: CALL_OW 67
// CenteronUnits ( at1 ) ;
 341: LD_INT 171
 343: PPUSH
 344: CALL_OW 85
// wait ( 0 0$30 ) ;
 348: LD_INT 1050
 350: PPUSH
 351: CALL_OW 67
// CenteronUnits ( Falco ) ;
 355: LD_INT 355
 357: PPUSH
 358: CALL_OW 85
// Say ( Falco , Kpr.Falko2 ) ;
 362: LD_INT 355
 364: PPUSH
 365: LD_STRING Kpr.Falko2
 367: PPUSH
 368: CALL_OW 88
// commovexy ( p1 , 134 , 96 ) ;
 372: LD_INT 217
 374: PPUSH
 375: LD_INT 134
 377: PPUSH
 378: LD_INT 96
 380: PPUSH
 381: CALL_OW 111
// commovexy ( p2 , 134 , 96 ) ;
 385: LD_INT 218
 387: PPUSH
 388: LD_INT 134
 390: PPUSH
 391: LD_INT 96
 393: PPUSH
 394: CALL_OW 111
// commovexy ( p3 , 134 , 96 ) ;
 398: LD_INT 219
 400: PPUSH
 401: LD_INT 134
 403: PPUSH
 404: LD_INT 96
 406: PPUSH
 407: CALL_OW 111
// commovexy ( p4 , 134 , 96 ) ;
 411: LD_INT 220
 413: PPUSH
 414: LD_INT 134
 416: PPUSH
 417: LD_INT 96
 419: PPUSH
 420: CALL_OW 111
// commovexy ( p5 , 134 , 96 ) ;
 424: LD_INT 222
 426: PPUSH
 427: LD_INT 134
 429: PPUSH
 430: LD_INT 96
 432: PPUSH
 433: CALL_OW 111
// commovexy ( p6 , 134 , 96 ) ;
 437: LD_INT 223
 439: PPUSH
 440: LD_INT 134
 442: PPUSH
 443: LD_INT 96
 445: PPUSH
 446: CALL_OW 111
// commovexy ( p7 , 134 , 96 ) ;
 450: LD_INT 224
 452: PPUSH
 453: LD_INT 134
 455: PPUSH
 456: LD_INT 96
 458: PPUSH
 459: CALL_OW 111
// commovexy ( p8 , 134 , 96 ) ;
 463: LD_INT 225
 465: PPUSH
 466: LD_INT 134
 468: PPUSH
 469: LD_INT 96
 471: PPUSH
 472: CALL_OW 111
// commovexy ( a1 , 134 , 96 ) ;
 476: LD_INT 226
 478: PPUSH
 479: LD_INT 134
 481: PPUSH
 482: LD_INT 96
 484: PPUSH
 485: CALL_OW 111
// commovexy ( a2 , 134 , 96 ) ;
 489: LD_INT 227
 491: PPUSH
 492: LD_INT 134
 494: PPUSH
 495: LD_INT 96
 497: PPUSH
 498: CALL_OW 111
// commovexy ( a3 , 134 , 96 ) ;
 502: LD_INT 237
 504: PPUSH
 505: LD_INT 134
 507: PPUSH
 508: LD_INT 96
 510: PPUSH
 511: CALL_OW 111
// commovexy ( a4 , 134 , 96 ) ;
 515: LD_INT 228
 517: PPUSH
 518: LD_INT 134
 520: PPUSH
 521: LD_INT 96
 523: PPUSH
 524: CALL_OW 111
// commovexy ( a5 , 134 , 96 ) ;
 528: LD_INT 283
 530: PPUSH
 531: LD_INT 134
 533: PPUSH
 534: LD_INT 96
 536: PPUSH
 537: CALL_OW 111
// commovexy ( a6 , 134 , 96 ) ;
 541: LD_INT 231
 543: PPUSH
 544: LD_INT 134
 546: PPUSH
 547: LD_INT 96
 549: PPUSH
 550: CALL_OW 111
// commovexy ( a7 , 134 , 96 ) ;
 554: LD_INT 230
 556: PPUSH
 557: LD_INT 134
 559: PPUSH
 560: LD_INT 96
 562: PPUSH
 563: CALL_OW 111
// commovexy ( a8 , 134 , 96 ) ;
 567: LD_INT 235
 569: PPUSH
 570: LD_INT 134
 572: PPUSH
 573: LD_INT 96
 575: PPUSH
 576: CALL_OW 111
// commovexy ( a9 , 134 , 96 ) ;
 580: LD_INT 236
 582: PPUSH
 583: LD_INT 134
 585: PPUSH
 586: LD_INT 96
 588: PPUSH
 589: CALL_OW 111
// commovexy ( a10 , 134 , 96 ) ;
 593: LD_INT 234
 595: PPUSH
 596: LD_INT 134
 598: PPUSH
 599: LD_INT 96
 601: PPUSH
 602: CALL_OW 111
// commovexy ( a11 , 134 , 96 ) ;
 606: LD_INT 233
 608: PPUSH
 609: LD_INT 134
 611: PPUSH
 612: LD_INT 96
 614: PPUSH
 615: CALL_OW 111
// commovexy ( a12 , 134 , 96 ) ;
 619: LD_INT 232
 621: PPUSH
 622: LD_INT 134
 624: PPUSH
 625: LD_INT 96
 627: PPUSH
 628: CALL_OW 111
// wait ( 0 0$05 ) ;
 632: LD_INT 175
 634: PPUSH
 635: CALL_OW 67
// Say ( Falco , Kpr.Falko3 ) ;
 639: LD_INT 355
 641: PPUSH
 642: LD_STRING Kpr.Falko3
 644: PPUSH
 645: CALL_OW 88
// SayRadio ( ken , Ken2 ) ;
 649: LD_INT 424
 651: PPUSH
 652: LD_STRING Ken2
 654: PPUSH
 655: CALL_OW 94
// Say ( Falco , Kpr.Falko4 ) ;
 659: LD_INT 355
 661: PPUSH
 662: LD_STRING Kpr.Falko4
 664: PPUSH
 665: CALL_OW 88
// SayRadio ( ken , Ken3 ) ;
 669: LD_INT 424
 671: PPUSH
 672: LD_STRING Ken3
 674: PPUSH
 675: CALL_OW 94
// Say ( Falco , Kpr.Falko5 ) ;
 679: LD_INT 355
 681: PPUSH
 682: LD_STRING Kpr.Falko5
 684: PPUSH
 685: CALL_OW 88
// SayRadio ( ken , Ken4 ) ;
 689: LD_INT 424
 691: PPUSH
 692: LD_STRING Ken4
 694: PPUSH
 695: CALL_OW 94
// SayRadio ( ken , Ken5 ) ;
 699: LD_INT 424
 701: PPUSH
 702: LD_STRING Ken5
 704: PPUSH
 705: CALL_OW 94
// Say ( Falco , Krp.Falko6 ) ;
 709: LD_INT 355
 711: PPUSH
 712: LD_STRING Krp.Falko6
 714: PPUSH
 715: CALL_OW 88
// depotar = addcombuild ( INZ2 , b_depot , 145 , 106 , 1 ) ;
 719: LD_ADDR_LOC 1
 723: PUSH
 724: LD_INT 427
 726: PPUSH
 727: LD_INT 0
 729: PPUSH
 730: LD_INT 145
 732: PPUSH
 733: LD_INT 106
 735: PPUSH
 736: LD_INT 1
 738: PPUSH
 739: CALL_OW 205
 743: ST_TO_ADDR
// wait ( 1 1$00 ) ;
 744: LD_INT 2100
 746: PPUSH
 747: CALL_OW 67
// CPUAR ;
 751: CALL 2158 0 0
// CJ ;
 755: CALL 2015 0 0
// CINZ ;
 759: CALL 2894 0 0
// CD ;
 763: CALL 2751 0 0
// CAL ;
 767: CALL 2608 0 0
// CKI ;
 771: CALL 2465 0 0
// CMO ;
 775: CALL 2322 0 0
// CK ;
 779: CALL 3037 0 0
// enable ( 1 ) ;
 783: LD_INT 1
 785: ENABLE_MARKED
// enable ( 2 ) ;
 786: LD_INT 2
 788: ENABLE_MARKED
// enable ( 3 ) ;
 789: LD_INT 3
 791: ENABLE_MARKED
// enable ( 4 ) ;
 792: LD_INT 4
 794: ENABLE_MARKED
// enable ( 5 ) ;
 795: LD_INT 5
 797: ENABLE_MARKED
// enable ( 6 ) ;
 798: LD_INT 6
 800: ENABLE_MARKED
// enable ( 7 ) ;
 801: LD_INT 7
 803: ENABLE_MARKED
// wait ( 0 0$03 ) ;
 804: LD_INT 105
 806: PPUSH
 807: CALL_OW 67
// CenteronUnits ( J ) ;
 811: LD_EXP 1
 815: PPUSH
 816: CALL_OW 85
// Say ( J , John8 ) ;
 820: LD_EXP 1
 824: PPUSH
 825: LD_STRING John8
 827: PPUSH
 828: CALL_OW 88
// Say ( Falco , Kpr.Falko7 ) ;
 832: LD_INT 355
 834: PPUSH
 835: LD_STRING Kpr.Falko7
 837: PPUSH
 838: CALL_OW 88
// Say ( J , John9 ) ;
 842: LD_EXP 1
 846: PPUSH
 847: LD_STRING John9
 849: PPUSH
 850: CALL_OW 88
// Say ( J , John10 ) ;
 854: LD_EXP 1
 858: PPUSH
 859: LD_STRING John10
 861: PPUSH
 862: CALL_OW 88
// Say ( Falco , Kpr.Falko8 ) ;
 866: LD_INT 355
 868: PPUSH
 869: LD_STRING Kpr.Falko8
 871: PPUSH
 872: CALL_OW 88
// Say ( Falco , Kpr.Falko9 ) ;
 876: LD_INT 355
 878: PPUSH
 879: LD_STRING Kpr.Falko9
 881: PPUSH
 882: CALL_OW 88
// Say ( J , John11 ) ;
 886: LD_EXP 1
 890: PPUSH
 891: LD_STRING John11
 893: PPUSH
 894: CALL_OW 88
// ingameoff ;
 898: CALL_OW 9
// ChangeMissionObjectives ( CEL4 ) ;
 902: LD_STRING CEL4
 904: PPUSH
 905: CALL_OW 337
// ChangeMissionObjectives ( CEL1 ) ;
 909: LD_STRING CEL1
 911: PPUSH
 912: CALL_OW 337
// ChangeMissionObjectives ( CEL2 ) ;
 916: LD_STRING CEL2
 918: PPUSH
 919: CALL_OW 337
// ChangeMissionObjectives ( CEL3 ) ;
 923: LD_STRING CEL3
 925: PPUSH
 926: CALL_OW 337
// CzasAkcji = true ;
 930: LD_ADDR_EXP 28
 934: PUSH
 935: LD_INT 1
 937: ST_TO_ADDR
// wait ( 0 0$30 ) ;
 938: LD_INT 1050
 940: PPUSH
 941: CALL_OW 67
// SayRadio ( AM , Anastazja1 ) ;
 945: LD_INT 430
 947: PPUSH
 948: LD_STRING Anastazja1
 950: PPUSH
 951: CALL_OW 94
// SayRadio ( C , Creative1 ) ;
 955: LD_INT 429
 957: PPUSH
 958: LD_STRING Creative1
 960: PPUSH
 961: CALL_OW 94
// wait ( 0 0$15 ) ;
 965: LD_INT 525
 967: PPUSH
 968: CALL_OW 67
// Say ( AL , Alex9 ) ;
 972: LD_EXP 9
 976: PPUSH
 977: LD_STRING Alex9
 979: PPUSH
 980: CALL_OW 88
// SayRadio ( C , Cr2 ) ;
 984: LD_INT 429
 986: PPUSH
 987: LD_STRING Cr2
 989: PPUSH
 990: CALL_OW 94
// Say ( AL , Alex10 ) ;
 994: LD_EXP 9
 998: PPUSH
 999: LD_STRING Alex10
1001: PPUSH
1002: CALL_OW 88
// SayRadio ( C , Cr3 ) ;
1006: LD_INT 429
1008: PPUSH
1009: LD_STRING Cr3
1011: PPUSH
1012: CALL_OW 94
// Say ( AL , Alex11 ) ;
1016: LD_EXP 9
1020: PPUSH
1021: LD_STRING Alex11
1023: PPUSH
1024: CALL_OW 88
// SayRadio ( C , Cr4 ) ;
1028: LD_INT 429
1030: PPUSH
1031: LD_STRING Cr4
1033: PPUSH
1034: CALL_OW 94
// wait ( 4 4$00 ) ;
1038: LD_INT 8400
1040: PPUSH
1041: CALL_OW 67
// attacks_enabled = true ;
1045: LD_ADDR_EXP 27
1049: PUSH
1050: LD_INT 1
1052: ST_TO_ADDR
// wait ( 2 2$00 ) ;
1053: LD_INT 4200
1055: PPUSH
1056: CALL_OW 67
// SayRadio ( ken , Ken6 ) ;
1060: LD_INT 424
1062: PPUSH
1063: LD_STRING Ken6
1065: PPUSH
1066: CALL_OW 94
// Say ( AL , Alex12 ) ;
1070: LD_EXP 9
1074: PPUSH
1075: LD_STRING Alex12
1077: PPUSH
1078: CALL_OW 88
// SayRadio ( ken , Ken7 ) ;
1082: LD_INT 424
1084: PPUSH
1085: LD_STRING Ken7
1087: PPUSH
1088: CALL_OW 94
// Posilki ;
1092: CALL 1193 0 0
// wait ( 10 10$00 ) ;
1096: LD_INT 21000
1098: PPUSH
1099: CALL_OW 67
// ComAttackUnit ( ATOM , monkey ) ;
1103: LD_INT 468
1105: PPUSH
1106: LD_INT 485
1108: PPUSH
1109: CALL_OW 115
// wait ( 0 0$05 ) ;
1113: LD_INT 175
1115: PPUSH
1116: CALL_OW 67
// Say ( AL , Alex7 ) ;
1120: LD_EXP 9
1124: PPUSH
1125: LD_STRING Alex7
1127: PPUSH
1128: CALL_OW 88
// Say ( J , John12 ) ;
1132: LD_EXP 1
1136: PPUSH
1137: LD_STRING John12
1139: PPUSH
1140: CALL_OW 88
// wait ( 5 5$00 ) ;
1144: LD_INT 10500
1146: PPUSH
1147: CALL_OW 67
// SayRadio ( AM , Anastazja2 ) ;
1151: LD_INT 430
1153: PPUSH
1154: LD_STRING Anastazja2
1156: PPUSH
1157: CALL_OW 94
// RemoveUnit ( C ) ;
1161: LD_INT 429
1163: PPUSH
1164: CALL_OW 64
// Say ( AL , Alex8 ) ;
1168: LD_EXP 9
1172: PPUSH
1173: LD_STRING Alex8
1175: PPUSH
1176: CALL_OW 88
// Say ( J , John13 ) ;
1180: LD_EXP 1
1184: PPUSH
1185: LD_STRING John13
1187: PPUSH
1188: CALL_OW 88
// end ;
1192: END
// function Posilki ; begin
1193: LD_INT 0
1195: PPUSH
// case Query ( Posilki ) of 1 :
1196: LD_STRING Posilki
1198: PPUSH
1199: CALL_OW 97
1203: PUSH
1204: LD_INT 1
1206: DOUBLE
1207: EQUAL
1208: IFTRUE 1212
1210: GO 1260
1212: POP
// begin Say ( AL , Alex13a ) ;
1213: LD_EXP 9
1217: PPUSH
1218: LD_STRING Alex13a
1220: PPUSH
1221: CALL_OW 88
// SayRadio ( ken , Ken8 ) ;
1225: LD_INT 424
1227: PPUSH
1228: LD_STRING Ken8
1230: PPUSH
1231: CALL_OW 94
// Say ( AL , Alex14 ) ;
1235: LD_EXP 9
1239: PPUSH
1240: LD_STRING Alex14
1242: PPUSH
1243: CALL_OW 88
// wait ( 10 10$00 ) ;
1247: LD_INT 21000
1249: PPUSH
1250: CALL_OW 67
// arabattack ;
1254: CALL 3180 0 0
// end ; 2 :
1258: GO 1294
1260: LD_INT 2
1262: DOUBLE
1263: EQUAL
1264: IFTRUE 1268
1266: GO 1293
1268: POP
// begin Say ( AL , Alex13b ) ;
1269: LD_EXP 9
1273: PPUSH
1274: LD_STRING Alex13b
1276: PPUSH
1277: CALL_OW 88
// SayRadio ( ken , Ken9 ) ;
1281: LD_INT 424
1283: PPUSH
1284: LD_STRING Ken9
1286: PPUSH
1287: CALL_OW 94
// end ; end ;
1291: GO 1294
1293: POP
// end ; end_of_file
1294: LD_VAR 0 1
1298: RET
// every 0 0$01 do
1299: GO 1301
1301: DISABLE
// begin comenterunit ( [ m1 , m2 , m3 ] , ru_fact ) ;
1302: LD_INT 184
1304: PUSH
1305: LD_INT 185
1307: PUSH
1308: LD_INT 186
1310: PUSH
1311: EMPTY
1312: LIST
1313: LIST
1314: LIST
1315: PPUSH
1316: LD_INT 21
1318: PPUSH
1319: CALL_OW 120
// comenterunit ( [ zr1 , zr2 , ze3 , z3 , ze1 , zex ] , barr ) ;
1323: LD_INT 122
1325: PUSH
1326: LD_INT 123
1328: PUSH
1329: LD_INT 124
1331: PUSH
1332: LD_INT 125
1334: PUSH
1335: LD_INT 126
1337: PUSH
1338: LD_INT 354
1340: PUSH
1341: EMPTY
1342: LIST
1343: LIST
1344: LIST
1345: LIST
1346: LIST
1347: LIST
1348: PPUSH
1349: LD_INT 114
1351: PPUSH
1352: CALL_OW 120
// comenterunit ( [ n1 , n2 ] , lab2 ) ;
1356: LD_INT 187
1358: PUSH
1359: LD_INT 188
1361: PUSH
1362: EMPTY
1363: LIST
1364: LIST
1365: PPUSH
1366: LD_INT 131
1368: PPUSH
1369: CALL_OW 120
// comenterunit ( [ n3 , n4 ] , ru_lab ) ;
1373: LD_INT 189
1375: PUSH
1376: LD_INT 190
1378: PUSH
1379: EMPTY
1380: LIST
1381: LIST
1382: PPUSH
1383: LD_INT 3
1385: PPUSH
1386: CALL_OW 120
// comenterunit ( [ ik ] , brea1 ) ;
1390: LD_INT 116
1392: PUSH
1393: EMPTY
1394: LIST
1395: PPUSH
1396: LD_INT 95
1398: PPUSH
1399: CALL_OW 120
// comenterunit ( [ ia ] , brea2 ) ;
1403: LD_INT 117
1405: PUSH
1406: EMPTY
1407: LIST
1408: PPUSH
1409: LD_INT 93
1411: PPUSH
1412: CALL_OW 120
// comenterunit ( [ nr ] , brea3 ) ;
1416: LD_INT 118
1418: PUSH
1419: EMPTY
1420: LIST
1421: PPUSH
1422: LD_INT 94
1424: PPUSH
1425: CALL_OW 120
// comenterunit ( [ ft ] , brea4 ) ;
1429: LD_INT 121
1431: PUSH
1432: EMPTY
1433: LIST
1434: PPUSH
1435: LD_INT 85
1437: PPUSH
1438: CALL_OW 120
// comenterunit ( [ py ] , brea5 ) ;
1442: LD_INT 120
1444: PUSH
1445: EMPTY
1446: LIST
1447: PPUSH
1448: LD_INT 87
1450: PPUSH
1451: CALL_OW 120
// comenterunit ( [ apr ] , brea6 ) ;
1455: LD_INT 119
1457: PUSH
1458: EMPTY
1459: LIST
1460: PPUSH
1461: LD_INT 97
1463: PPUSH
1464: CALL_OW 120
// end ; end_of_file
1468: END
// every 0 0$01 do var un , EnginerList , buildings , depots , i ;
1469: GO 1471
1471: DISABLE
1472: LD_INT 0
1474: PPUSH
1475: PPUSH
1476: PPUSH
1477: PPUSH
1478: PPUSH
// begin enable ;
1479: ENABLE
// EnginerList := FilterAllUnits ( [ [ [ f_side , 3 ] , [ f_class , 2 ] , [ f_lives , 1000 ] ] ] ) ;
1480: LD_ADDR_VAR 0 2
1484: PUSH
1485: LD_INT 22
1487: PUSH
1488: LD_INT 3
1490: PUSH
1491: EMPTY
1492: LIST
1493: LIST
1494: PUSH
1495: LD_INT 25
1497: PUSH
1498: LD_INT 2
1500: PUSH
1501: EMPTY
1502: LIST
1503: LIST
1504: PUSH
1505: LD_INT 24
1507: PUSH
1508: LD_INT 1000
1510: PUSH
1511: EMPTY
1512: LIST
1513: LIST
1514: PUSH
1515: EMPTY
1516: LIST
1517: LIST
1518: LIST
1519: PUSH
1520: EMPTY
1521: LIST
1522: PPUSH
1523: CALL_OW 69
1527: ST_TO_ADDR
// buildings := FilterAllUnits ( [ [ [ f_side , 3 ] , [ f_type , unit_building ] , [ f_not , [ f_lives , 1000 ] ] ] ] ) ;
1528: LD_ADDR_VAR 0 3
1532: PUSH
1533: LD_INT 22
1535: PUSH
1536: LD_INT 3
1538: PUSH
1539: EMPTY
1540: LIST
1541: LIST
1542: PUSH
1543: LD_INT 21
1545: PUSH
1546: LD_INT 3
1548: PUSH
1549: EMPTY
1550: LIST
1551: LIST
1552: PUSH
1553: LD_INT 3
1555: PUSH
1556: LD_INT 24
1558: PUSH
1559: LD_INT 1000
1561: PUSH
1562: EMPTY
1563: LIST
1564: LIST
1565: PUSH
1566: EMPTY
1567: LIST
1568: LIST
1569: PUSH
1570: EMPTY
1571: LIST
1572: LIST
1573: LIST
1574: PUSH
1575: EMPTY
1576: LIST
1577: PPUSH
1578: CALL_OW 69
1582: ST_TO_ADDR
// if buildings > 0 then
1583: LD_VAR 0 3
1587: PUSH
1588: LD_INT 0
1590: GREATER
1591: IFFALSE 1673
// begin for i = 1 to EnginerList do
1593: LD_ADDR_VAR 0 5
1597: PUSH
1598: DOUBLE
1599: LD_INT 1
1601: DEC
1602: ST_TO_ADDR
1603: LD_VAR 0 2
1607: PUSH
1608: FOR_TO
1609: IFFALSE 1671
// begin if IsInUnit ( EnginerList [ i ] ) then
1611: LD_VAR 0 2
1615: PUSH
1616: LD_VAR 0 5
1620: ARRAY
1621: PPUSH
1622: CALL_OW 310
1626: IFFALSE 1645
// ComExitBuilding ( EnginerList [ i ] ) else
1628: LD_VAR 0 2
1632: PUSH
1633: LD_VAR 0 5
1637: ARRAY
1638: PPUSH
1639: CALL_OW 122
1643: GO 1669
// ComRepairBuilding ( EnginerList [ i ] , buildings [ 1 ] ) ;
1645: LD_VAR 0 2
1649: PUSH
1650: LD_VAR 0 5
1654: ARRAY
1655: PPUSH
1656: LD_VAR 0 3
1660: PUSH
1661: LD_INT 1
1663: ARRAY
1664: PPUSH
1665: CALL_OW 130
// end ;
1669: GO 1608
1671: POP
1672: POP
// end ; if buildings = 0 then
1673: LD_VAR 0 3
1677: PUSH
1678: LD_INT 0
1680: EQUAL
1681: IFFALSE 1741
// begin for i = 1 to EnginerList do
1683: LD_ADDR_VAR 0 5
1687: PUSH
1688: DOUBLE
1689: LD_INT 1
1691: DEC
1692: ST_TO_ADDR
1693: LD_VAR 0 2
1697: PUSH
1698: FOR_TO
1699: IFFALSE 1739
// begin if not HasTask ( EnginerList [ i ] ) and not IsInUnit ( EnginerList [ i ] ) then
1701: LD_VAR 0 2
1705: PUSH
1706: LD_VAR 0 5
1710: ARRAY
1711: PPUSH
1712: CALL_OW 314
1716: NOT
1717: PUSH
1718: LD_VAR 0 2
1722: PUSH
1723: LD_VAR 0 5
1727: ARRAY
1728: PPUSH
1729: CALL_OW 310
1733: NOT
1734: AND
1735: IFFALSE 1737
// end ;
1737: GO 1698
1739: POP
1740: POP
// end ; end ; end_of_file
1741: PPOPN 5
1743: END
// every 0 0$01 trigger isDead ( D ) marked 5 do
1744: LD_EXP 10
1748: PPUSH
1749: CALL_OW 301
1753: IFFALSE 1765
1755: GO 1757
1757: DISABLE
// begin YouLost ( Demi_nie_zyje ) ;
1758: LD_STRING Demi_nie_zyje
1760: PPUSH
1761: CALL_OW 104
// end ;
1765: END
// every 0 0$01 trigger isDead ( MO ) marked 4 do
1766: LD_EXP 7
1770: PPUSH
1771: CALL_OW 301
1775: IFFALSE 1787
1777: GO 1779
1779: DISABLE
// begin YouLost ( Monalisa_nie_zyje ) ;
1780: LD_STRING Monalisa_nie_zyje
1782: PPUSH
1783: CALL_OW 104
// end ;
1787: END
// every 0 0$01 trigger isDead ( KI ) marked 2 do
1788: LD_EXP 8
1792: PPUSH
1793: CALL_OW 301
1797: IFFALSE 1809
1799: GO 1801
1801: DISABLE
// begin YouLost ( Kimiko_nie_zyje ) ;
1802: LD_STRING Kimiko_nie_zyje
1804: PPUSH
1805: CALL_OW 104
// end ;
1809: END
// every 0 0$01 trigger isDead ( K ) marked 7 do
1810: LD_EXP 12
1814: PPUSH
1815: CALL_OW 301
1819: IFFALSE 1831
1821: GO 1823
1823: DISABLE
// begin YouLost ( Karen_nie_zyje ) ;
1824: LD_STRING Karen_nie_zyje
1826: PPUSH
1827: CALL_OW 104
// end ;
1831: END
// every 0 0$01 trigger isDead ( J ) marked 1 do
1832: LD_EXP 1
1836: PPUSH
1837: CALL_OW 301
1841: IFFALSE 1853
1843: GO 1845
1845: DISABLE
// begin YouLost ( John_nie_zyje ) ;
1846: LD_STRING John_nie_zyje
1848: PPUSH
1849: CALL_OW 104
// end ;
1853: END
// every 0 0$01 trigger isDead ( AL ) marked 3 do
1854: LD_EXP 9
1858: PPUSH
1859: CALL_OW 301
1863: IFFALSE 1875
1865: GO 1867
1867: DISABLE
// begin YouLost ( Alex_nie_zyje ) ;
1868: LD_STRING Alex_nie_zyje
1870: PPUSH
1871: CALL_OW 104
// end ;
1875: END
// every 0 0$01 trigger isDead ( Falco ) marked 6 do
1876: LD_INT 355
1878: PPUSH
1879: CALL_OW 301
1883: IFFALSE 1895
1885: GO 1887
1887: DISABLE
// begin YouLost ( Falko_nie_zyje ) ;
1888: LD_STRING Falko_nie_zyje
1890: PPUSH
1891: CALL_OW 104
// end ;
1895: END
// every 0 0$01 trigger isDead ( dep ) and isDead ( dep1 ) do
1896: LD_INT 6
1898: PPUSH
1899: CALL_OW 301
1903: PUSH
1904: LD_INT 4
1906: PPUSH
1907: CALL_OW 301
1911: AND
1912: IFFALSE 1965
1914: GO 1916
1916: DISABLE
// begin ChangeMissionObjectives ( CEL2W ) ;
1917: LD_STRING CEL2W
1919: PPUSH
1920: CALL_OW 337
// AddMedal ( medal1 , 1 ) ;
1924: LD_STRING medal1
1926: PPUSH
1927: LD_INT 1
1929: PPUSH
1930: CALL_OW 101
// AddMedal ( medal2 , 1 ) ;
1934: LD_STRING medal2
1936: PPUSH
1937: LD_INT 1
1939: PPUSH
1940: CALL_OW 101
// AddMedal ( medal3 , 1 ) ;
1944: LD_STRING medal3
1946: PPUSH
1947: LD_INT 1
1949: PPUSH
1950: CALL_OW 101
// GiveMedals ( Main ) ;
1954: LD_STRING Main
1956: PPUSH
1957: CALL_OW 102
// YouWin ;
1961: CALL_OW 103
// end ; end_of_file
1965: END
// every 1 1$30 do
1966: GO 1968
1968: DISABLE
// begin CreateCratesAnywhere ( Rand ( 2 , 5 ) , true ) ;
1969: LD_INT 2
1971: PPUSH
1972: LD_INT 5
1974: PPUSH
1975: CALL_OW 12
1979: PPUSH
1980: LD_INT 1
1982: PPUSH
1983: CALL_OW 57
// enable ;
1987: ENABLE
// end ;
1988: END
// every 3 3$00 do
1989: GO 1991
1991: DISABLE
// begin enable ;
1992: ENABLE
// CreateCratesArea ( Rand ( 3 , 5 ) , Area32 , true ) end ; end_of_file
1993: LD_INT 3
1995: PPUSH
1996: LD_INT 5
1998: PPUSH
1999: CALL_OW 12
2003: PPUSH
2004: LD_INT 3
2006: PPUSH
2007: LD_INT 1
2009: PPUSH
2010: CALL_OW 55
2014: END
// export J ; export function CJ ; begin
2015: LD_INT 0
2017: PPUSH
// uc_side = 5 ;
2018: LD_ADDR_OWVAR 20
2022: PUSH
2023: LD_INT 5
2025: ST_TO_ADDR
// uc_nation = nation_arabian ;
2026: LD_ADDR_OWVAR 21
2030: PUSH
2031: LD_INT 2
2033: ST_TO_ADDR
// hc_name = John ;
2034: LD_ADDR_OWVAR 26
2038: PUSH
2039: LD_STRING John
2041: ST_TO_ADDR
// hc_sex = sex_male ;
2042: LD_ADDR_OWVAR 27
2046: PUSH
2047: LD_INT 1
2049: ST_TO_ADDR
// hc_class = 1 ;
2050: LD_ADDR_OWVAR 28
2054: PUSH
2055: LD_INT 1
2057: ST_TO_ADDR
// hc_importance = 80 ;
2058: LD_ADDR_OWVAR 32
2062: PUSH
2063: LD_INT 80
2065: ST_TO_ADDR
// hc_gallery := ar ;
2066: LD_ADDR_OWVAR 33
2070: PUSH
2071: LD_STRING ar
2073: ST_TO_ADDR
// hc_face_number := 9 ;
2074: LD_ADDR_OWVAR 34
2078: PUSH
2079: LD_INT 9
2081: ST_TO_ADDR
// hc_basic_skills := [ 7 , 0 , 0 , 0 ] ;
2082: LD_ADDR_OWVAR 30
2086: PUSH
2087: LD_INT 7
2089: PUSH
2090: LD_INT 0
2092: PUSH
2093: LD_INT 0
2095: PUSH
2096: LD_INT 0
2098: PUSH
2099: EMPTY
2100: LIST
2101: LIST
2102: LIST
2103: LIST
2104: ST_TO_ADDR
// hc_skills := [ 7 , 3 , 2 , 0 ] ;
2105: LD_ADDR_OWVAR 31
2109: PUSH
2110: LD_INT 7
2112: PUSH
2113: LD_INT 3
2115: PUSH
2116: LD_INT 2
2118: PUSH
2119: LD_INT 0
2121: PUSH
2122: EMPTY
2123: LIST
2124: LIST
2125: LIST
2126: LIST
2127: ST_TO_ADDR
// J = CreateHuman ;
2128: LD_ADDR_EXP 1
2132: PUSH
2133: CALL_OW 44
2137: ST_TO_ADDR
// PlaceUnitArea ( J , sojuszar , false ) ;
2138: LD_EXP 1
2142: PPUSH
2143: LD_INT 1
2145: PPUSH
2146: LD_INT 0
2148: PPUSH
2149: CALL_OW 49
// end ;
2153: LD_VAR 0 1
2157: RET
// export soldat1 , soldat2 , soldat3 , soldat4 , soldat5 ; export function CPUAR ; begin
2158: LD_INT 0
2160: PPUSH
// uc_side = 5 ;
2161: LD_ADDR_OWVAR 20
2165: PUSH
2166: LD_INT 5
2168: ST_TO_ADDR
// uc_nation = nation_arabian ;
2169: LD_ADDR_OWVAR 21
2173: PUSH
2174: LD_INT 2
2176: ST_TO_ADDR
// hc_class = CLASS_SOLDIER ;
2177: LD_ADDR_OWVAR 28
2181: PUSH
2182: LD_INT 1
2184: ST_TO_ADDR
// PrepareSoldierSkills ( 6 ) ;
2185: LD_INT 6
2187: PPUSH
2188: CALL_OW 375
// soldat1 = CreateHuman ;
2192: LD_ADDR_EXP 2
2196: PUSH
2197: CALL_OW 44
2201: ST_TO_ADDR
// soldat2 = CreateHuman ;
2202: LD_ADDR_EXP 3
2206: PUSH
2207: CALL_OW 44
2211: ST_TO_ADDR
// soldat3 = CreateHuman ;
2212: LD_ADDR_EXP 4
2216: PUSH
2217: CALL_OW 44
2221: ST_TO_ADDR
// soldat4 = CreateHuman ;
2222: LD_ADDR_EXP 5
2226: PUSH
2227: CALL_OW 44
2231: ST_TO_ADDR
// soldat5 = CreateHuman ;
2232: LD_ADDR_EXP 6
2236: PUSH
2237: CALL_OW 44
2241: ST_TO_ADDR
// PlaceUnitArea ( soldat1 , sojuszar , false ) ;
2242: LD_EXP 2
2246: PPUSH
2247: LD_INT 1
2249: PPUSH
2250: LD_INT 0
2252: PPUSH
2253: CALL_OW 49
// PlaceUnitArea ( soldat2 , sojuszar , false ) ;
2257: LD_EXP 3
2261: PPUSH
2262: LD_INT 1
2264: PPUSH
2265: LD_INT 0
2267: PPUSH
2268: CALL_OW 49
// PlaceUnitArea ( soldat3 , sojuszar , false ) ;
2272: LD_EXP 4
2276: PPUSH
2277: LD_INT 1
2279: PPUSH
2280: LD_INT 0
2282: PPUSH
2283: CALL_OW 49
// PlaceUnitArea ( soldat4 , sojuszar , false ) ;
2287: LD_EXP 5
2291: PPUSH
2292: LD_INT 1
2294: PPUSH
2295: LD_INT 0
2297: PPUSH
2298: CALL_OW 49
// PlaceUnitArea ( soldat5 , sojuszar , false ) ;
2302: LD_EXP 6
2306: PPUSH
2307: LD_INT 1
2309: PPUSH
2310: LD_INT 0
2312: PPUSH
2313: CALL_OW 49
// end ;
2317: LD_VAR 0 1
2321: RET
// export MO ; export function CMO ; begin
2322: LD_INT 0
2324: PPUSH
// uc_side = 5 ;
2325: LD_ADDR_OWVAR 20
2329: PUSH
2330: LD_INT 5
2332: ST_TO_ADDR
// uc_nation = nation_arabian ;
2333: LD_ADDR_OWVAR 21
2337: PUSH
2338: LD_INT 2
2340: ST_TO_ADDR
// hc_name = Monalisa ;
2341: LD_ADDR_OWVAR 26
2345: PUSH
2346: LD_STRING Monalisa
2348: ST_TO_ADDR
// hc_sex = sex_female ;
2349: LD_ADDR_OWVAR 27
2353: PUSH
2354: LD_INT 2
2356: ST_TO_ADDR
// hc_class = 4 ;
2357: LD_ADDR_OWVAR 28
2361: PUSH
2362: LD_INT 4
2364: ST_TO_ADDR
// hc_importance = 80 ;
2365: LD_ADDR_OWVAR 32
2369: PUSH
2370: LD_INT 80
2372: ST_TO_ADDR
// hc_gallery := ar ;
2373: LD_ADDR_OWVAR 33
2377: PUSH
2378: LD_STRING ar
2380: ST_TO_ADDR
// hc_face_number := 1 ;
2381: LD_ADDR_OWVAR 34
2385: PUSH
2386: LD_INT 1
2388: ST_TO_ADDR
// hc_basic_skills := [ 0 , 0 , 0 , 5 ] ;
2389: LD_ADDR_OWVAR 30
2393: PUSH
2394: LD_INT 0
2396: PUSH
2397: LD_INT 0
2399: PUSH
2400: LD_INT 0
2402: PUSH
2403: LD_INT 5
2405: PUSH
2406: EMPTY
2407: LIST
2408: LIST
2409: LIST
2410: LIST
2411: ST_TO_ADDR
// hc_skills := [ 0 , 3 , 2 , 5 ] ;
2412: LD_ADDR_OWVAR 31
2416: PUSH
2417: LD_INT 0
2419: PUSH
2420: LD_INT 3
2422: PUSH
2423: LD_INT 2
2425: PUSH
2426: LD_INT 5
2428: PUSH
2429: EMPTY
2430: LIST
2431: LIST
2432: LIST
2433: LIST
2434: ST_TO_ADDR
// MO = CreateHuman ;
2435: LD_ADDR_EXP 7
2439: PUSH
2440: CALL_OW 44
2444: ST_TO_ADDR
// PlaceUnitArea ( MO , sojuszar , false ) ;
2445: LD_EXP 7
2449: PPUSH
2450: LD_INT 1
2452: PPUSH
2453: LD_INT 0
2455: PPUSH
2456: CALL_OW 49
// end ;
2460: LD_VAR 0 1
2464: RET
// export KI ; export function CKI ; begin
2465: LD_INT 0
2467: PPUSH
// uc_side = 5 ;
2468: LD_ADDR_OWVAR 20
2472: PUSH
2473: LD_INT 5
2475: ST_TO_ADDR
// uc_nation = nation_arabian ;
2476: LD_ADDR_OWVAR 21
2480: PUSH
2481: LD_INT 2
2483: ST_TO_ADDR
// hc_name = Kimiko ;
2484: LD_ADDR_OWVAR 26
2488: PUSH
2489: LD_STRING Kimiko
2491: ST_TO_ADDR
// hc_sex = sex_female ;
2492: LD_ADDR_OWVAR 27
2496: PUSH
2497: LD_INT 2
2499: ST_TO_ADDR
// hc_class = 4 ;
2500: LD_ADDR_OWVAR 28
2504: PUSH
2505: LD_INT 4
2507: ST_TO_ADDR
// hc_importance = 80 ;
2508: LD_ADDR_OWVAR 32
2512: PUSH
2513: LD_INT 80
2515: ST_TO_ADDR
// hc_gallery := multi ;
2516: LD_ADDR_OWVAR 33
2520: PUSH
2521: LD_STRING multi
2523: ST_TO_ADDR
// hc_face_number := 14 ;
2524: LD_ADDR_OWVAR 34
2528: PUSH
2529: LD_INT 14
2531: ST_TO_ADDR
// hc_basic_skills := [ 0 , 0 , 0 , 6 ] ;
2532: LD_ADDR_OWVAR 30
2536: PUSH
2537: LD_INT 0
2539: PUSH
2540: LD_INT 0
2542: PUSH
2543: LD_INT 0
2545: PUSH
2546: LD_INT 6
2548: PUSH
2549: EMPTY
2550: LIST
2551: LIST
2552: LIST
2553: LIST
2554: ST_TO_ADDR
// hc_skills := [ 0 , 3 , 2 , 6 ] ;
2555: LD_ADDR_OWVAR 31
2559: PUSH
2560: LD_INT 0
2562: PUSH
2563: LD_INT 3
2565: PUSH
2566: LD_INT 2
2568: PUSH
2569: LD_INT 6
2571: PUSH
2572: EMPTY
2573: LIST
2574: LIST
2575: LIST
2576: LIST
2577: ST_TO_ADDR
// KI = CreateHuman ;
2578: LD_ADDR_EXP 8
2582: PUSH
2583: CALL_OW 44
2587: ST_TO_ADDR
// PlaceUnitArea ( KI , sojuszar , false ) ;
2588: LD_EXP 8
2592: PPUSH
2593: LD_INT 1
2595: PPUSH
2596: LD_INT 0
2598: PPUSH
2599: CALL_OW 49
// end ;
2603: LD_VAR 0 1
2607: RET
// export AL ; export function CAL ; begin
2608: LD_INT 0
2610: PPUSH
// uc_side = 5 ;
2611: LD_ADDR_OWVAR 20
2615: PUSH
2616: LD_INT 5
2618: ST_TO_ADDR
// uc_nation = nation_arabian ;
2619: LD_ADDR_OWVAR 21
2623: PUSH
2624: LD_INT 2
2626: ST_TO_ADDR
// hc_name = Alex ;
2627: LD_ADDR_OWVAR 26
2631: PUSH
2632: LD_STRING Alex
2634: ST_TO_ADDR
// hc_sex = sex_male ;
2635: LD_ADDR_OWVAR 27
2639: PUSH
2640: LD_INT 1
2642: ST_TO_ADDR
// hc_class = 1 ;
2643: LD_ADDR_OWVAR 28
2647: PUSH
2648: LD_INT 1
2650: ST_TO_ADDR
// hc_importance = 80 ;
2651: LD_ADDR_OWVAR 32
2655: PUSH
2656: LD_INT 80
2658: ST_TO_ADDR
// hc_gallery := ar ;
2659: LD_ADDR_OWVAR 33
2663: PUSH
2664: LD_STRING ar
2666: ST_TO_ADDR
// hc_face_number := 15 ;
2667: LD_ADDR_OWVAR 34
2671: PUSH
2672: LD_INT 15
2674: ST_TO_ADDR
// hc_basic_skills := [ 7 , 0 , 0 , 0 ] ;
2675: LD_ADDR_OWVAR 30
2679: PUSH
2680: LD_INT 7
2682: PUSH
2683: LD_INT 0
2685: PUSH
2686: LD_INT 0
2688: PUSH
2689: LD_INT 0
2691: PUSH
2692: EMPTY
2693: LIST
2694: LIST
2695: LIST
2696: LIST
2697: ST_TO_ADDR
// hc_skills := [ 7 , 3 , 2 , 0 ] ;
2698: LD_ADDR_OWVAR 31
2702: PUSH
2703: LD_INT 7
2705: PUSH
2706: LD_INT 3
2708: PUSH
2709: LD_INT 2
2711: PUSH
2712: LD_INT 0
2714: PUSH
2715: EMPTY
2716: LIST
2717: LIST
2718: LIST
2719: LIST
2720: ST_TO_ADDR
// AL = CreateHuman ;
2721: LD_ADDR_EXP 9
2725: PUSH
2726: CALL_OW 44
2730: ST_TO_ADDR
// PlaceUnitArea ( AL , sojuszar , false ) ;
2731: LD_EXP 9
2735: PPUSH
2736: LD_INT 1
2738: PPUSH
2739: LD_INT 0
2741: PPUSH
2742: CALL_OW 49
// end ;
2746: LD_VAR 0 1
2750: RET
// export D ; export function CD ; begin
2751: LD_INT 0
2753: PPUSH
// uc_side = 5 ;
2754: LD_ADDR_OWVAR 20
2758: PUSH
2759: LD_INT 5
2761: ST_TO_ADDR
// uc_nation = nation_arabian ;
2762: LD_ADDR_OWVAR 21
2766: PUSH
2767: LD_INT 2
2769: ST_TO_ADDR
// hc_name = Demi ;
2770: LD_ADDR_OWVAR 26
2774: PUSH
2775: LD_STRING Demi
2777: ST_TO_ADDR
// hc_sex = sex_female ;
2778: LD_ADDR_OWVAR 27
2782: PUSH
2783: LD_INT 2
2785: ST_TO_ADDR
// hc_class = 1 ;
2786: LD_ADDR_OWVAR 28
2790: PUSH
2791: LD_INT 1
2793: ST_TO_ADDR
// hc_importance = 80 ;
2794: LD_ADDR_OWVAR 32
2798: PUSH
2799: LD_INT 80
2801: ST_TO_ADDR
// hc_gallery := us ;
2802: LD_ADDR_OWVAR 33
2806: PUSH
2807: LD_STRING us
2809: ST_TO_ADDR
// hc_face_number := 2 ;
2810: LD_ADDR_OWVAR 34
2814: PUSH
2815: LD_INT 2
2817: ST_TO_ADDR
// hc_basic_skills := [ 8 , 0 , 0 , 0 ] ;
2818: LD_ADDR_OWVAR 30
2822: PUSH
2823: LD_INT 8
2825: PUSH
2826: LD_INT 0
2828: PUSH
2829: LD_INT 0
2831: PUSH
2832: LD_INT 0
2834: PUSH
2835: EMPTY
2836: LIST
2837: LIST
2838: LIST
2839: LIST
2840: ST_TO_ADDR
// hc_skills := [ 9 , 3 , 2 , 0 ] ;
2841: LD_ADDR_OWVAR 31
2845: PUSH
2846: LD_INT 9
2848: PUSH
2849: LD_INT 3
2851: PUSH
2852: LD_INT 2
2854: PUSH
2855: LD_INT 0
2857: PUSH
2858: EMPTY
2859: LIST
2860: LIST
2861: LIST
2862: LIST
2863: ST_TO_ADDR
// D = CreateHuman ;
2864: LD_ADDR_EXP 10
2868: PUSH
2869: CALL_OW 44
2873: ST_TO_ADDR
// PlaceUnitArea ( D , sojuszar , false ) ;
2874: LD_EXP 10
2878: PPUSH
2879: LD_INT 1
2881: PPUSH
2882: LD_INT 0
2884: PPUSH
2885: CALL_OW 49
// end ;
2889: LD_VAR 0 1
2893: RET
// export INZ ; export function CINZ ; begin
2894: LD_INT 0
2896: PPUSH
// uc_side = 5 ;
2897: LD_ADDR_OWVAR 20
2901: PUSH
2902: LD_INT 5
2904: ST_TO_ADDR
// uc_nation = nation_arabian ;
2905: LD_ADDR_OWVAR 21
2909: PUSH
2910: LD_INT 2
2912: ST_TO_ADDR
// hc_name = Feonir Maydayew ;
2913: LD_ADDR_OWVAR 26
2917: PUSH
2918: LD_STRING Feonir Maydayew
2920: ST_TO_ADDR
// hc_sex = sex_male ;
2921: LD_ADDR_OWVAR 27
2925: PUSH
2926: LD_INT 1
2928: ST_TO_ADDR
// hc_class = 2 ;
2929: LD_ADDR_OWVAR 28
2933: PUSH
2934: LD_INT 2
2936: ST_TO_ADDR
// hc_importance = 80 ;
2937: LD_ADDR_OWVAR 32
2941: PUSH
2942: LD_INT 80
2944: ST_TO_ADDR
// hc_gallery := pok3 ;
2945: LD_ADDR_OWVAR 33
2949: PUSH
2950: LD_STRING pok3
2952: ST_TO_ADDR
// hc_face_number := 1 ;
2953: LD_ADDR_OWVAR 34
2957: PUSH
2958: LD_INT 1
2960: ST_TO_ADDR
// hc_basic_skills := [ 0 , 7 , 0 , 0 ] ;
2961: LD_ADDR_OWVAR 30
2965: PUSH
2966: LD_INT 0
2968: PUSH
2969: LD_INT 7
2971: PUSH
2972: LD_INT 0
2974: PUSH
2975: LD_INT 0
2977: PUSH
2978: EMPTY
2979: LIST
2980: LIST
2981: LIST
2982: LIST
2983: ST_TO_ADDR
// hc_skills := [ 0 , 7 , 2 , 0 ] ;
2984: LD_ADDR_OWVAR 31
2988: PUSH
2989: LD_INT 0
2991: PUSH
2992: LD_INT 7
2994: PUSH
2995: LD_INT 2
2997: PUSH
2998: LD_INT 0
3000: PUSH
3001: EMPTY
3002: LIST
3003: LIST
3004: LIST
3005: LIST
3006: ST_TO_ADDR
// INZ = CreateHuman ;
3007: LD_ADDR_EXP 11
3011: PUSH
3012: CALL_OW 44
3016: ST_TO_ADDR
// PlaceUnitArea ( INZ , sojuszar , false ) ;
3017: LD_EXP 11
3021: PPUSH
3022: LD_INT 1
3024: PPUSH
3025: LD_INT 0
3027: PPUSH
3028: CALL_OW 49
// end ;
3032: LD_VAR 0 1
3036: RET
// export K ; export function CK ; begin
3037: LD_INT 0
3039: PPUSH
// uc_side = 5 ;
3040: LD_ADDR_OWVAR 20
3044: PUSH
3045: LD_INT 5
3047: ST_TO_ADDR
// uc_nation = nation_arabian ;
3048: LD_ADDR_OWVAR 21
3052: PUSH
3053: LD_INT 2
3055: ST_TO_ADDR
// hc_name = Karen ;
3056: LD_ADDR_OWVAR 26
3060: PUSH
3061: LD_STRING Karen
3063: ST_TO_ADDR
// hc_sex = sex_female ;
3064: LD_ADDR_OWVAR 27
3068: PUSH
3069: LD_INT 2
3071: ST_TO_ADDR
// hc_class = 1 ;
3072: LD_ADDR_OWVAR 28
3076: PUSH
3077: LD_INT 1
3079: ST_TO_ADDR
// hc_importance = 80 ;
3080: LD_ADDR_OWVAR 32
3084: PUSH
3085: LD_INT 80
3087: ST_TO_ADDR
// hc_gallery := HEIKE ;
3088: LD_ADDR_OWVAR 33
3092: PUSH
3093: LD_STRING HEIKE
3095: ST_TO_ADDR
// hc_face_number := 1 ;
3096: LD_ADDR_OWVAR 34
3100: PUSH
3101: LD_INT 1
3103: ST_TO_ADDR
// hc_basic_skills := [ 6 , 0 , 0 , 1 ] ;
3104: LD_ADDR_OWVAR 30
3108: PUSH
3109: LD_INT 6
3111: PUSH
3112: LD_INT 0
3114: PUSH
3115: LD_INT 0
3117: PUSH
3118: LD_INT 1
3120: PUSH
3121: EMPTY
3122: LIST
3123: LIST
3124: LIST
3125: LIST
3126: ST_TO_ADDR
// hc_skills := [ 6 , 3 , 2 , 1 ] ;
3127: LD_ADDR_OWVAR 31
3131: PUSH
3132: LD_INT 6
3134: PUSH
3135: LD_INT 3
3137: PUSH
3138: LD_INT 2
3140: PUSH
3141: LD_INT 1
3143: PUSH
3144: EMPTY
3145: LIST
3146: LIST
3147: LIST
3148: LIST
3149: ST_TO_ADDR
// K = CreateHuman ;
3150: LD_ADDR_EXP 12
3154: PUSH
3155: CALL_OW 44
3159: ST_TO_ADDR
// PlaceUnitArea ( K , sojuszar , false ) ;
3160: LD_EXP 12
3164: PPUSH
3165: LD_INT 1
3167: PPUSH
3168: LD_INT 0
3170: PPUSH
3171: CALL_OW 49
// end ;
3175: LD_VAR 0 1
3179: RET
// export hg11 , hg12 , hg13 , hg14 , hg15 , hg16 , hg17 , hg18 ; export function arabattack ; begin
3180: LD_INT 0
3182: PPUSH
// uc_side = 5 ;
3183: LD_ADDR_OWVAR 20
3187: PUSH
3188: LD_INT 5
3190: ST_TO_ADDR
// uc_nation = nation_arabian ;
3191: LD_ADDR_OWVAR 21
3195: PUSH
3196: LD_INT 2
3198: ST_TO_ADDR
// vc_chassis = ar_half_tracked ;
3199: LD_ADDR_OWVAR 37
3203: PUSH
3204: LD_INT 14
3206: ST_TO_ADDR
// vc_engine = engine_combustion ;
3207: LD_ADDR_OWVAR 39
3211: PUSH
3212: LD_INT 1
3214: ST_TO_ADDR
// vc_control = control_computer ;
3215: LD_ADDR_OWVAR 38
3219: PUSH
3220: LD_INT 3
3222: ST_TO_ADDR
// vc_weapon = ar_gun ;
3223: LD_ADDR_OWVAR 40
3227: PUSH
3228: LD_INT 27
3230: ST_TO_ADDR
// hg11 = CreateVehicle ;
3231: LD_ADDR_EXP 13
3235: PUSH
3236: CALL_OW 45
3240: ST_TO_ADDR
// hg12 = CreateVehicle ;
3241: LD_ADDR_EXP 14
3245: PUSH
3246: CALL_OW 45
3250: ST_TO_ADDR
// hg13 = CreateVehicle ;
3251: LD_ADDR_EXP 15
3255: PUSH
3256: CALL_OW 45
3260: ST_TO_ADDR
// hg14 = CreateVehicle ;
3261: LD_ADDR_EXP 16
3265: PUSH
3266: CALL_OW 45
3270: ST_TO_ADDR
// PlaceUnitArea ( hg11 , sojuszar , false ) ;
3271: LD_EXP 13
3275: PPUSH
3276: LD_INT 1
3278: PPUSH
3279: LD_INT 0
3281: PPUSH
3282: CALL_OW 49
// PlaceUnitArea ( hg12 , sojuszar , false ) ;
3286: LD_EXP 14
3290: PPUSH
3291: LD_INT 1
3293: PPUSH
3294: LD_INT 0
3296: PPUSH
3297: CALL_OW 49
// PlaceUnitArea ( hg13 , sojuszar , false ) ;
3301: LD_EXP 15
3305: PPUSH
3306: LD_INT 1
3308: PPUSH
3309: LD_INT 0
3311: PPUSH
3312: CALL_OW 49
// PlaceUnitArea ( hg14 , sojuszar , false ) ;
3316: LD_EXP 16
3320: PPUSH
3321: LD_INT 1
3323: PPUSH
3324: LD_INT 0
3326: PPUSH
3327: CALL_OW 49
// uc_side = 5 ;
3331: LD_ADDR_OWVAR 20
3335: PUSH
3336: LD_INT 5
3338: ST_TO_ADDR
// uc_nation = nation_arabian ;
3339: LD_ADDR_OWVAR 21
3343: PUSH
3344: LD_INT 2
3346: ST_TO_ADDR
// vc_chassis = ar_half_tracked ;
3347: LD_ADDR_OWVAR 37
3351: PUSH
3352: LD_INT 14
3354: ST_TO_ADDR
// vc_engine = engine_combustion ;
3355: LD_ADDR_OWVAR 39
3359: PUSH
3360: LD_INT 1
3362: ST_TO_ADDR
// vc_control = control_computer ;
3363: LD_ADDR_OWVAR 38
3367: PUSH
3368: LD_INT 3
3370: ST_TO_ADDR
// vc_weapon = ar_rocket_launcher ;
3371: LD_ADDR_OWVAR 40
3375: PUSH
3376: LD_INT 28
3378: ST_TO_ADDR
// hg15 = CreateVehicle ;
3379: LD_ADDR_EXP 17
3383: PUSH
3384: CALL_OW 45
3388: ST_TO_ADDR
// hg16 = CreateVehicle ;
3389: LD_ADDR_EXP 18
3393: PUSH
3394: CALL_OW 45
3398: ST_TO_ADDR
// hg17 = CreateVehicle ;
3399: LD_ADDR_EXP 19
3403: PUSH
3404: CALL_OW 45
3408: ST_TO_ADDR
// hg18 = CreateVehicle ;
3409: LD_ADDR_EXP 20
3413: PUSH
3414: CALL_OW 45
3418: ST_TO_ADDR
// PlaceUnitArea ( hg15 , sojuszar , false ) ;
3419: LD_EXP 17
3423: PPUSH
3424: LD_INT 1
3426: PPUSH
3427: LD_INT 0
3429: PPUSH
3430: CALL_OW 49
// PlaceUnitArea ( hg16 , sojuszar , false ) ;
3434: LD_EXP 18
3438: PPUSH
3439: LD_INT 1
3441: PPUSH
3442: LD_INT 0
3444: PPUSH
3445: CALL_OW 49
// PlaceUnitArea ( hg17 , sojuszar , false ) ;
3449: LD_EXP 19
3453: PPUSH
3454: LD_INT 1
3456: PPUSH
3457: LD_INT 0
3459: PPUSH
3460: CALL_OW 49
// PlaceUnitArea ( hg18 , sojuszar , false ) ;
3464: LD_EXP 20
3468: PPUSH
3469: LD_INT 1
3471: PPUSH
3472: LD_INT 0
3474: PPUSH
3475: CALL_OW 49
// end ; end_of_file
3479: LD_VAR 0 1
3483: RET
// export hg5 , hg6 , hg7 , hg8 , hg9 , hg10 ; export function ruattack ; begin
3484: LD_INT 0
3486: PPUSH
// uc_side = 6 ;
3487: LD_ADDR_OWVAR 20
3491: PUSH
3492: LD_INT 6
3494: ST_TO_ADDR
// uc_nation = nation_russian ;
3495: LD_ADDR_OWVAR 21
3499: PUSH
3500: LD_INT 3
3502: ST_TO_ADDR
// vc_chassis = ru_heavy_tracked ;
3503: LD_ADDR_OWVAR 37
3507: PUSH
3508: LD_INT 24
3510: ST_TO_ADDR
// vc_engine = engine_siberite ;
3511: LD_ADDR_OWVAR 39
3515: PUSH
3516: LD_INT 3
3518: ST_TO_ADDR
// vc_control = control_computer ;
3519: LD_ADDR_OWVAR 38
3523: PUSH
3524: LD_INT 3
3526: ST_TO_ADDR
// vc_weapon = ru_heavy_gun ;
3527: LD_ADDR_OWVAR 40
3531: PUSH
3532: LD_INT 46
3534: ST_TO_ADDR
// hg5 = CreateVehicle ;
3535: LD_ADDR_EXP 21
3539: PUSH
3540: CALL_OW 45
3544: ST_TO_ADDR
// hg6 = CreateVehicle ;
3545: LD_ADDR_EXP 22
3549: PUSH
3550: CALL_OW 45
3554: ST_TO_ADDR
// hg7 = CreateVehicle ;
3555: LD_ADDR_EXP 23
3559: PUSH
3560: CALL_OW 45
3564: ST_TO_ADDR
// PlaceUnitArea ( hg5 , sojuszru , false ) ;
3565: LD_EXP 21
3569: PPUSH
3570: LD_INT 2
3572: PPUSH
3573: LD_INT 0
3575: PPUSH
3576: CALL_OW 49
// PlaceUnitArea ( hg6 , sojuszru , false ) ;
3580: LD_EXP 22
3584: PPUSH
3585: LD_INT 2
3587: PPUSH
3588: LD_INT 0
3590: PPUSH
3591: CALL_OW 49
// PlaceUnitArea ( hg7 , sojuszru , false ) ;
3595: LD_EXP 23
3599: PPUSH
3600: LD_INT 2
3602: PPUSH
3603: LD_INT 0
3605: PPUSH
3606: CALL_OW 49
// comagressivemove ( [ hg5 , hg6 , hg7 ] , 118 , 90 ) ;
3610: LD_EXP 21
3614: PUSH
3615: LD_EXP 22
3619: PUSH
3620: LD_EXP 23
3624: PUSH
3625: EMPTY
3626: LIST
3627: LIST
3628: LIST
3629: PPUSH
3630: LD_INT 118
3632: PPUSH
3633: LD_INT 90
3635: PPUSH
3636: CALL_OW 114
// uc_nation = nation_russian ;
3640: LD_ADDR_OWVAR 21
3644: PUSH
3645: LD_INT 3
3647: ST_TO_ADDR
// vc_chassis = ru_heavy_tracked ;
3648: LD_ADDR_OWVAR 37
3652: PUSH
3653: LD_INT 24
3655: ST_TO_ADDR
// vc_engine = engine_siberite ;
3656: LD_ADDR_OWVAR 39
3660: PUSH
3661: LD_INT 3
3663: ST_TO_ADDR
// vc_control = control_computer ;
3664: LD_ADDR_OWVAR 38
3668: PUSH
3669: LD_INT 3
3671: ST_TO_ADDR
// vc_weapon = ru_rocket_launcher ;
3672: LD_ADDR_OWVAR 40
3676: PUSH
3677: LD_INT 45
3679: ST_TO_ADDR
// hg8 = CreateVehicle ;
3680: LD_ADDR_EXP 24
3684: PUSH
3685: CALL_OW 45
3689: ST_TO_ADDR
// hg9 = CreateVehicle ;
3690: LD_ADDR_EXP 25
3694: PUSH
3695: CALL_OW 45
3699: ST_TO_ADDR
// hg10 = CreateVehicle ;
3700: LD_ADDR_EXP 26
3704: PUSH
3705: CALL_OW 45
3709: ST_TO_ADDR
// PlaceUnitArea ( hg8 , sojuszru , false ) ;
3710: LD_EXP 24
3714: PPUSH
3715: LD_INT 2
3717: PPUSH
3718: LD_INT 0
3720: PPUSH
3721: CALL_OW 49
// PlaceUnitArea ( hg9 , sojuszru , false ) ;
3725: LD_EXP 25
3729: PPUSH
3730: LD_INT 2
3732: PPUSH
3733: LD_INT 0
3735: PPUSH
3736: CALL_OW 49
// PlaceUnitArea ( hg10 , sojuszru , false ) ;
3740: LD_EXP 26
3744: PPUSH
3745: LD_INT 2
3747: PPUSH
3748: LD_INT 0
3750: PPUSH
3751: CALL_OW 49
// comagressivemove ( [ hg8 , hg9 , hg10 ] , 118 , 90 ) ;
3755: LD_EXP 24
3759: PUSH
3760: LD_EXP 25
3764: PUSH
3765: LD_EXP 26
3769: PUSH
3770: EMPTY
3771: LIST
3772: LIST
3773: LIST
3774: PPUSH
3775: LD_INT 118
3777: PPUSH
3778: LD_INT 90
3780: PPUSH
3781: CALL_OW 114
// end ;
3785: LD_VAR 0 1
3789: RET
// export attacks_enabled ; every 4 4$00 trigger attacks_enabled do
3790: LD_EXP 27
3794: IFFALSE 3804
3796: GO 3798
3798: DISABLE
// begin enable ;
3799: ENABLE
// ruattack ;
3800: CALL 3484 0 0
// end ; end_of_file
3804: END
// export CzasAkcji , Czas ; every 0 0$1 trigger CzasAkcji = true do
3805: LD_EXP 28
3809: PUSH
3810: LD_INT 1
3812: EQUAL
3813: IFFALSE 3836
3815: GO 3817
3817: DISABLE
// begin Display_Strings := [ #Ar09-1 , Czas ] ;
3818: LD_ADDR_OWVAR 47
3822: PUSH
3823: LD_STRING #Ar09-1
3825: PUSH
3826: LD_EXP 29
3830: PUSH
3831: EMPTY
3832: LIST
3833: LIST
3834: ST_TO_ADDR
// enable ;
3835: ENABLE
// end ;
3836: END
// every 0 0$1 trigger CzasAkcji = true do
3837: LD_EXP 28
3841: PUSH
3842: LD_INT 1
3844: EQUAL
3845: IFFALSE 3865
3847: GO 3849
3849: DISABLE
// begin Czas = Czas + 0 0$01 ;
3850: LD_ADDR_EXP 29
3854: PUSH
3855: LD_EXP 29
3859: PUSH
3860: LD_INT 35
3862: PLUS
3863: ST_TO_ADDR
// enable ;
3864: ENABLE
// end ;
3865: END
