// starting begin comenterunit ( [ m1 ] , p2 ) ;
   0: LD_INT 146
   2: PUSH
   3: EMPTY
   4: LIST
   5: PPUSH
   6: LD_INT 130
   8: PPUSH
   9: CALL_OW 120
// comenterunit ( [ m2 ] , p3 ) ;
  13: LD_INT 147
  15: PUSH
  16: EMPTY
  17: LIST
  18: PPUSH
  19: LD_INT 138
  21: PPUSH
  22: CALL_OW 120
// comenterunit ( [ m3 ] , p4 ) ;
  26: LD_INT 144
  28: PUSH
  29: EMPTY
  30: LIST
  31: PPUSH
  32: LD_INT 133
  34: PPUSH
  35: CALL_OW 120
// comenterunit ( [ m4 ] , p1 ) ;
  39: LD_INT 145
  41: PUSH
  42: EMPTY
  43: LIST
  44: PPUSH
  45: LD_INT 119
  47: PPUSH
  48: CALL_OW 120
// CenteronUnits ( m ) ;
  52: LD_INT 103
  54: PPUSH
  55: CALL_OW 85
// SaveForQuickRestart ;
  59: CALL_OW 22
// Resetfog ;
  63: CALL_OW 335
// RemoveUnit ( my ) ;
  67: LD_INT 102
  69: PPUSH
  70: CALL_OW 64
// Ingameon ;
  74: CALL_OW 8
// SayRadio ( my , d1 ) ;
  78: LD_INT 102
  80: PPUSH
  81: LD_STRING d1
  83: PPUSH
  84: CALL_OW 94
// Say ( m , d2 ) ;
  88: LD_INT 103
  90: PPUSH
  91: LD_STRING d2
  93: PPUSH
  94: CALL_OW 88
// SayRadio ( my , d3 ) ;
  98: LD_INT 102
 100: PPUSH
 101: LD_STRING d3
 103: PPUSH
 104: CALL_OW 94
// Say ( m , d4 ) ;
 108: LD_INT 103
 110: PPUSH
 111: LD_STRING d4
 113: PPUSH
 114: CALL_OW 88
// wait ( 0 0$1 ) ;
 118: LD_INT 35
 120: PPUSH
 121: CALL_OW 67
// Say ( s , d5 ) ;
 125: LD_INT 104
 127: PPUSH
 128: LD_STRING d5
 130: PPUSH
 131: CALL_OW 88
// Say ( m , d6 ) ;
 135: LD_INT 103
 137: PPUSH
 138: LD_STRING d6
 140: PPUSH
 141: CALL_OW 88
// ChangeMissionObjectives ( M1 ) ;
 145: LD_STRING M1
 147: PPUSH
 148: CALL_OW 337
// ChangeMissionObjectives ( CEL1 ) ;
 152: LD_STRING CEL1
 154: PPUSH
 155: CALL_OW 337
// ingameoff ;
 159: CALL_OW 9
// end ; end_of_file
 163: END
// every 1 1$00 do
 164: GO 166
 166: DISABLE
// begin CreateCratesAnywhere ( Rand ( 2 , 5 ) , true ) ;
 167: LD_INT 2
 169: PPUSH
 170: LD_INT 5
 172: PPUSH
 173: CALL_OW 12
 177: PPUSH
 178: LD_INT 1
 180: PPUSH
 181: CALL_OW 57
// enable ;
 185: ENABLE
// end ; end_of_file
 186: END
// every 0 0$0.1 trigger IsDead ( m ) do
 187: LD_INT 103
 189: PPUSH
 190: CALL_OW 301
 194: IFFALSE 213
 196: GO 198
 198: DISABLE
// begin wait ( 0 0$1 ) ;
 199: LD_INT 35
 201: PPUSH
 202: CALL_OW 67
// YouLost ( Madison_nie_zyje ) ;
 206: LD_STRING Madison_nie_zyje
 208: PPUSH
 209: CALL_OW 104
// end ;
 213: END
// every 0 0$0.1 trigger IsDead ( s ) do
 214: LD_INT 104
 216: PPUSH
 217: CALL_OW 301
 221: IFFALSE 240
 223: GO 225
 225: DISABLE
// begin wait ( 0 0$1 ) ;
 226: LD_INT 35
 228: PPUSH
 229: CALL_OW 67
// YouLost ( Greene_nie_zyje ) ;
 233: LD_STRING Greene_nie_zyje
 235: PPUSH
 236: CALL_OW 104
// end ;
 240: END
// every 0 0$0.1 trigger IsDead ( dep1 ) and IsDead ( dep2 ) and IsDead ( dep3 ) and IsDead ( dep4 ) do
 241: LD_INT 162
 243: PPUSH
 244: CALL_OW 301
 248: PUSH
 249: LD_INT 2
 251: PPUSH
 252: CALL_OW 301
 256: AND
 257: PUSH
 258: LD_INT 54
 260: PPUSH
 261: CALL_OW 301
 265: AND
 266: PUSH
 267: LD_INT 62
 269: PPUSH
 270: CALL_OW 301
 274: AND
 275: IFFALSE 335
 277: GO 279
 279: DISABLE
// begin Say ( m , d7 ) ;
 280: LD_INT 103
 282: PPUSH
 283: LD_STRING d7
 285: PPUSH
 286: CALL_OW 88
// SayRadio ( my , d8 ) ;
 290: LD_INT 102
 292: PPUSH
 293: LD_STRING d8
 295: PPUSH
 296: CALL_OW 94
// Say ( m , d9 ) ;
 300: LD_INT 103
 302: PPUSH
 303: LD_STRING d9
 305: PPUSH
 306: CALL_OW 88
// ChangeMissionObjectives ( CEL1W ) ;
 310: LD_STRING CEL1W
 312: PPUSH
 313: CALL_OW 337
// ChangeMissionObjectives ( CEL2 ) ;
 317: LD_STRING CEL2
 319: PPUSH
 320: CALL_OW 337
// ChangeMissionObjectives ( CEL3 ) ;
 324: LD_STRING CEL3
 326: PPUSH
 327: CALL_OW 337
// cinz ;
 331: CALL 881 0 0
// end ;
 335: END
// every 0 0$1 trigger GetTech ( tech_Weap2 , 1 ) = state_researched do
 336: LD_INT 52
 338: PPUSH
 339: LD_INT 1
 341: PPUSH
 342: CALL_OW 321
 346: PUSH
 347: LD_INT 2
 349: EQUAL
 350: IFFALSE 376
 352: GO 354
 354: DISABLE
// begin ChangeMissionObjectives ( CEL2W ) ;
 355: LD_STRING CEL2W
 357: PPUSH
 358: CALL_OW 337
// ChangeMissionObjectives ( CEL3W ) ;
 362: LD_STRING CEL3W
 364: PPUSH
 365: CALL_OW 337
// ChangeMissionObjectives ( CEL4 ) ;
 369: LD_STRING CEL4
 371: PPUSH
 372: CALL_OW 337
// end ;
 376: END
// every 0 0$1 trigger GetTech ( tech_Sib2 , 1 ) = state_researched do
 377: LD_INT 55
 379: PPUSH
 380: LD_INT 1
 382: PPUSH
 383: CALL_OW 321
 387: PUSH
 388: LD_INT 2
 390: EQUAL
 391: IFFALSE 471
 393: GO 395
 395: DISABLE
// begin ChangeMissionObjectives ( CEL4W ) ;
 396: LD_STRING CEL4W
 398: PPUSH
 399: CALL_OW 337
// ChangeMissionObjectives ( CEL5 ) ;
 403: LD_STRING CEL5
 405: PPUSH
 406: CALL_OW 337
// Say ( m , d10 ) ;
 410: LD_INT 103
 412: PPUSH
 413: LD_STRING d10
 415: PPUSH
 416: CALL_OW 88
// SayRadio ( my , d11 ) ;
 420: LD_INT 102
 422: PPUSH
 423: LD_STRING d11
 425: PPUSH
 426: CALL_OW 94
// AddMedal ( medal1 , 1 ) ;
 430: LD_STRING medal1
 432: PPUSH
 433: LD_INT 1
 435: PPUSH
 436: CALL_OW 101
// AddMedal ( medal2 , 1 ) ;
 440: LD_STRING medal2
 442: PPUSH
 443: LD_INT 1
 445: PPUSH
 446: CALL_OW 101
// AddMedal ( medal3 , 1 ) ;
 450: LD_STRING medal3
 452: PPUSH
 453: LD_INT 1
 455: PPUSH
 456: CALL_OW 101
// GiveMedals ( Main ) ;
 460: LD_STRING Main
 462: PPUSH
 463: CALL_OW 102
// YouWin ;
 467: CALL_OW 103
// end ; end_of_file
 471: END
// every 0 0$01 do var un , EnginerList , buildings , depots , i ;
 472: GO 474
 474: DISABLE
 475: LD_INT 0
 477: PPUSH
 478: PPUSH
 479: PPUSH
 480: PPUSH
 481: PPUSH
// begin enable ;
 482: ENABLE
// EnginerList := FilterAllUnits ( [ [ [ f_side , 3 ] , [ f_class , 2 ] , [ f_lives , 1000 ] ] ] ) ;
 483: LD_ADDR_VAR 0 2
 487: PUSH
 488: LD_INT 22
 490: PUSH
 491: LD_INT 3
 493: PUSH
 494: EMPTY
 495: LIST
 496: LIST
 497: PUSH
 498: LD_INT 25
 500: PUSH
 501: LD_INT 2
 503: PUSH
 504: EMPTY
 505: LIST
 506: LIST
 507: PUSH
 508: LD_INT 24
 510: PUSH
 511: LD_INT 1000
 513: PUSH
 514: EMPTY
 515: LIST
 516: LIST
 517: PUSH
 518: EMPTY
 519: LIST
 520: LIST
 521: LIST
 522: PUSH
 523: EMPTY
 524: LIST
 525: PPUSH
 526: CALL_OW 69
 530: ST_TO_ADDR
// buildings := FilterAllUnits ( [ [ [ f_side , 3 ] , [ f_type , unit_building ] , [ f_not , [ f_lives , 1000 ] ] ] ] ) ;
 531: LD_ADDR_VAR 0 3
 535: PUSH
 536: LD_INT 22
 538: PUSH
 539: LD_INT 3
 541: PUSH
 542: EMPTY
 543: LIST
 544: LIST
 545: PUSH
 546: LD_INT 21
 548: PUSH
 549: LD_INT 3
 551: PUSH
 552: EMPTY
 553: LIST
 554: LIST
 555: PUSH
 556: LD_INT 3
 558: PUSH
 559: LD_INT 24
 561: PUSH
 562: LD_INT 1000
 564: PUSH
 565: EMPTY
 566: LIST
 567: LIST
 568: PUSH
 569: EMPTY
 570: LIST
 571: LIST
 572: PUSH
 573: EMPTY
 574: LIST
 575: LIST
 576: LIST
 577: PUSH
 578: EMPTY
 579: LIST
 580: PPUSH
 581: CALL_OW 69
 585: ST_TO_ADDR
// if buildings > 0 then
 586: LD_VAR 0 3
 590: PUSH
 591: LD_INT 0
 593: GREATER
 594: IFFALSE 676
// begin for i = 1 to EnginerList do
 596: LD_ADDR_VAR 0 5
 600: PUSH
 601: DOUBLE
 602: LD_INT 1
 604: DEC
 605: ST_TO_ADDR
 606: LD_VAR 0 2
 610: PUSH
 611: FOR_TO
 612: IFFALSE 674
// begin if IsInUnit ( EnginerList [ i ] ) then
 614: LD_VAR 0 2
 618: PUSH
 619: LD_VAR 0 5
 623: ARRAY
 624: PPUSH
 625: CALL_OW 310
 629: IFFALSE 648
// ComExitBuilding ( EnginerList [ i ] ) else
 631: LD_VAR 0 2
 635: PUSH
 636: LD_VAR 0 5
 640: ARRAY
 641: PPUSH
 642: CALL_OW 122
 646: GO 672
// ComRepairBuilding ( EnginerList [ i ] , buildings [ 1 ] ) ;
 648: LD_VAR 0 2
 652: PUSH
 653: LD_VAR 0 5
 657: ARRAY
 658: PPUSH
 659: LD_VAR 0 3
 663: PUSH
 664: LD_INT 1
 666: ARRAY
 667: PPUSH
 668: CALL_OW 130
// end ;
 672: GO 611
 674: POP
 675: POP
// end ; if buildings = 0 then
 676: LD_VAR 0 3
 680: PUSH
 681: LD_INT 0
 683: EQUAL
 684: IFFALSE 744
// begin for i = 1 to EnginerList do
 686: LD_ADDR_VAR 0 5
 690: PUSH
 691: DOUBLE
 692: LD_INT 1
 694: DEC
 695: ST_TO_ADDR
 696: LD_VAR 0 2
 700: PUSH
 701: FOR_TO
 702: IFFALSE 742
// begin if not HasTask ( EnginerList [ i ] ) and not IsInUnit ( EnginerList [ i ] ) then
 704: LD_VAR 0 2
 708: PUSH
 709: LD_VAR 0 5
 713: ARRAY
 714: PPUSH
 715: CALL_OW 314
 719: NOT
 720: PUSH
 721: LD_VAR 0 2
 725: PUSH
 726: LD_VAR 0 5
 730: ARRAY
 731: PPUSH
 732: CALL_OW 310
 736: NOT
 737: AND
 738: IFFALSE 740
// end ;
 740: GO 701
 742: POP
 743: POP
// end ; end ;
 744: PPOPN 5
 746: END
// every 0 0$01 do
 747: GO 749
 749: DISABLE
// begin AddComResearch ( l1 , tech_Tech1 ) ;
 750: LD_INT 14
 752: PPUSH
 753: LD_INT 48
 755: PPUSH
 756: CALL_OW 184
// AddComResearch ( l1 , tech_weap1 ) ;
 760: LD_INT 14
 762: PPUSH
 763: LD_INT 51
 765: PPUSH
 766: CALL_OW 184
// AddComResearch ( l1 , tech_gatling ) ;
 770: LD_INT 14
 772: PPUSH
 773: LD_INT 69
 775: PPUSH
 776: CALL_OW 184
// AddComResearch ( l1 , tech_oileng ) ;
 780: LD_INT 14
 782: PPUSH
 783: LD_INT 47
 785: PPUSH
 786: CALL_OW 184
// AddComResearch ( l1 , tech_oilpow ) ;
 790: LD_INT 14
 792: PPUSH
 793: LD_INT 46
 795: PPUSH
 796: CALL_OW 184
// end ; end_of_file
 800: END
// every 0 0$01 do
 801: GO 803
 803: DISABLE
// begin comenterunit ( [ s1 , s2 , s3 , s4 ] , br1 ) ;
 804: LD_INT 160
 806: PUSH
 807: LD_INT 159
 809: PUSH
 810: LD_INT 158
 812: PUSH
 813: LD_INT 157
 815: PUSH
 816: EMPTY
 817: LIST
 818: LIST
 819: LIST
 820: LIST
 821: PPUSH
 822: LD_INT 79
 824: PPUSH
 825: CALL_OW 120
// comenterunit ( [ s5 , s6 , s7 , s8 ] , br2 ) ;
 829: LD_INT 153
 831: PUSH
 832: LD_INT 154
 834: PUSH
 835: LD_INT 155
 837: PUSH
 838: LD_INT 156
 840: PUSH
 841: EMPTY
 842: LIST
 843: LIST
 844: LIST
 845: LIST
 846: PPUSH
 847: LD_INT 91
 849: PPUSH
 850: CALL_OW 120
// comenterunit ( [ me ] , f1 ) ;
 854: LD_INT 190
 856: PUSH
 857: EMPTY
 858: LIST
 859: PPUSH
 860: LD_INT 6
 862: PPUSH
 863: CALL_OW 120
// comenterunit ( [ n1 ] , l1 ) ;
 867: LD_INT 174
 869: PUSH
 870: EMPTY
 871: LIST
 872: PPUSH
 873: LD_INT 14
 875: PPUSH
 876: CALL_OW 120
// end ; end_of_file
 880: END
// export inz ; export function cinz ; begin
 881: LD_INT 0
 883: PPUSH
// uc_side = 1 ;
 884: LD_ADDR_OWVAR 20
 888: PUSH
 889: LD_INT 1
 891: ST_TO_ADDR
// uc_nation = nation_american ;
 892: LD_ADDR_OWVAR 21
 896: PUSH
 897: LD_INT 1
 899: ST_TO_ADDR
// hc_name = Samuel Johnson ;
 900: LD_ADDR_OWVAR 26
 904: PUSH
 905: LD_STRING Samuel Johnson
 907: ST_TO_ADDR
// hc_sex = sex_male ;
 908: LD_ADDR_OWVAR 27
 912: PUSH
 913: LD_INT 1
 915: ST_TO_ADDR
// hc_class = 2 ;
 916: LD_ADDR_OWVAR 28
 920: PUSH
 921: LD_INT 2
 923: ST_TO_ADDR
// hc_importance = 80 ;
 924: LD_ADDR_OWVAR 32
 928: PUSH
 929: LD_INT 80
 931: ST_TO_ADDR
// hc_gallery := pok ;
 932: LD_ADDR_OWVAR 33
 936: PUSH
 937: LD_STRING pok
 939: ST_TO_ADDR
// hc_face_number := 1 ;
 940: LD_ADDR_OWVAR 34
 944: PUSH
 945: LD_INT 1
 947: ST_TO_ADDR
// hc_basic_skills := [ 0 , 4 , 0 , 0 ] ;
 948: LD_ADDR_OWVAR 30
 952: PUSH
 953: LD_INT 0
 955: PUSH
 956: LD_INT 4
 958: PUSH
 959: LD_INT 0
 961: PUSH
 962: LD_INT 0
 964: PUSH
 965: EMPTY
 966: LIST
 967: LIST
 968: LIST
 969: LIST
 970: ST_TO_ADDR
// hc_skills := [ 0 , 4 , 0 , 0 ] ;
 971: LD_ADDR_OWVAR 31
 975: PUSH
 976: LD_INT 0
 978: PUSH
 979: LD_INT 4
 981: PUSH
 982: LD_INT 0
 984: PUSH
 985: LD_INT 0
 987: PUSH
 988: EMPTY
 989: LIST
 990: LIST
 991: LIST
 992: LIST
 993: ST_TO_ADDR
// inz = CreateHuman ;
 994: LD_ADDR_EXP 1
 998: PUSH
 999: CALL_OW 44
1003: ST_TO_ADDR
// PlaceUnitArea ( inz , area01 , false ) ;
1004: LD_EXP 1
1008: PPUSH
1009: LD_INT 1
1011: PPUSH
1012: LD_INT 0
1014: PPUSH
1015: CALL_OW 49
// end ;
1019: LD_VAR 0 1
1023: RET
