// export porucznik , samantha , ams1 , ams2 , eng , nau , mech ; starting begin disable ( 001 ) ;
   0: LD_INT 1
   2: DISABLE_MARKED
// resetfog ;
   3: CALL_OW 335
// CenterOnUnits ( blackmen ) ;
   7: LD_INT 13
   9: PPUSH
  10: CALL_OW 85
// InGameOn ;
  14: CALL_OW 8
// DialogueOn ;
  18: CALL_OW 6
// Say ( blackmen , B1-1 ) ;
  22: LD_INT 13
  24: PPUSH
  25: LD_STRING B1-1
  27: PPUSH
  28: CALL_OW 88
// Say ( apeman , A1-1 ) ;
  32: LD_INT 17
  34: PPUSH
  35: LD_STRING A1-1
  37: PPUSH
  38: CALL_OW 88
// Say ( apeman , A1-2 ) ;
  42: LD_INT 17
  44: PPUSH
  45: LD_STRING A1-2
  47: PPUSH
  48: CALL_OW 88
// DialogueOff ;
  52: CALL_OW 7
// InGameOff ;
  56: CALL_OW 9
// ChangeMissionObjectives ( CEL1 ) ;
  60: LD_STRING CEL1
  62: PPUSH
  63: CALL_OW 337
// SaveForQuickRestart ;
  67: CALL_OW 22
// end ;
  71: END
// every 0 0$1 trigger IsInArea ( blackmen , AreaBaza ) and IsInArea ( apeman , AreaBaza ) do
  72: LD_INT 13
  74: PPUSH
  75: LD_INT 3
  77: PPUSH
  78: CALL_OW 308
  82: PUSH
  83: LD_INT 17
  85: PPUSH
  86: LD_INT 3
  88: PPUSH
  89: CALL_OW 308
  93: AND
  94: IFFALSE 442
  96: GO 98
  98: DISABLE
// begin enable ( 001 ) ;
  99: LD_INT 1
 101: ENABLE_MARKED
// ComTurnUnit ( blackmen , samantha ) ;
 102: LD_INT 13
 104: PPUSH
 105: LD_EXP 2
 109: PPUSH
 110: CALL_OW 119
// ComTurnUnit ( apeman , samantha ) ;
 114: LD_INT 17
 116: PPUSH
 117: LD_EXP 2
 121: PPUSH
 122: CALL_OW 119
// ComTurnUnit ( samantha , blackmen ) ;
 126: LD_EXP 2
 130: PPUSH
 131: LD_INT 13
 133: PPUSH
 134: CALL_OW 119
// DialogueOn ;
 138: CALL_OW 6
// Say ( samantha , S1-1 ) ;
 142: LD_EXP 2
 146: PPUSH
 147: LD_STRING S1-1
 149: PPUSH
 150: CALL_OW 88
// ComMoveXY ( porucznik , 68 , 16 ) ;
 154: LD_EXP 1
 158: PPUSH
 159: LD_INT 68
 161: PPUSH
 162: LD_INT 16
 164: PPUSH
 165: CALL_OW 111
// ComTurnUnit ( porucznik , apeman ) ;
 169: LD_EXP 1
 173: PPUSH
 174: LD_INT 17
 176: PPUSH
 177: CALL_OW 119
// Say ( porucznik , P1-1 ) ;
 181: LD_EXP 1
 185: PPUSH
 186: LD_STRING P1-1
 188: PPUSH
 189: CALL_OW 88
// Say ( blackmen , B1-1 ) ;
 193: LD_INT 13
 195: PPUSH
 196: LD_STRING B1-1
 198: PPUSH
 199: CALL_OW 88
// Say ( apeman , A1-2 ) ;
 203: LD_INT 17
 205: PPUSH
 206: LD_STRING A1-2
 208: PPUSH
 209: CALL_OW 88
// Say ( samantha , S1-2 ) ;
 213: LD_EXP 2
 217: PPUSH
 218: LD_STRING S1-2
 220: PPUSH
 221: CALL_OW 88
// ComTurnUnit ( blackmen , samantha ) ;
 225: LD_INT 13
 227: PPUSH
 228: LD_EXP 2
 232: PPUSH
 233: CALL_OW 119
// ComTurnUnit ( apeman , samantha ) ;
 237: LD_INT 17
 239: PPUSH
 240: LD_EXP 2
 244: PPUSH
 245: CALL_OW 119
// Say ( porucznik , P1-2 ) ;
 249: LD_EXP 1
 253: PPUSH
 254: LD_STRING P1-2
 256: PPUSH
 257: CALL_OW 88
// Say ( porucznik , P1-3 ) ;
 261: LD_EXP 1
 265: PPUSH
 266: LD_STRING P1-3
 268: PPUSH
 269: CALL_OW 88
// DialogueOff ;
 273: CALL_OW 7
// SetSide ( ams1 , 1 ) ;
 277: LD_EXP 3
 281: PPUSH
 282: LD_INT 1
 284: PPUSH
 285: CALL_OW 235
// SetSide ( arm1 , 1 ) ;
 289: LD_INT 2
 291: PPUSH
 292: LD_INT 1
 294: PPUSH
 295: CALL_OW 235
// SetSide ( lab1 , 1 ) ;
 299: LD_INT 3
 301: PPUSH
 302: LD_INT 1
 304: PPUSH
 305: CALL_OW 235
// SetSide ( nau , 1 ) ;
 309: LD_EXP 6
 313: PPUSH
 314: LD_INT 1
 316: PPUSH
 317: CALL_OW 235
// SetSide ( mech , 1 ) ;
 321: LD_EXP 7
 325: PPUSH
 326: LD_INT 1
 328: PPUSH
 329: CALL_OW 235
// SetSide ( work1 , 1 ) ;
 333: LD_INT 4
 335: PPUSH
 336: LD_INT 1
 338: PPUSH
 339: CALL_OW 235
// SetSide ( brs1 , 1 ) ;
 343: LD_INT 5
 345: PPUSH
 346: LD_INT 1
 348: PPUSH
 349: CALL_OW 235
// SetSide ( ams2 , 1 ) ;
 353: LD_EXP 4
 357: PPUSH
 358: LD_INT 1
 360: PPUSH
 361: CALL_OW 235
// SetSide ( porucznik , 1 ) ;
 365: LD_EXP 1
 369: PPUSH
 370: LD_INT 1
 372: PPUSH
 373: CALL_OW 235
// SetSide ( samantha , 1 ) ;
 377: LD_EXP 2
 381: PPUSH
 382: LD_INT 1
 384: PPUSH
 385: CALL_OW 235
// SetSide ( depot1 , 1 ) ;
 389: LD_INT 1
 391: PPUSH
 392: LD_INT 1
 394: PPUSH
 395: CALL_OW 235
// SetSide ( eng , 1 ) ;
 399: LD_EXP 5
 403: PPUSH
 404: LD_INT 1
 406: PPUSH
 407: CALL_OW 235
// ChangeMissionObjectives ( CEL1W ) ;
 411: LD_STRING CEL1W
 413: PPUSH
 414: CALL_OW 337
// ChangeMissionObjectives ( CEL2 ) ;
 418: LD_STRING CEL2
 420: PPUSH
 421: CALL_OW 337
// ChangeMissionObjectives ( CEL3 ) ;
 425: LD_STRING CEL3
 427: PPUSH
 428: CALL_OW 337
// ChangeMissionObjectives ( CEL4 ) ;
 432: LD_STRING CEL4
 434: PPUSH
 435: CALL_OW 337
// enable ( 001 ) ;
 439: LD_INT 1
 441: ENABLE_MARKED
// end ;
 442: END
// every 0 0$1 trigger IsDying ( rudepot1 ) do
 443: LD_INT 6
 445: PPUSH
 446: CALL_OW 303
 450: IFFALSE 639
 452: GO 454
 454: DISABLE
// begin DialogueOn ;
 455: CALL_OW 6
// Say ( rudowodca , R1-1 ) ;
 459: LD_EXP 13
 463: PPUSH
 464: LD_STRING R1-1
 466: PPUSH
 467: CALL_OW 88
// DestroyUnit ( rudowodca ) ;
 471: LD_EXP 13
 475: PPUSH
 476: CALL_OW 65
// Wait ( 0 0$3 ) ;
 480: LD_INT 105
 482: PPUSH
 483: CALL_OW 67
// SayRadio ( helpman , H1-1 ) ;
 487: LD_INT 20
 489: PPUSH
 490: LD_STRING H1-1
 492: PPUSH
 493: CALL_OW 94
// SayRadio ( porucznik , P1-4 ) ;
 497: LD_EXP 1
 501: PPUSH
 502: LD_STRING P1-4
 504: PPUSH
 505: CALL_OW 94
// SayRadio ( helpman , H1-2 ) ;
 509: LD_INT 20
 511: PPUSH
 512: LD_STRING H1-2
 514: PPUSH
 515: CALL_OW 94
// SayRadio ( porucznik , P1-5 ) ;
 519: LD_EXP 1
 523: PPUSH
 524: LD_STRING P1-5
 526: PPUSH
 527: CALL_OW 94
// Wait ( 0 0$2 ) ;
 531: LD_INT 70
 533: PPUSH
 534: CALL_OW 67
// Say ( porucznik , P1-6 ) ;
 538: LD_EXP 1
 542: PPUSH
 543: LD_STRING P1-6
 545: PPUSH
 546: CALL_OW 88
// SayRadio ( porucznik , P1-7 ) ;
 550: LD_EXP 1
 554: PPUSH
 555: LD_STRING P1-7
 557: PPUSH
 558: CALL_OW 94
// DialogueOff ;
 562: CALL_OW 7
// SaveCharacters ( porucznik , porucznik ) ;
 566: LD_EXP 1
 570: PPUSH
 571: LD_STRING porucznik
 573: PPUSH
 574: CALL_OW 38
// SaveCharacters ( blackmen , blackmen ) ;
 578: LD_INT 13
 580: PPUSH
 581: LD_STRING blackmen
 583: PPUSH
 584: CALL_OW 38
// SaveCharacters ( apeman , apeman ) ;
 588: LD_INT 17
 590: PPUSH
 591: LD_STRING apeman
 593: PPUSH
 594: CALL_OW 38
// AddMedal ( medal1 , 1 ) ;
 598: LD_STRING medal1
 600: PPUSH
 601: LD_INT 1
 603: PPUSH
 604: CALL_OW 101
// AddMedal ( medal2 , 1 ) ;
 608: LD_STRING medal2
 610: PPUSH
 611: LD_INT 1
 613: PPUSH
 614: CALL_OW 101
// AddMedal ( medal3 , 1 ) ;
 618: LD_STRING medal3
 620: PPUSH
 621: LD_INT 1
 623: PPUSH
 624: CALL_OW 101
// GiveMedals ( MAIN ) ;
 628: LD_STRING MAIN
 630: PPUSH
 631: CALL_OW 102
// YouWin ;
 635: CALL_OW 103
// end ; end_of_file
 639: END
// every 0 0$1 do
 640: GO 642
 642: DISABLE
// begin uc_side := 4 ;
 643: LD_ADDR_OWVAR 20
 647: PUSH
 648: LD_INT 4
 650: ST_TO_ADDR
// uc_nation := nation_american ;
 651: LD_ADDR_OWVAR 21
 655: PUSH
 656: LD_INT 1
 658: ST_TO_ADDR
// hc_class := 1 ;
 659: LD_ADDR_OWVAR 28
 663: PUSH
 664: LD_INT 1
 666: ST_TO_ADDR
// hc_skills := [ 2 , 1 , 0 , 0 ] ;
 667: LD_ADDR_OWVAR 31
 671: PUSH
 672: LD_INT 2
 674: PUSH
 675: LD_INT 1
 677: PUSH
 678: LD_INT 0
 680: PUSH
 681: LD_INT 0
 683: PUSH
 684: EMPTY
 685: LIST
 686: LIST
 687: LIST
 688: LIST
 689: ST_TO_ADDR
// hc_sex := Rand ( sex_male , sex_female ) ;
 690: LD_ADDR_OWVAR 27
 694: PUSH
 695: LD_INT 1
 697: PPUSH
 698: LD_INT 2
 700: PPUSH
 701: CALL_OW 12
 705: ST_TO_ADDR
// ams1 := CreateHuman ;
 706: LD_ADDR_EXP 3
 710: PUSH
 711: CALL_OW 44
 715: ST_TO_ADDR
// PlaceHumanInUnit ( ams1 , arm1 ) ;
 716: LD_EXP 3
 720: PPUSH
 721: LD_INT 2
 723: PPUSH
 724: CALL_OW 52
// end ;
 728: END
// every 0 0$1 do
 729: GO 731
 731: DISABLE
// begin uc_side := 4 ;
 732: LD_ADDR_OWVAR 20
 736: PUSH
 737: LD_INT 4
 739: ST_TO_ADDR
// uc_nation := nation_american ;
 740: LD_ADDR_OWVAR 21
 744: PUSH
 745: LD_INT 1
 747: ST_TO_ADDR
// hc_name := Jason Green ;
 748: LD_ADDR_OWVAR 26
 752: PUSH
 753: LD_STRING Jason Green
 755: ST_TO_ADDR
// hc_class := 1 ;
 756: LD_ADDR_OWVAR 28
 760: PUSH
 761: LD_INT 1
 763: ST_TO_ADDR
// hc_skills := [ 4 , 2 , 0 , 1 ] ;
 764: LD_ADDR_OWVAR 31
 768: PUSH
 769: LD_INT 4
 771: PUSH
 772: LD_INT 2
 774: PUSH
 775: LD_INT 0
 777: PUSH
 778: LD_INT 1
 780: PUSH
 781: EMPTY
 782: LIST
 783: LIST
 784: LIST
 785: LIST
 786: ST_TO_ADDR
// hc_sex := sex_male ;
 787: LD_ADDR_OWVAR 27
 791: PUSH
 792: LD_INT 1
 794: ST_TO_ADDR
// hc_importance := 150 ;
 795: LD_ADDR_OWVAR 32
 799: PUSH
 800: LD_INT 150
 802: ST_TO_ADDR
// porucznik := CreateHuman ;
 803: LD_ADDR_EXP 1
 807: PUSH
 808: CALL_OW 44
 812: ST_TO_ADDR
// PlaceUnitArea ( porucznik , AreaPorucznik , false ) ;
 813: LD_EXP 1
 817: PPUSH
 818: LD_INT 4
 820: PPUSH
 821: LD_INT 0
 823: PPUSH
 824: CALL_OW 49
// ComTurnXY ( porucznik , 80 , 13 ) ;
 828: LD_EXP 1
 832: PPUSH
 833: LD_INT 80
 835: PPUSH
 836: LD_INT 13
 838: PPUSH
 839: CALL_OW 118
// end ;
 843: END
// every 0 0$1 do
 844: GO 846
 846: DISABLE
// begin uc_side := 4 ;
 847: LD_ADDR_OWVAR 20
 851: PUSH
 852: LD_INT 4
 854: ST_TO_ADDR
// uc_nation := nation_american ;
 855: LD_ADDR_OWVAR 21
 859: PUSH
 860: LD_INT 1
 862: ST_TO_ADDR
// hc_name := Samantha Freeman ;
 863: LD_ADDR_OWVAR 26
 867: PUSH
 868: LD_STRING Samantha Freeman
 870: ST_TO_ADDR
// hc_class := 1 ;
 871: LD_ADDR_OWVAR 28
 875: PUSH
 876: LD_INT 1
 878: ST_TO_ADDR
// hc_skills := [ 2 , 0 , 1 , 0 ] ;
 879: LD_ADDR_OWVAR 31
 883: PUSH
 884: LD_INT 2
 886: PUSH
 887: LD_INT 0
 889: PUSH
 890: LD_INT 1
 892: PUSH
 893: LD_INT 0
 895: PUSH
 896: EMPTY
 897: LIST
 898: LIST
 899: LIST
 900: LIST
 901: ST_TO_ADDR
// hc_sex := sex_female ;
 902: LD_ADDR_OWVAR 27
 906: PUSH
 907: LD_INT 2
 909: ST_TO_ADDR
// hc_importance := 80 ;
 910: LD_ADDR_OWVAR 32
 914: PUSH
 915: LD_INT 80
 917: ST_TO_ADDR
// samantha := CreateHuman ;
 918: LD_ADDR_EXP 2
 922: PUSH
 923: CALL_OW 44
 927: ST_TO_ADDR
// PlaceUnitArea ( samantha , AreaSamantha , false ) ;
 928: LD_EXP 2
 932: PPUSH
 933: LD_INT 5
 935: PPUSH
 936: LD_INT 0
 938: PPUSH
 939: CALL_OW 49
// ComTurnXY ( samantha , 66 , 15 ) ;
 943: LD_EXP 2
 947: PPUSH
 948: LD_INT 66
 950: PPUSH
 951: LD_INT 15
 953: PPUSH
 954: CALL_OW 118
// end ;
 958: END
// every 0 0$1 do
 959: GO 961
 961: DISABLE
// begin uc_side := 4 ;
 962: LD_ADDR_OWVAR 20
 966: PUSH
 967: LD_INT 4
 969: ST_TO_ADDR
// uc_nation := nation_american ;
 970: LD_ADDR_OWVAR 21
 974: PUSH
 975: LD_INT 1
 977: ST_TO_ADDR
// hc_name :=  ;
 978: LD_ADDR_OWVAR 26
 982: PUSH
 983: LD_STRING 
 985: ST_TO_ADDR
// hc_class := 2 ;
 986: LD_ADDR_OWVAR 28
 990: PUSH
 991: LD_INT 2
 993: ST_TO_ADDR
// hc_sex := Rand ( sex_male , sex_female ) ;
 994: LD_ADDR_OWVAR 27
 998: PUSH
 999: LD_INT 1
1001: PPUSH
1002: LD_INT 2
1004: PPUSH
1005: CALL_OW 12
1009: ST_TO_ADDR
// hc_skills := [ 1 , 3 , 0 , 1 ] ;
1010: LD_ADDR_OWVAR 31
1014: PUSH
1015: LD_INT 1
1017: PUSH
1018: LD_INT 3
1020: PUSH
1021: LD_INT 0
1023: PUSH
1024: LD_INT 1
1026: PUSH
1027: EMPTY
1028: LIST
1029: LIST
1030: LIST
1031: LIST
1032: ST_TO_ADDR
// eng := CreateHuman ;
1033: LD_ADDR_EXP 5
1037: PUSH
1038: CALL_OW 44
1042: ST_TO_ADDR
// PlaceUnitArea ( eng , AreaBaza , false ) ;
1043: LD_EXP 5
1047: PPUSH
1048: LD_INT 3
1050: PPUSH
1051: LD_INT 0
1053: PPUSH
1054: CALL_OW 49
// end ;
1058: END
// every 0 0$1 do
1059: GO 1061
1061: DISABLE
// begin uc_side := 4 ;
1062: LD_ADDR_OWVAR 20
1066: PUSH
1067: LD_INT 4
1069: ST_TO_ADDR
// uc_nation := nation_american ;
1070: LD_ADDR_OWVAR 21
1074: PUSH
1075: LD_INT 1
1077: ST_TO_ADDR
// hc_name :=  ;
1078: LD_ADDR_OWVAR 26
1082: PUSH
1083: LD_STRING 
1085: ST_TO_ADDR
// hc_class := 3 ;
1086: LD_ADDR_OWVAR 28
1090: PUSH
1091: LD_INT 3
1093: ST_TO_ADDR
// hc_sex := Rand ( sex_male , sex_female ) ;
1094: LD_ADDR_OWVAR 27
1098: PUSH
1099: LD_INT 1
1101: PPUSH
1102: LD_INT 2
1104: PPUSH
1105: CALL_OW 12
1109: ST_TO_ADDR
// hc_skills := [ 1 , 1 , 4 , 2 ] ;
1110: LD_ADDR_OWVAR 31
1114: PUSH
1115: LD_INT 1
1117: PUSH
1118: LD_INT 1
1120: PUSH
1121: LD_INT 4
1123: PUSH
1124: LD_INT 2
1126: PUSH
1127: EMPTY
1128: LIST
1129: LIST
1130: LIST
1131: LIST
1132: ST_TO_ADDR
// mech := CreateHuman ;
1133: LD_ADDR_EXP 7
1137: PUSH
1138: CALL_OW 44
1142: ST_TO_ADDR
// PlaceHumanInUnit ( mech , work1 ) ;
1143: LD_EXP 7
1147: PPUSH
1148: LD_INT 4
1150: PPUSH
1151: CALL_OW 52
// end ;
1155: END
// every 0 0$1 do
1156: GO 1158
1158: DISABLE
// begin uc_side := 4 ;
1159: LD_ADDR_OWVAR 20
1163: PUSH
1164: LD_INT 4
1166: ST_TO_ADDR
// uc_nation := nation_american ;
1167: LD_ADDR_OWVAR 21
1171: PUSH
1172: LD_INT 1
1174: ST_TO_ADDR
// hc_name :=  ;
1175: LD_ADDR_OWVAR 26
1179: PUSH
1180: LD_STRING 
1182: ST_TO_ADDR
// hc_class := 4 ;
1183: LD_ADDR_OWVAR 28
1187: PUSH
1188: LD_INT 4
1190: ST_TO_ADDR
// hc_sex := Rand ( sex_male , sex_female ) ;
1191: LD_ADDR_OWVAR 27
1195: PUSH
1196: LD_INT 1
1198: PPUSH
1199: LD_INT 2
1201: PPUSH
1202: CALL_OW 12
1206: ST_TO_ADDR
// hc_skills := [ 0 , 0 , 1 , 2 ] ;
1207: LD_ADDR_OWVAR 31
1211: PUSH
1212: LD_INT 0
1214: PUSH
1215: LD_INT 0
1217: PUSH
1218: LD_INT 1
1220: PUSH
1221: LD_INT 2
1223: PUSH
1224: EMPTY
1225: LIST
1226: LIST
1227: LIST
1228: LIST
1229: ST_TO_ADDR
// nau := CreateHuman ;
1230: LD_ADDR_EXP 6
1234: PUSH
1235: CALL_OW 44
1239: ST_TO_ADDR
// PlaceHumanInUnit ( nau , lab1 ) ;
1240: LD_EXP 6
1244: PPUSH
1245: LD_INT 3
1247: PPUSH
1248: CALL_OW 52
// end ;
1252: END
// every 0 0$1 do
1253: GO 1255
1255: DISABLE
// begin uc_side := 4 ;
1256: LD_ADDR_OWVAR 20
1260: PUSH
1261: LD_INT 4
1263: ST_TO_ADDR
// uc_nation := nation_american ;
1264: LD_ADDR_OWVAR 21
1268: PUSH
1269: LD_INT 1
1271: ST_TO_ADDR
// hc_name :=  ;
1272: LD_ADDR_OWVAR 26
1276: PUSH
1277: LD_STRING 
1279: ST_TO_ADDR
// hc_class := 1 ;
1280: LD_ADDR_OWVAR 28
1284: PUSH
1285: LD_INT 1
1287: ST_TO_ADDR
// hc_sex := Rand ( sex_male , sex_female ) ;
1288: LD_ADDR_OWVAR 27
1292: PUSH
1293: LD_INT 1
1295: PPUSH
1296: LD_INT 2
1298: PPUSH
1299: CALL_OW 12
1303: ST_TO_ADDR
// hc_skills := [ 1 , 0 , 0 , 0 ] ;
1304: LD_ADDR_OWVAR 31
1308: PUSH
1309: LD_INT 1
1311: PUSH
1312: LD_INT 0
1314: PUSH
1315: LD_INT 0
1317: PUSH
1318: LD_INT 0
1320: PUSH
1321: EMPTY
1322: LIST
1323: LIST
1324: LIST
1325: LIST
1326: ST_TO_ADDR
// ams2 := CreateHuman ;
1327: LD_ADDR_EXP 4
1331: PUSH
1332: CALL_OW 44
1336: ST_TO_ADDR
// PlaceHumanInUnit ( ams2 , brs1 ) ;
1337: LD_EXP 4
1341: PPUSH
1342: LD_INT 5
1344: PPUSH
1345: CALL_OW 52
// end ; end_of_file
1349: END
// every 3 3$30 do
1350: GO 1352
1352: DISABLE
// begin CreateCratesArea ( Rand ( 1 , 5 ) , AreaSkrzynki1 , true ) ;
1353: LD_INT 1
1355: PPUSH
1356: LD_INT 5
1358: PPUSH
1359: CALL_OW 12
1363: PPUSH
1364: LD_INT 1
1366: PPUSH
1367: LD_INT 1
1369: PPUSH
1370: CALL_OW 55
// enable ;
1374: ENABLE
// end ;
1375: END
// every 2 2$00 do
1376: GO 1378
1378: DISABLE
// begin CreateCratesArea ( Rand ( 1 , 5 ) , AreaSkrzynki2 , true ) ;
1379: LD_INT 1
1381: PPUSH
1382: LD_INT 5
1384: PPUSH
1385: CALL_OW 12
1389: PPUSH
1390: LD_INT 2
1392: PPUSH
1393: LD_INT 1
1395: PPUSH
1396: CALL_OW 55
// enable ;
1400: ENABLE
// end ;
1401: END
// every 2 2$30 do
1402: GO 1404
1404: DISABLE
// begin CreateCratesArea ( Rand ( 1 , 5 ) , AreaBaza , true ) ;
1405: LD_INT 1
1407: PPUSH
1408: LD_INT 5
1410: PPUSH
1411: CALL_OW 12
1415: PPUSH
1416: LD_INT 3
1418: PPUSH
1419: LD_INT 1
1421: PPUSH
1422: CALL_OW 55
// enable ;
1426: ENABLE
// end ; end_of_file
1427: END
// export rus1 , rus2 , rus3 , rueng , rumech1 , rudowodca ; var y ; every 0 0$1 do
1428: GO 1430
1430: DISABLE
// for y = 1 to 2 do
1431: LD_ADDR_LOC 1
1435: PUSH
1436: DOUBLE
1437: LD_INT 1
1439: DEC
1440: ST_TO_ADDR
1441: LD_INT 2
1443: PUSH
1444: FOR_TO
1445: IFFALSE 1542
// begin uc_side := 3 ;
1447: LD_ADDR_OWVAR 20
1451: PUSH
1452: LD_INT 3
1454: ST_TO_ADDR
// uc_nation := nation_russian ;
1455: LD_ADDR_OWVAR 21
1459: PUSH
1460: LD_INT 3
1462: ST_TO_ADDR
// hc_name :=  ;
1463: LD_ADDR_OWVAR 26
1467: PUSH
1468: LD_STRING 
1470: ST_TO_ADDR
// hc_sex := Rand ( sex_male , sex_female ) ;
1471: LD_ADDR_OWVAR 27
1475: PUSH
1476: LD_INT 1
1478: PPUSH
1479: LD_INT 2
1481: PPUSH
1482: CALL_OW 12
1486: ST_TO_ADDR
// hc_skills := [ 2 , 0 , 1 , 0 ] ;
1487: LD_ADDR_OWVAR 31
1491: PUSH
1492: LD_INT 2
1494: PUSH
1495: LD_INT 0
1497: PUSH
1498: LD_INT 1
1500: PUSH
1501: LD_INT 0
1503: PUSH
1504: EMPTY
1505: LIST
1506: LIST
1507: LIST
1508: LIST
1509: ST_TO_ADDR
// hc_class := 1 ;
1510: LD_ADDR_OWVAR 28
1514: PUSH
1515: LD_INT 1
1517: ST_TO_ADDR
// rus1 := CreateHuman ;
1518: LD_ADDR_EXP 8
1522: PUSH
1523: CALL_OW 44
1527: ST_TO_ADDR
// PlaceHumanInUnit ( rus1 , ruarm1 ) ;
1528: LD_EXP 8
1532: PPUSH
1533: LD_INT 7
1535: PPUSH
1536: CALL_OW 52
// end ;
1540: GO 1444
1542: POP
1543: POP
1544: END
// every 0 0$1 do
1545: GO 1547
1547: DISABLE
// begin uc_side := 3 ;
1548: LD_ADDR_OWVAR 20
1552: PUSH
1553: LD_INT 3
1555: ST_TO_ADDR
// uc_nation := nation_russian ;
1556: LD_ADDR_OWVAR 21
1560: PUSH
1561: LD_INT 3
1563: ST_TO_ADDR
// hc_name :=  ;
1564: LD_ADDR_OWVAR 26
1568: PUSH
1569: LD_STRING 
1571: ST_TO_ADDR
// hc_sex := Rand ( sex_male , sex_female ) ;
1572: LD_ADDR_OWVAR 27
1576: PUSH
1577: LD_INT 1
1579: PPUSH
1580: LD_INT 2
1582: PPUSH
1583: CALL_OW 12
1587: ST_TO_ADDR
// hc_skills := [ 1 , 0 , 1 , 0 ] ;
1588: LD_ADDR_OWVAR 31
1592: PUSH
1593: LD_INT 1
1595: PUSH
1596: LD_INT 0
1598: PUSH
1599: LD_INT 1
1601: PUSH
1602: LD_INT 0
1604: PUSH
1605: EMPTY
1606: LIST
1607: LIST
1608: LIST
1609: LIST
1610: ST_TO_ADDR
// hc_class := 1 ;
1611: LD_ADDR_OWVAR 28
1615: PUSH
1616: LD_INT 1
1618: ST_TO_ADDR
// rus2 := CreateHuman ;
1619: LD_ADDR_EXP 9
1623: PUSH
1624: CALL_OW 44
1628: ST_TO_ADDR
// PlaceHumanInUnit ( rus2 , rubrs1 ) ;
1629: LD_EXP 9
1633: PPUSH
1634: LD_INT 8
1636: PPUSH
1637: CALL_OW 52
// end ;
1641: END
// every 0 0$1 do
1642: GO 1644
1644: DISABLE
// begin uc_side := 3 ;
1645: LD_ADDR_OWVAR 20
1649: PUSH
1650: LD_INT 3
1652: ST_TO_ADDR
// uc_nation := nation_russian ;
1653: LD_ADDR_OWVAR 21
1657: PUSH
1658: LD_INT 3
1660: ST_TO_ADDR
// hc_name :=  ;
1661: LD_ADDR_OWVAR 26
1665: PUSH
1666: LD_STRING 
1668: ST_TO_ADDR
// hc_sex := Rand ( sex_male , sex_female ) ;
1669: LD_ADDR_OWVAR 27
1673: PUSH
1674: LD_INT 1
1676: PPUSH
1677: LD_INT 2
1679: PPUSH
1680: CALL_OW 12
1684: ST_TO_ADDR
// hc_skills := [ 1 , 0 , 1 , 0 ] ;
1685: LD_ADDR_OWVAR 31
1689: PUSH
1690: LD_INT 1
1692: PUSH
1693: LD_INT 0
1695: PUSH
1696: LD_INT 1
1698: PUSH
1699: LD_INT 0
1701: PUSH
1702: EMPTY
1703: LIST
1704: LIST
1705: LIST
1706: LIST
1707: ST_TO_ADDR
// hc_class := 1 ;
1708: LD_ADDR_OWVAR 28
1712: PUSH
1713: LD_INT 1
1715: ST_TO_ADDR
// rus3 := CreateHuman ;
1716: LD_ADDR_EXP 10
1720: PUSH
1721: CALL_OW 44
1725: ST_TO_ADDR
// PlaceHumanInUnit ( rus3 , rubrst3 ) ;
1726: LD_EXP 10
1730: PPUSH
1731: LD_INT 9
1733: PPUSH
1734: CALL_OW 52
// end ;
1738: END
// every 0 0$1 do
1739: GO 1741
1741: DISABLE
// begin uc_side := 3 ;
1742: LD_ADDR_OWVAR 20
1746: PUSH
1747: LD_INT 3
1749: ST_TO_ADDR
// uc_nation := nation_russian ;
1750: LD_ADDR_OWVAR 21
1754: PUSH
1755: LD_INT 3
1757: ST_TO_ADDR
// hc_name :=  ;
1758: LD_ADDR_OWVAR 26
1762: PUSH
1763: LD_STRING 
1765: ST_TO_ADDR
// hc_sex := Rand ( sex_male , sex_female ) ;
1766: LD_ADDR_OWVAR 27
1770: PUSH
1771: LD_INT 1
1773: PPUSH
1774: LD_INT 2
1776: PPUSH
1777: CALL_OW 12
1781: ST_TO_ADDR
// hc_skills := [ 1 , 2 , 0 , 0 ] ;
1782: LD_ADDR_OWVAR 31
1786: PUSH
1787: LD_INT 1
1789: PUSH
1790: LD_INT 2
1792: PUSH
1793: LD_INT 0
1795: PUSH
1796: LD_INT 0
1798: PUSH
1799: EMPTY
1800: LIST
1801: LIST
1802: LIST
1803: LIST
1804: ST_TO_ADDR
// hc_class := 2 ;
1805: LD_ADDR_OWVAR 28
1809: PUSH
1810: LD_INT 2
1812: ST_TO_ADDR
// rueng := CreateHuman ;
1813: LD_ADDR_EXP 11
1817: PUSH
1818: CALL_OW 44
1822: ST_TO_ADDR
// PlaceUnitArea ( rueng , AreaRuEng , false ) ;
1823: LD_EXP 11
1827: PPUSH
1828: LD_INT 6
1830: PPUSH
1831: LD_INT 0
1833: PPUSH
1834: CALL_OW 49
// end ;
1838: END
// every 0 0$1 do
1839: GO 1841
1841: DISABLE
// begin uc_side := 3 ;
1842: LD_ADDR_OWVAR 20
1846: PUSH
1847: LD_INT 3
1849: ST_TO_ADDR
// uc_nation := nation_russian ;
1850: LD_ADDR_OWVAR 21
1854: PUSH
1855: LD_INT 3
1857: ST_TO_ADDR
// hc_name :=  ;
1858: LD_ADDR_OWVAR 26
1862: PUSH
1863: LD_STRING 
1865: ST_TO_ADDR
// hc_sex := Rand ( sex_male , sex_female ) ;
1866: LD_ADDR_OWVAR 27
1870: PUSH
1871: LD_INT 1
1873: PPUSH
1874: LD_INT 2
1876: PPUSH
1877: CALL_OW 12
1881: ST_TO_ADDR
// hc_skills := [ 4 , 0 , 2 , 1 ] ;
1882: LD_ADDR_OWVAR 31
1886: PUSH
1887: LD_INT 4
1889: PUSH
1890: LD_INT 0
1892: PUSH
1893: LD_INT 2
1895: PUSH
1896: LD_INT 1
1898: PUSH
1899: EMPTY
1900: LIST
1901: LIST
1902: LIST
1903: LIST
1904: ST_TO_ADDR
// hc_class := 1 ;
1905: LD_ADDR_OWVAR 28
1909: PUSH
1910: LD_INT 1
1912: ST_TO_ADDR
// rudowodca := CreateHuman ;
1913: LD_ADDR_EXP 13
1917: PUSH
1918: CALL_OW 44
1922: ST_TO_ADDR
// PlaceHumanInUnit ( rudowodca , rudepot1 ) ;
1923: LD_EXP 13
1927: PPUSH
1928: LD_INT 6
1930: PPUSH
1931: CALL_OW 52
// end ;
1935: END
// every 0 0$1 do
1936: GO 1938
1938: DISABLE
// begin uc_side := 3 ;
1939: LD_ADDR_OWVAR 20
1943: PUSH
1944: LD_INT 3
1946: ST_TO_ADDR
// uc_nation := nation_russian ;
1947: LD_ADDR_OWVAR 21
1951: PUSH
1952: LD_INT 3
1954: ST_TO_ADDR
// hc_name :=  ;
1955: LD_ADDR_OWVAR 26
1959: PUSH
1960: LD_STRING 
1962: ST_TO_ADDR
// hc_sex := Rand ( sex_male , sex_female ) ;
1963: LD_ADDR_OWVAR 27
1967: PUSH
1968: LD_INT 1
1970: PPUSH
1971: LD_INT 2
1973: PPUSH
1974: CALL_OW 12
1978: ST_TO_ADDR
// hc_skills := [ 1 , 0 , 2 , 1 ] ;
1979: LD_ADDR_OWVAR 31
1983: PUSH
1984: LD_INT 1
1986: PUSH
1987: LD_INT 0
1989: PUSH
1990: LD_INT 2
1992: PUSH
1993: LD_INT 1
1995: PUSH
1996: EMPTY
1997: LIST
1998: LIST
1999: LIST
2000: LIST
2001: ST_TO_ADDR
// hc_class := 3 ;
2002: LD_ADDR_OWVAR 28
2006: PUSH
2007: LD_INT 3
2009: ST_TO_ADDR
// rumech1 := CreateHuman ;
2010: LD_ADDR_EXP 12
2014: PUSH
2015: CALL_OW 44
2019: ST_TO_ADDR
// PlaceHumanInUnit ( rumech1 , ruwork1 ) ;
2020: LD_EXP 12
2024: PPUSH
2025: LD_INT 22
2027: PPUSH
2028: CALL_OW 52
// end ; end_of_file
2032: END
// every 0 0$1 do
2033: GO 2035
2035: DISABLE
// begin ComInvisible ( helpman ) ;
2036: LD_INT 20
2038: PPUSH
2039: CALL_OW 152
// end ; end_of_file
2043: END
// export rusol1 , veh1 , rumech2 ; var r ; every 4 4$00 marked 001 do
2044: GO 2046
2046: DISABLE
// for r = 1 to 5 do
2047: LD_ADDR_LOC 2
2051: PUSH
2052: DOUBLE
2053: LD_INT 1
2055: DEC
2056: ST_TO_ADDR
2057: LD_INT 5
2059: PUSH
2060: FOR_TO
2061: IFFALSE 2161
// begin uc_side := 3 ;
2063: LD_ADDR_OWVAR 20
2067: PUSH
2068: LD_INT 3
2070: ST_TO_ADDR
// uc_nation := nation_russian ;
2071: LD_ADDR_OWVAR 21
2075: PUSH
2076: LD_INT 3
2078: ST_TO_ADDR
// hc_sex := Rand ( sex_male , sex_female ) ;
2079: LD_ADDR_OWVAR 27
2083: PUSH
2084: LD_INT 1
2086: PPUSH
2087: LD_INT 2
2089: PPUSH
2090: CALL_OW 12
2094: ST_TO_ADDR
// hc_skills := [ Rand ( 1 , 3 ) , 0 , 1 , 0 ] ;
2095: LD_ADDR_OWVAR 31
2099: PUSH
2100: LD_INT 1
2102: PPUSH
2103: LD_INT 3
2105: PPUSH
2106: CALL_OW 12
2110: PUSH
2111: LD_INT 0
2113: PUSH
2114: LD_INT 1
2116: PUSH
2117: LD_INT 0
2119: PUSH
2120: EMPTY
2121: LIST
2122: LIST
2123: LIST
2124: LIST
2125: ST_TO_ADDR
// hc_class := 1 ;
2126: LD_ADDR_OWVAR 28
2130: PUSH
2131: LD_INT 1
2133: ST_TO_ADDR
// rusol1 := CreateHuman ;
2134: LD_ADDR_EXP 14
2138: PUSH
2139: CALL_OW 44
2143: ST_TO_ADDR
// PlaceUnitArea ( rusol1 , AreaSpawn , false ) end ;
2144: LD_EXP 14
2148: PPUSH
2149: LD_INT 7
2151: PPUSH
2152: LD_INT 0
2154: PPUSH
2155: CALL_OW 49
2159: GO 2060
2161: POP
2162: POP
2163: END
// every 4 4$00 do
2164: GO 2166
2166: DISABLE
// begin enable ;
2167: ENABLE
// uc_side := 3 ;
2168: LD_ADDR_OWVAR 20
2172: PUSH
2173: LD_INT 3
2175: ST_TO_ADDR
// uc_nation := nation_russian ;
2176: LD_ADDR_OWVAR 21
2180: PUSH
2181: LD_INT 3
2183: ST_TO_ADDR
// hc_sex := Rand ( sex_male , sex_female ) ;
2184: LD_ADDR_OWVAR 27
2188: PUSH
2189: LD_INT 1
2191: PPUSH
2192: LD_INT 2
2194: PPUSH
2195: CALL_OW 12
2199: ST_TO_ADDR
// hc_skills := [ 1 , 0 , 2 , 0 ] ;
2200: LD_ADDR_OWVAR 31
2204: PUSH
2205: LD_INT 1
2207: PUSH
2208: LD_INT 0
2210: PUSH
2211: LD_INT 2
2213: PUSH
2214: LD_INT 0
2216: PUSH
2217: EMPTY
2218: LIST
2219: LIST
2220: LIST
2221: LIST
2222: ST_TO_ADDR
// hc_class := 3 ;
2223: LD_ADDR_OWVAR 28
2227: PUSH
2228: LD_INT 3
2230: ST_TO_ADDR
// rumech2 := CreateHuman ;
2231: LD_ADDR_EXP 16
2235: PUSH
2236: CALL_OW 44
2240: ST_TO_ADDR
// PlaceHumanInUnit ( rumech2 , veh1 ) ;
2241: LD_EXP 16
2245: PPUSH
2246: LD_EXP 15
2250: PPUSH
2251: CALL_OW 52
// end ;
2255: END
// every 4 4$00 do
2256: GO 2258
2258: DISABLE
// begin enable ;
2259: ENABLE
// vc_chassis := ru_medium_wheeled ;
2260: LD_ADDR_OWVAR 37
2264: PUSH
2265: LD_INT 21
2267: ST_TO_ADDR
// vc_engine := engine_combustion ;
2268: LD_ADDR_OWVAR 39
2272: PUSH
2273: LD_INT 1
2275: ST_TO_ADDR
// vc_control := control_manual ;
2276: LD_ADDR_OWVAR 38
2280: PUSH
2281: LD_INT 1
2283: ST_TO_ADDR
// vc_weapon := ru_heavy_machine_gun ;
2284: LD_ADDR_OWVAR 40
2288: PUSH
2289: LD_INT 42
2291: ST_TO_ADDR
// veh1 := CreateVehicle ;
2292: LD_ADDR_EXP 15
2296: PUSH
2297: CALL_OW 45
2301: ST_TO_ADDR
// PlaceUnitArea ( veh1 , AreaSpawn , false ) ;
2302: LD_EXP 15
2306: PPUSH
2307: LD_INT 7
2309: PPUSH
2310: LD_INT 0
2312: PPUSH
2313: CALL_OW 49
// PlaceHumanInUnit ( rumech2 , veh1 ) ;
2317: LD_EXP 16
2321: PPUSH
2322: LD_EXP 15
2326: PPUSH
2327: CALL_OW 52
// ComAgressiveMove ( rusol1 , 80 , 11 ) ;
2331: LD_EXP 14
2335: PPUSH
2336: LD_INT 80
2338: PPUSH
2339: LD_INT 11
2341: PPUSH
2342: CALL_OW 114
// ComAgressiveMove ( rumech2 , 80 , 11 ) ;
2346: LD_EXP 16
2350: PPUSH
2351: LD_INT 80
2353: PPUSH
2354: LD_INT 11
2356: PPUSH
2357: CALL_OW 114
// end ; end_of_file
2361: END
// every 0 0$1 trigger IsDead ( blackmen ) or IsDead ( apeman ) do
2362: LD_INT 13
2364: PPUSH
2365: CALL_OW 301
2369: PUSH
2370: LD_INT 17
2372: PPUSH
2373: CALL_OW 301
2377: OR
2378: IFFALSE 2390
2380: GO 2382
2382: DISABLE
// begin YouLost ( malpadead ) ;
2383: LD_STRING malpadead
2385: PPUSH
2386: CALL_OW 104
// end ;
2390: END
// every 0 0$1 trigger IsDead ( porucznik ) do
2391: LD_EXP 1
2395: PPUSH
2396: CALL_OW 301
2400: IFFALSE 2412
2402: GO 2404
2404: DISABLE
// begin YouLost ( porucznikdead ) ;
2405: LD_STRING porucznikdead
2407: PPUSH
2408: CALL_OW 104
// end ;
2412: END
// every 0 0$1 trigger IsDead ( depot1 ) do
2413: LD_INT 1
2415: PPUSH
2416: CALL_OW 301
2420: IFFALSE 2432
2422: GO 2424
2424: DISABLE
// begin YouLost ( depotdestroyed ) ;
2425: LD_STRING depotdestroyed
2427: PPUSH
2428: CALL_OW 104
// end ; end_of_file
2432: END
// every 0 0$1 trigger IsInArea ( blackmen , AreaStop ) or IsInArea ( apeman , AreaStop ) or IsInArea ( ams1 , AreaStop ) or IsInArea ( ams2 , AreaStop ) or IsInArea ( porucznik , AreaStop ) or IsInArea ( samantha , AreaStop ) or IsInArea ( eng , AreaStop ) or IsInArea ( nau , AreaStop ) do
2433: LD_INT 13
2435: PPUSH
2436: LD_INT 8
2438: PPUSH
2439: CALL_OW 308
2443: PUSH
2444: LD_INT 17
2446: PPUSH
2447: LD_INT 8
2449: PPUSH
2450: CALL_OW 308
2454: OR
2455: PUSH
2456: LD_EXP 3
2460: PPUSH
2461: LD_INT 8
2463: PPUSH
2464: CALL_OW 308
2468: OR
2469: PUSH
2470: LD_EXP 4
2474: PPUSH
2475: LD_INT 8
2477: PPUSH
2478: CALL_OW 308
2482: OR
2483: PUSH
2484: LD_EXP 1
2488: PPUSH
2489: LD_INT 8
2491: PPUSH
2492: CALL_OW 308
2496: OR
2497: PUSH
2498: LD_EXP 2
2502: PPUSH
2503: LD_INT 8
2505: PPUSH
2506: CALL_OW 308
2510: OR
2511: PUSH
2512: LD_EXP 5
2516: PPUSH
2517: LD_INT 8
2519: PPUSH
2520: CALL_OW 308
2524: OR
2525: PUSH
2526: LD_EXP 6
2530: PPUSH
2531: LD_INT 8
2533: PPUSH
2534: CALL_OW 308
2538: OR
2539: IFFALSE 2557
2541: GO 2543
2543: DISABLE
// begin disable ( 001 ) ;
2544: LD_INT 1
2546: DISABLE_MARKED
// Wait ( 7 7$00 ) ;
2547: LD_INT 14700
2549: PPUSH
2550: CALL_OW 67
// enable ( 001 ) ;
2554: LD_INT 1
2556: ENABLE_MARKED
// end ;
2557: END
