// starting begin comenterunit ( [ m2 , m3 ] , fc ) ;
   0: LD_INT 94
   2: PUSH
   3: LD_INT 95
   5: PUSH
   6: EMPTY
   7: LIST
   8: LIST
   9: PPUSH
  10: LD_INT 79
  12: PPUSH
  13: CALL_OW 120
// comenterunit ( [ n1 , n2 ] , lab ) ;
  17: LD_INT 97
  19: PUSH
  20: LD_INT 96
  22: PUSH
  23: EMPTY
  24: LIST
  25: LIST
  26: PPUSH
  27: LD_INT 68
  29: PPUSH
  30: CALL_OW 120
// SaveForQuickRestart ;
  34: CALL_OW 22
// Resetfog ;
  38: CALL_OW 335
// CenteronUnits ( my ) ;
  42: LD_INT 142
  44: PPUSH
  45: CALL_OW 85
// ingameon ;
  49: CALL_OW 8
// Say ( my , d1a ) ;
  53: LD_INT 142
  55: PPUSH
  56: LD_STRING d1a
  58: PPUSH
  59: CALL_OW 88
// wait ( 0 0$2 ) ;
  63: LD_INT 70
  65: PPUSH
  66: CALL_OW 67
// Say ( m , d1 ) ;
  70: LD_INT 144
  72: PPUSH
  73: LD_STRING d1
  75: PPUSH
  76: CALL_OW 88
// Say ( my , d2 ) ;
  80: LD_INT 142
  82: PPUSH
  83: LD_STRING d2
  85: PPUSH
  86: CALL_OW 88
// Say ( m , d3 ) ;
  90: LD_INT 144
  92: PPUSH
  93: LD_STRING d3
  95: PPUSH
  96: CALL_OW 88
// Say ( my , d4 ) ;
 100: LD_INT 142
 102: PPUSH
 103: LD_STRING d4
 105: PPUSH
 106: CALL_OW 88
// Say ( m , d5 ) ;
 110: LD_INT 144
 112: PPUSH
 113: LD_STRING d5
 115: PPUSH
 116: CALL_OW 88
// Say ( my , d6 ) ;
 120: LD_INT 142
 122: PPUSH
 123: LD_STRING d6
 125: PPUSH
 126: CALL_OW 88
// ingameoff ;
 130: CALL_OW 9
// ChangeMissionObjectives ( CEL1 ) ;
 134: LD_STRING CEL1
 136: PPUSH
 137: CALL_OW 337
// SetAreaMapShow ( Area11 , 1 ) ;
 141: LD_INT 1
 143: PPUSH
 144: LD_INT 1
 146: PPUSH
 147: CALL_OW 424
// comenterunit ( [ my ] , s3 ) ;
 151: LD_INT 142
 153: PUSH
 154: EMPTY
 155: LIST
 156: PPUSH
 157: LD_INT 89
 159: PPUSH
 160: CALL_OW 120
// Say ( m2 , d1b ) ;
 164: LD_INT 94
 166: PPUSH
 167: LD_STRING d1b
 169: PPUSH
 170: CALL_OW 88
// Say ( m , d1c ) ;
 174: LD_INT 144
 176: PPUSH
 177: LD_STRING d1c
 179: PPUSH
 180: CALL_OW 88
// wait ( 0 0$5 ) ;
 184: LD_INT 175
 186: PPUSH
 187: CALL_OW 67
// Say ( s , d9 ) ;
 191: LD_INT 203
 193: PPUSH
 194: LD_STRING d9
 196: PPUSH
 197: CALL_OW 88
// Say ( m , d10 ) ;
 201: LD_INT 144
 203: PPUSH
 204: LD_STRING d10
 206: PPUSH
 207: CALL_OW 88
// end ; end_of_file
 211: END
// every 0 0$01 trigger IsInArea ( m , Area11 ) do
 212: LD_INT 144
 214: PPUSH
 215: LD_INT 1
 217: PPUSH
 218: CALL_OW 308
 222: IFFALSE 265
 224: GO 226
 226: DISABLE
// begin ingameon ;
 227: CALL_OW 8
// Say ( m , d7 ) ;
 231: LD_INT 144
 233: PPUSH
 234: LD_STRING d7
 236: PPUSH
 237: CALL_OW 88
// SayRadio ( my , d8 ) ;
 241: LD_INT 142
 243: PPUSH
 244: LD_STRING d8
 246: PPUSH
 247: CALL_OW 94
// ingameoff ;
 251: CALL_OW 9
// ChangeMap ( 4 , %_cont ) ;
 255: LD_INT 4
 257: PPUSH
 258: LD_STRING %_cont
 260: PPUSH
 261: CALL_OW 340
// end ; end_of_file
 265: END
// on Contact ( side1 , side2 ) do begin if side1 = 1 and side2 = 4 then
 266: LD_VAR 0 1
 270: PUSH
 271: LD_INT 1
 273: EQUAL
 274: PUSH
 275: LD_VAR 0 2
 279: PUSH
 280: LD_INT 4
 282: EQUAL
 283: AND
 284: IFFALSE 293
// begin YouLost ( zaatakowales_sojusznika ) ;
 286: LD_STRING zaatakowales_sojusznika
 288: PPUSH
 289: CALL_OW 104
// end ; end ; end_of_file
 293: PPOPN 2
 295: END
// every 1 1$00 do
 296: GO 298
 298: DISABLE
// begin CreateCratesAnywhere ( Rand ( 2 , 5 ) , true ) ;
 299: LD_INT 2
 301: PPUSH
 302: LD_INT 5
 304: PPUSH
 305: CALL_OW 12
 309: PPUSH
 310: LD_INT 1
 312: PPUSH
 313: CALL_OW 57
// enable ;
 317: ENABLE
// end ; end_of_file
 318: END
// every 0 0$01 do var un , EnginerList , buildings , depots , i ;
 319: GO 321
 321: DISABLE
 322: LD_INT 0
 324: PPUSH
 325: PPUSH
 326: PPUSH
 327: PPUSH
 328: PPUSH
// begin enable ;
 329: ENABLE
// EnginerList := FilterAllUnits ( [ [ [ f_side , 4 ] , [ f_class , 2 ] , [ f_lives , 1000 ] ] ] ) ;
 330: LD_ADDR_VAR 0 2
 334: PUSH
 335: LD_INT 22
 337: PUSH
 338: LD_INT 4
 340: PUSH
 341: EMPTY
 342: LIST
 343: LIST
 344: PUSH
 345: LD_INT 25
 347: PUSH
 348: LD_INT 2
 350: PUSH
 351: EMPTY
 352: LIST
 353: LIST
 354: PUSH
 355: LD_INT 24
 357: PUSH
 358: LD_INT 1000
 360: PUSH
 361: EMPTY
 362: LIST
 363: LIST
 364: PUSH
 365: EMPTY
 366: LIST
 367: LIST
 368: LIST
 369: PUSH
 370: EMPTY
 371: LIST
 372: PPUSH
 373: CALL_OW 69
 377: ST_TO_ADDR
// buildings := FilterAllUnits ( [ [ [ f_side , 4 ] , [ f_type , unit_building ] , [ f_not , [ f_lives , 1000 ] ] ] ] ) ;
 378: LD_ADDR_VAR 0 3
 382: PUSH
 383: LD_INT 22
 385: PUSH
 386: LD_INT 4
 388: PUSH
 389: EMPTY
 390: LIST
 391: LIST
 392: PUSH
 393: LD_INT 21
 395: PUSH
 396: LD_INT 3
 398: PUSH
 399: EMPTY
 400: LIST
 401: LIST
 402: PUSH
 403: LD_INT 3
 405: PUSH
 406: LD_INT 24
 408: PUSH
 409: LD_INT 1000
 411: PUSH
 412: EMPTY
 413: LIST
 414: LIST
 415: PUSH
 416: EMPTY
 417: LIST
 418: LIST
 419: PUSH
 420: EMPTY
 421: LIST
 422: LIST
 423: LIST
 424: PUSH
 425: EMPTY
 426: LIST
 427: PPUSH
 428: CALL_OW 69
 432: ST_TO_ADDR
// if buildings > 0 then
 433: LD_VAR 0 3
 437: PUSH
 438: LD_INT 0
 440: GREATER
 441: IFFALSE 523
// begin for i = 1 to EnginerList do
 443: LD_ADDR_VAR 0 5
 447: PUSH
 448: DOUBLE
 449: LD_INT 1
 451: DEC
 452: ST_TO_ADDR
 453: LD_VAR 0 2
 457: PUSH
 458: FOR_TO
 459: IFFALSE 521
// begin if IsInUnit ( EnginerList [ i ] ) then
 461: LD_VAR 0 2
 465: PUSH
 466: LD_VAR 0 5
 470: ARRAY
 471: PPUSH
 472: CALL_OW 310
 476: IFFALSE 495
// ComExitBuilding ( EnginerList [ i ] ) else
 478: LD_VAR 0 2
 482: PUSH
 483: LD_VAR 0 5
 487: ARRAY
 488: PPUSH
 489: CALL_OW 122
 493: GO 519
// ComRepairBuilding ( EnginerList [ i ] , buildings [ 1 ] ) ;
 495: LD_VAR 0 2
 499: PUSH
 500: LD_VAR 0 5
 504: ARRAY
 505: PPUSH
 506: LD_VAR 0 3
 510: PUSH
 511: LD_INT 1
 513: ARRAY
 514: PPUSH
 515: CALL_OW 130
// end ;
 519: GO 458
 521: POP
 522: POP
// end ; if buildings = 0 then
 523: LD_VAR 0 3
 527: PUSH
 528: LD_INT 0
 530: EQUAL
 531: IFFALSE 591
// begin for i = 1 to EnginerList do
 533: LD_ADDR_VAR 0 5
 537: PUSH
 538: DOUBLE
 539: LD_INT 1
 541: DEC
 542: ST_TO_ADDR
 543: LD_VAR 0 2
 547: PUSH
 548: FOR_TO
 549: IFFALSE 589
// begin if not HasTask ( EnginerList [ i ] ) and not IsInUnit ( EnginerList [ i ] ) then
 551: LD_VAR 0 2
 555: PUSH
 556: LD_VAR 0 5
 560: ARRAY
 561: PPUSH
 562: CALL_OW 314
 566: NOT
 567: PUSH
 568: LD_VAR 0 2
 572: PUSH
 573: LD_VAR 0 5
 577: ARRAY
 578: PPUSH
 579: CALL_OW 310
 583: NOT
 584: AND
 585: IFFALSE 587
// end ;
 587: GO 548
 589: POP
 590: POP
// end ; end ;
 591: PPOPN 5
 593: END
// every 0 0$01 do
 594: GO 596
 596: DISABLE
// begin AddComResearch ( lab , tech_Tech1 ) ;
 597: LD_INT 68
 599: PPUSH
 600: LD_INT 48
 602: PPUSH
 603: CALL_OW 184
// AddComResearch ( lab , tech_weap1 ) ;
 607: LD_INT 68
 609: PPUSH
 610: LD_INT 51
 612: PPUSH
 613: CALL_OW 184
// AddComResearch ( lab , tech_Tech2 ) ;
 617: LD_INT 68
 619: PPUSH
 620: LD_INT 49
 622: PPUSH
 623: CALL_OW 184
// AddComResearch ( lab , tech_weap2 ) ;
 627: LD_INT 68
 629: PPUSH
 630: LD_INT 52
 632: PPUSH
 633: CALL_OW 184
// AddComResearch ( lab , tech_Tech3 ) ;
 637: LD_INT 68
 639: PPUSH
 640: LD_INT 50
 642: PPUSH
 643: CALL_OW 184
// AddComResearch ( lab , tech_weap3 ) ;
 647: LD_INT 68
 649: PPUSH
 650: LD_INT 53
 652: PPUSH
 653: CALL_OW 184
// AddComResearch ( lab , tech_gatling ) ;
 657: LD_INT 68
 659: PPUSH
 660: LD_INT 69
 662: PPUSH
 663: CALL_OW 184
// AddComResearch ( lab , tech_oileng ) ;
 667: LD_INT 68
 669: PPUSH
 670: LD_INT 47
 672: PPUSH
 673: CALL_OW 184
// AddComResearch ( lab , tech_oilpow ) ;
 677: LD_INT 68
 679: PPUSH
 680: LD_INT 46
 682: PPUSH
 683: CALL_OW 184
// AddComResearch ( lab , tech_soleng ) ;
 687: LD_INT 68
 689: PPUSH
 690: LD_INT 45
 692: PPUSH
 693: CALL_OW 184
// AddComResearch ( lab , tech_solpow ) ;
 697: LD_INT 68
 699: PPUSH
 700: LD_INT 35
 702: PPUSH
 703: CALL_OW 184
// AddComResearch ( lab , tech_Comp1 ) ;
 707: LD_INT 68
 709: PPUSH
 710: LD_INT 57
 712: PPUSH
 713: CALL_OW 184
// AddComResearch ( lab , tech_Comp2 ) ;
 717: LD_INT 68
 719: PPUSH
 720: LD_INT 58
 722: PPUSH
 723: CALL_OW 184
// AddComResearch ( lab , tech_sib1 ) ;
 727: LD_INT 68
 729: PPUSH
 730: LD_INT 54
 732: PPUSH
 733: CALL_OW 184
// AddComResearch ( lab , tech_sib2 ) ;
 737: LD_INT 68
 739: PPUSH
 740: LD_INT 55
 742: PPUSH
 743: CALL_OW 184
// AddComResearch ( lab , tech_laser ) ;
 747: LD_INT 68
 749: PPUSH
 750: LD_INT 10
 752: PPUSH
 753: CALL_OW 184
// AddComResearch ( lab , tech_apeneural ) ;
 757: LD_INT 68
 759: PPUSH
 760: LD_INT 3
 762: PPUSH
 763: CALL_OW 184
// end ;
 767: END
