i have no clue what to do on line 32
i want it to colide with the upper (and lower) part of the block
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
| :.OBJECT :"AXE TEST→Str1 :[FFFFFFFFFFFFFFFF]→Pic1 :DiagnosticOff :ClrHome :Output(2,3,Str1 :Pause 1750 :1→X :1→Y :44→A :23→B :Repeat getKey(15) :If getKey(1) :Y+1→Y :End :If getKey(4) :Y-1→Y :End :If getKey(3) :X+1→X :End :If getKey(2) :X-1→X :End : :If (abs(Y-B)<8) and (abs(X-A)<8) :A-1→A :If (X<A) :A+2→A :End :End :??????????????????????????????? :A-1→A :If (Y<A) :A+2→A :End :End : :ClrDraw :Pt-On(X,Y,Pic1 :Pt-On(A,B,Pic1 :DispGraph :End |
Powered by SMF 1.1.18 |
SMF © 2013, Simple Machines
