My Fireing code still doesnt work

Author

Message

Cyberflame

21

Years of Service

User Offline

Joined: 4th Sep 2003

Location: Im not sure....

Posted: 26th May 2004 06:45

Link

Does anyone know what im doing wrong? Cause I sure dont.

Rem Project: tanks
Rem Created: 5/21/2004 11:36:22 PM

Rem ***** Main Source File *****
sync on
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
type object `object variables
   xpos as float `tanks x pos
   ypos as float `tanks y pos
   zpos as float `tanks z pos
   tangy as float`turrets yangle
   tangz as float `turrets zangle
   tangx as float `turrets xangle
   yang as float `tanks y angle
endtype
type pin `input variables
 w `up
 a `left
 s `down
 d `right
 up
 down
 ledt
 right
 space
endtype
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
gosub declare_stuff
gosub load_stuff
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
do
get_input()
move_player()
fire_stuff()
move_camera()
print_stuff()
sync : loop
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
load_stuff:
   make object box 1,3,1,5
   make object cylinder 3,2
      position object 3,0,2,0
      color object 3,rgb(30,30,30)

return
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
declare_stuff:
   global tank as object
   global in as pin
return

`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
function move_player()
 `EZro_Set OBJECT ANGLE X(1),OBJECT ANGLE Y(1),OBJECT ANGLE Z(1)
   if rightkey() =1 then tank.yang = wrapvalue(tank.yang+ 1)
   if leftkey() =1  then tank.yang = wrapvalue(tank.yang- 1)
   `ROTATE OBJECT 1,EZro_GetX(),EZro_GetY(),EZro_GetZ()
   rotate object 1,0,tank.yang,0
   if upkey() =1
      tank.xpos = newxvalue(tank.xpos,tank.yang,.1)
      tank.zpos = newzvalue(tank.zpos,tank.yang,.1)
   endif
   if downkey() =1
      tank.xpos = newxvalue(tank.xpos,tank.yang,-.1)
      tank.zpos = newzvalue(tank.zpos,tank.yang,-.1)
   endif
      position object 1,tank.xpos,tank.ypos,tank.zpos
      position object 3,tank.xpos,tank.ypos+2,tank.zpos
   EZro_Set OBJECT ANGLE X(3),OBJECT ANGLE Y(3),OBJECT ANGLE Z(3)
   if scancode()= 30 then EZro_Gy +1
   if scancode()= 32 then EZro_Gy -1
   if scancode()= 17 then EZro_Gx +1
   if scancode()= 31 then EZro_Gx -1
      ROTATE OBJECT 3,EZro_GetX(),EZro_GetY(),EZro_GetZ()
endfunction
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
function fire_stuff()
if scancode()= 57
endif
endfunction
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
function print_stuff()
set cursor 0,10
print "current key press : ";  Scancode()
set cursor 0,20
print " x pos : "; tank.xpos
print " z pos : "; tank.zpos
endfunction
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
function move_camera()
point camera tank.xpos,tank.ypos,tank.zpos : position camera tank.xpos-5,tank.ypos+50,tank.zpos-5
endfunction
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
function get_input()
endfunction

+ Code Snippet

Rem Project: tanks
Rem Created: 5/21/2004 11:36:22 PM

Rem ***** Main Source File *****
sync on
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
type object `object variables
   xpos as float `tanks x pos
   ypos as float `tanks y pos
   zpos as float `tanks z pos
   tangy as float`turrets yangle
   tangz as float `turrets zangle
   tangx as float `turrets xangle
   yang as float `tanks y angle
endtype
type pin `input variables
 w `up
 a `left
 s `down
 d `right
 up
 down
 ledt
 right
 space
endtype
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
gosub declare_stuff
gosub load_stuff
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
do
get_input()
move_player()
fire_stuff()
move_camera()
print_stuff()
sync : loop
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
load_stuff:
   make object box 1,3,1,5
   make object cylinder 3,2
      position object 3,0,2,0
      color object 3,rgb(30,30,30)

return
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
declare_stuff:
   global tank as object
   global in as pin
return

`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
function move_player()
 `EZro_Set OBJECT ANGLE X(1),OBJECT ANGLE Y(1),OBJECT ANGLE Z(1)
   if rightkey() =1 then tank.yang = wrapvalue(tank.yang+ 1)
   if leftkey() =1  then tank.yang = wrapvalue(tank.yang- 1)
   `ROTATE OBJECT 1,EZro_GetX(),EZro_GetY(),EZro_GetZ()
   rotate object 1,0,tank.yang,0
   if upkey() =1
      tank.xpos = newxvalue(tank.xpos,tank.yang,.1)
      tank.zpos = newzvalue(tank.zpos,tank.yang,.1)
   endif
   if downkey() =1
      tank.xpos = newxvalue(tank.xpos,tank.yang,-.1)
      tank.zpos = newzvalue(tank.zpos,tank.yang,-.1)
   endif
      position object 1,tank.xpos,tank.ypos,tank.zpos
      position object 3,tank.xpos,tank.ypos+2,tank.zpos
   EZro_Set OBJECT ANGLE X(3),OBJECT ANGLE Y(3),OBJECT ANGLE Z(3)
   if scancode()= 30 then EZro_Gy +1
   if scancode()= 32 then EZro_Gy -1
   if scancode()= 17 then EZro_Gx +1
   if scancode()= 31 then EZro_Gx -1
      ROTATE OBJECT 3,EZro_GetX(),EZro_GetY(),EZro_GetZ()
endfunction
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
function fire_stuff()
if scancode()= 57
endif
endfunction
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
function print_stuff()
set cursor 0,10
print "current key press : ";  Scancode()
set cursor 0,20
print " x pos : "; tank.xpos
print " z pos : "; tank.zpos
endfunction
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
function move_camera()
point camera tank.xpos,tank.ypos,tank.zpos : position camera tank.xpos-5,tank.ypos+50,tank.zpos-5
endfunction
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
function get_input()
endfunction

IF your rolling along the ocean in you jet ski and the wheels fall off. Do you still have enough pancakes to cover a doghouse?

Purple, because icecream has no bones.

Back to top

Profile PM Website

GameKit

21

Years of Service

User Offline

Joined: 6th Mar 2003

Location: USA, Staring Blankly at a Computer

Posted: 26th May 2004 17:23 Edited at: 26th May 2004 17:24

Link

You don't have any code to do the actual fireing... the "fire_stuff" function does absolutely nothing.

function fire_stuff()
if scancode()= 57
endif
endfunction

You could try something like...

+ Code Snippet

if scancode()= 57 and object exist(10)=0
  Make Object Sphere 2,10
  Position Object 10,tank.xpos,tank.ypos+2,tank.zpos
  Rotate Object 10,tank.tandx,tank.tangy,tank.tangz
endif
if object exist(10)=1
  Move Object 10,0.5
  Rotate Object 10,Wrapvalue(Object Angle X(10)-0.5),Object Angle Y(10),Object Angle Z(10)
  If object position y(10)<0 Then Delete Object 10
Endif

Well... I hope I helped...

Previously known as "Game_Creator".
The question is, why am I talking to myself? ...... And more importantly, why am I waiting for a reply?

Back to top

Profile PM Email

Cyberflame

21

Years of Service

User Offline

Joined: 4th Sep 2003

Location: Im not sure....

Posted: 26th May 2004 22:37

Link

he he oops.
i copy pasted from the wrong window
Heres the real code.

Rem Project: tanks
Rem Created: 5/21/2004 11:36:22 PM

Rem ***** Main Source File *****
sync on
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
type object
   xpos as float
   ypos as float
   zpos as float
   tangy as float
   tangz as float
   tangx as float
   yang as float
endtype
type pin
 w
 a
 s
 d
 up
 down
 left
 right
 space
endtype
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
gosub declare_stuff
gosub load_stuff
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
do
get_input()
move_player()
fire_stuff()
move_camera()
print_stuff()
sync : loop
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
load_stuff:
   make object box 1,3,1,5
   make object cylinder 3,2
      position object 3,0,2,0
      color object 3,rgb(30,30,30)
   make object sphere 1000,1,2,2
      `hide object 1000
return
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
declare_stuff:
   global tank as object
   global in as pin
return

`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
function move_player()
 `EZro_Set OBJECT ANGLE X(1),OBJECT ANGLE Y(1),OBJECT ANGLE Z(1)
   if in.right = 1 then tank.yang = wrapvalue(tank.yang+ 1)
   if in.left = 1 then tank.yang = wrapvalue(tank.yang- 1)
   `ROTATE OBJECT 1,EZro_GetX(),EZro_GetY(),EZro_GetZ()
   rotate object 1,0,tank.yang,0
   if in.up =1
      tank.xpos = newxvalue(tank.xpos,tank.yang,.1)
      tank.zpos = newzvalue(tank.zpos,tank.yang,.1)
   endif
   if in.down =1
      tank.xpos = newxvalue(tank.xpos,tank.yang,-.1)
      tank.zpos = newzvalue(tank.zpos,tank.yang,-.1)
   endif
      position object 1,tank.xpos,tank.ypos,tank.zpos
      position object 3,tank.xpos,tank.ypos+2,tank.zpos
   EZro_Set OBJECT ANGLE X(3),OBJECT ANGLE Y(3),OBJECT ANGLE Z(3)
   if in.a = 1 then EZro_Gy +1
   if in.d = 1 then EZro_Gy -1
   if in.w = 1 then EZro_Gx +1
   if in.s = 1 then EZro_Gx -1
      ROTATE OBJECT 3,EZro_GetX(),EZro_GetY(),EZro_GetZ()
endfunction
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
function fire_stuff()
if in.space = 1
   position object 1000,tank.xpos,tank.ypos,tank.zpos
   set object to object orientation 1000,3
   move object 1000,.1
   `show object 1000
endif
endfunction
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
function print_stuff()
set cursor 0,10
print "current key press : ";  Scancode()
set cursor 0,20
print " x pos : "; tank.xpos
print " z pos : "; tank.zpos
endfunction
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
function move_camera()
point camera tank.xpos,tank.ypos,tank.zpos : position camera tank.xpos-5,tank.ypos+50,tank.zpos-5
endfunction
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
function get_input()
rem w up
   if scancode() = 17 : in.w = 1 :else : in.w = 0 : endif
rem w down
   if scancode() = 31 : in.s = 1 : else : in.s = 0 : endif
rem a left
   if scancode() = 30 : in.a = 1 : else : in.a = 0 : endif
rem d right
   if scancode() = 31 : in.d = 1 : else : in.d = 0 : endif
rem space
   if scancode() = 57 : in.space = 1 : else : in.space = 0 : endif
rem up
   if upkey() = 1 : in.up = 1 : else : in.up = 0 : endif
rem down
   if downkey() = 1 : in.down = 1 : else : in.down = 0 : endif
rem left
   if leftkey() = 1 : in.left = 1 : else : in.left = 0 : endif
rem right
   if rightkey() = 1 : in.right = 1 : else : in.right = 0 : endif
remstart
code for scancode in
if scancode()=
 in. =1
 else
 in. =0
endif
remend
endfunction

+ Code Snippet

Rem Project: tanks
Rem Created: 5/21/2004 11:36:22 PM

Rem ***** Main Source File *****
sync on
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
type object
   xpos as float
   ypos as float
   zpos as float
   tangy as float
   tangz as float
   tangx as float
   yang as float
endtype
type pin
 w
 a
 s
 d
 up
 down
 left
 right
 space
endtype
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
gosub declare_stuff
gosub load_stuff
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
do
get_input()
move_player()
fire_stuff()
move_camera()
print_stuff()
sync : loop
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
load_stuff:
   make object box 1,3,1,5
   make object cylinder 3,2
      position object 3,0,2,0
      color object 3,rgb(30,30,30)
   make object sphere 1000,1,2,2
      `hide object 1000
return
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
declare_stuff:
   global tank as object
   global in as pin
return

`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
function move_player()
 `EZro_Set OBJECT ANGLE X(1),OBJECT ANGLE Y(1),OBJECT ANGLE Z(1)
   if in.right = 1 then tank.yang = wrapvalue(tank.yang+ 1)
   if in.left = 1 then tank.yang = wrapvalue(tank.yang- 1)
   `ROTATE OBJECT 1,EZro_GetX(),EZro_GetY(),EZro_GetZ()
   rotate object 1,0,tank.yang,0
   if in.up =1
      tank.xpos = newxvalue(tank.xpos,tank.yang,.1)
      tank.zpos = newzvalue(tank.zpos,tank.yang,.1)
   endif
   if in.down =1
      tank.xpos = newxvalue(tank.xpos,tank.yang,-.1)
      tank.zpos = newzvalue(tank.zpos,tank.yang,-.1)
   endif
      position object 1,tank.xpos,tank.ypos,tank.zpos
      position object 3,tank.xpos,tank.ypos+2,tank.zpos
   EZro_Set OBJECT ANGLE X(3),OBJECT ANGLE Y(3),OBJECT ANGLE Z(3)
   if in.a = 1 then EZro_Gy +1
   if in.d = 1 then EZro_Gy -1
   if in.w = 1 then EZro_Gx +1
   if in.s = 1 then EZro_Gx -1
      ROTATE OBJECT 3,EZro_GetX(),EZro_GetY(),EZro_GetZ()
endfunction
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
function fire_stuff()
if in.space = 1
   position object 1000,tank.xpos,tank.ypos,tank.zpos
   set object to object orientation 1000,3
   move object 1000,.1
   `show object 1000
endif
endfunction
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
function print_stuff()
set cursor 0,10
print "current key press : ";  Scancode()
set cursor 0,20
print " x pos : "; tank.xpos
print " z pos : "; tank.zpos
endfunction
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
function move_camera()
point camera tank.xpos,tank.ypos,tank.zpos : position camera tank.xpos-5,tank.ypos+50,tank.zpos-5
endfunction
`*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
function get_input()
rem w up
   if scancode() = 17 : in.w = 1 :else : in.w = 0 : endif
rem w down
   if scancode() = 31 : in.s = 1 : else : in.s = 0 : endif
rem a left
   if scancode() = 30 : in.a = 1 : else : in.a = 0 : endif
rem d right
   if scancode() = 31 : in.d = 1 : else : in.d = 0 : endif
rem space
   if scancode() = 57 : in.space = 1 : else : in.space = 0 : endif
rem up
   if upkey() = 1 : in.up = 1 : else : in.up = 0 : endif
rem down
   if downkey() = 1 : in.down = 1 : else : in.down = 0 : endif
rem left
   if leftkey() = 1 : in.left = 1 : else : in.left = 0 : endif
rem right
   if rightkey() = 1 : in.right = 1 : else : in.right = 0 : endif
remstart
code for scancode in
if scancode()=
 in. =1
 else
 in. =0
endif
remend
endfunction

IF your rolling along the ocean in you jet ski and the wheels fall off. Do you still have enough pancakes to cover a doghouse?

Purple, because icecream has no bones.

Back to top

Profile PM Website

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 26th May 2004 23:23 Edited at: 26th May 2004 23:33

Link

[edit] Never mind i'll take a closer look when i get home. But while i'm here .... I don't use User defined types much because I have heard of saving bugs and function bugs with them, but should't all the UDT's you have be either pin.? instead of in.?

+ Code Snippet

type pin  rem <------------------------see type is "pin" here ?
 w
 a
 s
 d
 up
 down
 left
 right
 space
endtype

   if in.left = 1 
   if in.up =1
   if in.down =1
   if in.a = 1 
   if in.d = 1 
   if in.w = 1 
   if in.s = 1 
   if in.space = 1  rem <------------- see the type is "in" here?

"People don't fail ..... they stop trying." Specs. P4 2.8GHz 800 FSB | 512MB DDR333
GeForce FX 5200 AGP 256MB | Windows XP Pro Full

Back to top

Profile PM Email

Cyberflame

21

Years of Service

User Offline

Joined: 4th Sep 2003

Location: Im not sure....

Posted: 27th May 2004 01:53

Link

no no
you see here

+ Code Snippet

declare_stuff:
   global tank as object
   global in as pin
return

I declared in as type pin

IF your rolling along the ocean in you jet ski and the wheels fall off. Do you still have enough pancakes to cover a doghouse?

Purple, because icecream has no bones.

Back to top

Profile PM Website

Sorry your browser is not supported!

Newcomers DBPro Corner / My Fireing code still doesnt work