.MOVEDEMO
1->A
1->B
Pt-On(1,1,[FF818181999999FF]):DispGraph
Lbl 1
Getkey->C
If C=4
Then
A+1->A:Pt-On(A,B,[FF999999818181FF]):DispGraph
End
If C=1
Then
A-1->A:Pt-On(A,B,[FF818181999999FF]):DispGraph
End
If C=2
Then
B-1->B:Pt-On(A,B,[FF8181F1F18181FF]):DispGraph
End
If C=3
Then
B+1->B:Pt-On(A,B,[FF81818F8F8181FF]):DispGraph
End
Goto 1
.MOVEDEMO
1->A
1->B
[FF818181999999FF->Pic1
Pt-On(1,1,Pic1
DispGraph
Lbl 1
If Getkey (4)
A+1->A
[FF999999818181FF]->Pic2
Pt-On(A,B,Pic2
DispGraph
End
...
The getkey is wrong!
Axe allows multitasking!Code: [Select].MOVEDEMO
1->A
1->B
[FF818181999999FF->Pic1
Pt-On(1,1,Pic1
DispGraph
Lbl 1
If Getkey (4)
A+1->A
[FF999999818181FF]->Pic2
Pt-On(A,B,Pic2
DispGraph
End
...
.MOVEDEMO
1->A->B->E->F
Pt-On(1,1,[FF818181999999FF]):DispGraph
Repeat getkey(15)
Pt-Off(F,E,[0000000000000000])
A->E
B->F
Pause 100
Repeat getkey(0)
End
If getkey(4)
A-1->A
Pt-Off(B,A,[FF999999818181FF])
End
If getkey(1)
A+1->A
Pt-Off(B,A,[FF818181999999FF])
End
If getkey(2)
B-1->B
Pt-Off(B,A,[FF8181F1F18181FF])
End
If getkey(3)
B+1->B
Pt-Off(B,A,[FF81818F8F8181FF])
End
DispGraph
End
.MOVEDEMO
1->A->B->E->F
Pt-On(1,1,[FF818181999999FF]):DispGraph
Repeat getkey(15)
Pt-Off(F,E,[0000000000000000])
A->E
B->F
Pause 100
Repeat getkey(0)
End
If getkey(4)
A-1->A
Pt-Off(B,A,[FF999999818181FF])
End
If getkey(1)
A+1->A
Pt-Off(B,A,[FF818181999999FF])
End
If getkey(2)
B-1->B
Pt-Off(B,A,[FF8181F1F18181FF])
End
If getkey(3)
B+1->B
Pt-Off(B,A,[FF81818F8F8181FF])
End
DispGraph
End
What axe are u usin? caus in 1.0 its changed the ':''s function to somethin different i think.
Hey ! Wy new code (http://ourl.ca/12117/228595) works well (except if you press more than 1 key) !
EDIT: I attached the file for the lazy ones :P