Code: Select all
Command fire
local Shippos
put the loc of img "Na" into Shippos
set the loc of img "Shoot" to Shippos
Show Img "Shoot"
Move Img "Shoot" relative 0 , -400 in 500 milliseconds
Hide Img "Shoot"
end fire
#=========================================
Hide Image "Shoot"
#==========================================
On keyDown Pletter
If Pletter = "W" Then
Move Img "NA" relative 0 , -5
if The top of img "NA" < 0 Then
Set the top of img "Na" To 0
End if
End if
#=========================================
If Pletter = "S" Then
Move Img "NA" relative 0 , 5
if The Bottom of img "NA" > 400 Then
Set the Bottom of img "Na" To 400
End if
End if
#=========================================
If Pletter = "A" Then
Move Img "NA" relative -5 , 0
if The Left of img "NA" < 0 Then
Set the Left of img "Na" To 0
End if
End if
#========================================
If Pletter = "D" Then
Move Img "NA" relative 5 , 0
if The Right of img "NA" > 400 Then
Set the Right of img "Na" To 400
End if
End if
#========================================
If Pletter is Space Then
Fire
End if
end keyDown
Thanks For the help