Author Topic: For some reason i am getting a blank  (Read 3110 times)

0 Members and 1 Guest are viewing this topic.

Offline Wretchedlout

  • LV3 Member (Next: 100)
  • ***
  • Posts: 64
  • Rating: +6/-0
    • View Profile
For some reason i am getting a blank
« on: May 04, 2012, 01:42:02 am »
i have no clue what to do on line 32
i want it to colide with the upper (and lower) part of the block


Code: [Select]
:.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
« Last Edit: May 04, 2012, 01:42:37 am by Wretchedlout »

Offline hellninjas

  • LV7 Elite (Next: 700)
  • *******
  • Posts: 625
  • Rating: +17/-0
    • View Profile
Re: For some reason i am getting a blank
« Reply #1 on: May 04, 2012, 12:13:19 pm »
Have you tried the pxl-test( Command?
* hellninjas doesn't know abs( x.x