It cut it off again!!!!!
Print "Galeactic Golf" : input "Which levelset do you want to use?(default 0):",levelset : sync on : sync rate 30 : autocam off : set text font "Arial" : randomize levelset + 48 : create bitmap 1,500,500 : for t = 1 to 400
dot rnd(500),rnd(500),rgb(rnd(255),rnd(255),rnd(255)) : next t : get image 1,0,0,500,500 : set current bitmap 0 : set ambient light 20 : position camera 0,50,0 : point camera 0,0,0 : make object cube 21,1 : make object cube 22,0.4 : make object cube 23,0.4 : make object plain 24,100,100 : tries as float : position object 24,0,-10,0 : xrotate object 24,-90
texture object 24,1 : ghost object on 23 : offset limb 23,0,-0.2,0,0 : offset limb 22,0,-0.2,0,0 : color object 23,RGB(0,200,0) : gfactor as float : dim planetx(20) as float : dim planety(20) as float : dim planetr(20) as float : balls as integer
balls = 8 : level = 1 : qpow as float : x as float : y as float : xmove as float : ymove as float : global camx as float : global camy as float
planets = 5 : for t = 1 to 80 : make object cube 300+t,0.5 : color object 300+t,RGB(0,255,0) : next t : gosub MAKELand : do : for lkk = 1 to 2 : set text size 40 : Center text screen width()/2,20,"Level "+str$(level) : set text size 30 : text screen width()-180,screen height() - 30,"Points: "+str$(int(tpo#)) : text 0,screen height() - 30,"Lives: "+str$(balls) : if balls <= 0 : set text size 40 : center text screen width()/2,screen height()/2,"***Game Over***" : set text size 30 : center text screen width()/2,screen height()/2+50,"Game Ended On Level " + str$(level) + ",With " + str$(int(tpo#)) + " Style Points" : sync : wait 1000 : suspend for key : end : endif : if shiftkey() = 1 : gosub makeland
balls = balls - 7 : wait 1500 : endif : if level = 6 and lsk = 0 : lsk = 1 : gosub makeland : endif
if level = 9 and lnk = 0 : lnk = 1 : gosub makeland : endif : if level = 10 and ltk = 0 : ltk = 1 : gosub makeland : endif : if level = 11 and lwk = 0
lwk = 1 : gosub makeland : endif : if level = 12 and lmk = 0 : lmk = 1 : gosub makeland : gosub makeland : endif : position camera camx,50,camy
if leftkey() = 1 : qang = qang + 3 : endif : if rightkey() = 1 : qang = qang - 3 : endif : if upkey() = 1 : qpow = qpow + 3 : endif : if downkey() = 1 : qpow = qpow - 3 : endif : position object 22,cos(qang+180)*2,0,sin(qang+180) * 2
rotate object 22,0,-qang,0 : if qpow < 1.5 : qpow = 1.5 : endif : if qpow > 100+level * 3 : qpow = 100+level*3 : endif
scale object 22,300+qpow*20,100,100 : if spacekey() = 1 and moving = 0 : gosub erasedots : position object 23,cos(qang+180)*2,0,sin(qang+180) * 2
rotate object 23,0,-qang,0 : scale object 23,300+qpow*20,100,100 : xmove = cos(qang)*qpow/60 : ymove = sin(qang)*qpow/60
moving = 1 : rpo# = 0 : tries = tries + 1.2 : endif : if x > 50 or y > 50 or x<-50 or y <-50 : balls = balls - 1 : x = 0 : y = 0 : moving = 0 : xmove = 0 : ymove = 0 : endif : if moving = 1 : x = x + xmove : y = y + ymove : for t = 1 to planets : xk# = sin(atanfull(x-planetx(t),y-planety(t)))*(planetr(t)^2/7)/((x-planetx(t))^2+(y-planety(t))^2) : yk# = cos(atanfull(x-planetx(t),y-planety(t)))*(planetr(t)^2/7)/((x-planetx(t))^2+(y-planety(t))^2) : xmove = xmove - xk# : ymove = ymove - yk# : rpo# = rpo# + xk#*xk# + yk#*yk# : if sqrt((x-planetx(t))^2+(y-planety(t))^2)<planetr(t)/2 : x = 0 : y = 0 : moving = 0 : xmove = 0 : ymove = 0 : if t = 1 : gosub makeland : balls = balls + 4 : level = level + 1
planinc = planinc + 1 : tpo# = tpo# + rpo#*10/tries : tries = -0.2 : else : balls = balls - 1 : endif : endif : next t : endif : position object 21,x,0,y : sync : next lkk : if moving = 1 : ldot = ldot + 1 : if ldot = 81 : ldot = 1 : endif : position object 300+ldot,x,0,y : endif : loop
MAKELand:
x = 0 : y = 0 : moving = 0 : xmove = 0 : ymove = 0 : if planinc = 4 : planinc =0 : planets = planets + 1 : endif : for t = 1 to 20 : if object exist(t) : delete object t : endif : next t : nt = 1 : repeat : randomize levelset + rnd(800) : d = rnd(360)
l = rnd(20) -level/10+15 : planetx(1) = sin(d)*l : planety(1) = cos(d)*l/1.3 : planetr(1) = 4 : for t = 2 to planets : p = (rnd(360) - 180)/(rnd(level)+1)+d : l = rnd(20) -level/10+10 : planetx(t) = sin(p)*l : planety(t) = cos(p)*l/1.3 : planetr(t) = rnd(25)/2 : next t : for m = 2 to planets : if sqrt((planetx(1)-planetx(m))^2+(planety(1)-planety(m))^2)<planetr(t)/2-2 : nt = 0
endif : next m : until nt = 1 : make object sphere 1,4 : position object 1,planetx(1),0,planety(1) : color object 1,0 : for t = 2 to planets : make object sphere t,planetr(t) : position object t,planetx(t),0,planety(t) : lll = rnd(255) : color object t,rgb(255,lll,0) : next t : gosub erasedots : return
erasedots:
for t = 1 to 80 : position object t + 300,0,0,0 : next t : return
I'm Right and Reality is lying
