Below is a screen I created so I pop it on the game screen when someone
press the 'I' key. I am unable to change the background color of the
screen, and put the box array on the screen in the colors I had when I
used the get command. How can I achieve this? Help would be appreciated.
Thank you..
Whitenite1
<----- code ----->
screen 12
color 4,5
cls
dim box(15300)
Boxit:
for x = 2 to 20: locate x,2: print "
": next x
LOCATE 1, 1: PRINT CHR$(201) + STRING$(40, 205) + CHR$(187)
FOR x = 2 TO 20: LOCATE x, 1: PRINT CHR$(186): LOCATE x, 42: PRINT
CHR$(186);chr$(176): NEXT x
LOCATE 21, 1: PRINT CHR$(200) + STRING$(40, 205) +
CHR$(188);chr$(176)
print tab(2);string$(42,176)
Instructions:
locate 2,15: print "Instructions"
locate 3,14: print "--------------"
locate 4,3: print "You, as the wolf, must land on a goat"
locate 5,3: print "by exact count. You move in any direc-"
locate 6,3: print "tion, up to your total moves allotted."
locate 7,3: print "The goats move in a straight line in"
locate 8,3: print "any one direction. They move in the"
locate 9,3: print "amount shown as their number. That is,"
locate 10,3: print "a G4 will move 4 straight spaces and"
locate 11,3: print "will try to land on your wolf. If one"
locate 12,3: print "does, the game is over. YOU LOSE !!!"
locate 14,11: print "The game is over when :"
locate 15,12: print "A) You eat 3 goats."
locate 16,12: print "B) A goat eats YOU!"
locate 18,12: print "Press Space To End"
locate 20,5: print "Press 'i' to re-read instructions"
get(1,1)-(343,355),box
delay 2
color 5,8
cls
put(150,65),box
end
<----- end code ----->
|
