TheGameCreators - CodeBase - OutWorld has arrive

Return to the CodeBase listing

Category: Games

Version: 1.0

Information

Uploaded: 9th Oct 2004 22:23

Modified: 9th Oct 2004 22:29

Author: Jedi Lord

Summary

here it is well sorry for long time...

Full Description

I want to set up the website but it took too long so here the code<br /> DO NOT BLAME ME FOR THIS OK

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

remstart

------------------------------------------------------------------------

Out World Game          The Grend Attack    STORY 1

------------------------------------------------------------------------

remend

mainmanu:

hide mouse

ink rgb(255,255,255),0

sync on

sync rate 1000

sync

print "It is the Lower Verson but story 2 will have 2d picture"

print "story 3 will have 3d Picture"

print "story 4 will be very good art work and good contol"

print "It maybe bored you but it is good for reading and it is RPG"

print "ESC to leave or quit"

print "press the cap lock to play right(IT MUST HAVE CAPLOCK ON)"

print "L for Load Save game"

print " or P for play in beginning"

print "T to save your game on every city not out world ok"

print "1 problem I can't let you: Rdown or rup for run down or up"

print "you could pass the boss fight easy and go to new city easy"

print "try to save every time when you  get the level up or new city"

print "if you kill the boss you can kill him again but lower the give"

print "exp but only weaker boss"

input "type in here > ", mainmanu$

if mainmanu$ = "L"

cls

goto savebase

endif

if mainmanu$ = "P"

cls

goto game

endif

wait 2000

cls

loop

rem Make the man

game:

ink rgb(255,255,255),0

Hero$ = "Jack"

Level# = 1

Hp# = 500

hpmax# = 500

Atk# = 7

EXP# = 0

mp# = 10

mpmax# = 10

money# = 50

movement# = 0

rem give Exp

GiveExp# = 5

rem when level up give power up

Powerupatk# = 6

powerupmp# = 4

powerupfireatk# =5

poweruphp# = 5

powerupmpmax# = 5

powerupfireneed# = 4

rem item of vab

Healpot# = 200

SuperHealPot# = 600

rem Spell power

Fireneed# = 3

FireAtk# = 15

rem sync work

sync on

sync rate 1000

rem make man

makeman:

sync

line 400,0,400,140

line 400,140,600,140

line 600,140,600,0

set cursor 401,20

print hero$

set cursor 401,40

if hp# > hpmax#

hp# = hpmax#

endif

IF mp# > mpmax#

mp# = mpmax#

endif

Print "HP "; + ;Hp#

set cursor 401,60

print "LEVEL "; + ;Level#

set cursor 401,80

print "MAGIC "; + ;mp#

set cursor 401,100

print "EXP "; + ;exp#

set cursor 401,120

print "ATK ", + ;ATk#

set cursor 460,40

print "MONEY"; + ;money#

goto where

rem landP1

LandP1:

Print "you are near the enter of the cityp1"

print "Be Careful... !"

Print "you are attacked"

input "W to up or S to down", goto$

if goto$ = "W"

cls

goto monsterfight

endif

if goto$ = "S"

movement# = movement# - 1

cls

goto makeman

endif

CLS

GOTO MAKEMAN

rem landP2

landP2:

print "monster is somewhere"

print "but you are safe"

input "W is for up and S is for down", goto$

if goto$ = "W"

movement# = movement# + 1

cls

goto makeman

endif

if goto$ = "S"

movement# = movement# - 1

cls

goto makeman

endif

cls

GOTO MAKEMAN

rem LandP3

LandP3:

sync

print "you are near the Level 1 Temble"

print "you need to fight 3 MiniBoss and fight"

print "strong boss"

input "W to go in temble S to go back", goto$

if goto$ = "W"

movement# = movement# + 1

cls

goto makeman

endif

if goto$ = "S"

movement# = movement# - 1

cls

goto makeman

endif

cls

goto makeman

rem level1 P1

level1NP1:

print "MASTER MINION 1: GERAN"

print "fight or not"

input "W to fight S to run away", goto$

if goto$ = "W"

monsterN$ = "GERAN"

mhp# = 400

matk# = 12

CLS

goto bossfight

endif

if goto$ = "S"

movement# = movement# - 1

cls

goto where

endif

CLS

goto makeman

rem level1 P2

level1NP2:

print "MASTER MINION 2: VAMPIRE"

PRINT "FIGHT OR NOT"

input "W to fight S to run away", goto$

if goto$ = "W"

monsterN$ = "VAMPIRE"

mhp# = 550

matk# = 15

cls

goto bossfight

endif

if goto$ = "S"

movement# = movement# - 1

cls

goto makeman

endif

cls

goto makeman

rem level 1 P3

level1NP3:

print "MASTER MINION 3: QUEEN SNAKE"

print "FIGHT OR NOT"

input "W to fight S to run away", goto$

if goto$ = "W"

monsterN$ = "QUEEN SNAKE"

mhp# = 600

matk = 17

cls

goto bossfight

endif

if goto$ = "S"

movement# = movement# - 1

goto makeman

endif

cls

GOTO MAKEMAN

rem boss fight

level1boss:

print "Boss: TRIHEAD DRAGON"

input "S to run or W to Fight", goto$

if goto$ = "W"

monsterN$ = "TRIHEAD DRAGON"

Mhp# = 700

matk# = 20

cls

goto bossfight

endif

if goto$ = "S"

movement# = movement# - 1

goto makeman

endif

cls

goto makeman

rem landP4

landP4:

print "you are near the level 1 temble"

print "you are attacked"

input "type here >>>> ", goto$

if goto$ = "W"

cls

goto monsterfight

endif

if goto$ = "S"

movement# = movement# - 1

cls

goto makeman

endif

CLS

GOTO MAKEMAN

rem landp5

landP5:

print "you are surround by monster"

print "W to up S to down"

input "type in here", goto$

if goto$ = "W"

cls

goto monsterfight

endif

if goto$ = "S"

movement# = movement# - 1

cls

goto monsterfight

endif

cls

GOTO MAKEMAN

rem LandP6

LandP6:

print "you are close the city"

print "W to up S to down"

print "type here >>>> ", goto$

if goto$ = "W"

cls

goto monsterfight

endif

if goto$ = "S"

movement# = movement# - 1

cls

goto makeman

endif

CLS

GOTO MAKEMAN

rem CityP2

cityP2:

print "Welcome to new city"

print "S to Down W to up"

print "T for Save"

input "type here >>>> ", goto$

mp# = mpmax#

if goto$ = "S"

movement# = movement# - 1

cls

goto makeman

endif

IF goto$ = "W"

movement# = movement# + 1

cls

goto makeman

endif

if goto$ = "T"

cls

goto savebase

endif

cls

goto makeman

rem Story

storyP1:

print "Once Jack went on the boat but he have to deal one thing kill"

print "all Monster on war and the beach was our only small main base"

print "we are losing to orcs they are too many MONSTER and if we lose"

print "we will be their dinner"

wait 3000

cls

print "So Jack have to fight with the MONSTER"

print "but the award is who ever end the war"

print "will be the major of all army"

print "but he not want to be the major"

wait 3400

cls

movement# = movement# + 1

goto makeman

rem cityP1

cityP1:

sync

print "This City Save"

print "if you are level 6 or more fight to the boss and"

print "go to new city"

print "welcome to the cityP1"

print "1 to buy heal pot THAT WILL HEAL YOUR HP TO MAX"

PRINT "T to save your game"

Mp# = MPmax#

input "W to up ", goto$

if goto$ = "T"

cls

goto savebase

endif

if goto$ = "1"

goto buyhealpot

endif

if goto$ = "W"

movement# = movement# + 1

cls

goto makeman

endif

cls

GOTO MAKEMAN

rem baseP1

baseP1:

print "you can't go back to your own island"

print "get ready to fight"

hp# = hpmax#

mp# = mpmax#

movement# = movement# + 1

wait 2000

goto makeman

rem WarP1

warP1:

print "you are fighting monster"

print "you saw the command tower about 11 miles"

print "in the plain land"

input "type here >>>>", goto$

if goto$ = "W"

cls

goto monsterfight

endif

if goto$ = "S"

movement# = movement# - 1

cls

goto makeman

endif

cls

goto makeman

rem warP2

warP2:

print "you are trap by full of monster"

print "man are out you are only one here in the war"

print "every monster start attacking you"

input "W to fight S to run back to the base", goto$

if goto$ = "W"

cls

goto monsterfight

endif

if goto$ = "S"

cls

movement# = movement# + 1

endif

cls

GOTO MAKEMAN

rem WarP3

warP3:

print "you fought so hard and great pain"

print "you are close and ran so hard"

print "few mile to command center"

input "W to up S to down"

if goto$ = "W"

cls

goto monsterfight

endif

if goto$ = "S"

cls

movement# = movement# - 1

goto makeman

endif

cls

GOTO MAKEMAN

rem EBaseBoss

EbaseBoss:

print "Boss: Grend"

Input "W to fight S to Run", goto$

if goto$ = "W"

MonsterN$ = "Grend"

mhp# = 3000

matk# = 60

cls

goto bossfight

endif

if goto$ = "S"

movement# = movement# - 1

cls

goto makeman

endif

rem the ending part

Victory:

Print "You had beat the Grend the master of darkness"

input "What do you wish for? ",A$

print "Your wish is ", A$

goto endofprogram

rem buy powerup

buypowerup:

if money# > 5000

money# = money# - 5000

atk# = atk# + 5

hp# = hp# + 160

hpmax# = hpmax# + 160

mp# = mp# + 30

mpmax# = mpmax# + 30

fireatk# = fireatk# + 15

fireneed# = fireneed# - 10

cls

goto makeman

else

cls

goto makeman

endif

rem Where you need to go

Where:

if movement# = 0

goto cityP1

endif

if movement# = 1

goto landp1

endif

if movement# = 2

goto landP2

endif

if movement# = 3

goto landP3

endif

if movement# = 4

goto Level1NP1

endif

if movement# = 5

goto level1NP2

endif

if movement# = 6

goto level1NP3

endif

if movement# = 7

goto level1boss

endif

if movement# = 8

goto landP4

endif

if movement# = 9

goto landP5

endif

if movement# = 10

goto landP6

endif

if movement# = 11

goto cityP2

endif

if movement# = 12

goto storyP1

endif

if movement# = 13

goto baseP1

endif

if movement# = 14

goto warp1

endif

if movement# = 15

goto warp2

endif

if movement# = 16

goto warp3

endif

if movement# = 17

goto ebaseboss

endif

if movement# = 18

goto Victory

endif

rem buy item

buyhealpot:

if money# => 100

money# = money# - 100

hp# = HPMAX#

goto makeman

else

goto makeman

endif

rem monster battle

monsterfight:

if level# = 1

mhp# = 20

matk# = 2

monsterN$ = "Green Snake Eater"

endif

if level# = 2

mhp# = 30

matk# = 3

monsterN$ = "Super Green Snake Eater"

endif

if level# = 3

mhp# = 40

matk# = 4

monsterN$ = "Snake Sniper"

endif

if level# = 4

mhp# = 50

matk# = 5

monsterN$ = "Super Snake Sniper"

endif

if level# = 5

mhp# = 60

matk# = 6

monsterN$ = "Gaint Snake"

endif

if level# = 6

mhp# = 70

matk# = 8

monsterN$ = "Boa Snake"

endif

if level# = 7

mhp# = 150

matk# = 10

monsterN$ = "Huge Boa Snake"

endif

if level# = 8

mhp# = 200

matk# = 11

monsterN$ = "Goblin"

endif

if level# = 9

mhp# = 250

matk# = 13

monsterN$ = "Sword Goblin"

endif

if level# = 10

mhp# = 300

matk# = 15

monsterN$ = "Fusion Goblin"

endif

if level# = 11

mhp# = 350

matk# = 17

monsterN$ = "Baby Dragon"

endif

if level# = 12

mhp# = 400

matk# = 19

monsterN$ = "Orc Army"

endif

if level# = 13

mhp# = 450

matk# = 21

monsterN$ = "Orc Raider"

endif

if level# = 14

mhp# = 500

matk# = 25

monsterN$ = "Orc Troll"

endif

if level# = 15

mhp# = 550

matk# = 28

monsterN$ = "Orc Officer"

endif

if level# = 16

mhp# = 600

matk# = 40

monsterN$ = "Evil Donkey Kong"

endif

if level# = 17

mhp# = 650

matk# = 43

monsterN$ = "Man-Eater Bug"

endif

if level# = 18

mhp# = 700

matk# = 46

monsterN$ = "Gaint Dragon"

endif

if level# = 19

mhp# = 750

matk# = 50

monsterN$ = "Fusion Dragon"

endif

if level# = 20

mhp# = 1000

matk# = 60

monsterN$ = "Guardian Of The Griend"

endif

bossfight:

IF HP# < 0

print "you lost Play next time"

wait 2500

goto endofprogram

endif

if mhp# < 0

movement# = movement# + 1

exp# = exp# + 5

money# = money# + 50

cls

goto levelup

endif

set cursor 100,0

print MonsterN$

set cursor 100,20

print "MONSTER HP "; + ;MHP#

set cursor 100,40

print "MONSTER ATK "; + ;matk#

set cursor 400,0

print Hero$

set cursor 400,20

print "Hp "; + ;hp#

set cursor 400,40

print "Mp "; + ;Mp#

print "A to atk or M to do magic or Rup to run and lose money and go up"

print "Rdown to run and lose money and go down"

input "you need to do something...> ", fight$

if fight$ = "A"

mhp# = mhp# - atk#

print "monster Stike back"

hp# = hp# - matk#

WAIT 50

endif

if fight$ = "M"

if mp# => fireneed#

mhp# = mhp# - fireatk#

mp# = mp# - fireneed#

print "monster Strike Back"

hp# = hp# - matk#

WAIT 100

else

print "not enough mana"

wait 400

endif

cls

loop

rem level up CodeBase

LEVELUP:

if exp# = 10

level# = level# + 1

atk# = atk# + 2

hp# = hp# + 75

hpmax# = hpmax# + 75

mp# = mp# + 8

mpmax# = mpmax# + 8

fireatk# = fireatk# + 4

fireneed# = fireneed# + 4

HERO$ = "Jack The Warrior"

endif

if exp# = 45

level# = level# + 1

atk# = atk# + 2

hp# = hp# + 75

hpmax# = hpmax# + 75

mp# = mp# + 8

mpmax# = mpmax# + 8

fireatk# = fireatk# + 4

fireneed# = fireneed# + 4

endif

if exp# = 75

level# = level# + 1

atk# = atk# + 2

hp# = hp# + 75

hpmax# = hpmax# + 75

mp# = mp# + 8

mpmax# = mpmax# + 8

fireatk# = fireatk# + 4

fireneed# = fireneed# + 4

endif

IF exp# = 105

level# = level# + 1

atk# = atk# + 2

hp# = hp# + 75

hpmax# = hpmax# + 75

mp# = mp# + 8

mpmax# = mpmax# + 8

fireatk# = fireatk# + 4

fireneed# = fireneed# + 4

endif

IF EXP# = 155

level# = level# + 1

atk# = atk# + 2

hpmax# = hpmax# + 75

hp# = hp# + 75

mp# = mp# + 8

mpmax# = mpmax# + 8

fireatk# = fireatk# + 4

fireneed# = fireneed# + 4

endif

if exp# = 215

level# = level + 1

atk# = atk# + 8

hp# = hp# + 175

hpmax# = hpmax# + 175

mp# = mp# + 18

mpmax# = mpmax# + 18

fireatk# = fireatk# + 10

fireneed# = fireneed# + 8

hero$ = "Jack the Swordman"

endif

if exp# = 275

level# = level + 1

atk# = atk# + 2

hp# = hp# + 75

hpmax# = hpmax# + 75

mp# = mp# + 8

mpmax# = mpmax# + 8

fireatk# = fireatk# + 4

fireneed# = fireneed# + 4

endif

if exp# = 320

level# = level# + 1

atk# = atk# + 2

hp# = hp# + 75

hpmax# = hpmax# + 75

mp# = mp# + 8

mpmax# = mpmax# + 8

fireatk# = fireatk# + 4

fireneed# = fireneed# + 4

endif

`10

if exp# = 375

level# = level# + 1

atk# = atk# + 2

hp# = hp# + 75

hpmax# = hpmax# + 75

mp# = mp# + 8

mpmax# = mpmax# + 8

fireatk# = fireatk# + 4

fireneed# = fireatk# + 4

endif

`11

if exp# = 460

level# = level# + 1

atk# = atk# + 8

hp# = hp# + 175

hpmax# = hpmax# + 175

mp# = mp# + 18

mpmax# = mpmax# + 18

fireatk# = fireatk# + 10

fireneed# = fireneed# + 8

hero$ = "Twin Sword Master Jack"

endif

`12

if exp# = 580

level# = level# + 1

atk# = Atk# + 2

hp# = hp# + 75

hpmax# = hpmax# + 75

mp# = mp# + 8

mpmax# = mpmax# + 8

fireatk# = fireatk# + 4

fireneed# = fireneed# + 4

endif

`13

if exp# = 720

level# = level# + 1

atk# = atk# + 2

hp# = hp# + 75

hpmax# = hpmax# + 75

mp# = mp# + 8

mpmax# = mpmax# + 8

fireatk# = fireatk# + 4

fireneed# = fireneed# + 4

endif

`14

if exp# = 780

level# = level# + 1

atk# = atk# + 2

hp# = hp# + 75

hpmax# = hpmax# + 75

mp# = mp# + 8

mpmax# = mpmax# + 8

fireatk# = fireatk# + 4

fireneed# = fireneed# + 4

endif

`15

if exp# = 880

level# = level# + 1

atk# = atk# + 2

hp# = hp# + 75

hpmax# = hpmax# + 75

mp# = mp# + 8

mpmax# = mpmax# + 8

fireatk# = fireatk# + 4

fireneed# = fireneed# + 4

endif

`16

if exp# = 1000

level# = level# + 1

atk# = atk# + 12

hp# = hp# + 175

hpmax# = hpmax# + 175

mp# = mp# + 18

mpmax# = mpmax# + 18

fireatk# = fireatk# + 14

fireneed# = fireneed# + 8

endif

`17

if exp# = 1450

level# = level# + 1

atk# = atk# + 2

hp# = hp# + 75

hpmax# = hpmax# + 75

mp# = mp# + 8

mpmax# = mpmax# + 8

fireatk# = fireatk# + 4

fireneed# = fireneed# + 4

endif

`18

if exp# = 1800

level# = level# + 1

atk# = atk# + 5

hp# = hp# + 200

hpmax# = hpmax# + 200

mp# = mp# + 20

mpmax# = mpmax# + 20

fireatk# = fireatk# + 25

fireneed# = fireneed# + 1

endif

`19

if exp# = 2400

level# = level# + 1

atk# = atk# + 5

hp# = hp# + 200

hpmax# = hpmax# + 200

mp# = mp# + 20

mpmax# = mpmax# + 20

fireatk# = fireatk# + 25

fireneed# = fireneed# + 1

endif

`20

if exp# = 3500

level# = level# + 1

atk# = atk# + 40

hp# = hp# + 600

hpmax# = hpmax# + 600

mp# = mp# + 60

mpmax# = mpmax# + 60

fireatk# = fireatk# + 65

fireneed# = fireneed# - 20

hero$ = "Tri Sword master"

endif

`21

if exp# = 4000

level# = level# + 1

atk# = atk# + 5

hp# = hp# + 200

hpmax# = hpmax# + 200

mp# = mp# + 20

mpmax# = mpmax# + 20

fireatk# = fireatk# + 25

fireneed# = fireneed# + 1

endif

`22

if exp# = 4800

level# = level# + 1

atk# = atk# + 5

hp# = hp# + 200

hpmax# = hpmax# + 200

mp# = mp# + 20

mpmax# = mpmax# + 20

fireatk# = fireatk# + 25

fireneed# = fireneed# + 1

endif

`23

if exp# = 6000

level# = level# + 1

atk# = atk# + 5

hp# = hp# + 200

hpmax# = hpmax# + 200

mp# = mp# + 20

mpmax# = mpmax# + 20

fireatk# = fireatk# + 25

fireneed# = fireneed# + 1

endif

`24

if exp# = 8000

level# = level# + 1

atk# = atk# + 5

hp# = hp# + 200

hpmax# = hpmax# + 200

mp# = mp# + 20

mpmax# = mpmax# + 20

fireatk# = fireatk# + 25

fireneed# = fireneed# + 1

endif

`25

if exp# = 10000

level# = level# + 1

atk# = atk# + 55

hp# = hp# + 800

hpmax# = hpmax# + 800

mp# = mp# + 80

mpmax# = mpmax# + 80

fireatk# = fireatk# + 150

fireneed# = fireneed# + 1

endif

GOTO makeman

rem save codebase

savebase:

print "S to save your file"

input "L to load your file E to exit to main manu", savecode$

if savecode$ = "L"

open to read 1,"outworldsave"

read float 1,hp#

read float 1,hpmax#

read float 1,mp#

read float 1,mpmax#

read float 1,atk#

read float 1,movement#

read float 1,level#

read float 1,fireneed#

read float 1,fireatk#

read float 1,exp#

read float 1,money#

read string 1,hero$

close file 1

CLS

goto makeman

endif

if Savecode$ = "S"

IF file exist("outworldsave")

delete file "outworldsave"

endif

open to write 1,"outworldsave"

write float 1,hp#

write float 1,hpmax#

write float 1,mp#

write float 1,mpmax#

write float 1,atk#

write float 1,movement#

write float 1,level#

write float 1,fireneed#

write float 1,fireatk#

write float 1,exp#

write float 1,money#

write string 1,hero$

close file 1

CLS

goto makeman

endif

if savecode$ = "E"

cls

goto mainmanu

endif

cls

loop

rem end of program

endofprogram:

end

Download

Please login to download

Comments

No comments yet.

Author Name:	Jedi Lord
CodeBase Entries:	12

CodeBase - OutWorld has arrive

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments