Hey, I am trying to make my asterisk bounce on my turing page. I managed to make it move all over the page, however, it is not bouncing. Here is what I have so far, plz help!!!
colour (12)
process playstuff
loop
play ("decfgfegdcabcgdefgabcdggfabedcabdefgcdabgdefg")
delay (500)
play ("cdefgabcgabcdfgeabdegfdeebacfgcdefgabcdefgabc")
delay (500)
end loop
end playstuff
fork playstuff %fork it to play music
% This is a program that lets you use the arrow keys to control the blocker.%
% The object is to block ten asterisks.%
const BLOCKER:=
chr(220)+chr(220)+chr(220)+chr(220)+chr(220)
const WAIT:=125
const NUMBER_OF_ASTERISKS:=10
const LEFT_ARROW:=chr(203)
const RIGHT_ARROW:=chr(205)
const HOME:=chr(199)
const END:=chr(207)
const BLOCKER_ROW:=24
const BLANK_BLOCKER:=" "
var Key: string(1)
var Asterisk_Column, Start, Finish: int
var Blocker_Column:=38
var Asterisk_Row:=2
setscreen ("noecho,nocursor")
procedure Move_Blocker
%We wait for the user to press a key.
getch (Key)
%We erase a previously positioned blocker.
locate(BLOCKER_ROW, Blocker_Column)
put BLANK_BLOCKER
%We adjust the position of the blocker
%according to the direction specified
%by the user.0
if Key=RIGHT_ARROW then
Blocker_Column:=Blocker_Column+2
elsif Key= LEFT_ARROW then
Blocker_Column :=Blocker_Column-2
elsif Key= HOME then
Blocker_Column :=2
elsif Key=END then
Blocker_Column :=75
end if
%We do not allow the blocker to be moved
%Beyond the borders of the screen
if Blocker_Column >75 then
Blocker_Column :=75
elsif Blocker_Column <2 then
Blocker_Column :=2
end if
%The blocker is displayed on the screen.
locate (BLOCKER_ROW, Blocker_Column)
put BLOCKER
end Move_Blocker
locate (BLOCKER_ROW, Blocker_Column)
put BLOCKER
randomize
clock (Start)
for Asterisk: 1..NUMBER_OF_ASTERISKS
locate (1,1)
put "Asterisk #", Asterisk
randint (Asterisk_Column,2,79)
loop
locate(Asterisk_Row, Asterisk_Column)
put "*"
delay (WAIT)
if hasch then
Move_Blocker
end if
locate (Asterisk_Row, Asterisk_Column)
put " "
Asterisk_Row:= Asterisk_Row+1
if Asterisk_Row>24 then
Asterisk_Row:=2
end if
if Asterisk_Column>=Blocker_Column and
Asterisk_Column<=Blocker_Column+4 and
Asterisk_Row=24 then
sound(1000,100)
exit
elsif Asterisk_Row = 24 and
(Asterisk_Column < Blocker_Column or
Asterisk_Column > Blocker_Column +4) then
sound (100,100)
end if
end loop
end for
clock (Finish)
cls
put "Time: ", (Finish-Start)/1000, " Seconds."
