Just need to work out the kinks of my program (aka, collision mechanics)
| Author |
Message |
Blessing
|
 Posted: Wed Jan 20, 2010 6:28 pm Post subject: Just need to work out the kinks of my program (aka, collision mechanics) |
|
|
Hi there! I'm trying to figure out a couple of things, most importantly, how to make a sprite, collide with a box as well as why my buttons aren't working.
What is the problem you are having?
- I don't get it/It's not working
I've tried using a procedure vs a process to try and get it to create a button, but that doesn't work as both processes and procedures must be at the module level to work properly.
My code is nearly 300 lines, but I'll post it anyways 
| Turing: |
import GUI
var winID : int
winID := Window.Open ("nobuttonbar,position:truemiddle,centre,graphics:640;480")
var misslei : int := Pic.FileNew ("Misslea.bmp")
var missle : int := Sprite.New (misslei )
var text1 : int := Font.New ("Times New Roman:18:Bold")
var a, b, a2, b2, a3, c, clr, count, d, e, l, lives, msize, w, x, y : int
var yesnoplay, ynp2 : string
a2 := 0
b := 620
b2 := 640
a2 := 0
c := 33
clr := 218
count := 0
d := 30
l := 1
lives := 3
msize := 1
w := 0
x := 100
y := 100
process music
play ("cdef1g 4gfed1c")
end music
fork music
for i : 0 .. 39
RGB.SetColor (clr, 0, 0, i / 39)
Font.Draw ("Wanna play? Put in a game code if you have one. ( y/n )", (maxx div 2) - (Font.Width ("Wanna play? Put in a game code if you have one. ( y/n )", text1 ) div 2), (maxy div 2) - 9,
text1, clr )
View.Update
delay (50)
end for
get yesnoplay
if yesnoplay = "n" then
put "That's a shame."
delay (500)
end if
if yesnoplay = "y" then
put "Good. here we go."
delay (500)
elsif yesnoplay = "100%achievement" then
delay (500)
put "Wow! You beat the game?"
delay (500)
put "In that case... do you want to use the smaller missle? ( put '1' for big, and '2' for small )"
get msize
if msize = 1 then
put "Okay, Have fun!!!"
elsif msize = 2 then
put "Okay, Have fun!!!"
end if
end if
process music2
play ("4cdef1g")
end music2
fork music2
loop
d := d - 1
colorback (d )
delay (100)
cls
exit when d = 16
end loop
for i : 0 .. 39
RGB.SetColor (clr, 0, 0, i / 39)
Font.Draw ("Welcome to...", (maxx div 2) - (Font.Width ("Welcome to...", text1 ) div 2), (maxy div 2) - 9, text1, clr )
View.Update
delay (50)
end for
delay (1000)
for decreasing i : 39 .. 0
RGB.SetColor (clr, 0, 0, i / 39)
Font.Draw ("Welcome to...", (maxx div 2) - (Font.Width ("Welcome to...", text1 ) div 2), (maxy div 2) - 9, text1, clr )
View.Update
delay (50)
end for
cls
delay (1000)
for i : 0 .. 39
RGB.SetColor (clr, 0, 0, i / 39)
Font.Draw ("Explodin'", (maxx div 2) - (Font.Width ("Explodin'", text1 ) div 2), (maxy div 2) - 9, text1, clr )
View.Update
delay (50)
end for
delay (1000)
for decreasing i : 39 .. 0
RGB.SetColor (clr, 0, 0, i / 39)
Font.Draw ("Explodin'", (maxx div 2) - (Font.Width ("Explodin'", text1 ) div 2), (maxy div 2) - 9, text1, clr )
View.Update
delay (50)
end for
process music3
play ("4gfed1c")
end music3
fork music3
loop
d := d + 1
colorback (d )
delay (100)
cls
exit when d = 30
end loop
cls
if msize = 1 then
misslei := Pic.FileNew ("Misslea.bmp")
missle := Sprite.New (misslei )
elsif msize = 2 then
misslei := Pic.FileNew ("missleb.bmp")
missle := Sprite.New (misslei )
end if
randint (a, 50, 440)
var key : array char of boolean
process misslecontrol
loop
a2 := 0
Input.KeyDown (key )
if key (KEY_UP_ARROW) then
y + = 1
end if
if key (KEY_DOWN_ARROW) then
y - = 1
end if
if key (KEY_RIGHT_ARROW) then
x + = 1
end if
if key (KEY_LEFT_ARROW) then
x - = 1
end if
Sprite.Show (missle )
Sprite.SetPosition (missle, x, y, true)
delay (5)
if x = 0 then
x := 1
end if
if x = 640 then
x := 639
end if
if y = 0 then
y := 1
end if
if y = 480 then
y := 479
end if
end loop
end misslecontrol
process levelup
for i : 0 .. 39
RGB.SetColor (clr, 0, 0, i / 39)
Font.Draw ("Level Up!!!", (maxx div 2) - (Font.Width ("Level Up!!!", text1 ) div 2), (maxy div 2) - 9, text1, clr )
View.Update
delay (10)
end for
for decreasing i : 39 .. 0
RGB.SetColor (clr, 0, 0, i / 39)
Font.Draw ("Level Up!!!", (maxx div 2) - (Font.Width ("Level Up!!!", text1 ) div 2), (maxy div 2) - 9, text1, clr )
View.Update
delay (50)
end for
end levelup
fork misslecontrol
loop
if missle < b and missle < a and missle > b2 and missle > a2 then
lives := lives - 1
end if
locate (1, 1)
put "Level ", l
locate (2, 1)
put "Walls Passed ", count
locate (3, 1)
put "Lives; ", lives
drawfillbox (b, a, b2, a2, grey)
drawfillbox (b, a + 80, b2, 480, grey)
b := b - 5
b2 := b2 - 5
drawfillbox (b + 20, 0, b2 + 20, 480, white)
delay (c - 20)
if b = 0 then
count := count + 1
drawfillbox (0, 0, 20, 480, white)
b := 620
b2 := 640
randint (a, 50, 360)
end if
if count = 5 then
fork levelup
c := c - 1
count := 0
l := l + 1
end if
if l = 7 then
put "WOW! I didn't think you'd make it this far..."
end if
if l = 8 then
put "One last level...."
end if
exit when l = 9
end loop
cls
play ("4abcd1e 4edcdcbcb1a")
cls
for i : 0 .. 39
RGB.SetColor (clr, 0, 0, i / 39)
Font.Draw ("Wow... You won!", (maxx div 2) - (Font.Width ("Wow... You won!", text1 ) div 2), (maxy div 2) - 9, text1, clr )
View.Update
delay (10)
end for
cls
for decreasing i : 39 .. 0
RGB.SetColor (clr, 0, 0, i / 39)
Font.Draw ("Wow... You won!", (maxx div 2) - (Font.Width ("Wow... You won!", text1 ) div 2), (maxy div 2) - 9, text1, clr )
View.Update
delay (50)
end for
cls
for i : 0 .. 39
RGB.SetColor (clr, 0, 0, i / 39)
Font.Draw ("You've Unlocked a Smaller Missle!", (maxx div 2) - (Font.Width ("You've Unlocked a Smaller Missle!", text1 ) div 2), (maxy div 2) - 9, text1, clr )
View.Update
delay (10)
end for
cls
for decreasing i : 39 .. 0
RGB.SetColor (clr, 0, 0, i / 39)
Font.Draw ("You've Unlocked a Smaller Missle!", (maxx div 2) - (Font.Width ("You've Unlocked a Smaller Missle!", text1 ) div 2), (maxy div 2) - 9, text1, clr )
View.Update
delay (50)
end for
cls
for i : 0 .. 39
RGB.SetColor (clr, 0, 0, i / 39)
cls
Font.Draw ("Next time you play enter the code ", (maxx div 2)
- (Font.Width ("Next time you play enter the code ", text1 ) div 2), (maxy div 2) - 9, text1, clr )
View.Update
delay (10)
end for
cls
for decreasing i : 39 .. 0
RGB.SetColor (clr, 0, 0, i / 39)
Font.Draw ("Next time you play enter the code ", (maxx div 2)
- (Font.Width ("Next time you play enter the code ", text1 ) div 2), (maxy div 2) - 9, text1, clr )
View.Update
delay (50)
end for
cls
for i : 0 .. 39
RGB.SetColor (clr, 0, 0, i / 39)
cls
Font.Draw ("'100%achievement' to use the smaller missle.", (maxx div 2)
- (Font.Width ("'100%achievement' to use the smaller missle.", text1 ) div 2), (maxy div 2) - 9, text1, clr )
View.Update
delay (10)
end for
cls
for decreasing i : 39 .. 0
RGB.SetColor (clr, 0, 0, i / 39)
Font.Draw ("'100%achievement' to use the smaller missle.", (maxx div 2)
- (Font.Width ("'100%achievement' to use the smaller missle.", text1 ) div 2), (maxy div 2) - 9, text1, clr )
View.Update
delay (50)
end for
delay (500)
cls
Window.Close (winID )
loop
exit when GUI.ProcessEvent
end loop
|
I'm using 4.1.1 |
|
|
|
|
 |
Sponsor
Sponsor
|
|
|
|
|
Register
Wiki
Blog
Search
Turing
Chat Room
Members
