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

r.m_spy

Sat Apr 19, 2008 6:18 pm


Big Shot

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

var x,y,q,w,btn,score,life,tim,h,o,p,r:int
tim:=0
r:=20
h:=100
life:=3
score:=0
var k:array char of boolean
var s:char:=chr(32)
randint(q,100,maxx)
randint(w,0,maxy)
randint(o,100,maxx)
randint(p,0,maxy)
procedure game1
setscreen("graphics:max,max")
put" year:2234"
put"reporter: today is the day we go live to find out what mr. welder has invented."
put"mr. welder: using nanobots, I have invwented a robot, painted like a smily face."
put"it can preform tasks for you beacaise it is really smart."
put""
put" year:2257"
put"reporter: news flash. mr. walders invention has gone mad! smily's wreak town."
put" you: you know, it would give me fortune if I shot all the smily's. all right I'll go."
Input.Pause
cls
loop
delay(100)
cls
Mouse.Where(x,y,btn)
put"Score :",score
put"lives :",life
put"Time  :",tim,"/",h
drawline(100,0,100,maxy,black)
drawline(100,0,maxx div 2-50,maxy div 2-50,black)
drawline(100,maxy,maxx div 2-50,maxy div 2+50,black)
drawline(maxx,0,maxx div 2+50,maxy div 2-50,black)
drawline(maxx,maxy,maxx div 2+50,maxy div 2+50,black)
drawfillbox(maxx div 2-50,maxy div 2-50,maxx div 2+50,maxy div 2+50,grey)
drawbox(maxx div 2-50,maxy div 2-50,maxx div 2+50,maxy div 2+50,black)
drawfill(150,maxy div 2,blue,black)
drawfill(maxx-150,maxy div 2,blue,black)
drawfill(maxx div 2,1,brightgreen,black)
drawfill(maxx div 2,maxy-1,blue,black)
drawfilloval(q,w,5,5,yellow)
drawfillbox(q+2,w+2,q+3,w+3,black)
drawfillbox(q-2,w+2,q-3,w+3,black)
drawfillbox(q+3,w-2,q-3,w-3,black)
drawfilloval(x,y,5,5,brightred)
drawline(x,0,x,maxy,black)
drawline(0,y,maxx,y,black)
drawline(100,0,100,maxy,black)
Input.KeyDown(k)
if tim>h or tim=h then
life:=life-1
randint(q,100,maxx)
randint(w,0,maxy)
tim:=0
delay(200)
end if
if k(s) then
if x>q-5 and xw-5 and yq-5 and xw-5 and y4 then
cls
put"Nice job on the first one, but the smiley's are getting smarter. Do not shoot the decoys"
Input.Pause
cls
loop
delay(100)
cls
Mouse.Where(x,y,btn)
put"Score :",score
put"lives :",life
put"Time  :",tim,"/",h
drawline(100,0,100,maxy,black)
drawline(100,0,maxx div 2-50,maxy div 2-50,black)
drawline(100,maxy,maxx div 2-50,maxy div 2+50,black)
drawline(maxx,0,maxx div 2+50,maxy div 2-50,black)
drawline(maxx,maxy,maxx div 2+50,maxy div 2+50,black)
drawfillbox(maxx div 2-50,maxy div 2-50,maxx div 2+50,maxy div 2+50,grey)
drawbox(maxx div 2-50,maxy div 2-50,maxx div 2+50,maxy div 2+50,black)
drawfill(150,maxy div 2,blue,black)
drawfill(maxx-150,maxy div 2,blue,black)
drawfill(maxx div 2,1,brightgreen,black)
drawfill(maxx div 2,maxy-1,blue,black)
drawfilloval(q,w,5,5,yellow)
drawfillbox(q+2,w+2,q+3,w+3,black)
drawfillbox(q-2,w+2,q-3,w+3,black)
drawfillbox(q+3,w-2,q-3,w-3,black)
drawfilloval(o,p,5,5,66)
drawfillbox(o+2,p+2,o+3,p+3,black)
drawfillbox(o-2,p+2,o-3,p+3,black)
drawfillbox(o+3,p-2,o-3,p-3,black)
drawfilloval(x,y,5,5,brightred)
drawline(x,0,x,maxy,black)
drawline(0,y,maxx,y,black)
drawline(100,0,100,maxy,black)
Input.KeyDown(k)
if tim>h or tim=h then
life:=life-1
randint(q,100,maxx)
randint(w,0,maxy)
randint(o,100,maxx)
randint(p,0,maxy)
tim:=0
delay(200)
end if
if k(s) then
if x>q-5 and xw-5 and y9 then
cls
put"the smiley are escaping. kill them all! don't let them go off the screen!"
Input.Pause
cls
randint(q,100,maxx-100)
randint(w,100,maxy-100)
loop
delay(100)
cls
Mouse.Where(x,y,btn)
put"Score :",score
put"lives :",life
put"Time  :",tim,"/",h
drawline(100,0,100,maxy,black)
drawline(100,0,maxx div 2-50,maxy div 2-50,black)
drawline(100,maxy,maxx div 2-50,maxy div 2+50,black)
drawline(maxx,0,maxx div 2+50,maxy div 2-50,black)
drawline(maxx,maxy,maxx div 2+50,maxy div 2+50,black)
drawfillbox(maxx div 2-50,maxy div 2-50,maxx div 2+50,maxy div 2+50,grey)
drawbox(maxx div 2-50,maxy div 2-50,maxx div 2+50,maxy div 2+50,black)
drawfill(150,maxy div 2,blue,black)
drawfill(maxx-150,maxy div 2,blue,black)
drawfill(maxx div 2,1,brightgreen,black)
drawfill(maxx div 2,maxy-1,blue,black)
drawfilloval(q,w,5,5,yellow)
drawfillbox(q+2,w+2,q+3,w+3,black)
drawfillbox(q-2,w+2,q-3,w+3,black)
drawfillbox(q+3,w-2,q-3,w-3,black)
drawfilloval(x,y,5,5,brightred)
drawline(x,0,x,maxy,black)
drawline(0,y,maxx,y,black)
drawline(100,0,100,maxy,black)
if q>maxx div 2 then
q:=q+2
elsif qmaxy div 2 then
w:=w+2
elsif wh or tim=h then
life:=life-1
randint(q,100,maxx-100)
randint(w,100,maxy-100)
tim:=0
delay(200)
end if
if q>maxx or qmaxy or wq-5 and xw-5 and y14 then
cls
put"you're hunting the original smiley but he has tricks up his sleeve."
put"1) he is hiding in a yellow backround. he may be harder to see"
put"2) he has disabled you're aiming system. try to aim at him with your mouse!"
put"3) he has 5 lives, and each time he gets smaller"
Input.Pause
cls
loop
delay(100)
cls
Mouse.Where(x,y,btn)
put"Score :",score
put"lives :",life
put"Time  :",tim,"/",h
drawline(100,0,100,maxy,black)
drawline(100,0,maxx div 2-50,maxy div 2-50,black)
drawline(100,maxy,maxx div 2-50,maxy div 2+50,black)
drawline(maxx,0,maxx div 2+50,maxy div 2-50,black)
drawline(maxx,maxy,maxx div 2+50,maxy div 2+50,black)
drawfillbox(maxx div 2-50,maxy div 2-50,maxx div 2+50,maxy div 2+50,grey)
drawbox(maxx div 2-50,maxy div 2-50,maxx div 2+50,maxy div 2+50,black)
drawfill(150,maxy div 2,yellow,black)
drawfill(maxx-150,maxy div 2,yellow,black)
drawfill(maxx div 2,1,yellow,black)
drawfill(maxx div 2,maxy-1,yellow,black)
drawfilloval(q,w,r,r,yellow)
drawfillbox(q+2*r,w+2*r,q+3*r,w+3*r,black)
drawfillbox(q-2*r,w+2*r,q-3*r,w+3*r,black)
drawfillbox(q+3*r,w-2*r,q-3*r,w-3*r,black)
drawline(100,0,100,maxy,black)
Input.KeyDown(k)
if tim>h or tim=h then
life:=life-1
randint(q,100,maxx)
randint(w,0,maxy)
tim:=0
delay(200)
end if
if k(s) then
if x>q-5 and xw-5 and yh or tim=h then
life:=life-1
randint(q,100,maxx)
randint(w,0,maxy)
randint(o,100,maxx)
randint(p,0,maxy)
tim:=0
delay(200)
end if
if k(s) then
if x>q-5 and xw-5 and ymaxx div 2 then
q:=q+2
elsif qmaxy div 2 then
w:=w+2
elsif wh or tim=h then
life:=life-1
randint(q,100,maxx-100)
randint(w,100,maxy-100)
tim:=0
delay(200)
end if
if q>maxx or qmaxy or wq-5 and xw-5 and yh or tim=h then
life:=life-1
randint(q,100,maxx)
randint(w,0,maxy)
tim:=0
delay(200)
end if
if k(s) then
if x>q-5 and xw-5 and ymaxx div 2 then
q:=q+2
elsif qmaxy div 2 then
w:=w+2
elsif wmaxx div 2 then
o:=o+2
elsif qmaxy div 2 then
p:=p+2
elsif wh or tim=h then
life:=life-1
randint(q,100,maxx-100)
randint(w,100,maxy-100)
randint(o,100,maxx)
randint(p,0,maxy)
tim:=0
delay(200)
end if
if q>maxx or qmaxy or wq-5 and xw-5 and y