Hey, here's something. It's minigolf. Unfortunately, there is only one hole, and it isn't perfect, b/c i had to trim it under two hundred lines.
[code]
colourback (gray)
procedure drawhole1 (intx : int, inty : int, var blnpress : boolean, blnline : boolean)
var intmousex : int
var intmousey : int
var intbutton : int
mousewhere (intmousex, intmousey, intbutton)
Draw.FillBox (100, 75, 150, 375, 2)
Draw.FillBox (150, 250, 250, 375, 2)
Draw.FillBox (200, 250, 250, 75, 2)
Draw.FillBox (250, 200, 375, 75, 2)
Draw.FillBox (300, 75, 375, 375, 2)
Draw.FillBox (100, 70, 95, 380, brown)
Draw.FillBox (95, 375, 255, 380, brown)
Draw.FillBox (295, 375, 380, 380, brown)
Draw.FillBox (300, 375, 295, 200, brown)
Draw.FillBox (250, 375, 255, 200, brown)
Draw.FillBox (250, 200, 300, 205, brown)
Draw.FillBox (95, 75, 155, 70, brown)
Draw.FillBox (150, 70, 155, 250, brown)
Draw.FillBox (200, 70, 195, 250, brown)
Draw.FillBox (150, 250, 200, 245, brown)
Draw.FillBox (195, 75, 380, 70, brown)
Draw.FillBox (375, 70, 380, 380, brown)
Draw.FillOval (335, 350, 5, 5, black)
Draw.FillOval (intx - 2, inty - 2, 4, 4, white)
Draw.Oval (intx - 2, inty - 2, 4, 4, black)
if blnline = true then
Draw.Line (intx - 1, inty - 1, intmousex, intmousey, red)
end if
delay (7)
if intbutton > 0 then
blnpress := true
end if
end drawhole1
procedure getnum (var intnum : int, intx : int, inty : int)
var strnum : string
var chars : array char of boolean
strnum := ""
locate (intx, inty)
loop
Input.Pause
Input.KeyDown (chars)
locate (intx, inty)
put skip
locate (intx, inty)
if chars ('1') then
strnum := strnum + "1"
elsif chars ('2') then
strnum := strnum + "2"
elsif chars ('3') then
strnum := strnum + "3"
elsif chars ('4') then
strnum := strnum + "4"
elsif chars ('5') then
strnum := strnum + "5"
elsif chars ('6') then
strnum := strnum + "6"
elsif chars ('7') then
strnum := strnum + "7"
elsif chars ('8') then
strnum := strnum + "8"
elsif chars ('9') then
strnum := strnum + "9"
elsif chars ('0') then
strnum := strnum + "0"
elsif chars (KEY_ENTER) then
exit
elsif chars (KEY_BACKSPACE) then
if length (strnum) > 1 then
strnum := strnum (1 .. (length (strnum) - 1))
else
strnum := ""
end if
end if
put strnum ..
end loop
intnum := strint(strnum)
end getnum
var intx, inty, intbutton : int
var intmousex : int
var intmousey : int
var intballx : real := 125
var intbally : real := 100
var intpower : int
var intshots : int := 0
var blnpress : boolean := false
var relslope : real
var distance : int
var intdist : real
var inth : int
var intw : int
loop
blnpress := false
loop
View.Set ("offscreenonly")
cls
drawhole1 (intballx div 1, round (intbally), blnpress, true)
if blnpress = true then
mousewhere (intx, inty, intbutton)
exit
end if
View.Update
end loop
View.Set ("nooffscreenonly")
loop
cls
drawhole1 (intballx div 1, round (intbally), blnpress, false)
locate (23, 25)
put "How powerful would you like your shot to be?" ..
getnum (intpower,23, 70)
exit when intpower >= 1 and intpower <= 20
end loop
intshots += 1
intpower := (intpower * 1.5) div 1
inth := inty - intbally div 1
intdist := (intpower ** 3) * 4
intw := intx - intballx div 1
relslope := inth / intw
if inth / intw < 0 then
relslope *= -1
end if
for decreasing i : intpower .. 1
for a : 1 .. i
for x : 1 .. 2
if intdist > 0 then
cls
View.Set ("offscreenonly")
if intw < 0 then
intballx := intballx - .5
if inth > 0 then
intbally := (intbally + (relslope / 2))
elsif inth < 0 then
intbally := (intbally - (relslope / 2))
end if
intdist -= sqrt ((.5 ** 2) + (inth ** 2))
elsif intw > 0 then
intballx := intballx + .5
if inth > 0 then
intbally := (intbally + relslope)
elsif inth < 0 then
intbally := (intbally - relslope)
end if
intdist -= sqrt ((.5 ** 2) + (inth ** 2))
end if
if intballx < 102 then
intw := intw * -1
elsif intballx >= 150 and intballx <= 200 then
if intbally < 250 then
if intbally >= 240 then
if inth < 0 then
inth := inth * -1
end if
else
intw := intw * -1
end if
end if
elsif intballx >= 248 and intballx <= 302 then
if intbally >= 195 then
if intbally <= 205 then
if inth > 0 then
inth := inth * -1
end if
else
intw := intw * -1
end if
end if
elsif intballx >= 373 then
intw := intw * -1
end if
drawhole1 (round (intballx), round (intbally), blnpress, false)
if intbally > 373 or intbally <= 77 then
View.Update
inth := inth * -1
delay (i)
if inth > 0 then
intbally := (intbally + relslope) div 1
elsif inth < 0 then
intbally := (intbally - relslope) div 1
end if
drawhole1 (round (intballx), round (intbally), blnpress, false)
end if
distance := round (sqrt (((intballx - 333) ** 2) + ((intbally - 353) ** 2)))
if distance <= 5 then
if i <= 8 then
exit
end if
end if
put distance
View.Update
delay (40 - i)
end if
end for
exit when distance <= 5
end for
exit when distance <= 5
end for
exit when distance <= 5
View.Set ("nooffscreenonly")
end loop
put "you took ", intshots, "shots."
[/code] |
Lol, its kind of hard to compeat against him.
(Delta shows signs of jealousy) And then that way we've got more time to create ours... anyone in agreement with me...?
=Þ
Awesome. I think someone was looking for notes to song like that before.
*steels asok's flame thrower and burns nate in to crisp 