Beta tester ideas

[OddChild]

Hi guys,


I need some beta testers...

Username gu3st
Password cheese
christianmissiontrips.org/corkboard/index.php?topic=58.0

bellow is lvl1.exe ... Any ideas on how to make the background etc, acelerate when the car gets to the right side of the screen? Try the exe and you will see what i mean.

Thx

John

option explicit

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Declare our variables
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
dim bRunning, tcar, x, y, fxcheck, ammount
Const Rad = 0.017453292519943
fxcheck = "cheese"
dim xtcar, ytcar, counter, truck, truckclone, boom, cheeseangle
counter = 0
dim mymusic, font1, xbackground, crash, deadman, btruckclone
dim goaway
goaway = 0
bRunning = True
dim bigtruck, bigtruck1

dim background ' variable for our animated image
'dim x, y ' variable for our curent position
x = 0

Dim imagewidth, imageheight, speed

imagewidth = 800 ' this is the width of our background image
imageheight = 600 ' this is the height of our background image
speed = 0.25 ' this is the speed we tell the background to scroll
'tcar = graphics.loadimage ("car.bmp")
xtcar = 100
ytcar = 400
dim phone
counter = -2000
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Our main routine
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub main()

if (graphics.initialize <> True) then exit sub

graphics.setTitle "TractBoy III The Harvest of Souls - The Drive there"
music.initialize
mymusic = music.loadmidi("loop1.mid")
music.playmidi mymusic

randomize

key.initialize ' initialze the keyboard routines so we can ESC the program
sound.initialize
phone = sound.loadwav("m1.wav")
sound.playwav phone
music.SetLoopPlay mymusic, true
background = graphics.loadimage("bg2.bmp", &HFFFF0000)' load the image with red being transparent
imagewidth = graphics.getwidth(background)
tcar = graphics.loadimage ("car.bmp")
' graphics.SetIcon("C:\afc.ico")
graphics.setscalex tcar, 2
graphics.setscaley tcar, 2
bigtruck1 = graphics.loadimage ("btruck.bmp")
graphics.setscalex bigtruck1, 2
graphics. setscaley bigtruck1, 2
graphics.setxy bigtruck1, 900, 300
graphics.setautogoto bigtruck1, -100, 320, 4020
truck = graphics.loadimage ("truck.bmp")
graphics.setscalex truck, 2
graphics.setscaley truck, 2
graphics.setxy truck, -800, 440
graphics.setautogoto truck, 1000, 440, 15000
Font1 = graphics.createFont ("System", 14)
boom = FX.LoadImage("fire.bmp")
with fx
.SetParticles boom, 200 ' number of particles
.Initialize boom, "explosion", 5 ' the scale of the fire
.SetR boom, .1
.SetG boom, .45
.SetB boom, .25
.SetA boom, 1
.SetRate boom, 100
end with

do while bRunning = True


graphics.setimage tcar
if key.pressed(1) or key.pressed(0) = True then bRunning = False
if key.pressed(200) = True then
' MoveatAngle tcar, 9 '
'xtcar = xtcar + .5 : graphics.setx tcar, xtcar : if xtcar > 610 then xtcar = 610 ' Right

xtcar= graphics.getX(tcar) + (Cos(graphics.getAngle(tcar))*Rad) * 25
ytcar = graphics.getY(tcar) - (Sin(graphics.getAngle(tcar))*Rad) * 25
' graphics.setimage tcar
end if
if xtcar > 610 then
xtcar = 610
' cheeseangle = 0
end if
'cheeseangle = cheeseangle + 0.5 : graphics.SetAngle tcar, cheeseAngle * Rad 'ytcar = ytcar - .5 : graphics.sety tcar, ytcar : if ytcar < 260 then ytcar = 260
' move Up
if key.pressed(208) = True then xtcar = xtcar - .15 : graphics.setx tcar, xtcar : if xtcar < 0 then xtcar = 0 ' ' Down
if key.pressed(203) = True then cheeseangle = cheeseangle + 0.5 : graphics.SetAngle tcar, cheeseAngle * Rad : if cheeseangle > 60 then cheeseangle = 60 : if cheeseangle < -60 then cheeseangle = -60'ytcar = ytcar + .5 : graphics.sety tcar, ytcar : if ytcar > 450 then ytcar = 450 ' Left
if key.pressed(205) = True then cheeseangle = cheeseangle - 0.5 : graphics.SetAngle tcar, cheeseAngle * Rad : if cheeseangle > 60 then cheeseangle = 60 : if cheeseangle < -60 then cheeseangle = -60

if xtcar < 0 then
xtcar = 0
'cheeseangle = 0
end if
if ytcar > 450 then
ytcar = 450
'cheeseangle = 0
end if
if ytcar < 260 then
ytcar = 260
' cheeseangle = 0
end if

' end if
if key.pressed(1) or key.pressed(0) = True then bRunning = False



xtcar = xtcar - .1 : graphics.setx tcar, xtcar : if xtcar < 0 then xtcar = 0



graphics.setxy tcar, xtcar, ytcar
'if cheeseangle > 60 then cheeseangle = 45 : if cheeseangle < -60 then cheeseangle = -60


graphics.clear 255 ' clear the screen
'ScrollBackground ' call the scroll sub routine
graphics.TileImage background, xbackground , 0
xbackground = xbackground + 0.25
if cheeseangle > 60 then cheeseangle = 45
if cheeseangle < -60 then cheeseangle = -60
if xtcar > 610 then
xtcar = 610
cheeseangle = 0
end if
if xtcar < 0 then
xtcar = 0
cheeseangle = 0
end if
if ytcar > 450 then
ytcar = 450
cheeseangle = 0
end if
if ytcar < 260 then
ytcar = 260
cheeseangle = 0
end if



graphics.setimage tcar
graphics.setimage truck
graphics.setimage bigtruck1
graphics.setimage truckclone
graphics.setimage btruckclone
crash = graphics.getcollision (tcar, truck)
if crash = true then



fxcheck = "now"
FX.SetXY boom, graphics.GetX(tcar), graphics.Gety(tcar)
FX.Initialize boom, "explosion", 50
graphics.SetVisible tcar, false

end if
crash = graphics.getcollision (tcar, bigtruck1)
if crash = true then


fxcheck = "now"
FX.SetXY boom, graphics.GetX(tcar), graphics.Gety(tcar)
FX.Initialize boom, "explosion", 50
graphics.SetVisible tcar, false


end if
crash = graphics.getcollision (tcar, truckclone)
if crash = true then
fxcheck = "now"
FX.SetXY boom, graphics.GetX(tcar), graphics.Gety(tcar)
FX.Initialize boom, "explosion", 50
graphics.SetVisible tcar, false
end if
crash = graphics.getcollision (tcar, btruckclone)
if crash = true then
fxcheck = "now"
FX.SetXY boom, graphics.GetX(tcar), graphics.Gety(tcar)
FX.Initialize boom, "explosion", 50
graphics.SetVisible tcar, false
end if


crash = graphics.getcollision (tcar, truck)
if crash = true then
fxcheck = "now"
FX.SetXY boom, graphics.GetX(tcar), graphics.Gety(tcar)
FX.Initialize boom, "explosion", 50
graphics.SetVisible tcar, false
end if
counter = counter + 1
if counter < 0 then
graphics.settext "We need to get there before it rains.", 300,200,Font1
end if
dim cheese
if counter = 4000 then cheese = 1
if cheese = 1 then
'truck = graphics.loadimage ("truck.bmp")
truckclone = graphics.cloneimage (truck)
graphics.setscalex truckclone, 2
graphics.setscaley truckclone, 2
graphics.setxy truckclone, -200, 440
graphics.setautogoto truckclone, 1000, Int((440 - 370 + 1) * Rnd + 370), 15000

btruckclone = graphics.cloneimage (bigtruck1)

graphics.setscalex btruckclone, 2
graphics.setscaley btruckclone, 2
graphics.setxy btruckclone, 900, 330
graphics.setautogoto btruckclone, -100, Int((300 - 260 + 1) * Rnd + 260), 4020
counter = 0
cheese = 0


end if

if counter = 10000 then cheese = 1
if cheese = 1 then
truck = graphics.loadimage ("truck.bmp")
graphics.setscalex truck, 2
graphics.setscaley truck, 2
graphics.setxy truck, -800, 440
graphics.setautogoto truck, 1000, 440, 13000

cheese = 0

end if

FX.SetFX boom
if fxcheck = "now" then
goaway = goaway + graphics.Getx (tcar) - 0.25
FX.SetXY boom, goaway, graphics.Gety(tcar)
graphics.settext "You Died", 300,200,Font1
end if

graphics.display ' display our image

loop

key.terminate
sound.terminate
graphics.terminate
music.terminate
end sub



Call Main ' start the program

sub MoveatAngle(image, amount)
graphics.setx image, graphics.getX(image) + (Cos(graphics.getAngle(image))*Rad) * amount
graphics.setY image, graphics.getY(image) - (Sin(graphics.getAngle(image))*Rad) * amount
graphics.setimage image
end sub
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

' This is our routine to scroll a background image
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

[Guilect]

this is the command to move the background:

xbackground = xbackground + 0.25

but there is a fixed value for the increment (speed) = 0.25
So the background always moves at the same speed.

if you make this a variable instead, like so:

Dim speed

xbackground = xbackground + speed

Then you could do something like this:

if xtcar > 610 then
xtcar = 610
speed = 1
' cheeseangle = 0
Else
speed = 0.25
end if

Looks good BTW. Can't wait to see the whole thing.

[robylu]

i tried to download the zip several times, but i never could. Every time (after inserted the login and password) i am addressed to the main page of the forum, and when i try to download again, i must login new and the story go on.....

any idea?

[Guilect]

I had the same problem, you get stuck in an endless loop.

That was when I was trying to connect using a Mozilla - based web browser.

I switched to an Internet Explorer based browser and it worked.

[robylu]

;D ;D i used Internet Explorer; i tried with Mozilla and it worked! ;D ;D

how strange.... anyway thanks for the tip!

[OddChild]

Wierd. I havent heard of anyone having this problem before. I use opera and firefox... I havent seen any problems.

Did the program work ok? What suggestions do you have?

[robylu]

I just launched the program and it works fine. For suggestions you must wait a little: you know, i have not so free time , so as soon as possible i will try it more deeper.

[OddChild]

Thanks I am working on adding your idea Guilect.

[robylu]

Ok, here is what i can suggest you:

- i would make the background wider than the screen, so the player won't get the same pic endless but a part of it
- i am not a graphician, but i would add some more colors and details, like brown mountains, flowers, some dithering etc.
- i would make the opposite cars showing more frequently
- i would stop the car not at the end of the screen but a little bit ahed
- and i would join the 2 street so that the car don't drive on the grass

that's all for the moment, but you're doing very well and as Guilect said: "can't wait to see it full working!" (but take your time!)

[OddChild]

Cool thx,


i was planning on adding more cars... Just hadnt done it yet. Thanks for the advice.

No one notcied that the background is from mario. lol im going to change it soon.

[OddChild]

I had to format my files so the game isnt on my server right now.

[OddChild]

Hello all,


here is the new beta for TractBoy.

rapidsharing.com/download.php?id=123C7040


Scroll down, type in the requested letters then click submit, then the download will begin.

[Guilect]

This is coming along very nicely.
The game levels look like B2D, but not the menu.
What is that coded in?

I agree with robylu's previous comment, needs more frequent traffic.

Small bug, once you die the red car does not get shown again.
You can tell it is there just not visible because a collision with another vehicle can occur.
Also, like in some arcade games, once you die and then re-spawn, I think you should give the player a few seconds of invulnerability.

Sounds will really liven the whole experience up.
Can't wait.

[OddChild]

I put the timer in, and had the game close after 5 secs.

The Menu is in RapidQ. I am planning on redoing it in brutus, but just havent had a chance.

I am going to add more cars, still working on general physics, speed, turning, background, and whatnot... Yes Whatnot...

[OddChild]

rapidsharing.com/download.php?id=E64AD52F


Better or worse? Source codes included, just browse to c:\program files\tractboy\