number? - GameCreators Forum

Author

Message

Opposing force

19

Years of Service

User Offline

Joined: 10th Aug 2005

Location: England

Posted: 10th Dec 2005 13:33

Link

ok for this game im making, a number is at the top of the screen which indicates how much money the player has. At the moment the number is at 0. If the player was to come in to collision with a small cube which represents money then 20 has to be added to the 0 heres the code ive got (the player is object number 10)

+ Code Snippet

money=1
if object collision(money,10)=1
hide object money
set object collision off money
endif

so thats what happens when the player comes into contact with the money. It goes giving the impression that the player has picked it up. What i need to know, how to do, is how i can add 20 (the value of the money) to that 0 at the top of the screen when the player comes into collision with the money.

Back to top

Profile PM

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 10th Dec 2005 14:35

Link

uh...is that all the source you have?

to add 20 to the money variable, use

+ Code Snippet

money = money + 20

when the player collides with the cube.

You also need a loop to be able to move around and get the cube.

Back to top

Profile PM Email Website

Link102

20

Years of Service

User Offline

Joined: 1st Dec 2004

Location: On your head, weeeeee!

Posted: 10th Dec 2005 15:17

Link

well you''d have to print the varialble of money. when you pick the money up you will add 20 to that string.

+ Code Snippet

set cursor 0,0
print chash

money=1
if object collision(money,10)=1
   hide object money
   set object collision off money
   chash=chash+20
endif

Don't look at my sig!

Back to top

Profile PM

SimSmall

20

Years of Service

User Offline

Joined: 7th Aug 2004

Location: United Kingdom

Posted: 10th Dec 2005 15:17 Edited at: 10th Dec 2005 15:18

Link

as in this?

start the money off at zero...

+ Code Snippet

MoneyAmount=0

then show how much money the player has...

+ Code Snippet

set cursor 0,0
print MoneyAmount

add 20 to the amount of money if you touch some money...

+ Code Snippet

money=1
if object collision(money,10)=1
hide object money
set object collision off money
inc MoneyAmount,20
endif

Edit: Grrr - Link 102 was slightly faster

...maybe one day I'll finish a project

Back to top

Profile PM Email

Opposing force

19

Years of Service

User Offline

Joined: 10th Aug 2005

Location: England

Posted: 10th Dec 2005 16:21

Link

Brilliant!!!

thanks alot it works

Back to top

Profile PM

Opposing force

19

Years of Service

User Offline

Joined: 10th Aug 2005

Location: England

Posted: 10th Dec 2005 16:43

Link

ive used it and now ive found out if i use this

if chash=1000

(1000 being the money if reached to that amount)

then i can make different events happen within that and endif

for example ive done somthing like this

if chash=1000
color object 10,rgb(100,0,0)
endif

Back to top

Profile PM

Xenocythe

19

Years of Service

User Offline

Joined: 26th May 2005

Location: You Essay.

Posted: 10th Dec 2005 18:13

Link

Yeah, youre getting there!

Back to top

Profile PM Email Website

Opposing force

19

Years of Service

User Offline

Joined: 10th Aug 2005

Location: England

Posted: 10th Dec 2005 21:49

Link

right ive tried to use that code as health for an enemy. The enemy has 100 life and the player bullet takes away 25 life. Each time the bullet touches the enemy it should take away 25 life but for me when it touches the enemy it takes away that 25 life but then it goes back to 100 when the bullet passes. How can i get it so the -25 life stays on the enemy health counter. Heres the code

Rem Make sphere 
       Rem Setup sync 
      Sync On 
      Sync Rate 60

Rem Make bullet 
Make Object Sphere 2,50 
Hide Object 2 
scale object 2,100,100,100

Rem Make an enemy
          Make object cube 3,100
          scale object 3,50,100,50 
          Position object 3,100,0,100
          Set object collision to boxes 3

Rem Make player 
      Make object sphere 10,50 
      Position object 10,-100,0,-100 
      Set object collision to spheres 10

Rem Main loop 
      Do

Rem  Store Object angle Y in aY# 
         aY# = Object angle Y(10)

Rem  Control input for camera 
         If Upkey()=1 then Move object 10,10 
         If Leftkey()=1 then Yrotate object 10,Wrapvalue(aY#-5) 
         If Rightkey()=1 then Yrotate object 10,Wrapvalue(aY#+5)

rem make enemy health
set cursor 0,0
print enhealth
enhealth=100

rem fire the bullet
  if controlkey()=1 and BulletLife=0 
    Position object 2,X#,Y#+40,Z# 
    Set object to camera orientation 2 
    BulletLife =25 
    show object 2 
 Endif

rem bullet life
  If BulletLife > 0 
     Dec BulletLife 
     Move object 2,40 
     if BulletLife = 0 then Hide object 2 
  Endif

rem make the enemy health get taken away by the bullet
if object collision(3,2)=1
enhealth=enhealth-25
endif

rem make the enemy object disapear if its health reaches 0
if enhealth=0
hide object 3
endif

Rem Detect collision 
         If Object collision(10,0)>0 then position object 10,X#,0,Z#

Rem get player object position and store in X# and Z# 
         X# = Object position x(10) 
         Z# = Object position z(10)

Rem get new camera position and store in cZ# and cX# 
         cZ# = Newzvalue(Z#,aY#-180,100) 
         cX# = Newxvalue(X#,aY#-180,100)

Rem position camera 
         Position Camera cX#,45,cZ#

Rem point the camera at the player object 
         Point camera X#,45,Z#

Rem Refresh Screen 
         Sync

Loop

+ Code Snippet

     Rem Make sphere 
       Rem Setup sync 
      Sync On 
      Sync Rate 60 








Rem Make bullet 
Make Object Sphere 2,50 
Hide Object 2 
scale object 2,100,100,100

      Rem Make an enemy
          Make object cube 3,100
          scale object 3,50,100,50 
          Position object 3,100,0,100
          Set object collision to boxes 3
      

      Rem Make player 
      Make object sphere 10,50 
      Position object 10,-100,0,-100 
      Set object collision to spheres 10 

      Rem Main loop 
      Do



         Rem  Store Object angle Y in aY# 
         aY# = Object angle Y(10) 

         Rem  Control input for camera 
         If Upkey()=1 then Move object 10,10 
         If Leftkey()=1 then Yrotate object 10,Wrapvalue(aY#-5) 
         If Rightkey()=1 then Yrotate object 10,Wrapvalue(aY#+5) 



rem make enemy health
set cursor 0,0
print enhealth
enhealth=100






rem fire the bullet
  if controlkey()=1 and BulletLife=0 
    Position object 2,X#,Y#+40,Z# 
    Set object to camera orientation 2 
    BulletLife =25 
    show object 2 
 Endif 


rem bullet life
  If BulletLife > 0 
     Dec BulletLife 
     Move object 2,40 
     if BulletLife = 0 then Hide object 2 
  Endif 

rem make the enemy health get taken away by the bullet
if object collision(3,2)=1
enhealth=enhealth-25
endif



rem make the enemy object disapear if its health reaches 0
if enhealth=0
hide object 3
endif







         Rem Detect collision 
         If Object collision(10,0)>0 then position object 10,X#,0,Z# 

         Rem get player object position and store in X# and Z# 
         X# = Object position x(10) 
         Z# = Object position z(10) 

         Rem get new camera position and store in cZ# and cX# 
         cZ# = Newzvalue(Z#,aY#-180,100) 
         cX# = Newxvalue(X#,aY#-180,100) 

         Rem position camera 
         Position Camera cX#,45,cZ# 

                    Rem point the camera at the player object 
         Point camera X#,45,Z# 

         Rem Refresh Screen 
         Sync 

      Loop

Back to top

Profile PM

UFO

19

Years of Service

User Offline

Joined: 11th Oct 2005

Location:

Posted: 10th Dec 2005 22:18

Link

Woa! Why is your code indented like that? It looks very strange

Rem Make sphere 
Rem Setup sync 
Sync On 
Sync Rate 60

Rem Make bullet 
Make Object Sphere 2,50 
Hide Object 2 
scale object 2,100,100,100

Rem Make an enemy
Make object cube 3,100
scale object 3,50,100,50 
Position object 3,100,0,100
Set object collision to boxes 3
      
Rem Make player 
Make object sphere 10,50 
Position object 10,-100,0,-100 
Set object collision to spheres 10

Rem Main loop 
Do

Rem  Store Object angle Y in aY# 
   aY# = Object angle Y(10)

Rem  Control input for camera 
   If Upkey()=1 then Move object 10,10 
   If Leftkey()=1 then Yrotate object 10,Wrapvalue(aY#-5) 
   If Rightkey()=1 then Yrotate object 10,Wrapvalue(aY#+5)

rem make enemy health
   set cursor 0,0
   print enhealth
   enhealth=100

rem fire the bullet
   if controlkey()=1 and BulletLife=0 
      Position object 2,X#,Y#+40,Z# 
      Set object to camera orientation 2 
      BulletLife =25 
      show object 2 
   Endif

rem bullet life
   If BulletLife > 0 
      Dec BulletLife 
      Move object 2,40 
      if BulletLife = 0 then Hide object 2 
   Endif

rem make the enemy health get taken away by the bullet
   if object collision(3,2)=1
      enhealth=enhealth-25
   endif

rem make the enemy object disapear if its health reaches 0
   if enhealth=0
      hide object 3
   endif

Rem Detect collision 
   If Object collision(10,0)>0 then position object 10,X#,0,Z#

Rem get player object position and store in X# and Z# 
   X# = Object position x(10) 
   Z# = Object position z(10)

Rem get new camera position and store in cZ# and cX# 
   cZ# = Newzvalue(Z#,aY#-180,100) 
   cX# = Newxvalue(X#,aY#-180,100) 
   Rem position camera 
   Position Camera cX#,45,cZ#

Rem point the camera at the player object 
   Point camera X#,45,Z#

Rem Refresh Screen 
   Sync

Loop

+ Code Snippet

Rem Make sphere 
Rem Setup sync 
Sync On 
Sync Rate 60 

Rem Make bullet 
Make Object Sphere 2,50 
Hide Object 2 
scale object 2,100,100,100

Rem Make an enemy
Make object cube 3,100
scale object 3,50,100,50 
Position object 3,100,0,100
Set object collision to boxes 3
      
Rem Make player 
Make object sphere 10,50 
Position object 10,-100,0,-100 
Set object collision to spheres 10 

Rem Main loop 
Do

   Rem  Store Object angle Y in aY# 
   aY# = Object angle Y(10) 

   Rem  Control input for camera 
   If Upkey()=1 then Move object 10,10 
   If Leftkey()=1 then Yrotate object 10,Wrapvalue(aY#-5) 
   If Rightkey()=1 then Yrotate object 10,Wrapvalue(aY#+5) 

   rem make enemy health
   set cursor 0,0
   print enhealth
   enhealth=100

   rem fire the bullet
   if controlkey()=1 and BulletLife=0 
      Position object 2,X#,Y#+40,Z# 
      Set object to camera orientation 2 
      BulletLife =25 
      show object 2 
   Endif 

   rem bullet life
   If BulletLife > 0 
      Dec BulletLife 
      Move object 2,40 
      if BulletLife = 0 then Hide object 2 
   Endif 

   rem make the enemy health get taken away by the bullet
   if object collision(3,2)=1
      enhealth=enhealth-25
   endif

   rem make the enemy object disapear if its health reaches 0
   if enhealth=0
      hide object 3
   endif

   Rem Detect collision 
   If Object collision(10,0)>0 then position object 10,X#,0,Z# 

   Rem get player object position and store in X# and Z# 
   X# = Object position x(10) 
   Z# = Object position z(10) 

   Rem get new camera position and store in cZ# and cX# 
   cZ# = Newzvalue(Z#,aY#-180,100) 
   cX# = Newxvalue(X#,aY#-180,100) 
   Rem position camera 
   Position Camera cX#,45,cZ# 

   Rem point the camera at the player object 
   Point camera X#,45,Z# 

   Rem Refresh Screen 
   Sync 

Loop

Just what I thought, you put the enemy health inside the do-loop. Put it before the do command like this:
It is also best to print stats right before the sync.

Rem Make sphere 
Rem Setup sync 
Sync On 
Sync Rate 60

Rem Make bullet 
Make Object Sphere 2,50 
Hide Object 2 
scale object 2,100,100,100

Rem Make an enemy
Make object cube 3,100
scale object 3,50,100,50 
Position object 3,100,0,100
Set object collision to boxes 3
      
Rem Make player 
Make object sphere 10,50 
Position object 10,-100,0,-100 
Set object collision to spheres 10

enhealth=100 :`<<<<<<<