Code:
'ProgramMode:RUN
0->A~Z
'DELAYSET'
0->E
'MAZEBUILD'
Locate 15,1,"_#E6A6_"
Locate 15,2,"_#E6A6_"
Locate 15,3,"_#E6A6_"
Locate 15,4,"_#E6A6_"
Locate 15,5,"_#E6A6_"
Locate 15,6,"_#E6A6_"
Locate 15,7,"_#E6A6_"
Locate 1,1,"_#E6A6_"
Locate 1,2,"_#E6A6_"
Locate 1,3,"_#E6A6_"
Locate 1,4,"_#E6A6_"
Locate 1,5,"_#E6A6_"
Locate 1,6,"_#E6A6_"
Locate 1,7,"_#E6A6_"
Locate 15,1,"_#E6A6_"
Locate 14,1,"_#E6A6_"
Locate 13,1,"_#E6A6_"
Locate 12,1,"_#E6A6_"
Locate 11,1,"_#E6A6_"
Locate 10,1,"_#E6A6_"
Locate 9,1,"_#E6A6_"
Locate 8,1,"_#E6A6_"
Locate 7,1,"_#E6A6_"
Locate 6,1,"_#E6A6_"
Locate 5,1,"_#E6A6_"
Locate 4,1,"_#E6A6_"
Locate 3,1,"_#E6A6_"
Locate 2,1,"_#E6A6_"
Locate 1,1,"_#E6A6_"
Locate 15,7,"_#E6A6_"
Locate 14,7,"_#E6A6_"
Locate 13,7,"_#E6A6_"
Locate 12,7,"_#E6A6_"
Locate 11,7,"_#E6A6_"
Locate 10,7,"_#E6A6_"
Locate 9,7,"_#E6A6_"
Locate 8,7,"_#E6A6_"
Locate 7,7,"_#E6A6_"
Locate 6,7,"_#E6A6_"
Locate 5,7,"_#E6A6_"
Locate 4,7,"_#E6A6_"
Locate 3,7,"_#E6A6_"
Locate 2,7,"_#E6A6_"
Locate 1,7,"_#E6A6_"
Locate 6,5,"_#E6A6_"
Locate 7,5,"_#E6A6_"
Locate 6,4,"_#E6A6_"
Locate 6,3,"_#E6A6_"
Locate 7,3,"_#E6A6_"
Locate 8,3,"_#E6A6_"
Locate 9,3,"_#E6A6_"
Locate 10,3,"_#E6A6_"
Locate 10,4,"_#E6A6_"
Locate 10,5,"_#E6A6_"
Locate 9,5,"_#E6A6_"
Blue Locate 9,4,"U"
5->X
5->Y
Locate X,Y,"O"
Prog "WAIT"
'ENEMY'
Do
Getkey->A
If A=28 And Y<>20
Then
Locate X,Y," "
Y-1->Y
Locate X,Y,"_#E6A8_"
Else
Locate X,Y,"_#E6A8_"
IfEnd
If A=37 And Y<>6
Then
Locate X,Y," "
Y+1->Y
Locate X,Y,"_#E6A8_"
Else
Locate X,Y,"_#E6A8_"
IfEnd
If A=27 And X<>14
Then
Locate X,Y," "
X+1->X
Locate X,Y,"_#E6A8_"
Else
Locate X,Y,"_#E6A8_"
IfEnd
If A=38 And X<>2
Then
Locate X,Y," "
X-1->X
Locate X,Y,"_#E6A8_"
Else
Locate X,Y,"_#E6A8_"
IfEnd
Locate 9,4," "
Blue Locate 8,4,"U"
Prog "WAIT"
Locate 8,4," "
Blue Locate 7,4,"U"
Prog "WAIT"
Locate 7,4," "
Blue Locate 8,4,"U"
Prog "WAIT"
Locate 8,4," "
Blue Locate 9,4,"U"
Prog "WAIT"
Yellow Locate X,Y,"_#E6A8_"
LpWhile 1=1
All right so this is my program. In order to run it, your also going to need my WAIT program which consists of this
Code:
Z->0
Do
Z+1->Z
LpWhile Z<E
E is defined in the program above.
The problem I'm having involves the color commands. When I set the U to become Blue, it stays black and the block next to it becomes blue. So does anybody have any idea why this is happening?