Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- THREAD(nameO, 1)
- $Y = 705
- $A = 0
- IF($A = 0)
- GETSCREEN
- $pixA = PXL (603, $Y)
- $A = $A + 1
- END_IF
- $S = 0
- IF($S = 0)
- GETSCREEN
- $pixS = PXL (748, $Y)
- $S = $S + 1
- END_IF
- $D = 0
- IF($D = 0)
- GETSCREEN
- $pixD = PXL (872, $Y)
- $D = $D + 1
- END_IF
- $F = 0
- IF($F = 0)
- GETSCREEN
- $pixF = PXL (1016, $Y)
- $F = $F + 1
- END_IF
- $G = 0
- IF($G = 0)
- GETSCREEN
- $pixG = PXL (1158, $Y)
- $G = $G + 1
- END_IF
- $H = 0
- IF($H = 0)
- GETSCREEN
- $pixH = PXL (1302, $Y)
- $H = $H + 1
- END_IF
- END_THREAD
- //A
- THREAD(nameA, 1)
- $checkA = 0
- WHILE($checkA = 0)
- GETSCREEN
- IF_PIXEL_IN(603,$Y, 603,$Y, $pixA)
- ELSE
- $checkA = 1
- WAITMS(10)
- KEYDOWN(#A)
- $checkAA = 0
- WHILE($checkAA = 0)
- GETSCREEN
- IF_PIXEL_IN(603,$Y, 603,$Y, $pixA)
- $checkAA = 1
- KEYUP(#A)
- GOTO(42)
- END_IF
- END_CYC
- END_IF
- END_CYC
- END_THREAD
- //-----------------------
- //S
- THREAD(nameS, 1)
- $checkS = 0
- WHILE($checkS = 0)
- GETSCREEN
- IF_PIXEL_IN(748,$Y, 748,$Y, $pixS)
- ELSE
- $checkS = 1
- WAITMS(10)
- KEYDOWN(#S)
- $checkSS = 0
- WHILE($checkSS = 0)
- GETSCREEN
- IF_PIXEL_IN(748,$Y, 748,$Y, $pixS)
- $checkSS = 1
- KEYUP(#S)
- GOTO(74)
- END_IF
- END_CYC
- END_IF
- END_CYC
- END_THREAD
- //--------------------
- //D
- THREAD(nameD, 1)
- $checkD = 0
- WHILE($checkD = 0)
- GETSCREEN
- IF_PIXEL_IN(872,$Y, 872,$Y, $pixD)
- ELSE
- $checkD = 1
- WAITMS(10)
- KEYDOWN(#D)
- $checkDD = 0
- WHILE($checkDD = 0)
- GETSCREEN
- IF_PIXEL_IN(872,$Y, 872,$Y, $pixD)
- $checkDD = 1
- KEYUP(#D)
- GOTO(108)
- END_IF
- END_CYC
- END_IF
- END_CYC
- END_THREAD
- //--------------------------
- //F
- THREAD(nameF, 1)
- $checkF = 0
- WHILE($checkF = 0)
- GETSCREEN
- IF_PIXEL_IN(1016,$Y, 1016,$Y, $pixF)
- ELSE
- $checkF = 1
- WAITMS(10)
- KEYDOWN(#F)
- $checkFF = 0
- WHILE($checkFF = 0)
- GETSCREEN
- IF_PIXEL_IN(1016,$Y, 1016,$Y, $pixF)
- $checkFF = 1
- KEYUP(#F)
- GOTO(140)
- END_IF
- END_CYC
- END_IF
- END_CYC
- END_THREAD
- //-------------------
- //G
- THREAD(nameG, 1)
- $checkG = 0
- WHILE($checkG = 0)
- GETSCREEN
- IF_PIXEL_IN(1158,$Y, 1158,$Y, $pixG)
- ELSE
- $checkG = 1
- WAITMS(10)
- KEYDOWN(#G)
- $checkGG = 0
- WHILE($checkGG = 0)
- GETSCREEN
- IF_PIXEL_IN(1158,$Y, 1158,$Y, $pixG)
- $checkGG = 1
- KEYUP(#G)
- GOTO(172)
- END_IF
- END_CYC
- END_IF
- END_CYC
- END_THREAD
- //-------------------------------
- //H
- THREAD(nameH, 1)
- $checkH = 0
- WHILE($checkH = 0)
- GETSCREEN
- IF_PIXEL_IN(1302,$Y, 1302,$Y, $pixH)
- ELSE
- $checkH = 1
- WAITMS(10)
- KEYDOWN(#H)
- $checkHH = 0
- WHILE($checkHH = 0)
- GETSCREEN
- IF_PIXEL_IN(1302,$Y, 1302,$Y, $pixH)
- $checkHH = 1
- KEYUP(#H)
- GOTO(205)
- END_IF
- END_CYC
- END_IF
- END_CYC
- END_THREAD
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement