2 Player ghost game - GameCreators Forum

Author

Message

vid1987

21

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Oklahoma

Posted: 10th Mar 2005 02:39

Link

Hello i got bored and whipped up a little game this morning straight from my imagination its a 2 player game and its very simple and yet quite fun (well at least i think it is) i just wanted to show everybody well here's the point to it... there are 2 cubes.. the control for player 1 is a=left d=right w=up s=down f=power up g=attack (in order to attack your object has to be touching player 2's object) player 2 controls leftkey=left rightkey=right upkey=up downkey=down l=power up p=attack (attack conditions same as player 1's) the point is you have to attack the other object until they have no HP remaining but watch out.. every time you attack you will lose some GP. if you lose all your GP your attack will decrease your own health so when you run out of GP you can leave your opponent and power up to get more GP. alright here is the code... tell me what you think

`Programmer: David C aKa: ViD1987
`Project: Ghost.. Game...

Make object cube 1,2 : Position object 1,-20,0,25
Make object cube 2,2 : Position object 2,20,0,25

health=1000
healthp=1000
ghost_power=100
ghost_powerp=100
game_speed#=0.01

Do

Set cursor 0,0

Print "1P HP :";health : Print "                                                                2P HP :";healthp
Print "1P GP :";ghost_power : Print "                                                                2P GP :";ghost_powerp
If Keystate(30)=1 then move object left 1,0.1
If Keystate(32)=1 then move object right 1,0.1
If Keystate(17)=1 then move object up 1,0.1
If Keystate(31)=1 then move object down 1,0.1

If Leftkey()=1 then move object left 2,0.1
If Rightkey()=1 then move object right 2,0.1
If Upkey()=1 then move object up 2,0.1
If Downkey()=1 then move object down 2,0.1

If object collision(1,2) and Keystate(34)=1 then Ghost object on 1 : ghost_power=ghost_power-5 : healthp=healthp-5 : Wait 20 : Ghost object off 1
If object collision(2,1) and keystate(25)=1 then Ghost object on 2 : ghost_powerp=ghost_powerp-5 : health=health-5 : Wait 20 : Ghost object off 2

If Keystate(33)=1 then ghost_power=ghost_power+1 : Wait 20
If Keystate(38)=1 then ghost_powerp=ghost_powerp+1 : Wait 20

If ghost_power<0 and object collision(1,2) and keystate(34)=1 then health=health-5 : Wait 20
If ghost_powerp<0 and object collision(2,1) and keystate(25)=1 then healthp=healthp-5 : Wait 20

If health<0 then Cls : Print "Player 2 wins!"
If healthp<0 then Cls : Print "Player 1 wins!"

Loop

+ Code Snippet

`Programmer: David C aKa: ViD1987
`Project: Ghost.. Game...

Make object cube 1,2 : Position object 1,-20,0,25
Make object cube 2,2 : Position object 2,20,0,25

health=1000
healthp=1000
ghost_power=100
ghost_powerp=100
game_speed#=0.01

Do

Set cursor 0,0

Print "1P HP :";health : Print "                                                                2P HP :";healthp
Print "1P GP :";ghost_power : Print "                                                                2P GP :";ghost_powerp
If Keystate(30)=1 then move object left 1,0.1
If Keystate(32)=1 then move object right 1,0.1
If Keystate(17)=1 then move object up 1,0.1
If Keystate(31)=1 then move object down 1,0.1

If Leftkey()=1 then move object left 2,0.1
If Rightkey()=1 then move object right 2,0.1
If Upkey()=1 then move object up 2,0.1
If Downkey()=1 then move object down 2,0.1

If object collision(1,2) and Keystate(34)=1 then Ghost object on 1 : ghost_power=ghost_power-5 : healthp=healthp-5 : Wait 20 : Ghost object off 1
If object collision(2,1) and keystate(25)=1 then Ghost object on 2 : ghost_powerp=ghost_powerp-5 : health=health-5 : Wait 20 : Ghost object off 2

If Keystate(33)=1 then ghost_power=ghost_power+1 : Wait 20
If Keystate(38)=1 then ghost_powerp=ghost_powerp+1 : Wait 20

If ghost_power<0 and object collision(1,2) and keystate(34)=1 then health=health-5 : Wait 20
If ghost_powerp<0 and object collision(2,1) and keystate(25)=1 then healthp=healthp-5 : Wait 20

If health<0 then Cls : Print "Player 2 wins!"
If healthp<0 then Cls : Print "Player 1 wins!"

Loop

peace

David

Back to top

Profile PM Email Website

vid1987

21

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Oklahoma

Posted: 10th Mar 2005 02:53

Link

There is only 1 thing i need to fix.. i need to somehow hake it to where the objects cant wander off the screen can anybody help me there??
peace

David

Back to top

Profile PM Email Website

TEH_CODERER

22

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 10th Mar 2005 04:17

Link

A little boring but this should work.

`Programmer: David C aKa: ViD1987
`Project: Ghost.. Game...

Make object cube 1,2 : Position object 1,-20,0,25
Make object cube 2,2 : Position object 2,20,0,25

health=1000
healthp=1000
ghost_power=100
ghost_powerp=100
game_speed#=0.01

Do

Set cursor 0,0

Print "1P HP :";health : Print "                                                                2P HP :";healthp
Print "1P GP :";ghost_power : Print "                                                                2P GP :";ghost_powerp
If Keystate(30)=1 then move object left 1,0.1
If Keystate(32)=1 then move object right 1,0.1
If Keystate(17)=1 then move object up 1,0.1
If Keystate(31)=1 then move object down 1,0.1
if object screen x(1)<0
move object right 1,0.1
endif
if object screen x(1)>640
move object left 1,0.1
endif
if object screen y(1)<0
move object down 1,0.1
endif
if object screen y(1)>480
move object up 1,0.1
endif

If Leftkey()=1 then move object left 2,0.1
If Rightkey()=1 then move object right 2,0.1
If Upkey()=1 then move object up 2,0.1
If Downkey()=1 then move object down 2,0.1
if object screen x(2)<0
move object right 2,0.1
endif
if object screen x(2)>640
move object left 2,0.1
endif
if object screen y(2)<0
move object down 2,0.1
endif
if object screen y(2)>480
move object up 2,0.1
endif

If object collision(1,2) and Keystate(34)=1 then Ghost object on 1 : ghost_power=ghost_power-5 : healthp=healthp-5 : Wait 20 : Ghost object off 1
If object collision(2,1) and keystate(25)=1 then Ghost object on 2 : ghost_powerp=ghost_powerp-5 : health=health-5 : Wait 20 : Ghost object off 2

If Keystate(33)=1 then ghost_power=ghost_power+1 : Wait 20
If Keystate(38)=1 then ghost_powerp=ghost_powerp+1 : Wait 20

If ghost_power<0 and object collision(1,2) and keystate(34)=1 then health=health-5 : Wait 20
If ghost_powerp<0 and object collision(2,1) and keystate(25)=1 then healthp=healthp-5 : Wait 20

If health<0 then Cls : Print "Player 2 wins!"
If healthp<0 then Cls : Print "Player 1 wins!"

Loop

+ Code Snippet

`Programmer: David C aKa: ViD1987
`Project: Ghost.. Game...

Make object cube 1,2 : Position object 1,-20,0,25
Make object cube 2,2 : Position object 2,20,0,25

health=1000
healthp=1000
ghost_power=100
ghost_powerp=100
game_speed#=0.01

Do

Set cursor 0,0

Print "1P HP :";health : Print "                                                                2P HP :";healthp
Print "1P GP :";ghost_power : Print "                                                                2P GP :";ghost_powerp
If Keystate(30)=1 then move object left 1,0.1
If Keystate(32)=1 then move object right 1,0.1
If Keystate(17)=1 then move object up 1,0.1
If Keystate(31)=1 then move object down 1,0.1
if object screen x(1)<0
move object right 1,0.1
endif
if object screen x(1)>640
move object left 1,0.1
endif
if object screen y(1)<0
move object down 1,0.1
endif
if object screen y(1)>480
move object up 1,0.1
endif

If Leftkey()=1 then move object left 2,0.1
If Rightkey()=1 then move object right 2,0.1
If Upkey()=1 then move object up 2,0.1
If Downkey()=1 then move object down 2,0.1
if object screen x(2)<0
move object right 2,0.1
endif
if object screen x(2)>640
move object left 2,0.1
endif
if object screen y(2)<0
move object down 2,0.1
endif
if object screen y(2)>480
move object up 2,0.1
endif

If object collision(1,2) and Keystate(34)=1 then Ghost object on 1 : ghost_power=ghost_power-5 : healthp=healthp-5 : Wait 20 : Ghost object off 1
If object collision(2,1) and keystate(25)=1 then Ghost object on 2 : ghost_powerp=ghost_powerp-5 : health=health-5 : Wait 20 : Ghost object off 2

If Keystate(33)=1 then ghost_power=ghost_power+1 : Wait 20
If Keystate(38)=1 then ghost_powerp=ghost_powerp+1 : Wait 20

If ghost_power<0 and object collision(1,2) and keystate(34)=1 then health=health-5 : Wait 20
If ghost_powerp<0 and object collision(2,1) and keystate(25)=1 then healthp=healthp-5 : Wait 20

If health<0 then Cls : Print "Player 2 wins!"
If healthp<0 then Cls : Print "Player 1 wins!"

Loop

[url][email protected][/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

vid1987

21

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Oklahoma

Posted: 10th Mar 2005 05:56

Link

Thx for fixin it now its even funner! i dont know about you but me and my sister had a blast playing this game its a lot funner when you have someone to play with.. and i only built it within 2 hours!! i should add more to it
peace

David

Back to top

Profile PM Email Website

vid1987

21

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Oklahoma

Posted: 10th Mar 2005 06:07

Link

Hay does anybody know how to make a computer controlled box that fights back on this game i figured it might be pretty hard because i'm no good with AI and i'm still working on randomizing things so can someone help plz

David

Back to top

Profile PM Email Website

vid1987

21

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Oklahoma

Posted: 10th Mar 2005 10:20

Link

Any ideas for this game anybody?? any potential whatsoever? someone respond plz

David

Back to top

Profile PM Email Website

vid1987

21

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Oklahoma

Posted: 10th Mar 2005 10:55

Link

anybody?? plz

David

Back to top

Profile PM Email Website

vid1987

21

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Oklahoma

Posted: 10th Mar 2005 11:22

Link

I have upgraded the game... now the maximum GP is 500 and the minimum is 0 now it should be more fun
try it out
peace

David

Back to top

Profile PM Email Website

vid1987

21

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Oklahoma

Posted: 10th Mar 2005 11:23

Link

Whoops here's the code!

`Programmer: David C aKa: ViD1987
`Project: Ghost.. Game...

Make object cube 1,2 : Position object 1,-20,0,25
Make object cube 2,2 : Position object 2,20,0,25

health=1000
healthp=1000
ghost_power=100
ghost_powerp=100
game_speed#=0.01

Do

Set cursor 0,0

Print "1P HP :";health : Print "                                                                2P HP :";healthp
Print "1P GP :";ghost_power : Print "                                                                2P GP :";ghost_powerp
If Keystate(30)=1 then move object left 1,0.1
If Keystate(32)=1 then move object right 1,0.1
If Keystate(17)=1 then move object up 1,0.1
If Keystate(31)=1 then move object down 1,0.1
if object screen x(1)<0
move object right 1,0.1
endif
if object screen x(1)>640
move object left 1,0.1
endif
if object screen y(1)<0
move object down 1,0.1
endif
if object screen y(1)>480
move object up 1,0.1
endif

If Leftkey()=1 then move object left 2,0.1
If Rightkey()=1 then move object right 2,0.1
If Upkey()=1 then move object up 2,0.1
If Downkey()=1 then move object down 2,0.1
if object screen x(2)<0
move object right 2,0.1
endif
if object screen x(2)>640
move object left 2,0.1
endif
if object screen y(2)<0
move object down 2,0.1
endif
if object screen y(2)>480
move object up 2,0.1
endif

If object collision(1,2) and Keystate(34)=1 then Ghost object on 1 : ghost_power=ghost_power-5 : healthp=healthp-5 : Wait 20 : Ghost object off 1
If object collision(2,1) and keystate(25)=1 then Ghost object on 2 : ghost_powerp=ghost_powerp-5 : health=health-5 : Wait 20 : Ghost object off 2

If Keystate(33)=1 then ghost_power=ghost_power+1 : Wait 20
If Keystate(38)=1 then ghost_powerp=ghost_powerp+1 : Wait 20

If ghost_power<0 and object collision(1,2) and keystate(34)=1 then health=health-5 : Wait 20
If ghost_powerp<0 and object collision(2,1) and keystate(25)=1 then healthp=healthp-5 : Wait 20

If ghost_power<0 then ghost_power=0
If ghost_powerp<0 then ghost_powerp=0

If ghost_power>500 then ghost_power=500
If ghost_powerp>500 then ghost_powerp=500

If health<0 then Cls : Print "Player 2 wins!"
If healthp<0 then Cls : Print "Player 1 wins!"

Loop

+ Code Snippet

`Programmer: David C aKa: ViD1987
`Project: Ghost.. Game...

Make object cube 1,2 : Position object 1,-20,0,25
Make object cube 2,2 : Position object 2,20,0,25

health=1000
healthp=1000
ghost_power=100
ghost_powerp=100
game_speed#=0.01

Do

Set cursor 0,0

Print "1P HP :";health : Print "                                                                2P HP :";healthp
Print "1P GP :";ghost_power : Print "                                                                2P GP :";ghost_powerp
If Keystate(30)=1 then move object left 1,0.1
If Keystate(32)=1 then move object right 1,0.1
If Keystate(17)=1 then move object up 1,0.1
If Keystate(31)=1 then move object down 1,0.1
if object screen x(1)<0
move object right 1,0.1
endif
if object screen x(1)>640
move object left 1,0.1
endif
if object screen y(1)<0
move object down 1,0.1
endif
if object screen y(1)>480
move object up 1,0.1
endif

If Leftkey()=1 then move object left 2,0.1
If Rightkey()=1 then move object right 2,0.1
If Upkey()=1 then move object up 2,0.1
If Downkey()=1 then move object down 2,0.1
if object screen x(2)<0
move object right 2,0.1
endif
if object screen x(2)>640
move object left 2,0.1
endif
if object screen y(2)<0
move object down 2,0.1
endif
if object screen y(2)>480
move object up 2,0.1
endif

If object collision(1,2) and Keystate(34)=1 then Ghost object on 1 : ghost_power=ghost_power-5 : healthp=healthp-5 : Wait 20 : Ghost object off 1
If object collision(2,1) and keystate(25)=1 then Ghost object on 2 : ghost_powerp=ghost_powerp-5 : health=health-5 : Wait 20 : Ghost object off 2

If Keystate(33)=1 then ghost_power=ghost_power+1 : Wait 20
If Keystate(38)=1 then ghost_powerp=ghost_powerp+1 : Wait 20

If ghost_power<0 and object collision(1,2) and keystate(34)=1 then health=health-5 : Wait 20
If ghost_powerp<0 and object collision(2,1) and keystate(25)=1 then healthp=healthp-5 : Wait 20

If ghost_power<0 then ghost_power=0
If ghost_powerp<0 then ghost_powerp=0

If ghost_power>500 then ghost_power=500
If ghost_powerp>500 then ghost_powerp=500

If health<0 then Cls : Print "Player 2 wins!"
If healthp<0 then Cls : Print "Player 1 wins!"

Loop

peace

David

Back to top

Profile PM Email Website

TEH_CODERER

22

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 11th Mar 2005 02:51

Link

`Programmer: David C aKa: ViD1987
`Project: Ghost.. Game...

Make object cube 1,2 : Position object 1,-20,0,25
Make object cube 2,2 : Position object 2,20,0,25

health=1000
healthp=1000
ghost_power=100
ghost_powerp=100
game_speed#=0.01

SYNC ON
SYNC RATE 0

Do

Set cursor 0,0

Print "1P HP :";health : Print "                                                                2P HP :";healthp
Print "1P GP :";ghost_power : Print "                                                                2P GP :";ghost_powerp
If Keystate(30)=1 then move object left 1,0.1
If Keystate(32)=1 then move object right 1,0.1
If Keystate(17)=1 then move object up 1,0.1
If Keystate(31)=1 then move object down 1,0.1
if object screen x(1)<0
move object right 1,0.1
endif
if object screen x(1)>640
move object left 1,0.1
endif
if object screen y(1)<0
move object down 1,0.1
endif
if object screen y(1)>480
move object up 1,0.1
endif

If Leftkey()=1 then move object left 2,0.1
If Rightkey()=1 then move object right 2,0.1
If Upkey()=1 then move object up 2,0.1
If Downkey()=1 then move object down 2,0.1
if object screen x(2)<0
move object right 2,0.1
endif
if object screen x(2)>640
move object left 2,0.1
endif
if object screen y(2)<0
move object down 2,0.1
endif
if object screen y(2)>480
move object up 2,0.1
endif

If object collision(1,2) and Keystate(34)=1
Ghost object on 1
ghost_power=ghost_power-2
healthp=healthp-1
else
ghost object off 1
endif
If object collision(2,1) and keystate(25)=1
Ghost object on 2
ghost_powerp=ghost_powerp-2
health=health-1
else
ghost object off 2
endif

If Keystate(33)=1 then ghost_power=ghost_power+1
If Keystate(38)=1 then ghost_powerp=ghost_powerp+1

If ghost_power<0 and object collision(1,2) and keystate(34)=1 then health=health-1
If ghost_powerp<0 and object collision(2,1) and keystate(25)=1 then healthp=healthp-1

If ghost_power<0 then ghost_power=0
If ghost_powerp<0 then ghost_powerp=0

If ghost_power>500 then ghost_power=500
If ghost_powerp>500 then ghost_powerp=500

If health<0 then Print "Player 2 wins!"
If healthp<0 then Print "Player 1 wins!"

sync

Loop

+ Code Snippet

`Programmer: David C aKa: ViD1987
`Project: Ghost.. Game...

Make object cube 1,2 : Position object 1,-20,0,25
Make object cube 2,2 : Position object 2,20,0,25

health=1000
healthp=1000
ghost_power=100
ghost_powerp=100
game_speed#=0.01

SYNC ON
SYNC RATE 0

Do

Set cursor 0,0

Print "1P HP :";health : Print "                                                                2P HP :";healthp
Print "1P GP :";ghost_power : Print "                                                                2P GP :";ghost_powerp
If Keystate(30)=1 then move object left 1,0.1
If Keystate(32)=1 then move object right 1,0.1
If Keystate(17)=1 then move object up 1,0.1
If Keystate(31)=1 then move object down 1,0.1
if object screen x(1)<0
move object right 1,0.1
endif
if object screen x(1)>640
move object left 1,0.1
endif
if object screen y(1)<0
move object down 1,0.1
endif
if object screen y(1)>480
move object up 1,0.1
endif

If Leftkey()=1 then move object left 2,0.1
If Rightkey()=1 then move object right 2,0.1
If Upkey()=1 then move object up 2,0.1
If Downkey()=1 then move object down 2,0.1
if object screen x(2)<0
move object right 2,0.1
endif
if object screen x(2)>640
move object left 2,0.1
endif
if object screen y(2)<0
move object down 2,0.1
endif
if object screen y(2)>480
move object up 2,0.1
endif

If object collision(1,2) and Keystate(34)=1
Ghost object on 1
ghost_power=ghost_power-2
healthp=healthp-1
else
ghost object off 1
endif
If object collision(2,1) and keystate(25)=1
Ghost object on 2
ghost_powerp=ghost_powerp-2
health=health-1
else
ghost object off 2
endif

If Keystate(33)=1 then ghost_power=ghost_power+1
If Keystate(38)=1 then ghost_powerp=ghost_powerp+1

If ghost_power<0 and object collision(1,2) and keystate(34)=1 then health=health-1
If ghost_powerp<0 and object collision(2,1) and keystate(25)=1 then healthp=healthp-1

If ghost_power<0 then ghost_power=0
If ghost_powerp<0 then ghost_powerp=0

If ghost_power>500 then ghost_power=500
If ghost_powerp>500 then ghost_powerp=500

If health<0 then Print "Player 2 wins!"
If healthp<0 then Print "Player 1 wins!"

sync

Loop

AI wouldn't be too hard. I might have a go at it for you later.

[url][email protected][/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

vid1987

21

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Oklahoma

Posted: 14th Mar 2005 06:55

Link

Are you gonna add AI? will you plz??

David

Back to top

Profile PM Email Website

TEH_CODERER

22

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 16th Mar 2005 23:04

Link

Sorry. I haven't checked here for a while.
If I remeber I'll have a go when I get home.

[url][email protected][/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

vid1987

21

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Oklahoma

Posted: 17th Mar 2005 01:26

Link

I also want to make it where you cant just hold the keys down to attack i want to make it where you have to press the key each time you want to attack how would i do that?
thx

David

Back to top

Profile PM Email Website

TEH_CODERER

22

Years of Service

User Offline

Joined: 12th Nov 2003

Location: Right behind you!

Posted: 18th Mar 2005 02:29

Link

`Programmer: David C aKa: ViD1987
`Project: Ghost.. Game...

Make object cube 1,2 : Position object 1,-20,0,25
Make object cube 2,2 : Position object 2,20,0,25

health=1000
healthp=1000
ghost_power=100
ghost_powerp=100
game_speed#=0.01

SYNC ON
SYNC RATE 0

Do

Set cursor 0,0

Print "1P HP :";health : Print "                                                                2P HP :";healthp
Print "1P GP :";ghost_power : Print "                                                                2P GP :";ghost_powerp
If Keystate(30)=1 then move object left 1,0.1
If Keystate(32)=1 then move object right 1,0.1
If Keystate(17)=1 then move object up 1,0.1
If Keystate(31)=1 then move object down 1,0.1
if object screen x(1)<0
move object right 1,0.1
endif
if object screen x(1)>640
move object left 1,0.1
endif
if object screen y(1)<0
move object down 1,0.1
endif
if object screen y(1)>480
move object up 1,0.1
endif

If Leftkey()=1 then move object left 2,0.1
If Rightkey()=1 then move object right 2,0.1
If Upkey()=1 then move object up 2,0.1
If Downkey()=1 then move object down 2,0.1
if object screen x(2)<0
move object right 2,0.1
endif
if object screen x(2)>640
move object left 2,0.1
endif
if object screen y(2)<0
move object down 2,0.1
endif
if object screen y(2)>480
move object up 2,0.1
endif

If object collision(1,2) and Keystate(34)=1
Ghost object on 1
ghost_power=ghost_power-2
healthp=healthp-1
else
ghost object off 1
endif
If object collision(2,1) and keystate(25)=1
Ghost object on 2
ghost_powerp=ghost_powerp-2
health=health-1
else
ghost object off 2
endif

If Keystate(33)=1 then ghost_power=ghost_power+1
If Keystate(38)=1 then ghost_powerp=ghost_powerp+1

If ghost_power<0 and object collision(1,2) and keystate(34)=1 and Attack1=0 then health=health-1 : Attack1=1
If ghost_powerp<0 and object collision(2,1) and keystate(25)=1 and Attack2=0 then healthp=healthp-1 : Attack2=0
if keystate(34)=0
Attack1=0
endif
if keystate(25)=0
Attack2=0
endif

If ghost_power<0 then ghost_power=0
If ghost_powerp<0 then ghost_powerp=0

If ghost_power>500 then ghost_power=500
If ghost_powerp>500 then ghost_powerp=500

If health<0 then Print "Player 2 wins!"
If healthp<0 then Print "Player 1 wins!"

sync

Loop

+ Code Snippet

`Programmer: David C aKa: ViD1987
`Project: Ghost.. Game...

Make object cube 1,2 : Position object 1,-20,0,25
Make object cube 2,2 : Position object 2,20,0,25

health=1000
healthp=1000
ghost_power=100
ghost_powerp=100
game_speed#=0.01

SYNC ON
SYNC RATE 0

Do

Set cursor 0,0

Print "1P HP :";health : Print "                                                                2P HP :";healthp
Print "1P GP :";ghost_power : Print "                                                                2P GP :";ghost_powerp
If Keystate(30)=1 then move object left 1,0.1
If Keystate(32)=1 then move object right 1,0.1
If Keystate(17)=1 then move object up 1,0.1
If Keystate(31)=1 then move object down 1,0.1
if object screen x(1)<0
move object right 1,0.1
endif
if object screen x(1)>640
move object left 1,0.1
endif
if object screen y(1)<0
move object down 1,0.1
endif
if object screen y(1)>480
move object up 1,0.1
endif

If Leftkey()=1 then move object left 2,0.1
If Rightkey()=1 then move object right 2,0.1
If Upkey()=1 then move object up 2,0.1
If Downkey()=1 then move object down 2,0.1
if object screen x(2)<0
move object right 2,0.1
endif
if object screen x(2)>640
move object left 2,0.1
endif
if object screen y(2)<0
move object down 2,0.1
endif
if object screen y(2)>480
move object up 2,0.1
endif

If object collision(1,2) and Keystate(34)=1
Ghost object on 1
ghost_power=ghost_power-2
healthp=healthp-1
else
ghost object off 1
endif
If object collision(2,1) and keystate(25)=1
Ghost object on 2
ghost_powerp=ghost_powerp-2
health=health-1
else
ghost object off 2
endif

If Keystate(33)=1 then ghost_power=ghost_power+1
If Keystate(38)=1 then ghost_powerp=ghost_powerp+1

If ghost_power<0 and object collision(1,2) and keystate(34)=1 and Attack1=0 then health=health-1 : Attack1=1
If ghost_powerp<0 and object collision(2,1) and keystate(25)=1 and Attack2=0 then healthp=healthp-1 : Attack2=0
if keystate(34)=0
Attack1=0
endif
if keystate(25)=0
Attack2=0
endif

If ghost_power<0 then ghost_power=0
If ghost_powerp<0 then ghost_powerp=0

If ghost_power>500 then ghost_power=500
If ghost_powerp>500 then ghost_powerp=500

If health<0 then Print "Player 2 wins!"
If healthp<0 then Print "Player 1 wins!"

sync

Loop

[url][email protected][/url]
http://www.elbsoftware.tk

Back to top

Profile PM Email

vid1987

21

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Oklahoma

Posted: 20th Mar 2005 01:34

Link

I dont see any difference other than when a players wins the screen doesnt clear what did you add??
plz respond

David

Back to top

Profile PM Email Website

vid1987

21

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Oklahoma

Posted: 23rd Mar 2005 07:59

Link

Anybody wanna help add AI to make the com move around on its own anybody plz

David

Back to top

Profile PM Email Website

vid1987

21

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Oklahoma

Posted: 28th Mar 2005 01:40

Link

Can someone plz throw me a bone here?

David

Back to top

Profile PM Email Website

Digital Dragon

21

Years of Service

User Offline

Joined: 17th Dec 2004

Location: ...

Posted: 29th Mar 2005 18:19

Link

*throws a bone * lol, sorry i just thought of while reading the post,

But ask me on msn for stuff an i might be able to help

Back to top

Profile PM Email

vid1987

21

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Oklahoma

Posted: 2nd Apr 2005 11:07

Link

Upgrade!!

Make object cube 1,2 : Position object 1,-3,-25,0 : Color object 1,rgb(255,255,0)
Make object cube 2,2 : Position object 2,3,-25,0 : Color object 2,rgb(0,255,0)
Make object cube 3,50 : Position object 3,0,-50,0
health=1000
healthp=1000
ghost_power=100
ghost_powerp=100
game_speed#=0.01
p=0
p2=0
SYNC ON
SYNC RATE 0
Do
Set cursor 0,0

Print "1P HP :";health : Print "                                                                2P HP :";healthp
Print "1P GP :";ghost_power : Print "                                                                2P GP :";ghost_powerp
If Keystate(30)=1 then move object left 1,0.5
If Keystate(32)=1 then move object right 1,0.5
If Keystate(17)=1 then move object 1,object angle z(1)+0.5
If Keystate(31)=1 then move object 1,object angle z(1)-0.5
If leftkey()=1 then move object left 2,0.5
If rightkey()=1 then move object right 2,0.5
If upkey()=1 then move object 2,object angle z(2)+0.5
If downkey()=1 then move object 2,object angle z(2)-0.5
If object collision(1,3) then p=1 else p=0
If object collision(2,3) then p2=1 else p2=0
If p=0 then move object down 1,1
If p2=0 then move object down 2,1
If object collision(1,2) and Keystate(34)=1
Ghost object on 1
ghost_power=ghost_power-2
healthp=healthp-1
else
ghost object off 1
endif
If object collision(2,1) and keystate(25)=1
Ghost object on 2
ghost_powerp=ghost_powerp-2
health=health-1
else
ghost object off 2
endif

If Keystate(33)=1 then ghost_power=ghost_power+1
If Keystate(38)=1 then ghost_powerp=ghost_powerp+1

If ghost_power<0 and object collision(1,2) and keystate(34)=1 and Attack1=0 then health=health-1 : Attack1=1
If ghost_powerp<0 and object collision(2,1) and keystate(25)=1 and Attack2=0 then healthp=healthp-1 : Attack2=0
if keystate(34)=0
Attack1=0
endif
if keystate(25)=0
Attack2=0
endif

If ghost_power<0 then ghost_power=0
If ghost_powerp<0 then ghost_powerp=0

If ghost_power>500 then ghost_power=500
If ghost_powerp>500 then ghost_powerp=500

If health<0 then Print "Player 2 wins!"
If healthp<0 then Print "Player 1 wins!"

If p=0 then Wait 1000 : Cls : Print "Player 2 wins!"
If p2=0 then Wait 1000 : Cls : Print "Player 1 wins!"
Sync
Loop

+ Code Snippet

Make object cube 1,2 : Position object 1,-3,-25,0 : Color object 1,rgb(255,255,0)
Make object cube 2,2 : Position object 2,3,-25,0 : Color object 2,rgb(0,255,0)
Make object cube 3,50 : Position object 3,0,-50,0
health=1000
healthp=1000
ghost_power=100
ghost_powerp=100
game_speed#=0.01
p=0
p2=0
SYNC ON
SYNC RATE 0
Do
Set cursor 0,0

Print "1P HP :";health : Print "                                                                2P HP :";healthp
Print "1P GP :";ghost_power : Print "                                                                2P GP :";ghost_powerp
If Keystate(30)=1 then move object left 1,0.5
If Keystate(32)=1 then move object right 1,0.5
If Keystate(17)=1 then move object 1,object angle z(1)+0.5
If Keystate(31)=1 then move object 1,object angle z(1)-0.5
If leftkey()=1 then move object left 2,0.5
If rightkey()=1 then move object right 2,0.5
If upkey()=1 then move object 2,object angle z(2)+0.5
If downkey()=1 then move object 2,object angle z(2)-0.5
If object collision(1,3) then p=1 else p=0
If object collision(2,3) then p2=1 else p2=0
If p=0 then move object down 1,1
If p2=0 then move object down 2,1
If object collision(1,2) and Keystate(34)=1
Ghost object on 1
ghost_power=ghost_power-2
healthp=healthp-1
else
ghost object off 1
endif
If object collision(2,1) and keystate(25)=1
Ghost object on 2
ghost_powerp=ghost_powerp-2
health=health-1
else
ghost object off 2
endif

If Keystate(33)=1 then ghost_power=ghost_power+1
If Keystate(38)=1 then ghost_powerp=ghost_powerp+1

If ghost_power<0 and object collision(1,2) and keystate(34)=1 and Attack1=0 then health=health-1 : Attack1=1
If ghost_powerp<0 and object collision(2,1) and keystate(25)=1 and Attack2=0 then healthp=healthp-1 : Attack2=0
if keystate(34)=0
Attack1=0
endif
if keystate(25)=0
Attack2=0
endif

If ghost_power<0 then ghost_power=0
If ghost_powerp<0 then ghost_powerp=0

If ghost_power>500 then ghost_power=500
If ghost_powerp>500 then ghost_powerp=500

If health<0 then Print "Player 2 wins!"
If healthp<0 then Print "Player 1 wins!"

If p=0 then Wait 1000 : Cls : Print "Player 2 wins!"
If p2=0 then Wait 1000 : Cls : Print "Player 1 wins!"
Sync
Loop

Now its funner try it out
peace

David

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Code Snippets / 2 Player ghost game