TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 2D

Version: 1.0

Information

Uploaded: 14th Jun 2006 04:47

Modified: 14th Jun 2006 05:22

Author: napier

Summary

This is the first code I ever wrote. It's a rudimentary RPG and is so basic it isn't really a game.

Full Description

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem *****************************************************

rem *                     mage wars                     *

rem *****************************************************

rem not at all copyright, Oliver Kandasamy

set cursor 270,240

print "welcome, to MAGE WARS (it is very silly)"

input "enter name>", player$

if player$="oliverk"

cls

gosub leveltwo

endif

if player$="expert"

cls

gosub levelthree

endif

cls

print player$; ", your first battle is against STICK MAN."

print "you currently only know two spells"

print "BLOCKUS creates a force field but only breifly, it is used by "

print "pressing ENTER when the opponent's spell reaches the cunjuring zone"

print "SHPLAH fires an energy beam at your opponent inflicting minimal"

print "damage but working 80% of the time"

print "to cunjure a spell, other than BLOCKUS, type its name when it is "

print "your turn, and press enter."

print "okay, you're all set, ";player$;", good luck. I eat babies!"

wait 20000

cls

gosub levelone

cls

print "you have a new spell: BOSHANK"

print "you have won my respect, ";player$;", you can play mage wars,"

print "you're not at all a loser. You now must fight stickmerlin."

print "He is a bell-end"

wait 10000

cls

gosub leveltwo

cls

pig:

print "Your next battle, ";player$;", is against stickpotter!"

print "He is a smelly turd and no-one likes him."

print "Kill him, (here's a new spell: ARKLEBLARK)"

gosub levelthree

cls

sheep:

set cursor 300,240

print "you, like totally, won!"

set cursor 300,270

print "dude!          ";player$;" smells!"

end

makingpeople:

circle 20,240,10

line 20,250,16,280

line 16,280,12,310

line 16,280,20,310

line 20,250,30,260

line 20,250,15,265

circle 40,250,5

circle 620,240,10

line 620,250,624,280

line 624,280,628,310

line 624,280,620,310

line 620,250,610,260

line 620,250,625,265

circle 600,250,5

return

rem level one

levelone:

health#=100

enemy#=60

rem making people

gosub makingpeople

set cursor 10,10

print health#

set cursor 610,10

print enemy#

rem let the games begin

print "your turn"

input "enter spell>",spell$

if spell$="shplah"

gosub shplah

endif

if spell$="boshank"

gosub boshank

endif

if spell$="arkleblark"

gosub arkleblark

endif

if enemy#<1

cls

print "YOU WON"

wait 3000

return

endif

cls

gosub makingpeople

print "stickman's turn!"

wait 20

z=rnd10

if z=10

print "stickman messed up!"

else

a=600

for t=1 to 120

circle a,250,3

a=a-5

if returnkey()=1

if a<=45 and a>=35

x=0

goto pod

else

x=1

endif

next t

pod:

if x=1 then health#=health#-(rnd15)

endif

cls

wait 5

loop

rem leveltwo

leveltwo:

health#=100

enemy#=100

rem making people

gosub makingpeople

line 610,240,620,210

line 630,240,620,210

line 610,240,615,270

line 620,240,615,270

set cursor 10,10

print health#

set cursor 610,10

print enemy#

rem let the games begin

print "your turn"

input "enter spell>",spell$

if spell$="shplah"

gosub shplah

endif

if spell$="boshank"

gosub boshank

endif

if spell$="arkleblark"

gosub arkleblark

endif

if enemy#<1

cls

print "YOU WON"

wait 3000

if player$="oliverk" then goto pig

return

endif

cls

gosub makingpeople

line 610,240,620,210

line 630,240,620,210

line 610,240,615,270

line 620,240,615,270

print "stickmerlin's turn!"

wait 20

z=rnd10

if z=10

print "stickmerlin messed up!"

else

x=1

a=600

for t=1 to 120

line a,250+10*sin(a),a-5,250+10*sin(a-5)

line a,250-10*sin(a),a-5,250-10*sin(a-5)

a=a-5

if returnkey()=1

if a<=45 and a>=35

x=0

goto poo

else

x=1

endif

if a<30 then goto poo

next t

poo:

if x=1 then health#=health#-(rnd(20))

endif

cls

wait 5

loop

levelthree:

health#=100

enemy#=120

rem making people

gosub makingpeople

line 610,240,620,210

line 630,240,620,210

circle 615,240,4

circle 625,240,5

set cursor 10,10

print health#

set cursor 610,10

print enemy#

rem let the games begin

print "your turn"

input "enter spell>",spell$

if spell$="shplah"

gosub shplah

endif

if spell$="boshank"

gosub boshank

endif

if spell$="arkleblark"

gosub arkleblark

endif

if enemy#<1

cls

print "YOU WON"

wait 3000

goto sheep

endif

cls

gosub makingpeople

line 610,240,620,210

line 630,240,620,210

circle 615,240,4

circle 625,240,5

print "stickpotter's turn!"

wait 20

z=rnd10

if z=10

print "stickpotter messed up!"

else

x=1

a=600

for t=1 to 120

circle a,250+10*cos(a),10*sin(a)

a=a-5

if returnkey()=1

if a<=45 and a>=35

x=0

goto pox

else

x=1

endif

if a<30 then goto pox

next t

pox:

if x=1 then health#=health#-(rnd(40))

endif

cls

wait 5

loop

shplah:

a=40

for t=20 to 0

circle 40,250,t

next t

for t=1 to 11

line 40,250,a,250

circle a,250,t

a=a+56

next t

cls

gosub makingpeople

z=rnd(5)

if z=5

print "no effect!"

wait 2000

else

enemy#=enemy#-(rnd(10))

endif

return

boshank:

a=40

b=250

for t=1 to 56

circle 40,250,10

line a,b,a+10,b+10*sin(a)

line a,b,a+10,b-10*sin(a)

a=a+10

next t

cls

z=rnd(4)

if z=4

print "no effect"

wait 2000

else

enemy#=enemy#-(rnd(40))

endif

return

arkleblark:

a=40

b=250

for t=1 to 56

circle a,b,20*cos(a)

a=a+10

next t

for t=1 to 30

circle 620,240,30-t

next t

set cursor 600,190

print "pow!"

wait 500

cls

z=rnd(3)

if z=3

print "no effect!"

wait 2000

else

enemy#=enemy#-(rnd(50))

endif

return

Download

Please login to download

Comments

No comments yet.

CodeBase - Mage Wars

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	napier
CodeBase Entries:	2