Cube Racer - GameCreators Forum

Author

Message

Violent Pigeon

16

Years of Service

User Offline

Joined: 30th Dec 2007

Location: London, Great Britain

Posted: 20th Apr 2008 19:27

Link

Hi, i have had this script for a while now, just thought i would post it because when i first started i was looking for a decent driving script to study and i couldnt find one, so here one is for everyone!

Sync On : Sync Rate 0
Do
if Button(20,55,"New Game")=1 then Goto New_Game
Button(20,15,"Welcome to Harry Jacksons, BLOCK RACING!")
If Button(20,95,"Exit")=1 then End
sync
loop

New_Game:
cls
Repeat
Text 240,220,"Prepare Ready to Play";
sync
Until scancode()>0
make object box 1,4,3,5
make matrix 1,200,200,5,5
Position Matrix 1,-100,0,-100

movespeed = 75
turnspeed = 87.5
time=timer()

Do

gameTime=timer()-time
MSframe#=gameTime*(movespeed/1000.0)
TSframe#=gameTime*(turnspeed/1000.0)

If Upkey()=1
Move Object 1,MSframe#
endif
If Downkey()=1
Move Object 1,-MSframe#
endif
If Leftkey()=1
Dec a#,TSframe#
endif
If Rightkey()=1
Inc a#,TSframe#
endif
yrotate object 1,a#

posx#=cos(270-a#) * 30 + object position x(1)
posz#=sin(270-a#) * 30 + object position z(1)
Position Camera posx#,object position y(1)+6,posz#
Point Camera object position x(1),object position y(1)+6,object position z(1)

time=timer()

sync
Loop
end

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

+ Code Snippet

Sync On : Sync Rate 0
Do
if Button(20,55,"New Game")=1 then Goto New_Game
Button(20,15,"Welcome to Harry Jacksons, BLOCK RACING!")
If Button(20,95,"Exit")=1 then End
sync
loop

New_Game:
cls
Repeat
Text 240,220,"Prepare Ready to Play";
sync
Until scancode()>0
make object box 1,4,3,5
make matrix 1,200,200,5,5
Position Matrix 1,-100,0,-100

movespeed = 75
turnspeed = 87.5
time=timer()

Do

gameTime=timer()-time
MSframe#=gameTime*(movespeed/1000.0)
TSframe#=gameTime*(turnspeed/1000.0)

If Upkey()=1
Move Object 1,MSframe#
endif
If Downkey()=1
Move Object 1,-MSframe#
endif
If Leftkey()=1
Dec a#,TSframe#
endif
If Rightkey()=1
Inc a#,TSframe#
endif
yrotate object 1,a#

posx#=cos(270-a#) * 30 + object position x(1)
posz#=sin(270-a#) * 30 + object position z(1)
Position Camera posx#,object position y(1)+6,posz#
Point Camera object position x(1),object position y(1)+6,object position z(1)


time=timer()


sync
Loop
end

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

Hope it helps someone, if anyone updates it into anything please post it here so i can see it progress.

I Know i posted this in the Code Snippet section but i thought it would be more appropriate here instead but i cant remove my other post ><

Thanks

Svothe

A Violent Pigeon is a good Pigeon.

Back to top

Profile PM Website

Violent Pigeon

16

Years of Service

User Offline

Joined: 30th Dec 2007

Location: London, Great Britain

Posted: 20th Apr 2008 20:36

Link

One with Grass and Sky:

Sync On : Sync Rate 0
Do
if Button(20,55,"New Game")=1 then Goto New_Game
Button(20,95,"Load Game")
Button(20,15,"Welcome to Harry Jacksons, BLOCK RACING!")
If Button(20,135,"Exit")=1 then End
sync
loop

New_Game:
cls
Repeat
Text 240,220,"Prepare Ready to Play";
sync
Until scancode()>0
make object box 1,4,3,5
make matrix 1,200,200,5,5
Position Matrix 1,-100,0,-100
`grass
for x=1 to 10
for y=1 to 10
ink rgb(rnd(100),rnd(155)+100,0),0
dot x,y
next y
next x
get image 1000,1,1,10,10
make object plain 1000,2000,2000
xrotate object 1000,-90
texture object 1000,1000
scale object texture 1000,10,10
set object texture 1000,2,0

movespeed = 75
turnspeed = 87.5
time=timer()

Do

gameTime=timer()-time
MSframe#=gameTime*(movespeed/1000.0)
TSframe#=gameTime*(turnspeed/1000.0)

If Upkey()=1
Move Object 1,MSframe#
endif
If Downkey()=1
Move Object 1,-MSframe#
endif
If Leftkey()=1
Dec a#,TSframe#
endif
If Rightkey()=1
Inc a#,TSframe#
endif
yrotate object 1,a#

posx#=cos(270-a#) * 30 + object position x(1)
posz#=sin(270-a#) * 30 + object position z(1)
Position Camera posx#,object position y(1)+6,posz#
Point Camera object position x(1),object position y(1)+6,object position z(1)

time=timer()

sync
Loop
end

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

+ Code Snippet

Sync On : Sync Rate 0
Do
if Button(20,55,"New Game")=1 then Goto New_Game
Button(20,95,"Load Game")
Button(20,15,"Welcome to Harry Jacksons, BLOCK RACING!")
If Button(20,135,"Exit")=1 then End
sync
loop

New_Game:
cls
Repeat
Text 240,220,"Prepare Ready to Play";
sync
Until scancode()>0
make object box 1,4,3,5
make matrix 1,200,200,5,5
Position Matrix 1,-100,0,-100
`grass
for x=1 to 10
for y=1 to 10
ink rgb(rnd(100),rnd(155)+100,0),0
dot x,y
next y
next x
get image 1000,1,1,10,10
make object plain 1000,2000,2000
xrotate object 1000,-90
texture object 1000,1000
scale object texture 1000,10,10
set object texture 1000,2,0

movespeed = 75
turnspeed = 87.5
time=timer()

Do

gameTime=timer()-time
MSframe#=gameTime*(movespeed/1000.0)
TSframe#=gameTime*(turnspeed/1000.0)

If Upkey()=1
Move Object 1,MSframe#
endif
If Downkey()=1
Move Object 1,-MSframe#
endif
If Leftkey()=1
Dec a#,TSframe#
endif
If Rightkey()=1
Inc a#,TSframe#
endif
yrotate object 1,a#

posx#=cos(270-a#) * 30 + object position x(1)
posz#=sin(270-a#) * 30 + object position z(1)
Position Camera posx#,object position y(1)+6,posz#
Point Camera object position x(1),object position y(1)+6,object position z(1)


time=timer()


sync
Loop
end

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

Hope you like it!

A Violent Pigeon is a good Pigeon.

Back to top

Profile PM Website

DB PROgrammer

17

Years of Service

User Offline

Joined: 9th Feb 2007

Location: Nowhere But Everywhere

Posted: 21st Apr 2008 12:07 Edited at: 21st Apr 2008 12:08

Link

Here is a edited version. I was look through here and was board so I changed some things.

Added:
Smooth Camera
Acelleration, Deacelleration
You now can't turn when not moving
How fast your moving depends on how fast you can turn

Changes:
Tidyed code
Change how it makes the grass texture
Removed a matrix that I couldn't see a reason for
Change Timer Based Movement

`Setup App
Sync On : Sync Rate 0
autocam off
set display mode 1024,768,32,1 : `Most common(I think)

`Start menu loop
Do

if Button(20,55,"New Game")=1 then Goto New_Game
Button(20,95,"Load Game")
Button(20,15,"Welcome to Harry Jacksons, BLOCK RACING!")
If Button(20,135,"Exit")=1 then End

`Sync/Loop
sync
loop

`If new game button pressed
New_Game:
cls
Repeat
Text 512-(text width("Press any key to Start!")/2),384,"Press any key to Start!"
sync
Until scancode()>0

`Make Player
make object box 1,4,1.5,10
position object 1,0,.75,0

`Grass Texture
cls
for i=1 to 64
for t=1 to 64
randomize perftimer()*1000
color=rnd(255)
ink rgb(0,color,0),rgb(0,color,0)
box i-1,t-1,i+1,t+1
next t
next i
get image 1000,1,1,64,64

`Make World
make object plain 1000,2000,2000
xrotate object 1000,-90
texture object 1000,1000
scale object texture 1000,300,300
set object texture 1000,2,0

`Set Values

Speed as float
Acell as float
Acell=.01
Friction as integer
Friction=150 : `Note: A higher friction value = Less friction(Yea, it's kinda strange)
time=timer()

`Start Main Loop
Do
`Needed for Timer Based Movement
if screen fps()<>0 then Gametime#=(60/screen fps())

`Controls
If Upkey()=1 and speed<1.9
inc Speed,Acell*gametime#
endif

If Downkey()=1 and speed>-1.9
dec Speed,Acell*gametime#
endif

If Leftkey()=1
dec a#,1.5*((speed/1.9))*gametime#
endif

If Rightkey()=1
inc a#,1.5*((speed/1.9))*gametime#
endif

`Effect Object
move object 1,Speed
yrotate object 1,a#
speed=curvevalue(0,speed,friction)

`Effect Camera
posx#=cos(270-a#) * 30 + object position x(1)
posz#=sin(270-a#) * 30 + object position z(1)
Position Camera curvevalue(posx#,camera position x(),10),object position y(1)+6,curvevalue(posz#,camera position z(),10)
Point Camera object position x(1),object position y(1)+6,object position z(1)

`Sync/Loop
sync
Loop

end

`*******************
`FUNCTIONS
`*******************

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

+ Code Snippet

`Setup App
Sync On : Sync Rate 0
autocam off
set display mode 1024,768,32,1 : `Most common(I think)

`Start menu loop
Do

if Button(20,55,"New Game")=1 then Goto New_Game
Button(20,95,"Load Game")
Button(20,15,"Welcome to Harry Jacksons, BLOCK RACING!")
If Button(20,135,"Exit")=1 then End

`Sync/Loop
sync
loop

`If new game button pressed
New_Game:
cls
Repeat
Text 512-(text width("Press any key to Start!")/2),384,"Press any key to Start!"
sync
Until scancode()>0

`Make Player
make object box 1,4,1.5,10
position object 1,0,.75,0

`Grass Texture
cls
for i=1 to 64
for t=1 to 64
randomize perftimer()*1000
color=rnd(255)
ink rgb(0,color,0),rgb(0,color,0)
box i-1,t-1,i+1,t+1
next t
next i
get image 1000,1,1,64,64

`Make World
make object plain 1000,2000,2000
xrotate object 1000,-90
texture object 1000,1000
scale object texture 1000,300,300
set object texture 1000,2,0

`Set Values

Speed as float
Acell as float
Acell=.01
Friction as integer
Friction=150 : `Note: A higher friction value = Less friction(Yea, it's kinda strange)
time=timer()

`Start Main Loop
Do
`Needed for Timer Based Movement
if screen fps()<>0 then Gametime#=(60/screen fps())

`Controls
If Upkey()=1 and speed<1.9
inc Speed,Acell*gametime#
endif

If Downkey()=1 and speed>-1.9
dec Speed,Acell*gametime#
endif

If Leftkey()=1
dec a#,1.5*((speed/1.9))*gametime#
endif

If Rightkey()=1
inc a#,1.5*((speed/1.9))*gametime#
endif

`Effect Object
move object 1,Speed
yrotate object 1,a#
speed=curvevalue(0,speed,friction)

`Effect Camera
posx#=cos(270-a#) * 30 + object position x(1)
posz#=sin(270-a#) * 30 + object position z(1)
Position Camera curvevalue(posx#,camera position x(),10),object position y(1)+6,curvevalue(posz#,camera position z(),10)
Point Camera object position x(1),object position y(1)+6,object position z(1)

`Sync/Loop
sync
Loop

end

`*******************
`FUNCTIONS
`*******************

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

BTW very nice work Violent Pigeon.

I'm Pro grammer.

Back to top

Profile PM Email Website

Violent Pigeon

16

Years of Service

User Offline

Joined: 30th Dec 2007

Location: London, Great Britain

Posted: 21st Apr 2008 20:10

Link

Thanks, im just learning so its nothing fancy and sorry for any unneatness lol

Reading through all the docs as well as having Sniperx and my friend Raven who are both really good DBP programmers here to help to. only bought it yesterday so im hoping its a okay first try, i should be impelementing myself:

A Media version so you drive as a tank.
Shoot ability
Enemies to shoot

as well as updating the racer one with some bumpy terrain once i get to that page in the docs

Thanks for making it better

Svothe

A Violent Pigeon is a good Pigeon.

Back to top

Profile PM Website

Violent Pigeon

16

Years of Service

User Offline

Joined: 30th Dec 2007

Location: London, Great Britain

Posted: 21st Apr 2008 20:12

Link

Hmm Variable Perftimer not in script.

Think one of us missed something

A Violent Pigeon is a good Pigeon.

Back to top

Profile PM Website

Violent Pigeon

16

Years of Service

User Offline

Joined: 30th Dec 2007

Location: London, Great Britain

Posted: 21st Apr 2008 20:14

Link

Woah i wish i had a edit button >< Anywho i deleted Perftimer than you cant move lol, Oops :s

A Violent Pigeon is a good Pigeon.

Back to top

Profile PM Website

DB PROgrammer

17

Years of Service

User Offline

Joined: 9th Feb 2007

Location: Nowhere But Everywhere

Posted: 22nd Apr 2008 12:00

Link

Quote: "Thanks, im just learning so its nothing fancy and sorry for any unneatness lol "

No problem i'm not neat with my code myself.

Quote: "only bought it yesterday so im hoping its a okay first try"

It's wonderfull for a first try!

Quote: "Thanks for making it better"

Your welcome.

Quote: "Hmm Variable Perftimer not in script.

Think one of us missed something"

What do you mean? Will it not compile? If so what version do you have. If it just doesn't show up in the ide that's just because it's a undocumented command.

Quote: "Woah i wish i had a edit button "

It should be right under your avatar.

Quote: "Anywho i deleted Perftimer than you cant move lol"

Your still moving you just can't tell.

BTW if you need any help and Raven and SniperX are busy or somthing you can post it here and me or somone else will help you

I'm Pro grammer.

Back to top

Profile PM Email Website

Violent Pigeon

16

Years of Service

User Offline

Joined: 30th Dec 2007

Location: London, Great Britain

Posted: 22nd Apr 2008 18:37

Link

Okey

How come you cant tell if your moving :S
Version 1.054

A Violent Pigeon is a good Pigeon.

Back to top

Profile PM Website

RedFlames

17

Years of Service

User Offline

Joined: 25th Aug 2007

Location: Germania

Posted: 22nd Apr 2008 19:28 Edited at: 22nd Apr 2008 19:31

Link

Quote: "How come you cant tell if your moving :S"

possibly you're really not moving, because "60/screen fps()" returns an integer and if screen fps() is bigger than 60 this will be 0.
(e.g. if FPS are 70 -> 60/70 is <1 and converted to integer gives 0)
That means you just cant move with fps being greater than 60 :p

to fix it just replace

+ Code Snippet

if screen fps()<>0 then Gametime#=(60/screen fps())

with

+ Code Snippet

if screen fps()<>0 then Gametime#=(60.0/screen fps())

(Explanation: if one of the numbers is a float the result is float too)

or easier:

+ Code Snippet

Gametime#=60.0/(screen fps()+1.0)

(i hope you dont mind the little inaccuracy of fps being 1 too high

)

Back to top

Profile PM Email Website

DB PROgrammer

17

Years of Service

User Offline

Joined: 9th Feb 2007

Location: Nowhere But Everywhere

Posted: 23rd Apr 2008 00:08

Link

Good catch RedFlames.

`Setup App
Sync On : Sync Rate 0
autocam off
set display mode 1024,768,32,1 : `Most common(I think)

`Start menu loop
Do

if Button(20,55,"New Game")=1 then Goto New_Game
Button(20,95,"Load Game")
Button(20,15,"Welcome to Harry Jacksons, BLOCK RACING!")
If Button(20,135,"Exit")=1 then End

`Sync/Loop
sync
loop

`If new game button pressed
New_Game:
cls
Repeat
Text 512-(text width("Press any key to Start!")/2),384,"Press any key to Start!"
sync
Until scancode()>0

`Make Player
make object box 1,4,1.5,10
position object 1,0,.75,0

`Grass Texture
cls
for i=1 to 64
for t=1 to 64
randomize perftimer()*1000
color=rnd(255)
ink rgb(0,color,0),rgb(0,color,0)
box i-1,t-1,i+1,t+1
next t
next i
get image 1000,1,1,64,64

`Make World
make object plain 1000,2000,2000
xrotate object 1000,-90
texture object 1000,1000
scale object texture 1000,300,300
set object texture 1000,2,0

`Set Values

Speed as float
Acell as float
Acell=.01
Friction as integer
Friction=150 : `Note: A higher friction value = Less friction(Yea, it's kinda strange)
tagetFPS as float : tagetFPS=60
time=timer()

`Start Main Loop
Do
`Needed for Timer Based Movement
if screen fps()<>0 then Gametime#=(tagetFPS/screen fps())

`Controls
If Upkey()=1 and speed<1.9
inc Speed,Acell*gametime#
endif

If Downkey()=1 and speed>-1.9
dec Speed,Acell*gametime#
endif

If Leftkey()=1
dec a#,1.5*((speed/1.9))*gametime#
endif

If Rightkey()=1
inc a#,1.5*((speed/1.9))*gametime#
endif

`Effect Object
move object 1,Speed
yrotate object 1,a#
speed=curvevalue(0,speed,friction)

`Effect Camera
posx#=cos(270-a#) * 30 + object position x(1)
posz#=sin(270-a#) * 30 + object position z(1)
Position Camera curvevalue(posx#,camera position x(),10),object position y(1)+6,curvevalue(posz#,camera position z(),10)
Point Camera object position x(1),object position y(1)+6,object position z(1)

`Sync/Loop
sync
Loop

end

`*******************
`FUNCTIONS
`*******************

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

+ Code Snippet

`Setup App
Sync On : Sync Rate 0
autocam off
set display mode 1024,768,32,1 : `Most common(I think)

`Start menu loop
Do

if Button(20,55,"New Game")=1 then Goto New_Game
Button(20,95,"Load Game")
Button(20,15,"Welcome to Harry Jacksons, BLOCK RACING!")
If Button(20,135,"Exit")=1 then End

`Sync/Loop
sync
loop

`If new game button pressed
New_Game:
cls
Repeat
Text 512-(text width("Press any key to Start!")/2),384,"Press any key to Start!"
sync
Until scancode()>0

`Make Player
make object box 1,4,1.5,10
position object 1,0,.75,0

`Grass Texture
cls
for i=1 to 64
for t=1 to 64
randomize perftimer()*1000
color=rnd(255)
ink rgb(0,color,0),rgb(0,color,0)
box i-1,t-1,i+1,t+1
next t
next i
get image 1000,1,1,64,64

`Make World
make object plain 1000,2000,2000
xrotate object 1000,-90
texture object 1000,1000
scale object texture 1000,300,300
set object texture 1000,2,0

`Set Values

Speed as float
Acell as float
Acell=.01
Friction as integer
Friction=150 : `Note: A higher friction value = Less friction(Yea, it's kinda strange)
tagetFPS as float : tagetFPS=60
time=timer()

`Start Main Loop
Do
`Needed for Timer Based Movement
if screen fps()<>0 then Gametime#=(tagetFPS/screen fps())

`Controls
If Upkey()=1 and speed<1.9
inc Speed,Acell*gametime#
endif

If Downkey()=1 and speed>-1.9
dec Speed,Acell*gametime#
endif

If Leftkey()=1
dec a#,1.5*((speed/1.9))*gametime#
endif

If Rightkey()=1
inc a#,1.5*((speed/1.9))*gametime#
endif

`Effect Object
move object 1,Speed
yrotate object 1,a#
speed=curvevalue(0,speed,friction)

`Effect Camera
posx#=cos(270-a#) * 30 + object position x(1)
posz#=sin(270-a#) * 30 + object position z(1)
Position Camera curvevalue(posx#,camera position x(),10),object position y(1)+6,curvevalue(posz#,camera position z(),10)
Point Camera object position x(1),object position y(1)+6,object position z(1)

`Sync/Loop
sync
Loop

end

`*******************
`FUNCTIONS
`*******************

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

This code uses a float named targetFPS instead of dividing it by 60. I tried it above 60 FPS and it seems to work. BTW Violent Pigeon try updating your version of DBPro that *should* fix the perftimer() thing.

I'm Pro grammer.

Back to top

Profile PM Email Website

Violent Pigeon

16

Years of Service

User Offline

Joined: 30th Dec 2007

Location: London, Great Britain

Posted: 26th Apr 2008 16:52

Link

Where can i update my copy ><

A Violent Pigeon is a good Pigeon.

Back to top

Profile PM Website

Violent Pigeon

16

Years of Service

User Offline

Joined: 30th Dec 2007

Location: London, Great Britain

Posted: 26th Apr 2008 17:06 Edited at: 26th Apr 2008 17:23

Link

Ok well after alot of editing i have confuddled myself, how do i get the tanks animations to play, its the tank from darkmatter but i dont have a clue how to make its animations play, the tanks file name is DarkTank.x and its texture is tank03 But how do i make the animation play so when it moves the tracks spin, it is animated to move :s

`Setup App
Sync On : Sync Rate 0
autocam off
set display mode 1280,1024,32,
`Start menu loop
Do

if Button(20,55,"New Game")=1 then Goto New_Game
Button(20,95,"Load Game")
Button(20,15,"Welcome to Harry Jacksons, BLOCK RACING!")
If Button(20,135,"Exit")=1 then End

`Sync/Loop
sync
loop

`If new game button pressed
New_Game:
cls
Repeat
Text 512-(text width("Press any key to Start!")/2),384,"Press any key to Start!"
sync
Until scancode()>0

`Make Player
load object "mediatank1.x",1
scale object 1,2,2,2
rotate object 1,0,0,90
position object 1,0,.75,0

`Grass Texture
cls
for i=1 to 64
for t=1 to 64
color=rnd(255)
ink rgb(0,color,0),rgb(0,color,0)
box i-1,t-1,i+1,t+1
next t
next i
get image 1000,1,1,64,64

`Make World
make object plain 1000,2000,2000
xrotate object 1000,-90
texture object 1000,1000
scale object texture 1000,300,300
set object texture 1000,2,0

`Set Values

Speed as float
Acell as float
Acell=.01
Friction as integer
Friction=150 : `Note: A higher friction value = Less friction(Yea, it's kinda strange)
time=timer()

`Start Main Loop
Do
`Needed for Timer Based Movement
if screen fps()<>0 then Gametime#=(60.0/screen fps())

`Controls
If Upkey()=1 and speed<1.9
inc Speed,Acell*gametime#
endif

If Downkey()=1 and speed>-1.9
dec Speed,Acell*gametime#
endif

If Leftkey()=1
dec a#,150.0*((speed/10.5))*gametime#
endif

If Rightkey()=1
inc a#,150.0*((speed/10.5))*gametime#
endif

`Effect Object
move object 1,Speed
yrotate object 1,a#
speed=curvevalue(0,speed,friction)

`Effect Camera
posx#=cos(270-a#) * 30 + object position x(1)
posz#=sin(270-a#) * 30 + object position z(1)
Position Camera curvevalue(posx#,camera position x(),10),object position y(1)+6,curvevalue(posz#,camera position z(),10)
Point Camera object position x(1),object position y(1)+6,object position z(1)

`Sync/Loop
sync
Loop

end

`*******************
`FUNCTIONS
`*******************

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

+ Code Snippet

`Setup App
Sync On : Sync Rate 0
autocam off
set display mode 1280,1024,32,
`Start menu loop
Do

if Button(20,55,"New Game")=1 then Goto New_Game
Button(20,95,"Load Game")
Button(20,15,"Welcome to Harry Jacksons, BLOCK RACING!")
If Button(20,135,"Exit")=1 then End

`Sync/Loop
sync
loop

`If new game button pressed
New_Game:
cls
Repeat
Text 512-(text width("Press any key to Start!")/2),384,"Press any key to Start!"
sync
Until scancode()>0

`Make Player
load object "mediatank1.x",1
scale object 1,2,2,2
rotate object 1,0,0,90
position object 1,0,.75,0


`Grass Texture
cls
for i=1 to 64
for t=1 to 64
color=rnd(255)
ink rgb(0,color,0),rgb(0,color,0)
box i-1,t-1,i+1,t+1
next t
next i
get image 1000,1,1,64,64

`Make World
make object plain 1000,2000,2000
xrotate object 1000,-90
texture object 1000,1000
scale object texture 1000,300,300
set object texture 1000,2,0

`Set Values

Speed as float
Acell as float
Acell=.01
Friction as integer
Friction=150 : `Note: A higher friction value = Less friction(Yea, it's kinda strange)
time=timer()

`Start Main Loop
Do
`Needed for Timer Based Movement
if screen fps()<>0 then Gametime#=(60.0/screen fps())

`Controls
If Upkey()=1 and speed<1.9
inc Speed,Acell*gametime#
endif

If Downkey()=1 and speed>-1.9
dec Speed,Acell*gametime#
endif

If Leftkey()=1
dec a#,150.0*((speed/10.5))*gametime#
endif

If Rightkey()=1
inc a#,150.0*((speed/10.5))*gametime#
endif

`Effect Object
move object 1,Speed
yrotate object 1,a#
speed=curvevalue(0,speed,friction)

`Effect Camera
posx#=cos(270-a#) * 30 + object position x(1)
posz#=sin(270-a#) * 30 + object position z(1)
Position Camera curvevalue(posx#,camera position x(),10),object position y(1)+6,curvevalue(posz#,camera position z(),10)
Point Camera object position x(1),object position y(1)+6,object position z(1)

`Sync/Loop
sync
Loop

end

`*******************
`FUNCTIONS
`*******************

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

I Cant let you have the model because its from Darkmatter but thats my current progress.

A Violent Pigeon is a good Pigeon.

Back to top

Profile PM Website

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 29th Apr 2008 03:50

Link

perftimer was removed a while ago, I think it's DB PROgrammer who needs to update!

Use "Play Object" to run the animation.

Don't post the same thing in multiple boards, by the way.

Unterseeboot - Has you played it?
Los Mineros are on leave...

Back to top

Profile PM Email Website

Violent Pigeon

16

Years of Service

User Offline

Joined: 30th Dec 2007

Location: London, Great Britain

Posted: 30th Apr 2008 03:21

Link

I Know, i posted my excuse at the top >< also thanks for the command big help

Thanks

VP

A Violent Pigeon is a good Pigeon.

Back to top

Profile PM Website

DB PROgrammer

17

Years of Service

User Offline

Joined: 9th Feb 2007

Location: Nowhere But Everywhere

Posted: 2nd May 2008 19:25 Edited at: 2nd May 2008 19:29

Link

Quote: "perftimer was removed a while ago, I think it's DB PROgrammer who needs to update!"

Are you sure? I have version 1.66 and it works, although I know I am a version behide I didn't know they had removed it. Oh well, that was a very good way to get a random number as timer() wasn't fast enough in some caculations meaning you could get the same number more then once.

`Setup App
Sync On : Sync Rate 0
autocam off
set display mode 1280,1024,32,
`Start menu loop
Do

if Button(20,55,"New Game")=1 then Goto New_Game
Button(20,95,"Load Game")
Button(20,15,"Welcome to Harry Jacksons, BLOCK RACING!")
If Button(20,135,"Exit")=1 then End

`Sync/Loop
sync
loop

`If new game button pressed
New_Game:
cls
Repeat
Text 512-(text width("Press any key to Start!")/2),384,"Press any key to Start!"
sync
Until scancode()>0

`Make Player
load object "mediatank1.x",1
scale object 1,2,2,2
rotate object 1,0,0,90
position object 1,0,.75,0

`Grass Texture
cls
for i=1 to 64
for t=1 to 64
color=rnd(255)
ink rgb(0,color,0),rgb(0,color,0)
box i-1,t-1,i+1,t+1
next t
next i
get image 1000,1,1,64,64

`Make World
make object plain 1000,2000,2000
xrotate object 1000,-90
texture object 1000,1000
scale object texture 1000,300,300
set object texture 1000,2,0

`Set Values

Speed as float
Acell as float
Acell=.01
Friction as integer
Friction=150 : `Note: A higher friction value = Less friction(Yea, it's kinda strange)
time=timer()

`Start Main Loop
Do
`Needed for Timer Based Movement
if screen fps()<>0 then Gametime#=(60.0/screen fps())

Moving=0

`Controls
If Upkey()=1
Moving=1
if speed<1.9
inc Speed,Acell*gametime#
endif
endif

If Downkey()=1
Moving=1
if speed>-1.9
dec Speed,Acell*gametime#
endif
endif

If Leftkey()=1
Moving=1
dec a#,150.0*((speed/10.5))*gametime#
endif

If Rightkey()=1
Moving=1
inc a#,150.0*((speed/10.5))*gametime#
endif

`Effect Object
move object 1,Speed
yrotate object 1,a#
speed=curvevalue(0,speed,friction)

`Effect Camera
posx#=cos(270-a#) * 30 + object position x(1)
posz#=sin(270-a#) * 30 + object position z(1)
Position Camera curvevalue(posx#,camera position x(),10),object position y(1)+6,curvevalue(posz#,camera position z(),10)
Point Camera object position x(1),object position y(1)+6,object position z(1)

`animate player
if object plying(1)=0 and Moving=1
play object 1
endif

if Moving=0
stop object 1
endif

`Sync/Loop
sync
Loop

end

`*******************
`FUNCTIONS
`*******************

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

+ Code Snippet

`Setup App
Sync On : Sync Rate 0
autocam off
set display mode 1280,1024,32,
`Start menu loop
Do

if Button(20,55,"New Game")=1 then Goto New_Game
Button(20,95,"Load Game")
Button(20,15,"Welcome to Harry Jacksons, BLOCK RACING!")
If Button(20,135,"Exit")=1 then End

`Sync/Loop
sync
loop

`If new game button pressed
New_Game:
cls
Repeat
Text 512-(text width("Press any key to Start!")/2),384,"Press any key to Start!"
sync
Until scancode()>0

`Make Player
load object "mediatank1.x",1
scale object 1,2,2,2
rotate object 1,0,0,90
position object 1,0,.75,0


`Grass Texture
cls
for i=1 to 64
for t=1 to 64
color=rnd(255)
ink rgb(0,color,0),rgb(0,color,0)
box i-1,t-1,i+1,t+1
next t
next i
get image 1000,1,1,64,64

`Make World
make object plain 1000,2000,2000
xrotate object 1000,-90
texture object 1000,1000
scale object texture 1000,300,300
set object texture 1000,2,0

`Set Values

Speed as float
Acell as float
Acell=.01
Friction as integer
Friction=150 : `Note: A higher friction value = Less friction(Yea, it's kinda strange)
time=timer()

`Start Main Loop
Do
`Needed for Timer Based Movement
if screen fps()<>0 then Gametime#=(60.0/screen fps())

Moving=0

`Controls
If Upkey()=1
Moving=1
if speed<1.9
inc Speed,Acell*gametime#
endif
endif

If Downkey()=1
Moving=1
if speed>-1.9
dec Speed,Acell*gametime#
endif
endif

If Leftkey()=1
Moving=1
dec a#,150.0*((speed/10.5))*gametime#
endif

If Rightkey()=1
Moving=1
inc a#,150.0*((speed/10.5))*gametime#
endif

`Effect Object
move object 1,Speed
yrotate object 1,a#
speed=curvevalue(0,speed,friction)

`Effect Camera
posx#=cos(270-a#) * 30 + object position x(1)
posz#=sin(270-a#) * 30 + object position z(1)
Position Camera curvevalue(posx#,camera position x(),10),object position y(1)+6,curvevalue(posz#,camera position z(),10)
Point Camera object position x(1),object position y(1)+6,object position z(1)

`animate player
if object plying(1)=0 and Moving=1
play object 1
endif

if Moving=0
stop object 1
endif

`Sync/Loop
sync
Loop

end

`*******************
`FUNCTIONS
`*******************

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

That should do the trick for animating it, I havn't tried it so it might have some bugs

I'm Pro grammer.

Back to top

Profile PM Email Website

Violent Pigeon

16

Years of Service

User Offline

Joined: 30th Dec 2007

Location: London, Great Britain

Posted: 3rd May 2008 02:48

Link

Hmm, nope that makes the car go sideways for some reason lol but still no animation ><
This is my script

`Setup App
Sync On : Sync Rate 0
autocam off
set display mode 1280,1024,32,
`Start menu loop
Do

if Button(20,55,"New Game")=1 then Goto New_Game
Button(20,95,"Load Game")
Button(20,15,"Welcome to Harry Jacksons, BLOCK RACING!")
If Button(20,135,"Exit")=1 then End

`Sync/Loop
sync
loop

`If new game button pressed
New_Game:
cls
Repeat
Text 512-(text width("Press any key to Start!")/2),384,"Press any key to Start!"
sync
Until scancode()>0

`Make Player
load object "media\Dark Tank.x",1
scale object 1,2,2,2
rotate object 1,0,0,90
position object 1,0,.75,0

`Grass Texture
cls
for i=1 to 64
for t=1 to 64
color=rnd(255)
ink rgb(0,color,0),rgb(0,color,0)
box i-1,t-1,i+1,t+1
next t
next i
get image 1000,1,1,64,64

`Make World
make object plain 1000,2000,2000
xrotate object 1000,-90
texture object 1000,1000
scale object texture 1000,300,300
set object texture 1000,2,0

`Set Values

Speed as float
Acell as float
Acell=.01
Friction as integer
Friction=150 : `Note: A higher friction value = Less friction(Yea, it's kinda strange)
time=timer()

`Start Main Loop
Do
`Needed for Timer Based Movement
if screen fps()<>0 then Gametime#=(60.0/screen fps())

Moving=0

`Controls
If Upkey()=1
Moving=1
if speed<1.9
inc Speed,Acell*gametime#
endif
endif

If Downkey()=1
Moving=1
if speed>-1.9
dec Speed,Acell*gametime#
endif
endif

If Leftkey()=1
Moving=1
dec a#,150.0*((speed/10.5))*gametime#
endif

If Rightkey()=1
Moving=1
inc a#,150.0*((speed/10.5))*gametime#
endif

`Effect Object
move object 1,Speed
yrotate object 1,a#
speed=curvevalue(0,speed,friction)

`Effect Camera
posx#=cos(270-a#) * 30 + object position x(1)
posz#=sin(270-a#) * 30 + object position z(1)
Position Camera curvevalue(posx#,camera position x(),10),object position y(1)+6,curvevalue(posz#,camera position z(),10)
Point Camera object position x(1),object position y(1)+6,object position z(1)

`animate player
if object playing(1)=0 and Moving=1
play object 1
endif

if Moving=0
stop object 1
endif

`Sync/Loop
sync
Loop

end

`*******************
`FUNCTIONS
`*******************

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

+ Code Snippet

`Setup App
Sync On : Sync Rate 0
autocam off
set display mode 1280,1024,32,
`Start menu loop
Do

if Button(20,55,"New Game")=1 then Goto New_Game
Button(20,95,"Load Game")
Button(20,15,"Welcome to Harry Jacksons, BLOCK RACING!")
If Button(20,135,"Exit")=1 then End

`Sync/Loop
sync
loop

`If new game button pressed
New_Game:
cls
Repeat
Text 512-(text width("Press any key to Start!")/2),384,"Press any key to Start!"
sync
Until scancode()>0

`Make Player
load object "media\Dark Tank.x",1
scale object 1,2,2,2
rotate object 1,0,0,90
position object 1,0,.75,0


`Grass Texture
cls
for i=1 to 64
for t=1 to 64
color=rnd(255)
ink rgb(0,color,0),rgb(0,color,0)
box i-1,t-1,i+1,t+1
next t
next i
get image 1000,1,1,64,64

`Make World
make object plain 1000,2000,2000
xrotate object 1000,-90
texture object 1000,1000
scale object texture 1000,300,300
set object texture 1000,2,0

`Set Values

Speed as float
Acell as float
Acell=.01
Friction as integer
Friction=150 : `Note: A higher friction value = Less friction(Yea, it's kinda strange)
time=timer()

`Start Main Loop
Do
`Needed for Timer Based Movement
if screen fps()<>0 then Gametime#=(60.0/screen fps())

Moving=0

`Controls
If Upkey()=1
Moving=1
if speed<1.9
inc Speed,Acell*gametime#
endif
endif

If Downkey()=1
Moving=1
if speed>-1.9
dec Speed,Acell*gametime#
endif
endif

If Leftkey()=1
Moving=1
dec a#,150.0*((speed/10.5))*gametime#
endif

If Rightkey()=1
Moving=1
inc a#,150.0*((speed/10.5))*gametime#
endif

`Effect Object
move object 1,Speed
yrotate object 1,a#
speed=curvevalue(0,speed,friction)

`Effect Camera
posx#=cos(270-a#) * 30 + object position x(1)
posz#=sin(270-a#) * 30 + object position z(1)
Position Camera curvevalue(posx#,camera position x(),10),object position y(1)+6,curvevalue(posz#,camera position z(),10)
Point Camera object position x(1),object position y(1)+6,object position z(1)

`animate player
if object playing(1)=0 and Moving=1
play object 1
endif

if Moving=0
stop object 1
endif

`Sync/Loop
sync
Loop

end

`*******************
`FUNCTIONS
`*******************

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

This is the one i want to get the animations going on:

`Setup App
Sync On : Sync Rate 0
autocam off
set display mode 1280,1024,32,
`Start menu loop
Do

if Button(20,55,"New Game")=1 then Goto New_Game
Button(20,95,"Load Game")
Button(20,15,"Welcome to Harry Jacksons, BLOCK RACING!")
If Button(20,135,"Exit")=1 then End

`Sync/Loop
sync
loop

`If new game button pressed
New_Game:
cls
Repeat
Text 512-(text width("Press any key to Start!")/2),384,"Press any key to Start!"
sync
Until scancode()>0

`Make Player
load object "media\dark tank.x",1
load image "media\tanks03.dds",1
texture object 1,1
scale object 1,20,20,20
position object 1,0,.75,0

`Grass Texture
cls
for i=1 to 64
for t=1 to 64
color=rnd(255)
ink rgb(0,color,0),rgb(0,color,0)
box i-1,t-1,i+1,t+1
next t
next i
get image 1000,1,1,64,64

`Make World
make object plain 1000,2000,2000
xrotate object 1000,-90
texture object 1000,1000
scale object texture 1000,300,300
set object texture 1000,2,0

`Set Values

Speed as float
Acell as float
Acell=.01
Friction as integer
Friction=150 : `Note: A higher friction value = Less friction(Yea, it's kinda strange)
time=timer()

`Start Main Loop
Do
`Needed for Timer Based Movement
if screen fps()<>0 then Gametime#=(60.0/screen fps())

`Controls
If Upkey()=1 and speed<1.9
inc Speed,Acell*gametime#
endif

If Downkey()=1 and speed>-1.9
dec Speed,Acell*gametime#
endif

If Leftkey()=1
dec a#,150.0*((speed/10.5))*gametime#
endif

If Rightkey()=1
inc a#,150.0*((speed/10.5))*gametime#
endif

`Effect Object
move object 1,Speed
yrotate object 1,a#
speed=curvevalue(0,speed,friction)

`Effect Camera
posx#=cos(270-a#) * 30 + object position x(1)
posz#=sin(270-a#) * 30 + object position z(1)
Position Camera curvevalue(posx#,camera position x(),10),object position y(1)+6,curvevalue(posz#,camera position z(),10)
Point Camera object position x(1),object position y(1)+6,object position z(1)

`Sync/Loop
sync
Loop

end

`*******************
`FUNCTIONS
`*******************

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

+ Code Snippet

`Setup App
Sync On : Sync Rate 0
autocam off
set display mode 1280,1024,32,
`Start menu loop
Do

if Button(20,55,"New Game")=1 then Goto New_Game
Button(20,95,"Load Game")
Button(20,15,"Welcome to Harry Jacksons, BLOCK RACING!")
If Button(20,135,"Exit")=1 then End

`Sync/Loop
sync
loop

`If new game button pressed
New_Game:
cls
Repeat
Text 512-(text width("Press any key to Start!")/2),384,"Press any key to Start!"
sync
Until scancode()>0

`Make Player
load object "media\dark tank.x",1
load image "media\tanks03.dds",1
texture object 1,1
scale object 1,20,20,20
position object 1,0,.75,0


`Grass Texture
cls
for i=1 to 64
for t=1 to 64
color=rnd(255)
ink rgb(0,color,0),rgb(0,color,0)
box i-1,t-1,i+1,t+1
next t
next i
get image 1000,1,1,64,64

`Make World
make object plain 1000,2000,2000
xrotate object 1000,-90
texture object 1000,1000
scale object texture 1000,300,300
set object texture 1000,2,0

`Set Values

Speed as float
Acell as float
Acell=.01
Friction as integer
Friction=150 : `Note: A higher friction value = Less friction(Yea, it's kinda strange)
time=timer()

`Start Main Loop
Do
`Needed for Timer Based Movement
if screen fps()<>0 then Gametime#=(60.0/screen fps())

`Controls
If Upkey()=1 and speed<1.9
inc Speed,Acell*gametime#
endif

If Downkey()=1 and speed>-1.9
dec Speed,Acell*gametime#
endif

If Leftkey()=1
dec a#,150.0*((speed/10.5))*gametime#
endif

If Rightkey()=1
inc a#,150.0*((speed/10.5))*gametime#
endif

`Effect Object
move object 1,Speed
yrotate object 1,a#
speed=curvevalue(0,speed,friction)

`Effect Camera
posx#=cos(270-a#) * 30 + object position x(1)
posz#=sin(270-a#) * 30 + object position z(1)
Position Camera curvevalue(posx#,camera position x(),10),object position y(1)+6,curvevalue(posz#,camera position z(),10)
Point Camera object position x(1),object position y(1)+6,object position z(1)

`Sync/Loop
sync
Loop

end

`*******************
`FUNCTIONS
`*******************

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

Thanks, Svothe

A Violent Pigeon is a good Pigeon.

Back to top

Profile PM Website

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 3rd May 2008 03:23

Link

You're right, it works

Maybe they put it back, it definitely didn't work in the last version.

Unterseeboot - Has you played it?
Los Mineros are on leave...

Back to top

Profile PM Email Website

DB PROgrammer

17

Years of Service

User Offline

Joined: 9th Feb 2007

Location: Nowhere But Everywhere

Posted: 3rd May 2008 08:46

Link

This code works for me.

`Setup App
Sync On : Sync Rate 0
autocam off
set display mode 1280,1024,32,
`Start menu loop
Do

if Button(20,55,"New Game")=1 then Goto New_Game
Button(20,95,"Load Game")
Button(20,15,"Welcome to Harry Jacksons, BLOCK RACING!")
If Button(20,135,"Exit")=1 then End

`Sync/Loop
sync
loop

`If new game button pressed
New_Game:
cls
Repeat
Text 512-(text width("Press any key to Start!")/2),384,"Press any key to Start!"
sync
Until scancode()>0

`Make Player
load object "C:\Program Files\Dark Basic Software\DarkMATTER\Models\DB\Vehicles\Small 4x4 2\H-Small 4x4 2-Move.x",1
load image "C:\Program Files\Dark Basic Software\DarkMATTER\Models\DB\Vehicles\Small 4x4 2\small4x2.dds",1
texture object 1,1
scale object 1,200,200,200
position object 1,0,.75,0
yrotate object 1,x : `********** Try 0,90,180,270 instead of x *********
fix object pivot 1

`Grass Texture
cls
for i=1 to 64
for t=1 to 64
color=rnd(255)
ink rgb(0,color,0),rgb(0,color,0)
box i-1,t-1,i+1,t+1
next t
next i
get image 1000,1,1,64,64

`Make World
make object plain 1000,2000,2000
xrotate object 1000,-90
texture object 1000,1000
scale object texture 1000,300,300
set object texture 1000,2,0

`Set Values

Speed as float
Acell as float
Acell=.01
Friction as integer
Friction=150 : `Note: A higher friction value = Less friction(Yea, it's kinda strange)
time=timer()

`Start Main Loop
Do
`Needed for Timer Based Movement
if screen fps()<>0 then Gametime#=(60.0/screen fps())

Moving=0

`Controls
If Upkey()=1
Moving=1
if speed<1.9
inc Speed,Acell*gametime#
endif
endif

If Downkey()=1
Moving=1
if speed>-1.9
dec Speed,Acell*gametime#
endif
endif

If Leftkey()=1
Moving=1
dec a#,150.0*((speed/10.5))*gametime#
endif

If Rightkey()=1
Moving=1
inc a#,150.0*((speed/10.5))*gametime#
endif

`Effect Object
move object 1,Speed
yrotate object 1,a#
speed=curvevalue(0,speed,friction)

`Effect Camera
posx#=cos(270-a#) * 30 + object position x(1)
posz#=sin(270-a#) * 30 + object position z(1)
Position Camera curvevalue(posx#,camera position x(),10),object position y(1)+6,curvevalue(posz#,camera position z(),10)
Point Camera object position x(1),object position y(1)+6,object position z(1)

`animate player
if object playing(1)=0 and Moving=1
play object 1
endif

if Moving=0
stop object 1
endif

`Sync/Loop
sync
Loop

end

`*******************
`FUNCTIONS
`*******************

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

+ Code Snippet

`Setup App
Sync On : Sync Rate 0
autocam off
set display mode 1280,1024,32,
`Start menu loop
Do

if Button(20,55,"New Game")=1 then Goto New_Game
Button(20,95,"Load Game")
Button(20,15,"Welcome to Harry Jacksons, BLOCK RACING!")
If Button(20,135,"Exit")=1 then End

`Sync/Loop
sync
loop

`If new game button pressed
New_Game:
cls
Repeat
Text 512-(text width("Press any key to Start!")/2),384,"Press any key to Start!"
sync
Until scancode()>0

`Make Player
load object "C:\Program Files\Dark Basic Software\DarkMATTER\Models\DB\Vehicles\Small 4x4 2\H-Small 4x4 2-Move.x",1
load image "C:\Program Files\Dark Basic Software\DarkMATTER\Models\DB\Vehicles\Small 4x4 2\small4x2.dds",1
texture object 1,1
scale object 1,200,200,200
position object 1,0,.75,0
yrotate object 1,x : `********** Try 0,90,180,270 instead of x *********
fix object pivot 1

`Grass Texture
cls
for i=1 to 64
for t=1 to 64
color=rnd(255)
ink rgb(0,color,0),rgb(0,color,0)
box i-1,t-1,i+1,t+1
next t
next i
get image 1000,1,1,64,64

`Make World
make object plain 1000,2000,2000
xrotate object 1000,-90
texture object 1000,1000
scale object texture 1000,300,300
set object texture 1000,2,0

`Set Values

Speed as float
Acell as float
Acell=.01
Friction as integer
Friction=150 : `Note: A higher friction value = Less friction(Yea, it's kinda strange)
time=timer()

`Start Main Loop
Do
`Needed for Timer Based Movement
if screen fps()<>0 then Gametime#=(60.0/screen fps())

Moving=0

`Controls
If Upkey()=1
Moving=1
if speed<1.9
inc Speed,Acell*gametime#
endif
endif

If Downkey()=1
Moving=1
if speed>-1.9
dec Speed,Acell*gametime#
endif
endif

If Leftkey()=1
Moving=1
dec a#,150.0*((speed/10.5))*gametime#
endif

If Rightkey()=1
Moving=1
inc a#,150.0*((speed/10.5))*gametime#
endif

`Effect Object
move object 1,Speed
yrotate object 1,a#
speed=curvevalue(0,speed,friction)

`Effect Camera
posx#=cos(270-a#) * 30 + object position x(1)
posz#=sin(270-a#) * 30 + object position z(1)
Position Camera curvevalue(posx#,camera position x(),10),object position y(1)+6,curvevalue(posz#,camera position z(),10)
Point Camera object position x(1),object position y(1)+6,object position z(1)

`animate player
if object playing(1)=0 and Moving=1
play object 1
endif

if Moving=0
stop object 1
endif

`Sync/Loop
sync
Loop

end

`*******************
`FUNCTIONS
`*******************

function Button(x1,y1,WORDS$)
Pressed=0
x2=Text Width(WORDS$)
y2=Text Height(WORDS$)
if mousex()>x1 and mousex()<x1+x2
if mousey()>y1-y2 and mousey()<y1+y2
Pressed=1
endif
endif
if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

You may have to replace the model and texture paths.

I'm Pro grammer.

Back to top

Profile PM Email Website

Violent Pigeon

16

Years of Service

User Offline

Joined: 30th Dec 2007

Location: London, Great Britain

Posted: 3rd May 2008 13:48

Link

Ok DBP yours works great but i still cant get the animations working ><
Im learning the language as i progress so eventually im sure ill sort myself out but any help until then is welcome

A Violent Pigeon is a good Pigeon.

Back to top

Profile PM Website

Penfold

20

Years of Service

User Offline

Joined: 3rd Dec 2003

Location: RED postbox houses of parliment

Posted: 10th May 2008 12:44

Link

Hope you don't mind DB Programmer I've taken a copy of your grass making routine

I've also changed it a little.

Change 1. It now makes the texture on an invisible bitmap so yo udon't see it flash up on the screen.

Change 2. Changed second rgb statement in the random colour mix to 0 as you don't see the background when you mamke a box. (makes no difference just a little bit less the computer has to work out )

hope thsts ok

+ Code Snippet

`Grass Texture
create bitmap 1, 64,64
for i=1 to 64
   for t=1 to 64
      color=rnd(255)
      ink rgb(0,color,0),0
      box i-1,t-1,i+1,t+1
   next t
next i
get image 1000,1,1,64,64
set current bitmap 0

I'll leave to one of you guys to put it back into your code if you want to.

'Ooh 'eck chief'...'crumbs'

Back to top

Profile PM

Violent Pigeon

16

Years of Service

User Offline

Joined: 30th Dec 2007

Location: London, Great Britain

Posted: 30th May 2008 15:36

Link

Alright guys, bear with me here as im going to try and morph this into a RPG :s i will try and keep this updated with my problems

A Violent Pigeon is a good Pigeon.

Back to top

Profile PM Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Cube Racer