This is a buddy-o-mine`s game he made.

-NOTICE-
clearly this game is not finished. i am just putting it out there for those who know how to fix it(Blue Then). So don't leave fire in the comments. its not even my script. you can comment on what you think needs fixed though! :P

;_______________________________________
;Pickle's Airplane game v3.0
;use the arrows to control the plane
;push space bar for guns
;currently under construction......
;things to do:
;Control panel
;Edit some bugs
;________________________________________
on *:load:{ P.start }
alias P.Start { window -aCk0dopw1 +b @picklelogo -1 -1 250 250 | timer5 -m 12 500 picklewin | timer6 1 7 unset %temp* }
alias picklewin { set %temp $calc( %temp + 5) | set %temp2 $calc( %temp2 + 2) | clear @picklelogo 
  drawfill @picklelogo 2 2 50 50  | drawdot @picklelogo 8  100 120 120 | drawline @picklelogo 3 25 120 120 100 150
  drawline @picklelogo 3 25 140 75 120 120 | drawtext -r @picklelogo $rgb(100,700,50) arial %temp 10 50 Pickle's
  drawtext -r @picklelogo $rgb(100,700,50) arial %temp2 27 150 Scripting Service |  drawtext @picklelogo 15 arial 25 23 215 Left click To Close
}
menu @Picklelogo { 
  sclick : window -c @picklelogo | timer5 off | unset %temp*
}
;____________________________
menu * {
  games : 
  .Air : { airstart }
}
;================Aliases================
alias airstart {
  window -paohCzdk0 +tnbL @air 5 5 500 500 |  window -paoCzdk0 +tnbL @Pickle's_Airplane_Game 5 5 500 500 
  drawfill @air 12 12 50 50 
  hadd -m pickle.air health 100
  hadd -m pickle.air fuel 500
  set %plane 250
  set %plane2 250
  set %plane3 210
  set %plane4 285
  set %plane5 230
  set %plane6 345
  set %plane7 275
  set %plane8 250
  set %plane9 245 
  set %plane10 250
  set %plane11 230
  set %plane12 290
  set %plane13 270
  set %plane14 230
  set %plane15 290
  set %plane16 310
  set %airspeed 3
  if (%hiscore == $null) { set %hiscore 0 }
  set %kills 0
  set %60time 0
  timerair -om 0 30 draw 
  timerair1 -o 0 1 hinc pickle.air time 01 
  timerair2 -o 1 30 set %land temp
  timerair4 -om 0 500 inc %airspeed .01
}
alias -l draw { 
  clear @air
  drawfill @air 12 12 50 50   
  ;===========land generator===========
  if (%land == yes) {
    drawtext @air 8 155 1 Incoming land.....
  }
  if (%land == temp) {
    set %land yes
    timerair3 -o 1 60 set %land go | set %land2 100 
  }
  if (%land == go) {
    drawline @air 5 10 5 $calc(%land2  - 100) 500 $calc(%land2  - 100) 
    drawrect -f @air 3 -50 1 -100 500 %land2 500
    inc %land2 .5
  }
  if (%land2 >= 511) { drawfill @air 3 3 50 50 | set %land nogo }
  ;==========ship generator===========
  if (%land != nogo) {
    if (%ship2 >= 511) { unset %ship4 }
    if (%ship4 == yes) {
      set %ship2 $calc(%ship2 + $calc(%airspeed - 1))
      drawrect -d @air %scolor %ship3 %ship %ship2 10 %ship5 
    } 
    if (%ship4 == $null) {
      set %ship $rand(1,500) 
      set %ship2 -50
      set %ship3 $rand(10,20)
      set %ship4 yes
      set %ship5 $rand(100,200)
      set %scolor $rand(14,15)
    }
  }
  ;=======draw player plane=========
  drawline @air 1 5 %plane11 %plane13 %plane14 %plane16
  drawline @air 1 5  %plane12 %plane13 %plane15 %plane16 
  drawline @air 1 5  %plane7 %plane8 %plane9 %plane10
  drawrect -df @air 1 2  %plane %plane2   30  105  200 250 
  drawrect -df @air 1 2 %plane3 %plane4   105  30   250 200  
  drawrect -df @air 1 2  %plane5 %plane6  65 15    250 200 
  drawrect -df @air 0 2  %plane %plane2  25  100  200 250 
  drawrect -df @air 0 2  %plane3 %plane4   100  25    250 200 
  drawrect -df @air 0 2 %plane5 %plane6  60 10    250 200 
  if (%cloud2 >= 511) { unset %cloud4 }
  if (%cloud4 == $null) {
    set %cloud $rand(1,500) 
    set %cloud2 1
    set %cloud3 $rand(25,55)
    set %cloud4 yes
  }
  if (%cloud4 == yes) {
    set %cloud2 $calc(%cloud2 + $calc(%airspeed - 1))
    drawdot @air 0 %cloud3 %cloud %cloud2 
  }
  ;========enemy AI=======
  if (%eplane2 >= 511) { unset %eplane4 | unset %hit }  
  if (%ebullet2 >= 500) { set %ebullet2 $calc(%eplane2 +50) }
  if (%eplaneheal == 0) { 
    if (%hiscore <= %kills) { inc %hiscore 1 }
  inc %kills 1 | set %hit y | unset %eplaneheal   }
  if (%ebullet3 == $null) {
    set %ebullet $calc(%eplane + 50)
    set %ebullet2 $calc(%eplane2 + 50)
    set %ebullet3 yes
  }
  if (%eplane4 == $null) {
    set %eplaneheal 100
    set %eplane $rand(100,400) 
    set %eplane2 -10
    set %eplane4 yes
    set %color $rand(2,15)
    set %ebullet $calc(%eplane + 50)
    set %ebullet2 $calc(%eplane2 + 50)
    set %ebullet3 yes
  }
  if (%eplane4 == yes) {
    drawline @air 1 5 $calc(%eplane + 35) $calc(%eplane2 + 60) $calc(%eplane + 70) $calc(%eplane2 + 60)
    drawrect -df @air 1 2 $calc(%eplane + 40) $calc(%eplane2 -45)  30  105  200 250 %eplane %eplane2 105 30 250 200 $calc(%eplane +23) $calc(%eplane2 -50) 65 15 250 200 
    drawrect -df @air %color 2 $calc(%eplane + 40) $calc(%eplane2 - 45)  25  100  200 250  %eplane %eplane2 100 25 250 200 $calc(%eplane +23) $calc(%eplane2 -50) 60 10 250 200 
    set %eplane2 $calc(%eplane2 + %airspeed) 
    if (%ebullet3 == yes && %hit == $null) {
      set %ebullet2 $calc(%ebullet2 + 20)
      drawline @air 8 3 %ebullet %ebullet2  %ebullet $calc(%ebullet2 - 20)
    } 
    if (%hit == y) {
      var %part $rand(%eplane,$calc(%eplane + 120)) $rand($calc(%eplane2 +50) ,$calc(%eplane2 - 80)) $rand(%eplane,$calc(%eplane + 120)) $rand($calc(%eplane2 +50) ,$calc(%eplane2 - 80)) $rand(%eplane,$calc(%eplane + 120)) $rand($calc(%eplane2 +50) ,$calc(%eplane2 - 80)) $rand(%eplane,$calc(%eplane + 120)) $rand($calc(%eplane2 +50) ,$calc(%eplane2 - 80)) $rand(%eplane,$calc(%eplane + 120)) $rand($calc(%eplane2 +50) ,$calc(%eplane2 - 80)) $rand(%eplane,$calc(%eplane + 120)) $rand($calc(%eplane2 +50) ,$calc(%eplane2 - 80)) $rand(%eplane,$calc(%eplane + 120)) $rand($calc(%eplane2 +50) ,$calc(%eplane2 - 80))  
      var %part2 $rand(%eplane,$calc(%eplane + 120)) $rand($calc(%eplane2 +50) ,$calc(%eplane2 - 80)) $rand(%eplane,$calc(%eplane + 120)) $rand($calc(%eplane2 +50) ,$calc(%eplane2 - 80)) $rand(%eplane,$calc(%eplane + 120)) $rand($calc(%eplane2 +50) ,$calc(%eplane2 - 80)) $rand(%eplane,$calc(%eplane + 120)) $rand($calc(%eplane2 +50) ,$calc(%eplane2 - 80)) $rand(%eplane,$calc(%eplane + 120)) $rand($calc(%eplane2 +50) ,$calc(%eplane2 - 80)) $rand(%eplane,$calc(%eplane + 120)) $rand($calc(%eplane2 +50) ,$calc(%eplane2 - 80)) $rand(%eplane,$calc(%eplane + 120)) $rand($calc(%eplane2 +50) ,$calc(%eplane2 - 80))  
      drawdot @air $rand(14,15) 10 %part2 
      drawdot @air $rand(7,8) 10 %part 
    }
    ;======GUNS=====
    if (%shoot == y) { 
      ;gun1
      set %bullet $calc(%plane11 + 60)
      set %bullet2 $calc(%plane13 - 30)
      set %bullet3 $calc(%plane11 + 60)  
      set %bullet4 $calc(%plane13 - 10) 
      ;gun2
      set %bullet6 $calc(%plane11 + 2)
      set %bullet7 $calc(%plane13 - 30)
      set %bullet8 $calc(%plane11 + 2)  
      set %bullet9 $calc(%plane13 - 10)
      set %shoot fire
      splay gun.wma
    }
    if (%shoot == fire) {
      drawline @air 8 2 %bullet %bullet2 %bullet3 %bullet4
      drawline @air 8 2 %bullet6 %bullet7 %bullet8 %bullet9
      set %bullet2 $calc(%bullet2 - 50)
      set %bullet4 $calc(%bullet4 - 50)
      set %bullet7 $calc(%bullet7 - 50)
      set %bullet9 $calc(%bullet9 - 50)
    }
    if (%bullet2 < -20) { unset %shoot | unset %bullet* }
    if (%bullet isnum $calc(%eplane -15) - $calc(%eplane + 100) && %bullet2 < %eplane2) { unset %shoot | dec %eplaneheal 25  | unset %bullet* }
    if (%bullet6 isnum $calc(%eplane -15) - $calc(%eplane + 100) && %bullet4 < %eplane2) { unset %shoot | dec %eplaneheal 25  | unset %bullet* }
    ;=========Enemny guns=========
    if (%ebullet isnum $calc(%plane - 40) - $calc(%plane3 + 100) && %ebullet2 isnum $calc(%plane2 +30) - $calc(%plane2 + 150)) { unset %ebullet* | hdec pickle.air health 5 }
  }
  ;==================Display================
  if (%airspeed == 10) { timerair4 off }
  hdec pickle.air fuel 0.1
  if ($hget(pickle.air,time) < 10) { set %0time  0 $+ $hget(pickle.air,time) }
  if ($hget(pickle.air,time) == 60) { inc %60time 1 | hadd pickle.air time 0 }
  if ($hget(pickle.air,health) == 0) { set %game over }
  drawrect -f @air 4 2  50 5 $hget(pickle.air,health) 15
  drawrect -f @air 4 2  0 460 500 15
  drawrect -f @air 9 2  0 460 $hget(pickle.air,fuel) 15
  drawtext @air 1 arial 15 0 460 Fuel: $hget(pickle.air,fuel)
  drawtext @air 4 arial 15 350 20 Kills: %kills 
  drawtext @air 4 arial 15 350 4 HIscore: %hiscore
  drawtext @air 4 arial 15 5 4 Health:
  set %0time $hget(pickle.air,time)
  drawtext -p @air 4 arial 15 7 25 Time:  %60time : %0time
  drawtext @air 0 arial 15 55 4 $hget(pickle.air,health)
  drawtext @air 2 arial 15 385 460 Air speed: %airspeed
  if ($hget(pickle.air,fuel) < 0) { set %game fuel }
  if ($hget(pickle.air,fuel) < 200) { drawtext -b @air 4 8 arial 8 $calc(%plane -28) $calc(%plane4 +7) WARNING LOW FUEL  }
  ;===========================
  checkairmove
  if (%game == over) { 
    drawtext @air 8 arial 70 30 170 GAME OVER! 
    drawtext -b @air 8 4 arial 20 140 250 you got shot by the planes ;o
    drawcopy  -t @air 1 1 1 500 500 @Pickle's_Airplane_Game 1 1 500 500
    splay bomber.wav
    endair
    halt
  }
  if (%game == fuel) { 
    drawtext @air 8 arial 70 30 170 GAME OVER! 
    drawtext -b @air 8 4 arial 20 140 250 you ran out of fuel :(
    drawcopy  -t @air 1 1 1 500 500 @Pickle's_Airplane_Game 1 1 500 500
    splay bomber.wav  
    endair
    halt
  }
  ;==========Health power ups============ 
  if (%healthup != go) { var %htemp $rand(0,1000) }
  if (%htemp == 10) { 
    set %health.x $rand(50,450)
    set %health.y -1 
    set %healthup go
  }
  if (%healthup == go) { 
    drawline @air 1 3 $calc(%health.x -5) $calc(%health.y - 45) $calc(%health.x - 50) $calc(%health.y - 45)
    drawrect -df @air 1 2 $calc(%health.x - 40) $calc(%health.y - 45)  30  105  200 250 
    drawrect -df @air 1 2 $calc(%health.x - 80) $calc(%health.y -10)    105  30   250 200  
    drawrect -df @air 1 2 $calc(%health.x -55) $calc(%health.y +50)  65 15    250 200 
    drawrect -df @air 4 2 $calc(%health.x - 40) $calc(%health.y - 45)  25  100  200 250 
    drawrect -df @air 4 2 $calc(%health.x -80) $calc(%health.y -10) 100  25    250 200 
    drawrect -df @air 4 2 $calc(%health.x -55) $calc(%health.y +50) 60 10    250 200 
    drawtext -p @air 0 arail 15 $calc(%health.x -75) $calc(%health.y -5) FUEL PLANE
    set %health.y $calc(%health.y + $calc(%airspeed -2))
  }
  if (%health.y >= 550) { unset %health* }
  if (%health.x isnum $calc(%plane - 30) - $calc(%plane3 + 100) && %health.y isnum $calc(%plane2 -10) - $calc(%plane2 + 150) && $hget(pickle.air,health) < 100) { hinc pickle.air health 1    
    if ($hget(pickle.air,fuel) <= 500) { hinc pickle.air fuel 1 }
  }
  drawcopy  -t @air 1 1 1 500 500 @Pickle's_Airplane_Game 1 1 500 500
}
alias -l checkairmove {
  if (%left2 == y && %left != left) { 
    set %plane $calc(%plane - 15)
    set %plane3 $calc(%plane3 - 15)
    set %plane5 $calc(%plane5 - 15)
    set %plane7 $calc(%plane7 - 15)
    set %plane9 $calc(%plane9 - 15)
    set %plane11 $calc(%plane11 - 15)
    set %plane12 $calc(%plane12 - 15)
    set %plane14 $calc(%plane14 - 15)
    set %plane15 $calc(%plane15 - 15)
    hdec pickle.air fuel .1
  }
  if (%right2 == y && %right != right) { 
    set %plane $calc(%plane + 15)
    set %plane3 $calc(%plane3 + 15)
    set %plane5 $calc(%plane5 + 15)
    set %plane7 $calc(%plane7 + 15)
    set %plane9 $calc(%plane9 + 15)
    set %plane11 $calc(%plane11 + 15)
    set %plane12 $calc(%plane12 + 15)
    set %plane14 $calc(%plane14 + 15)
    set %plane15 $calc(%plane15 + 15)
    hdec pickle.air fuel .1
  }
  if (%up2 == y && %up != up) { 
    set %plane2 $calc(%plane2 - 15)
    set %plane4 $calc(%plane4 - 15)
    set %plane6 $calc(%plane6 - 15)
    set %plane8 $calc(%plane8 - 15)
    set %plane10 $calc(%plane10 - 15)
    set %plane13 $calc(%plane13 - 15)
    set %plane16 $calc(%plane16 - 15)
    hdec pickle.air fuel .1
  }
  if (%down2 == y && %down != down) { 
    set %plane2 $calc(%plane2 + 15)
    set %plane4 $calc(%plane4 + 15)
    set %plane6 $calc(%plane6 + 15)
    set %plane8 $calc(%plane8 + 15)
    set %plane10 $calc(%plane10 + 15)
    set %plane13 $calc(%plane13 + 15)
    set %plane16 $calc(%plane16 + 15)
    hdec pickle.air fuel .1
  }
  if (%plane == 25 && %plane3 == -15 && %plane5 == 5 && %plane7 == 50 ) { set %left left }
  if (%plane != 25 && %plane3 != -15 && %plane5 != 5 && %plane7 != 50 ) { unset %left  }
  if (%plane == 445 && %plane3 == 405 && %plane5 == 425 && %plane7 == 470 ) { set %right right }
  if (%plane != 445 && %plane3 != 405 && %plane5 != 425 && %plane7 != 470 ) { unset %right }
  if (%plane2 == 25 && %plane4 == 60 && %plane6 == 120 && %plane8 == 25 ) { set %up up }
  if (%plane2 != 25 && %plane4 != 60 && %plane6 != 120 && %plane8 != 25 ) { unset %up }
  if (%plane2 == 370 && %plane4 == 405 && %plane6 == 465 && %plane8 == 370 ) { set %down down }
  if (%plane2 != 370 && %plane4 != 405 && %plane6 != 465 && %plane8 != 370 ) { unset %down }
}
alias -l endair { timerair* off | hfree pickle.air | window -c @air | unset %60time | unset %bullet* | unset %eplane* | unset %plane* | unset %cloud* | unset %ship* | unset %land* | unset %scolor | unset %shoot | unset %game | unset %health* | unset %ebullet* | unset %color | unset %hit }
;==========controls=============
on *:keydown:@Pickle's_Airplane_Game:*:{ 
  if ($keyval == 37) { set %left2 y }
  if ($keyval == 39) { set %right2 y }
  if ($keyval == 38) { set %up2 y }
  if ($keyval == 40) { set %down2 y }
  if ($keyval == 32 && %shoot != fire) { set %shoot y }
  if ($keyval == 80) { 
    if (%puase == $null) {
      set %puase yes
      timerair -p
      timerair1 -p 
      timerair2 -p
      timerair4  -p
    }
    if (%puase == yes) {
      unset %puase
      timerair -r
      timerair1 -r 
      timerair2 -r
      timerair4  -r
    } 
  }

}
on *:keyup:@Pickle's_Airplane_Game:*:{ 
  if ($keyval == 37) { unset %left2 }
  if ($keyval == 39) { unset %right2 }
  if ($keyval == 38) { unset %up2 }
  if ($keyval == 40) { unset %down2 }
}
on *:close:@Pickle's_Airplane_Game:{ endair }