-----------------------------------

r.m_spy

Sun Mar 02, 2008 7:47 am


guitar( acualy possible

-----------------------------------

var k:array char of boolean
var announceFont : int := Font.New ("Sanserif:30:bold")
var announcFont : int := Font.New ("Sanserif:30:bold")
procedure CentreFont (s : string, x, y, f, clr : int)
    var w : int := Font.Width (s, f)
    Font.Draw (s, x - w div 2, y, f, clr)
end CentreFont
%leave this part alone
var a:char:=chr(97)
var dq:char:=chr(100)
var s:char:=chr(115)
var br:int:=0
var be:int:=0
var d:int:=maxx+150
var v:int:=maxx+50
var w:int:=Rand.Int(maxx,maxx+300)
var score:int:=0
var bl:int:=0
var xz:int:=0
var com:int:=1
var speed:int
var row:int
var combo:int:=10
var xent:int:=0
loop
delay(100)
cls
drawfillbox(0,0,maxx,maxy,black)
CentreFont("raymond pictures",maxx div 2,maxy div 2,announcFont,red)
delay(200)
cls
delay(100)
cls
drawfillbox(0,0,maxx,maxy,black)
drawline(maxx-150,maxy,maxx-100,maxy,darkgrey)
drawline(maxx-100,maxy,maxx-200,maxy-100,darkgrey)
drawline(maxx-150,maxy,maxx-250,maxy-100,darkgrey)
drawline(maxx-200,maxy-100,maxx-170,maxy-90,darkgrey)
drawline(maxx-250,maxy-100,maxx-220,maxy-90,darkgrey)
drawline(maxx-300,maxy-200,maxx-220,maxy-90,darkgrey)
drawline(maxx-250,maxy-200,maxx-170,maxy-90,darkgrey)
drawline(maxx-300,maxy-200,maxx-270,maxy-190,darkgrey)
drawline(maxx-250,maxy-200,maxx-220,maxy-190,darkgrey)
drawline(370,210,270,110,darkgrey)
drawline(420,210,320,110,darkgrey)
drawline(320,110,350,120,darkgrey)
drawline(270,110,300,120,darkgrey)
drawline(170,0,300,120,darkgrey)
drawline(220,0,350,120,darkgrey)
drawline(170,0,220,0,darkgrey)
drawfill(maxx div 2+50,maxy div 2,yellow,darkgrey)
CentreFont("raymond pictures",maxx div 2,maxy div 2,announcFont,brightred)
delay(100)
cls
drawfillbox(0,0,maxx,maxy,black)
CentreFont("raymond pictures",maxx div 2,maxy div 2,announcFont,red)
delay(750)
cls
drawfillbox(0,0,maxx,maxy,black)
drawline(maxx-150,maxy,maxx-100,maxy,darkgrey)
drawline(maxx-100,maxy,maxx-200,maxy-100,darkgrey)
drawline(maxx-150,maxy,maxx-250,maxy-100,darkgrey)
drawline(maxx-200,maxy-100,maxx-170,maxy-90,darkgrey)
drawline(maxx-250,maxy-100,maxx-220,maxy-90,darkgrey)
drawline(maxx-300,maxy-200,maxx-220,maxy-90,darkgrey)
drawline(maxx-250,maxy-200,maxx-170,maxy-90,darkgrey)
drawline(maxx-300,maxy-200,maxx-270,maxy-190,darkgrey)
drawline(maxx-250,maxy-200,maxx-220,maxy-190,darkgrey)
drawline(370,210,270,110,darkgrey)
drawline(420,210,320,110,darkgrey)
drawline(320,110,350,120,darkgrey)
drawline(270,110,300,120,darkgrey)
drawline(170,0,300,120,darkgrey)
drawline(220,0,350,120,darkgrey)
drawline(170,0,220,0,darkgrey)
drawfill(maxx div 2+50,maxy div 2,yellow,darkgrey)
CentreFont("raymond pictures",maxx div 2,maxy div 2,announcFont,brightred)
xent:=xent+1
exit when xent=3
end loop
cls
put"options, enter the bracet to the right of your choice"
put""
put"speed, slow(10),normal(20), fast(40), and legend(50)"
get speed
put"what level. eazy(1),mediem(2),or hard(3)"
get row
loop
delay(100)
cls
put"score:",score
put"combo:x",com
put"speed:",speed
put"level:"..
if row=1 then
put"eazy"
elsif row=2 then
put"normal"
elsif row=3 then
put"hard"
end if
drawfillbox(100,0,200,maxx,brightgreen)
if row=3 then
if be=0 then
drawoval(d,maxy div 2-100,50,50,black)
elsif be=1 then
drawfilloval(d,maxy div 2-100,50,50,black)
end if
end if
if row=1 or row=2 or row=3 then
if bl=0 then
drawoval(v,maxy div 2+100,50,50,black)
elsif bl=1 then
drawfilloval(v,maxy div 2+100,50,50,black)
end if
end if
if row=3 or row=2 then
if br=0 then
drawoval(w,maxy div 2,50,50,black)
elsif br=1 then
drawfilloval(w,maxy div 2,50,50,black)
end if
end if
if row=1 or row=2 or row=3 then
CentreFont ("A", v, maxy div 2+90,announceFont ,brightred)
end if
if row=2 or row=3 then
CentreFont ("S", w, maxy div 2-10,announceFont ,brightred)
end if
if row=3 then
CentreFont ("D", d, maxy div 2-110,announceFont ,brightred)
end if
Input.KeyDown(k)
d:=d-speed
v:=v-speed
w:=w-speed
if v200 then
if k(a) then
if score>0 then
score:=score-1
end if
end if
end if
if v100 then
if k(a) then
if bl=0 then
score:=score+com
xz:=xz+1
bl:=bl+1
end if
end if
end if
if row=2 or row=3 then
if w200 then
if k(s) then
if score>0 then
score:=score-1
end if
end if
end if
if w100 then
if k(s) then
if br=0 then
score:=score+com
xz:=xz+1
br:=br+1
end if
end if
end if
end if
if row=3 then
if d200 then
if k(dq) then
if score>0 then
score:=score-1
end if
end if
end if
if d100 then
if k(dq) then
if be=0 then
score:=score+com
xz:=xz+1
be:=be+1
end if
end if
end if
if row=3 then
if d