// every 1 1$00 do
   0: GO 2
   2: DISABLE
// begin CreateCratesAnywhere ( Rand ( 2 , 5 ) , true ) ;
   3: LD_INT 2
   5: PPUSH
   6: LD_INT 5
   8: PPUSH
   9: CALL_OW 12
  13: PPUSH
  14: LD_INT 1
  16: PPUSH
  17: CALL_OW 57
// enable ;
  21: ENABLE
// end ; end_of_file
  22: END
// every 0 0$01 do var un , EnginerList , buildings , depots , i ;
  23: GO 25
  25: DISABLE
  26: LD_INT 0
  28: PPUSH
  29: PPUSH
  30: PPUSH
  31: PPUSH
  32: PPUSH
// begin enable ;
  33: ENABLE
// EnginerList := FilterAllUnits ( [ [ [ f_side , 4 ] , [ f_class , 2 ] , [ f_lives , 1000 ] ] ] ) ;
  34: LD_ADDR_VAR 0 2
  38: PUSH
  39: LD_INT 22
  41: PUSH
  42: LD_INT 4
  44: PUSH
  45: EMPTY
  46: LIST
  47: LIST
  48: PUSH
  49: LD_INT 25
  51: PUSH
  52: LD_INT 2
  54: PUSH
  55: EMPTY
  56: LIST
  57: LIST
  58: PUSH
  59: LD_INT 24
  61: PUSH
  62: LD_INT 1000
  64: PUSH
  65: EMPTY
  66: LIST
  67: LIST
  68: PUSH
  69: EMPTY
  70: LIST
  71: LIST
  72: LIST
  73: PUSH
  74: EMPTY
  75: LIST
  76: PPUSH
  77: CALL_OW 69
  81: ST_TO_ADDR
// buildings := FilterAllUnits ( [ [ [ f_side , 4 ] , [ f_type , unit_building ] , [ f_not , [ f_lives , 1000 ] ] ] ] ) ;
  82: LD_ADDR_VAR 0 3
  86: PUSH
  87: LD_INT 22
  89: PUSH
  90: LD_INT 4
  92: PUSH
  93: EMPTY
  94: LIST
  95: LIST
  96: PUSH
  97: LD_INT 21
  99: PUSH
 100: LD_INT 3
 102: PUSH
 103: EMPTY
 104: LIST
 105: LIST
 106: PUSH
 107: LD_INT 3
 109: PUSH
 110: LD_INT 24
 112: PUSH
 113: LD_INT 1000
 115: PUSH
 116: EMPTY
 117: LIST
 118: LIST
 119: PUSH
 120: EMPTY
 121: LIST
 122: LIST
 123: PUSH
 124: EMPTY
 125: LIST
 126: LIST
 127: LIST
 128: PUSH
 129: EMPTY
 130: LIST
 131: PPUSH
 132: CALL_OW 69
 136: ST_TO_ADDR
// if buildings > 0 then
 137: LD_VAR 0 3
 141: PUSH
 142: LD_INT 0
 144: GREATER
 145: IFFALSE 227
// begin for i = 1 to EnginerList do
 147: LD_ADDR_VAR 0 5
 151: PUSH
 152: DOUBLE
 153: LD_INT 1
 155: DEC
 156: ST_TO_ADDR
 157: LD_VAR 0 2
 161: PUSH
 162: FOR_TO
 163: IFFALSE 225
// begin if IsInUnit ( EnginerList [ i ] ) then
 165: LD_VAR 0 2
 169: PUSH
 170: LD_VAR 0 5
 174: ARRAY
 175: PPUSH
 176: CALL_OW 310
 180: IFFALSE 199
// ComExitBuilding ( EnginerList [ i ] ) else
 182: LD_VAR 0 2
 186: PUSH
 187: LD_VAR 0 5
 191: ARRAY
 192: PPUSH
 193: CALL_OW 122
 197: GO 223
// ComRepairBuilding ( EnginerList [ i ] , buildings [ 1 ] ) ;
 199: LD_VAR 0 2
 203: PUSH
 204: LD_VAR 0 5
 208: ARRAY
 209: PPUSH
 210: LD_VAR 0 3
 214: PUSH
 215: LD_INT 1
 217: ARRAY
 218: PPUSH
 219: CALL_OW 130
// end ;
 223: GO 162
 225: POP
 226: POP
// end ; if buildings = 0 then
 227: LD_VAR 0 3
 231: PUSH
 232: LD_INT 0
 234: EQUAL
 235: IFFALSE 295
// begin for i = 1 to EnginerList do
 237: LD_ADDR_VAR 0 5
 241: PUSH
 242: DOUBLE
 243: LD_INT 1
 245: DEC
 246: ST_TO_ADDR
 247: LD_VAR 0 2
 251: PUSH
 252: FOR_TO
 253: IFFALSE 293
// begin if not HasTask ( EnginerList [ i ] ) and not IsInUnit ( EnginerList [ i ] ) then
 255: LD_VAR 0 2
 259: PUSH
 260: LD_VAR 0 5
 264: ARRAY
 265: PPUSH
 266: CALL_OW 314
 270: NOT
 271: PUSH
 272: LD_VAR 0 2
 276: PUSH
 277: LD_VAR 0 5
 281: ARRAY
 282: PPUSH
 283: CALL_OW 310
 287: NOT
 288: AND
 289: IFFALSE 291
// end ;
 291: GO 252
 293: POP
 294: POP
// end ; end ;
 295: PPOPN 5
 297: END
// every 0 0$01 do
 298: GO 300
 300: DISABLE
// begin AddComResearch ( lab , tech_Tech1 ) ;
 301: LD_INT 159
 303: PPUSH
 304: LD_INT 48
 306: PPUSH
 307: CALL_OW 184
// AddComResearch ( lab , tech_weap1 ) ;
 311: LD_INT 159
 313: PPUSH
 314: LD_INT 51
 316: PPUSH
 317: CALL_OW 184
// AddComResearch ( lab , tech_Tech2 ) ;
 321: LD_INT 159
 323: PPUSH
 324: LD_INT 49
 326: PPUSH
 327: CALL_OW 184
// AddComResearch ( lab , tech_weap2 ) ;
 331: LD_INT 159
 333: PPUSH
 334: LD_INT 52
 336: PPUSH
 337: CALL_OW 184
// AddComResearch ( lab , tech_Tech3 ) ;
 341: LD_INT 159
 343: PPUSH
 344: LD_INT 50
 346: PPUSH
 347: CALL_OW 184
// AddComResearch ( lab , tech_weap3 ) ;
 351: LD_INT 159
 353: PPUSH
 354: LD_INT 53
 356: PPUSH
 357: CALL_OW 184
// AddComResearch ( lab , tech_gatling ) ;
 361: LD_INT 159
 363: PPUSH
 364: LD_INT 69
 366: PPUSH
 367: CALL_OW 184
// AddComResearch ( lab , tech_oileng ) ;
 371: LD_INT 159
 373: PPUSH
 374: LD_INT 47
 376: PPUSH
 377: CALL_OW 184
// AddComResearch ( lab1 , tech_oilpow ) ;
 381: LD_INT 169
 383: PPUSH
 384: LD_INT 46
 386: PPUSH
 387: CALL_OW 184
// AddComResearch ( lab1 , tech_soleng ) ;
 391: LD_INT 169
 393: PPUSH
 394: LD_INT 45
 396: PPUSH
 397: CALL_OW 184
// AddComResearch ( lab1 , tech_solpow ) ;
 401: LD_INT 169
 403: PPUSH
 404: LD_INT 35
 406: PPUSH
 407: CALL_OW 184
// AddComResearch ( lab1 , tech_Comp1 ) ;
 411: LD_INT 169
 413: PPUSH
 414: LD_INT 57
 416: PPUSH
 417: CALL_OW 184
// AddComResearch ( lab1 , tech_Comp2 ) ;
 421: LD_INT 169
 423: PPUSH
 424: LD_INT 58
 426: PPUSH
 427: CALL_OW 184
// AddComResearch ( lab1 , tech_sib1 ) ;
 431: LD_INT 169
 433: PPUSH
 434: LD_INT 54
 436: PPUSH
 437: CALL_OW 184
// AddComResearch ( lab1 , tech_sib2 ) ;
 441: LD_INT 169
 443: PPUSH
 444: LD_INT 55
 446: PPUSH
 447: CALL_OW 184
// AddComResearch ( lab1 , tech_laser ) ;
 451: LD_INT 169
 453: PPUSH
 454: LD_INT 10
 456: PPUSH
 457: CALL_OW 184
// AddComResearch ( lab1 , tech_apeneural ) ;
 461: LD_INT 169
 463: PPUSH
 464: LD_INT 3
 466: PPUSH
 467: CALL_OW 184
// end ; end_of_file
 471: END
// every 0 0$01 do
 472: GO 474
 474: DISABLE
// begin comenterunit ( [ s1 ] , br ) ;
 475: LD_INT 212
 477: PUSH
 478: EMPTY
 479: LIST
 480: PPUSH
 481: LD_INT 208
 483: PPUSH
 484: CALL_OW 120
// comenterunit ( [ s2 ] , br ) ;
 488: LD_INT 213
 490: PUSH
 491: EMPTY
 492: LIST
 493: PPUSH
 494: LD_INT 208
 496: PPUSH
 497: CALL_OW 120
// comenterunit ( [ n1 ] , lab ) ;
 501: LD_INT 227
 503: PUSH
 504: EMPTY
 505: LIST
 506: PPUSH
 507: LD_INT 159
 509: PPUSH
 510: CALL_OW 120
// comenterunit ( [ n2 ] , lab1 ) ;
 514: LD_INT 228
 516: PUSH
 517: EMPTY
 518: LIST
 519: PPUSH
 520: LD_INT 169
 522: PPUSH
 523: CALL_OW 120
// comenterunit ( [ m1 ] , fc ) ;
 527: LD_INT 229
 529: PUSH
 530: EMPTY
 531: LIST
 532: PPUSH
 533: LD_INT 156
 535: PPUSH
 536: CALL_OW 120
// end ; end_of_file
 540: END
// every 0 0$0.1 trigger IsDead ( m ) do
 541: LD_INT 240
 543: PPUSH
 544: CALL_OW 301
 548: IFFALSE 567
 550: GO 552
 552: DISABLE
// begin wait ( 0 0$1 ) ;
 553: LD_INT 35
 555: PPUSH
 556: CALL_OW 67
// YouLost ( Madison_nie_zyje ) ;
 560: LD_STRING Madison_nie_zyje
 562: PPUSH
 563: CALL_OW 104
// end ;
 567: END
// every 0 0$0.1 trigger IsDead ( s ) do
 568: LD_INT 237
 570: PPUSH
 571: CALL_OW 301
 575: IFFALSE 594
 577: GO 579
 579: DISABLE
// begin wait ( 0 0$1 ) ;
 580: LD_INT 35
 582: PPUSH
 583: CALL_OW 67
// YouLost ( Greene_nie_zyje ) ;
 587: LD_STRING Greene_nie_zyje
 589: PPUSH
 590: CALL_OW 104
// end ;
 594: END
// on Contact ( side1 , side2 ) do begin if side1 = 1 and side2 = 4 then
 595: LD_VAR 0 1
 599: PUSH
 600: LD_INT 1
 602: EQUAL
 603: PUSH
 604: LD_VAR 0 2
 608: PUSH
 609: LD_INT 4
 611: EQUAL
 612: AND
 613: IFFALSE 622
// begin YouLost ( zaatakowales_sojusznika ) ;
 615: LD_STRING zaatakowales_sojusznika
 617: PPUSH
 618: CALL_OW 104
// end ; end ; end_of_file
 622: PPOPN 2
 624: END
// starting begin SaveForQuickRestart ;
 625: CALL_OW 22
// Resetfog ;
 629: CALL_OW 335
// CenteronUnits ( m ) ;
 633: LD_INT 240
 635: PPUSH
 636: CALL_OW 85
// ingameon ;
 640: CALL_OW 8
// dialogueon ;
 644: CALL_OW 6
// Say ( m , d1 ) ;
 648: LD_INT 240
 650: PPUSH
 651: LD_STRING d1
 653: PPUSH
 654: CALL_OW 88
// Say ( my , d2 ) ;
 658: LD_INT 206
 660: PPUSH
 661: LD_STRING d2
 663: PPUSH
 664: CALL_OW 88
// Say ( m , d3 ) ;
 668: LD_INT 240
 670: PPUSH
 671: LD_STRING d3
 673: PPUSH
 674: CALL_OW 88
// Say ( my , d4 ) ;
 678: LD_INT 206
 680: PPUSH
 681: LD_STRING d4
 683: PPUSH
 684: CALL_OW 88
// Say ( my , d5 ) ;
 688: LD_INT 206
 690: PPUSH
 691: LD_STRING d5
 693: PPUSH
 694: CALL_OW 88
// Say ( m , d6 ) ;
 698: LD_INT 240
 700: PPUSH
 701: LD_STRING d6
 703: PPUSH
 704: CALL_OW 88
// Say ( my , d7 ) ;
 708: LD_INT 206
 710: PPUSH
 711: LD_STRING d7
 713: PPUSH
 714: CALL_OW 88
// ingameoff ;
 718: CALL_OW 9
// dialogueoff ;
 722: CALL_OW 7
// ChangeMissionObjectives ( CEL1 ) ;
 726: LD_STRING CEL1
 728: PPUSH
 729: CALL_OW 337
// SetAreaMapShow ( Area69 , 1 ) ;
 733: LD_INT 1
 735: PPUSH
 736: LD_INT 1
 738: PPUSH
 739: CALL_OW 424
// end ; end_of_file
 743: END
// every 0 0$01 trigger IsInArea ( m , Area69 ) do
 744: LD_INT 240
 746: PPUSH
 747: LD_INT 1
 749: PPUSH
 750: CALL_OW 308
 754: IFFALSE 769
 756: GO 758
 758: DISABLE
// begin ChangeMap ( 6 , %_cont ) ;
 759: LD_INT 6
 761: PPUSH
 762: LD_STRING %_cont
 764: PPUSH
 765: CALL_OW 340
// end ;
 769: END
