My first litlle game..... - GameCreators Forum

Author

Message

Dark Dragon

19

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 1st Jul 2007 01:23 Edited at: 2nd Jul 2007 05:38

Link

this is my first game. I've had no luck finding a modeler,(thanks to all those who helped though),so ive used other's models. please
give me feed back but keep in mind it's only a proto type.

ive posted my code at the bottom
My Final is at the very bottom,too

Back to top

Profile PM

Dark Dragon

19

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 1st Jul 2007 01:47 Edited at: 2nd Jul 2007 20:28

Link

sorry, I forgot the media

Back to top

Profile PM

LBFN

19

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 1st Jul 2007 02:12 Edited at: 1st Jul 2007 03:11

Link

@ DD
Can you edit one of your posts using the code button to place your code so we can see it?

LB

[EDIT] To post your code in a snippet, do the following:
- load your code into your DB editor. Select it all and then copy it.
- click the edit button on the left side of the post you want to edit.
- Set your cursor at the end of all the text.
- Click the code button. You will see a '[CODE]' box.
- right click just after the [CODE] box and paste your code
- make sure your cursor is at the end of the text.
- click the code button again. It will put a '[\CODE]' box at the end

That's it - your code will be neatly tucked away in a snippet box.

LB

Back to top

Profile PM Email

Dark Dragon

19

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 1st Jul 2007 02:15

Link

sure ;could some one show to do that

Back to top

Profile PM

Sinani201

19

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 1st Jul 2007 02:57

Link

Quote: "I've had no luck finding a modeler"

Use Anim8or, it's easy to use and free.

Did someone say 3D scanning on my desk, or was that just an AdBot?
What happens when when you mix coke, pop rocks, vinegar, and baking soda?

Back to top

Profile PM

TDK

Retired Moderator

23

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 1st Jul 2007 03:07

Link

I'm not very good at modelling - just about average at best with inanimate objects but wouldn't know where to start with anything that moves. But I've always been a big fan of Truespace.

I know version 1 is free and I think TS2 is also free - I'm pretty sure that both were given away on magazine cover disks.

But, I don't think either of them export objects as .X files and TS1 probably only saves .COB files. But if you can get a COB to 3DS or .X converter, TrueSpace 1 or 2 might be worth taking a look at...

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Dark Dragon

19

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 1st Jul 2007 03:41 Edited at: 1st Jul 2007 03:47

Link

here my code

REM Stanas RPG
load bitmap "cool.bmp",0
set current bitmap 0
SET CURSOR 00,233
Text 0,403,"press enter to continue"
Set text transparent
print "Maxi(Glacier's real name) is an energetic kid who always wanted"
set cursor 0,250
print "to travel the world and test his swordsmenship against the best."
set cursor 0,270 
print "Your job is to help guide him in his quest to get to all 80 of his destinations."
load music "cselect2.wav",1: loop music 1
suspend for key
cls
menu:
Do
if Button(275,205,"New Game")=1 then Goto New_Game
if Button(275,235,"Learn How To Play")=1 then Goto htp
if Button(275,265,"Design a Character")=1 then goto load_game
if button(300,295,"Exit")=1 then end
loop
htp:
cls
Print "(THIS IS HOW YOU PLAY)"
wait 3000 
do
if Button(275,265,"Main Menu")=1 then goto menu
loop
New_Game:
cls
Text 240,220,"..........loading................";
wait 2000
print "(Story Goes Here)"
Text 0,403,"press enter to continue"

wait key
cselect:
cls
print "Please Select a Character."
load sound "cselect.wav",1
set sound volume 1,100
play sound 1

loadflames:
if object exist(1)=1 
delete object 1
endif
load object "drayven.x",1
append object "walk.x",1,1

hide limb 1,12
hide limb 1,13
hide limb 1,19
hide limb 1,20
hide limb 1,21
hide limb 1,24
hide limb 1,14
hide limb 1,22
hide limb 1,23
hide limb 1,18
loop object 1 
scale object 1,5000,5000,5000
backdrop on
flames = 0 
do
if Button(375,205,"Flames")=1 then flames = 1 : delete object 1 : backdrop off : goto select
if Button(475,55,">>>")=1 then goto loadglacier  
  
loop
loadglacier:
if object exist(1)=1 
delete object 1
endif
load object "tommy.x",1
append object "walk.x",1,1

hide limb 1,12
hide limb 1,13
hide limb 1,19
hide limb 1,20
hide limb 1,21
hide limb 1,24
hide limb 1,14
hide limb 1,22
hide limb 1,23
hide limb 1,18
loop object 1 
scale object 1,5000,5000,5000
backdrop on
glacier = 0 
do
if Button(475,55,">>>")=1 then goto loadflames  
if Button(375,205,"Glacier")=1 then glacier = 1 : delete object 1 : backdrop off:goto select  
loop

cls
select:
cls
wait 200
do
if button(275,205,"Travel To.....")=1 then goto travel
if button(275,235,"Battle in Reniveil")=1 then goto go_to_town
if button(275,265,"Quit Game")=1 then end
loop
wait key
travel:
cls
wait 200
do 
if button(275,205,"Back")=1 then goto select
if button(275,235,"Reniveil")=1 then goto go_to_town
if button(275,265,"Frelia")=1 then goto go_to_ftown
if button(275,295,"Ena")=1 then goto etown
if button(275,325,"Jehenna")=1 then goto jtown

loop
town:

jtown:
jtown = 1
wait 200
Print "NPC: Hello. Welcome to Jehenna. Please, go exploring for free while you stay."

wait 2000
cls
do
if button(275,145,"Back")=1 then goto select
if button(275,175,"Explore")=1 then goto select
if button(275,205,"Head to shop")=1 then goto FShop
if button(275,235,"Arena")=1 then goto Battlefield
if button(275,265,"Collseum")=1 then goto colloseum
if button(275,295,"Items")=1 then goto items
if button(275,325,"Quit Game")=1 then end
loop

items:
cls
wait 200
if flames = 1
Print "Flames Hickary"
endif
if glacier = 1
Print "Glacier Hyhichi"
endif

do
if button(275,145,"Skills")=1 then goto skills
if button(275,175,"Weapons")=1 then goto select
if button(275,205,"Stats")=1 then goto select
if button(275,235,"Back")=1 and rtown = 1 then goto go_to_town 
if button(275,235,"Back")=1 and ttown = 1 then goto go_to_ftown 
if button(275,235,"Back")=1 and jtown = 1 then goto jtown 
if button(275,235,"Back")=1 and etown = 1 then goto etown 
loop

skills:
cls
repeat
if speed = 1
if Button(275,205,"Speed") then goto items
endif
if attack = 1
if Button(275,225,"Attack+2")
endif
endif
if speed = 0 and attack = 0
if Button(275,205,"None") then goto items
endif
until mouseclick = 1
return

speed = 0
attack = 0

etown:
wait 200
Print "NPC: Hello. Welcome to Ena. Please, visit the skill shop."
etown = 1
wait 2000
cls
do
if button(275,145,"Back")=1 then goto select
if button(275,175,"Head to skill shop")=1 then goto eSShop
if button(275,205,"Head to shop")=1 then goto FShop : cfe = 1
if button(275,235,"Arena")=1 then goto Battlefield
if button(275,295,"Items")=1 then goto items
if button(275,265,"Collseum")=1 then goto colloseum
if button(275,295,"Quit Game")=1 then end
loop

speed = 0
attack = 0

eSShop:
cls
Print "NPC:This is the skill shop. How may I help you?(100g)"
wait 2000
do
if button(275,205,"Speed - 50g")=1 then speed = 1 : goto etown 
if button(275,265,"Attack + 2 - 50g")=1 then attack = 1 : goto etown 
if button(275,235,"Sword Mastery lvl.2  - 50g")=1 then goto etown
if button(275,295,"Fire Mastery Lvl.1 - 50g")=1 then goto etown : fire = 1
loop

load_game:
cls
text 240,220,"................loading.............."
wait 3000
goto go_to_town
EXP:
if glacier = 1
Print "Glacier earned 5000 exp.points!"
wait 5000
cls
Print "Glacier reached lvl.2!"
endif

if flames = 1
Print "Flames earned 5000 exp.points!"
wait 5000
cls
Print "Flames reached lvl.2!"
endif

wait 3000
go_to_town:
cls
text 275,195,"NPC:Welcome to the town of reniveil."
wait 5000
cls
do
if button(275,205,"head to shop")=1 then goto Shop
if button(275,295,"Items")=1 then goto items
if button(275,235,"Arena")=1 then goto Battlefield
if button(275,265,"Collseum")=1 then goto colloseum
if button(275,325,"quit game")=1 then end
loop
cls
wait key
go_to_ftown:
cls
Print "Glacier traveled to Freila, the town of delight."
wait 2000
cls 
text 2,195,"NPC:Welcome to the town of Freila.Plese enjoy your stay!"
wait 5000
cls
do
if button(275,205,"head to shop")=1 then goto FShop
if button(275,295,"Items")=1 then goto items
if button(275,235,"Arena")=1 then goto Battlefield
if button(275,265,"Collseum")=1 then goto colloseum
if button(275,325,"quit game")=1 then end
loop
cls
wait key

Shop:
cls
Print "NPC:This is the shop. How may I help you?(100g)"
wait 2000
do
if button(275,205,"hero sword - 50g")=1 then goto go_to_town
loop

FShop:
cls
Print "NPC:This is the shop. As you may notice,we have a wide selection. How may I help you?(100g)"
wait 2000
staff = 0
do
if button(275,205,"Hero Sword - 50g")=1  then goto go_to_ftown
if button(275,235,"Wood Staff - 100g")=1 then staff = 1: goto go_to_ftown
if button(275,265,"Water Staff - 100g")=1 then goto go_to_ftown
if button(275,295,"Metal Pole - 50g")=1 then goto go_to_ftown
loop

Battlefield:
cls
print "Flames :This is the battlefield.Here you may fight Wild monsters."
wait key
stop music 1
load music "Drowning Pool - Bodies.mp3",2
play music 2
loop music 2

ecolloseum:
cls
Print "The arena is where you can battle monsters. Each of your opponets have 15 HP."
Print "Use z and x to attack!"
text 300,140,"Opponent: Goblin "

wait 5000
counter = 15
ycounter = 15
make object cylinder 3,60
position object 3,0,-8,50
scale object 3,100,10,100
color object 3,rgb(200,120,200)

backdrop on
load image "yorikiri.bmp",1
texture backdrop 1

load sound "pain.wav",1
position camera 0,-0,0
set camera fov 0.15

load object "tommy.x",1
append object "idle.x",1,1 
append object "walk.x",1,25
append object "punch.x",1,50
append object "fall.x",1,80
append object "w_hit2.x",1,150
append object "hit.x",1,200                
scale object 1,100,130,200
set object speed 1,10
if speed = 1
set object speed 1,30
endif
load object "idle2.x",2
append object "charge.x",2,25
append object "die2.x",2,80

scale object 2,6,6,6
set object speed 2,10

position object 1,-6,0,12
position object 2,6,0,12
set object collision on 1
set object collision on 2
yrotate object 1,270
yrotate object 2,90
loop object 1,5,20
loop object 2,30,40

hide limb 1,12
hide limb 1,13
hide limb 1,19
hide limb 1,20
hide limb 1,21
hide limb 1,24
hide limb 1,14
hide limb 1,22
hide limb 1,23
if staff = 1
hide limb 1,18
show limb 1,19
endif
do

move object 2,-0.09

if counter = 15 then text 240,240,"ENEMY HEALTH = 15"
if counter = 14 then text 240,240,"ENEMY HEALTH = 14"
if counter = 13 then text 240,240,"ENEMY HEALTH = 13"
if counter = 12 then text 240,240,"ENEMY HEALTH = 12"
if counter = 11 then text 240,240,"ENEMY HEALTH = 11"
if counter = 10 then text 240,240,"ENEMY HEALTH = 10"
if counter = 9 then text 240,240,"ENEMY HEALTH = 9"
if counter = 8 then text 240,240,"ENEMY HEALTH = 8"
if counter = 7 then text 240,240,"ENEMY HEALTH = 7"
if counter = 6 then text 240,240,"ENEMY HEALTH = 6"
if counter = 5 then text 240,240,"ENEMY HEALTH = 5"
if counter = 4 then text 240,240,"ENEMY HEALTH = 4"
if counter = 3 then text 240,240,"ENEMY HEALTH = 3"
if counter = 2 then text 240,240,"ENEMY HEALTH = 2"
if counter = 1 then text 240,240,"ENEMY HEALTH = 1"
if counter = 0 then text 240,240,"FINISH HIM!!"

if ycounter = 15 then text 240,260," HEALTH = 15"
if ycounter = 14 then text 240,260," HEALTH = 14"
if ycounter = 13 then text 240,260," HEALTH = 13"
if ycounter = 12 then text 240,260," HEALTH = 12"
if ycounter = 11 then text 240,260," HEALTH = 11"
if ycounter = 10 then text 240,260," HEALTH = 10"
if ycounter = 9 then text 240,260," HEALTH = 9"
if ycounter = 8 then text 240,260," HEALTH = 8"
if ycounter = 7 then text 240,260," HEALTH = 7"
if ycounter = 6 then text 240,260," HEALTH = 6"
if ycounter = 5 then text 240,260," HEALTH = 5"
if ycounter = 4 then text 240,260," HEALTH = 4"
if ycounter = 3 then text 240,260," HEALTH = 3"
if ycounter = 2 then text 240,260," HEALTH = 2"
if ycounter = 1 then text 240,260," HEALTH = 1"
if ycounter = 0 then text 240,260,"FINISH HIM!!"

if rightkey()>0 then move object 1,-.4 : loop object 1,25,45
if leftkey()>0 then move object 1,.4
delete object collision box 1
delete object collision box 2

if object collision(1,2)=1 and object playing(1)=1 then move object 2,1 : counter = counter - 1: play sound 1 
if (inkey$())="z"=1 then play object 1,50,69
if (inkey$())="x"=1 then play object 1,150,180

if object collision(1,2)=1 and object playing(1)=0 then move object 1,1 : play object 1,80,100 : ycounter = ycounter - 1
if object collision(1,2)=1 and object playing(2)=1 then move object 1,1 : play object 1,80,100 : ycounter = ycounter - 1
sleep 50
sync
if counter = 0 
play object 2,80
endif
if object playing(2)=0 then cls:cls:cls:delete object 1: delete object 2 :delete object 3:backdrop off: goto EXP 
loop

sync

colloseum:
cls
Print "The colloseum is where you can battle other humans.Each of your opponets have 15 HP."
Print "Use z and x to attack!"
text 300,140,"Opponent: Carlos - lvl.2 Brawler "
text 300,165," weapon : metal pole"
wait 5000
counter = 15
ycounter = 15
make object cylinder 3,60
position object 3,0,-8,50
scale object 3,100,10,100
color object 3,rgb(200,120,200)

backdrop on
load image "yorikiri.bmp",1
texture backdrop 1

load music "thin life.mp3",1
loop music 1
load sound "pain.wav",1
position camera 0,-0,0
set camera fov 0.15
if glacier = 1
load object "tommy.x",1
append object "idle.x",1,1 
append object "walk.x",1,25
append object "punch.x",1,50
append object "fall.x",1,80
append object "w_hit2.x",1,150
append object "hit.x",1,200                
scale object 1,100,130,200
set object speed 1,10
if speed = 1
set object speed 1,30
endif
endif
if flames = 1
load object "drayven.x",1
append object "idle.x",1,1 
append object "walk.x",1,25
append object "punch.x",1,50
append object "fall.x",1,80
append object "w_hit2.x",1,150
append object "hit.x",1,200                
scale object 1,100,130,200
set object speed 1,10
if speed = 1
set object speed 1,30
endif
endif
load object "carlos.x",2
append object "idle.x",2,1 
append object "walk.x",2,25
append object "punch.x",2,50
append object "fall.x",2,80
append object "w_hit2.x",2,150
append object "hit.x",2,200                
scale object 2,100,130,200
set object speed 2,10

position object 1,-6,0,12
position object 2,6,0,12
set object collision on 1
set object collision on 2
yrotate object 1,270
yrotate object 2,90
loop object 1,5,20
loop object 2,25,40
 
hide limb 2,12
hide limb 2,13
hide limb 2,19
hide limb 2,20
hide limb 2,21
hide limb 2,24
hide limb 2,14
hide limb 2,22

hide limb 2,18
 
hide limb 1,12
hide limb 1,13
hide limb 1,19
hide limb 1,20
hide limb 1,21
hide limb 1,24
hide limb 1,14
hide limb 1,22
hide limb 1,23
if staff = 1
hide limb 1,18
show limb 1,19
endif

do

move object 2,-0.09

if counter = 15 then text 240,240,"ENEMY HEALTH = 15"
if counter = 14 then text 240,240,"ENEMY HEALTH = 14"
if counter = 13 then text 240,240,"ENEMY HEALTH = 13"
if counter = 12 then text 240,240,"ENEMY HEALTH = 12"
if counter = 11 then text 240,240,"ENEMY HEALTH = 11"
if counter = 10 then text 240,240,"ENEMY HEALTH = 10"
if counter = 9 then text 240,240,"ENEMY HEALTH = 9"
if counter = 8 then text 240,240,"ENEMY HEALTH = 8"
if counter = 7 then text 240,240,"ENEMY HEALTH = 7"
if counter = 6 then text 240,240,"ENEMY HEALTH = 6"
if counter = 5 then text 240,240,"ENEMY HEALTH = 5"
if counter = 4 then text 240,240,"ENEMY HEALTH = 4"
if counter = 3 then text 240,240,"ENEMY HEALTH = 3"
if counter = 2 then text 240,240,"ENEMY HEALTH = 2"
if counter = 1 then text 240,240,"ENEMY HEALTH = 1"
if counter = 0 then text 240,240,"FINISH HIM!!"

if ycounter = 15 then text 240,260," HEALTH = 15"
if ycounter = 14 then text 240,260," HEALTH = 14"
if ycounter = 13 then text 240,260," HEALTH = 13"
if ycounter = 12 then text 240,260," HEALTH = 12"
if ycounter = 11 then text 240,260," HEALTH = 11"
if ycounter = 10 then text 240,260," HEALTH = 10"
if ycounter = 9 then text 240,260," HEALTH = 9"
if ycounter = 8 then text 240,260," HEALTH = 8"
if ycounter = 7 then text 240,260," HEALTH = 7"
if ycounter = 6 then text 240,260," HEALTH = 6"
if ycounter = 5 then text 240,260," HEALTH = 5"
if ycounter = 4 then text 240,260," HEALTH = 4"
if ycounter = 3 then text 240,260," HEALTH = 3"
if ycounter = 2 then text 240,260," HEALTH = 2"
if ycounter = 1 then text 240,260," HEALTH = 1"
if ycounter = 0 then text 240,260,"FINISH HIM!!"

if rightkey()>0 then move object 1,-.4 : loop object 1,25,45
if leftkey()>0 then move object 1,.4
if speed = 1
if rightkey()>0 then move object 1,-.6 : loop object 1,25,45
if leftkey()>0 then move object 1,.6
endif
delete object collision box 1
delete object collision box 2

if object collision(1,2)=1 and object playing(1)=1 then move object 2,1 : counter = counter - 1:play sound 1: if attack = 1 then counter = counter - 2 : play sound 1 
if (inkey$())="z"=1 then play object 1,50,69
if (inkey$())="x"=1 then play object 1,150,180
if object collision(1,2)=1 and object playing(1)=0 then move object 1,1 : play object 1,80,100 : ycounter = ycounter - 1

sleep 50
sync
if counter = 0 
play object 2,80,100
endif
if counter = -0 
play object 2,80,100
endif

if object playing(2)=0 then cls:cls:cls:delete object 1: delete object 2 :delete object 3:backdrop off: goto EXP
loop

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(0,0,255),0 else ink rgb(255,0,0),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

+ Code Snippet

REM Stanas RPG
load bitmap "cool.bmp",0
set current bitmap 0
SET CURSOR 00,233
Text 0,403,"press enter to continue"
Set text transparent
print "Maxi(Glacier's real name) is an energetic kid who always wanted"
set cursor 0,250
print "to travel the world and test his swordsmenship against the best."
set cursor 0,270 
print "Your job is to help guide him in his quest to get to all 80 of his destinations."
load music "cselect2.wav",1: loop music 1
suspend for key
cls
menu:
Do
if Button(275,205,"New Game")=1 then Goto New_Game
if Button(275,235,"Learn How To Play")=1 then Goto htp
if Button(275,265,"Design a Character")=1 then goto load_game
if button(300,295,"Exit")=1 then end
loop
htp:
cls
Print "(THIS IS HOW YOU PLAY)"
wait 3000 
do
if Button(275,265,"Main Menu")=1 then goto menu
loop
New_Game:
cls
Text 240,220,"..........loading................";
wait 2000
print "(Story Goes Here)"
Text 0,403,"press enter to continue"

wait key
cselect:
cls
print "Please Select a Character."
load sound "cselect.wav",1
set sound volume 1,100
play sound 1

loadflames:
if object exist(1)=1 
delete object 1
endif
load object "drayven.x",1
append object "walk.x",1,1

hide limb 1,12
hide limb 1,13
hide limb 1,19
hide limb 1,20
hide limb 1,21
hide limb 1,24
hide limb 1,14
hide limb 1,22
hide limb 1,23
hide limb 1,18
loop object 1 
scale object 1,5000,5000,5000
backdrop on
flames = 0 
do
if Button(375,205,"Flames")=1 then flames = 1 : delete object 1 : backdrop off : goto select
if Button(475,55,">>>")=1 then goto loadglacier  
  
loop
loadglacier:
if object exist(1)=1 
delete object 1
endif
load object "tommy.x",1
append object "walk.x",1,1

hide limb 1,12
hide limb 1,13
hide limb 1,19
hide limb 1,20
hide limb 1,21
hide limb 1,24
hide limb 1,14
hide limb 1,22
hide limb 1,23
hide limb 1,18
loop object 1 
scale object 1,5000,5000,5000
backdrop on
glacier = 0 
do
if Button(475,55,">>>")=1 then goto loadflames  
if Button(375,205,"Glacier")=1 then glacier = 1 : delete object 1 : backdrop off:goto select  
loop

cls
select:
cls
wait 200
do
if button(275,205,"Travel To.....")=1 then goto travel
if button(275,235,"Battle in Reniveil")=1 then goto go_to_town
if button(275,265,"Quit Game")=1 then end
loop
wait key
travel:
cls
wait 200
do 
if button(275,205,"Back")=1 then goto select
if button(275,235,"Reniveil")=1 then goto go_to_town
if button(275,265,"Frelia")=1 then goto go_to_ftown
if button(275,295,"Ena")=1 then goto etown
if button(275,325,"Jehenna")=1 then goto jtown

loop
town:

jtown:
jtown = 1
wait 200
Print "NPC: Hello. Welcome to Jehenna. Please, go exploring for free while you stay."

wait 2000
cls
do
if button(275,145,"Back")=1 then goto select
if button(275,175,"Explore")=1 then goto select
if button(275,205,"Head to shop")=1 then goto FShop
if button(275,235,"Arena")=1 then goto Battlefield
if button(275,265,"Collseum")=1 then goto colloseum
if button(275,295,"Items")=1 then goto items
if button(275,325,"Quit Game")=1 then end
loop

items:
cls
wait 200
if flames = 1
Print "Flames Hickary"
endif
if glacier = 1
Print "Glacier Hyhichi"
endif

do
if button(275,145,"Skills")=1 then goto skills
if button(275,175,"Weapons")=1 then goto select
if button(275,205,"Stats")=1 then goto select
if button(275,235,"Back")=1 and rtown = 1 then goto go_to_town 
if button(275,235,"Back")=1 and ttown = 1 then goto go_to_ftown 
if button(275,235,"Back")=1 and jtown = 1 then goto jtown 
if button(275,235,"Back")=1 and etown = 1 then goto etown 
loop

skills:
cls
repeat
if speed = 1
if Button(275,205,"Speed") then goto items
endif
if attack = 1
if Button(275,225,"Attack+2")
endif
endif
if speed = 0 and attack = 0
if Button(275,205,"None") then goto items
endif
until mouseclick = 1
return




speed = 0
attack = 0



etown:
wait 200
Print "NPC: Hello. Welcome to Ena. Please, visit the skill shop."
etown = 1
wait 2000
cls
do
if button(275,145,"Back")=1 then goto select
if button(275,175,"Head to skill shop")=1 then goto eSShop
if button(275,205,"Head to shop")=1 then goto FShop : cfe = 1
if button(275,235,"Arena")=1 then goto Battlefield
if button(275,295,"Items")=1 then goto items
if button(275,265,"Collseum")=1 then goto colloseum
if button(275,295,"Quit Game")=1 then end
loop

speed = 0
attack = 0

eSShop:
cls
Print "NPC:This is the skill shop. How may I help you?(100g)"
wait 2000
do
if button(275,205,"Speed - 50g")=1 then speed = 1 : goto etown 
if button(275,265,"Attack + 2 - 50g")=1 then attack = 1 : goto etown 
if button(275,235,"Sword Mastery lvl.2  - 50g")=1 then goto etown
if button(275,295,"Fire Mastery Lvl.1 - 50g")=1 then goto etown : fire = 1
loop


load_game:
cls
text 240,220,"................loading.............."
wait 3000
goto go_to_town
EXP:
if glacier = 1
Print "Glacier earned 5000 exp.points!"
wait 5000
cls
Print "Glacier reached lvl.2!"
endif

if flames = 1
Print "Flames earned 5000 exp.points!"
wait 5000
cls
Print "Flames reached lvl.2!"
endif

wait 3000
go_to_town:
cls
text 275,195,"NPC:Welcome to the town of reniveil."
wait 5000
cls
do
if button(275,205,"head to shop")=1 then goto Shop
if button(275,295,"Items")=1 then goto items
if button(275,235,"Arena")=1 then goto Battlefield
if button(275,265,"Collseum")=1 then goto colloseum
if button(275,325,"quit game")=1 then end
loop
cls
wait key
go_to_ftown:
cls
Print "Glacier traveled to Freila, the town of delight."
wait 2000
cls 
text 2,195,"NPC:Welcome to the town of Freila.Plese enjoy your stay!"
wait 5000
cls
do
if button(275,205,"head to shop")=1 then goto FShop
if button(275,295,"Items")=1 then goto items
if button(275,235,"Arena")=1 then goto Battlefield
if button(275,265,"Collseum")=1 then goto colloseum
if button(275,325,"quit game")=1 then end
loop
cls
wait key

Shop:
cls
Print "NPC:This is the shop. How may I help you?(100g)"
wait 2000
do
if button(275,205,"hero sword - 50g")=1 then goto go_to_town
loop

FShop:
cls
Print "NPC:This is the shop. As you may notice,we have a wide selection. How may I help you?(100g)"
wait 2000
staff = 0
do
if button(275,205,"Hero Sword - 50g")=1  then goto go_to_ftown
if button(275,235,"Wood Staff - 100g")=1 then staff = 1: goto go_to_ftown
if button(275,265,"Water Staff - 100g")=1 then goto go_to_ftown
if button(275,295,"Metal Pole - 50g")=1 then goto go_to_ftown
loop

Battlefield:
cls
print "Flames :This is the battlefield.Here you may fight Wild monsters."
wait key
stop music 1
load music "Drowning Pool - Bodies.mp3",2
play music 2
loop music 2

ecolloseum:
cls
Print "The arena is where you can battle monsters. Each of your opponets have 15 HP."
Print "Use z and x to attack!"
text 300,140,"Opponent: Goblin "

wait 5000
counter = 15
ycounter = 15
make object cylinder 3,60
position object 3,0,-8,50
scale object 3,100,10,100
color object 3,rgb(200,120,200)


backdrop on
load image "yorikiri.bmp",1
texture backdrop 1

load sound "pain.wav",1
position camera 0,-0,0
set camera fov 0.15



load object "tommy.x",1
append object "idle.x",1,1 
append object "walk.x",1,25
append object "punch.x",1,50
append object "fall.x",1,80
append object "w_hit2.x",1,150
append object "hit.x",1,200                
scale object 1,100,130,200
set object speed 1,10
if speed = 1
set object speed 1,30
endif
load object "idle2.x",2
append object "charge.x",2,25
append object "die2.x",2,80

                
scale object 2,6,6,6
set object speed 2,10

position object 1,-6,0,12
position object 2,6,0,12
set object collision on 1
set object collision on 2
yrotate object 1,270
yrotate object 2,90
loop object 1,5,20
loop object 2,30,40
 

hide limb 1,12
hide limb 1,13
hide limb 1,19
hide limb 1,20
hide limb 1,21
hide limb 1,24
hide limb 1,14
hide limb 1,22
hide limb 1,23
if staff = 1
hide limb 1,18
show limb 1,19
endif
do

move object 2,-0.09

if counter = 15 then text 240,240,"ENEMY HEALTH = 15"
if counter = 14 then text 240,240,"ENEMY HEALTH = 14"
if counter = 13 then text 240,240,"ENEMY HEALTH = 13"
if counter = 12 then text 240,240,"ENEMY HEALTH = 12"
if counter = 11 then text 240,240,"ENEMY HEALTH = 11"
if counter = 10 then text 240,240,"ENEMY HEALTH = 10"
if counter = 9 then text 240,240,"ENEMY HEALTH = 9"
if counter = 8 then text 240,240,"ENEMY HEALTH = 8"
if counter = 7 then text 240,240,"ENEMY HEALTH = 7"
if counter = 6 then text 240,240,"ENEMY HEALTH = 6"
if counter = 5 then text 240,240,"ENEMY HEALTH = 5"
if counter = 4 then text 240,240,"ENEMY HEALTH = 4"
if counter = 3 then text 240,240,"ENEMY HEALTH = 3"
if counter = 2 then text 240,240,"ENEMY HEALTH = 2"
if counter = 1 then text 240,240,"ENEMY HEALTH = 1"
if counter = 0 then text 240,240,"FINISH HIM!!"


if ycounter = 15 then text 240,260," HEALTH = 15"
if ycounter = 14 then text 240,260," HEALTH = 14"
if ycounter = 13 then text 240,260," HEALTH = 13"
if ycounter = 12 then text 240,260," HEALTH = 12"
if ycounter = 11 then text 240,260," HEALTH = 11"
if ycounter = 10 then text 240,260," HEALTH = 10"
if ycounter = 9 then text 240,260," HEALTH = 9"
if ycounter = 8 then text 240,260," HEALTH = 8"
if ycounter = 7 then text 240,260," HEALTH = 7"
if ycounter = 6 then text 240,260," HEALTH = 6"
if ycounter = 5 then text 240,260," HEALTH = 5"
if ycounter = 4 then text 240,260," HEALTH = 4"
if ycounter = 3 then text 240,260," HEALTH = 3"
if ycounter = 2 then text 240,260," HEALTH = 2"
if ycounter = 1 then text 240,260," HEALTH = 1"
if ycounter = 0 then text 240,260,"FINISH HIM!!"
 


if rightkey()>0 then move object 1,-.4 : loop object 1,25,45
if leftkey()>0 then move object 1,.4
delete object collision box 1
delete object collision box 2

if object collision(1,2)=1 and object playing(1)=1 then move object 2,1 : counter = counter - 1: play sound 1 
if (inkey$())="z"=1 then play object 1,50,69
if (inkey$())="x"=1 then play object 1,150,180

if object collision(1,2)=1 and object playing(1)=0 then move object 1,1 : play object 1,80,100 : ycounter = ycounter - 1
if object collision(1,2)=1 and object playing(2)=1 then move object 1,1 : play object 1,80,100 : ycounter = ycounter - 1
sleep 50
sync
if counter = 0 
play object 2,80
endif
if object playing(2)=0 then cls:cls:cls:delete object 1: delete object 2 :delete object 3:backdrop off: goto EXP 
loop


sync

colloseum:
cls
Print "The colloseum is where you can battle other humans.Each of your opponets have 15 HP."
Print "Use z and x to attack!"
text 300,140,"Opponent: Carlos - lvl.2 Brawler "
text 300,165," weapon : metal pole"
wait 5000
counter = 15
ycounter = 15
make object cylinder 3,60
position object 3,0,-8,50
scale object 3,100,10,100
color object 3,rgb(200,120,200)


backdrop on
load image "yorikiri.bmp",1
texture backdrop 1


load music "thin life.mp3",1
loop music 1
load sound "pain.wav",1
position camera 0,-0,0
set camera fov 0.15
if glacier = 1
load object "tommy.x",1
append object "idle.x",1,1 
append object "walk.x",1,25
append object "punch.x",1,50
append object "fall.x",1,80
append object "w_hit2.x",1,150
append object "hit.x",1,200                
scale object 1,100,130,200
set object speed 1,10
if speed = 1
set object speed 1,30
endif
endif
if flames = 1
load object "drayven.x",1
append object "idle.x",1,1 
append object "walk.x",1,25
append object "punch.x",1,50
append object "fall.x",1,80
append object "w_hit2.x",1,150
append object "hit.x",1,200                
scale object 1,100,130,200
set object speed 1,10
if speed = 1
set object speed 1,30
endif
endif
load object "carlos.x",2
append object "idle.x",2,1 
append object "walk.x",2,25
append object "punch.x",2,50
append object "fall.x",2,80
append object "w_hit2.x",2,150
append object "hit.x",2,200                
scale object 2,100,130,200
set object speed 2,10

position object 1,-6,0,12
position object 2,6,0,12
set object collision on 1
set object collision on 2
yrotate object 1,270
yrotate object 2,90
loop object 1,5,20
loop object 2,25,40
 
hide limb 2,12
hide limb 2,13
hide limb 2,19
hide limb 2,20
hide limb 2,21
hide limb 2,24
hide limb 2,14
hide limb 2,22

hide limb 2,18
 
hide limb 1,12
hide limb 1,13
hide limb 1,19
hide limb 1,20
hide limb 1,21
hide limb 1,24
hide limb 1,14
hide limb 1,22
hide limb 1,23
if staff = 1
hide limb 1,18
show limb 1,19
endif

do

move object 2,-0.09

if counter = 15 then text 240,240,"ENEMY HEALTH = 15"
if counter = 14 then text 240,240,"ENEMY HEALTH = 14"
if counter = 13 then text 240,240,"ENEMY HEALTH = 13"
if counter = 12 then text 240,240,"ENEMY HEALTH = 12"
if counter = 11 then text 240,240,"ENEMY HEALTH = 11"
if counter = 10 then text 240,240,"ENEMY HEALTH = 10"
if counter = 9 then text 240,240,"ENEMY HEALTH = 9"
if counter = 8 then text 240,240,"ENEMY HEALTH = 8"
if counter = 7 then text 240,240,"ENEMY HEALTH = 7"
if counter = 6 then text 240,240,"ENEMY HEALTH = 6"
if counter = 5 then text 240,240,"ENEMY HEALTH = 5"
if counter = 4 then text 240,240,"ENEMY HEALTH = 4"
if counter = 3 then text 240,240,"ENEMY HEALTH = 3"
if counter = 2 then text 240,240,"ENEMY HEALTH = 2"
if counter = 1 then text 240,240,"ENEMY HEALTH = 1"
if counter = 0 then text 240,240,"FINISH HIM!!"


if ycounter = 15 then text 240,260," HEALTH = 15"
if ycounter = 14 then text 240,260," HEALTH = 14"
if ycounter = 13 then text 240,260," HEALTH = 13"
if ycounter = 12 then text 240,260," HEALTH = 12"
if ycounter = 11 then text 240,260," HEALTH = 11"
if ycounter = 10 then text 240,260," HEALTH = 10"
if ycounter = 9 then text 240,260," HEALTH = 9"
if ycounter = 8 then text 240,260," HEALTH = 8"
if ycounter = 7 then text 240,260," HEALTH = 7"
if ycounter = 6 then text 240,260," HEALTH = 6"
if ycounter = 5 then text 240,260," HEALTH = 5"
if ycounter = 4 then text 240,260," HEALTH = 4"
if ycounter = 3 then text 240,260," HEALTH = 3"
if ycounter = 2 then text 240,260," HEALTH = 2"
if ycounter = 1 then text 240,260," HEALTH = 1"
if ycounter = 0 then text 240,260,"FINISH HIM!!"
 


if rightkey()>0 then move object 1,-.4 : loop object 1,25,45
if leftkey()>0 then move object 1,.4
if speed = 1
if rightkey()>0 then move object 1,-.6 : loop object 1,25,45
if leftkey()>0 then move object 1,.6
endif
delete object collision box 1
delete object collision box 2

if object collision(1,2)=1 and object playing(1)=1 then move object 2,1 : counter = counter - 1:play sound 1: if attack = 1 then counter = counter - 2 : play sound 1 
if (inkey$())="z"=1 then play object 1,50,69
if (inkey$())="x"=1 then play object 1,150,180
if object collision(1,2)=1 and object playing(1)=0 then move object 1,1 : play object 1,80,100 : ycounter = ycounter - 1

sleep 50
sync
if counter = 0 
play object 2,80,100
endif
if counter = -0 
play object 2,80,100
endif

if object playing(2)=0 then cls:cls:cls:delete object 1: delete object 2 :delete object 3:backdrop off: goto EXP
loop

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(0,0,255),0 else ink rgb(255,0,0),0
if pressed=1
Pressed=Mouseclick()
else
pressed = 0
endif
text x1,y1,WORDS$
endfunction pressed

Back to top

Profile PM

Lucifer

20

Years of Service

User Offline

Joined: 26th Dec 2005

Location:

Posted: 1st Jul 2007 03:50

Link

i get a "runtime error 10"

Back to top

Profile PM

Dark Dragon

19

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 1st Jul 2007 03:52 Edited at: 1st Jul 2007 03:54

Link

hmm.............. i dont know........guess i need to go back to the drawing board, eh?...............no wait...Lucifer, did you download the first or second download?

Back to top

Profile PM

LBFN

19

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 1st Jul 2007 05:11

Link

@ DD
It doesn't matter which download you use. Both of them give the same error code. You have put .exe files there. In order to run this we need your media (.x and .jpg) files. I see you have a .bmp file. You should convert it to .jpg (use MS Paint if nothing else).

I can see you have been busy using goto. Good programming practice would be to write code that does not use the goto statement. Bugs are hard to track when you use goto's (kinda like . . now) because your program is running all over the place. I would suggest using the gosub - return commands instead of goto.

Post your media and I will try to help with it.

LB

Back to top

Profile PM Email

Dark Dragon

19

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 1st Jul 2007 06:05 Edited at: 1st Jul 2007 06:15

Link

LBFN-
i'm puting my .zip media in the secound download.
edit)
Never mind (Read botom post)

Back to top

Profile PM

Dark Dragon

19

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 1st Jul 2007 06:14

Link

gah! darned computer! sorry, mate! My commputer is failing to create .zip folders!

sorry, but your gonna have to wait til I can fix this!

Back to top

Profile PM

TDK

Retired Moderator

23

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 1st Jul 2007 09:22

Link

Try the Build Final button instead of the Make Exe button. The resulting exe should contain all of your media.

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Dark Dragon

19

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 2nd Jul 2007 03:35

Link

okay! I'll try that!

Back to top

Profile PM

Dark Dragon

19

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 2nd Jul 2007 05:31

Link

heres the final(I got my .zip to; take that microsoft!)

Back to top

Profile PM

LBFN

19

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 2nd Jul 2007 07:01

Link

Wow, 6.16 MB! (56K users do not want to attempt this one).

I downloaded it, but it would not open. It gave the error that it was not a valid PGP SDA file. The file name looked weird too.

Do you have win-zip? If not, you can get a trial version here for free: http://www.winzip.com/downwz.htm Do you really have 6 MB of stuff in this? We just need the media, you've already provided your code.

LB

Back to top

Profile PM Email

Dark Dragon

19

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 2nd Jul 2007 17:12 Edited at: 2nd Jul 2007 20:19

Link

the actual file(my final) is 79.5 MB (I'm kind of a file junkie).
i'll try later today to put it in just one .zip
I put it in so many sdas and .zips to make it 6 MB!

Back to top

Profile PM

Jmahmood

19

Years of Service

User Offline

Joined: 3rd Apr 2007

Location: not sure

Posted: 2nd Jul 2007 18:23

Link

I do modeling..Maybe i can help u!

Back to top

Profile PM Email

Jmahmood

19

Years of Service

User Offline

Joined: 3rd Apr 2007

Location: not sure

Posted: 2nd Jul 2007 18:33

Link

If u want to make some classic models then i prefer u should use 3DS Max,,You can easily convert your models to .3ds format from there.

Back to top

Profile PM Email

Dark Dragon

19

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 2nd Jul 2007 19:00

Link

hey, bat out of hell, do you know how to use gamspace lite?
if so can you teach me?

Back to top

Profile PM

Dark Dragon

19

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 2nd Jul 2007 19:02

Link

heres the long awaited media!

Back to top

Profile PM

LBFN

19

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 3rd Jul 2007 03:41 Edited at: 3rd Jul 2007 06:53

Link

Man, if this is little, than what is a big game? 500MB?

Realizing that it is a prototype and your first game, I have some suggestions. . .
-The program was a little hard for me to follow; it didn't have a smooth flow to it.
-I would put in the code to wait for the user to let go of the mouse after selecting an item from a menu.
-Re-write it to get rid of all the gotos.
-None of the 'monsters' got a hit on me at all, I would make their attacks more aggressive. The walking animation needs work.
-You could push the monster off the screen if you wanted to. For the mega size of it, it seems like there would be a lot more graphics to view.
-Definitely some potential here, so keep at it.

LB

Back to top

Profile PM Email

Dark Dragon

19

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 3rd Jul 2007 19:12

Link

thanks, I'll redo it with your sugestions in mind.

Back to top

Profile PM

Dark Dragon

19

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 3rd Jul 2007 19:15

Link

oh yeah,..........sorry for all the confusion and waiting.

Back to top

Profile PM

Libervurto

20

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 6th Jul 2007 19:53

Link

Quote: "the actual file(my final) is 79.5 MB (I'm kind of a file junkie)."

No kidding! What have you got in there!? If they are large images try saving them as .png in MSPaint, its about a tenth of the size! I don't know why cos it looks exactly the same? Even better than .jpg

I make music and art. Here is a sample of my art: done in Paint! It's all I have

Back to top

Profile PM Email

Dark Dragon

19

Years of Service

User Offline

Joined: 22nd Jun 2007

Location: In the ring, Kickin\' *donkeybutt*.

Posted: 9th Jul 2007 16:19

Link

hmm.........

Back to top

Profile PM

Pixelator

18

Years of Service

User Offline

Joined: 8th Jul 2007

Location: here

Posted: 9th Jul 2007 20:50

Link

Im making a 2d game that is very fun.

The problem with the gaming community is people think that the resolution of a game defines how good it is. I am not afraid to make a game where the main character is 50x50.

Back to top

Profile PM Email

MikeB

19

Years of Service

User Offline

Joined: 5th Apr 2007

Location: My Computer, Shropshire, England

Posted: 13th Jul 2007 14:41

Link

Good for you Pixelator, but I'm not sure if Dark Dragon will appreciate you posting that in the thread about HIS game.

Mike

I used to be Eldest Dragon, but I asked for my name to be changed.
"Change is inevitable. Except from vending machines."
"Welcome to the United Lawsuits of America."

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Discussion / My first litlle game.....