text based game Dark Dynasty - GameCreators Forum

Author

Message

Slayer93

20

Years of Service

User Offline

Joined: 5th Aug 2004

Location: I wish I knew

Posted: 3rd Mar 2005 09:56

Link

i am making a text based game called Dark Dynasty
here is the code and it's very long

`````````````````````````````````````
`````````````Dark Dynasty````````````
`````````````ROUGH DRAFT`````````````
``````````NOVEMBER 25,2004```````````
`````````````````````````````````````
 
`sync
sync on
sync rate 50
hide mouse
 
`main menu loop
main_menu:
do
 
`clear screen
cls
 
`title
ink rgb(0,0,200),0
set text size 30
text 200,0,"DARK DYNASTY"
 
`made by
set text size 10
text 250,40,"By:Christian Ang"
 
`options
ink rgb(255,255,255),255
text 250,300,"NEW GAME"
text 250,330,"CONTINUE"
 
`make mouse
make mouse(1)
if mousex() > 200 and mousex() < 350 and mousey() > 300 and mousey() < 330 then ink rgb(0,0,100),0 : text 250,300,"NEW GAME"
if mousex() > 200 and mousex() < 350 and mousey() > 300 and mousey() < 330 and mouseclick()=1
gosub NEW_GAME:
endif
if mousex() > 200 and mousex() < 350 and mousey() > 330 and mousey() < 360 then ink rgb(0,0,100),0 : text 250,330,"CONTINUE"
if mousex() > 200 and mousex() < 350 and mousey() > 330 and mousey() < 360 and mouseclick()=1
gosub CONTINUE:
endif
sync
enable escapekey
loop
 
``````````````````````
```````NEW GAME```````
``````````````````````
 
NEW_GAME:
cls
 
`hold file in varible
save$="DDsave.DD"
 
`position,money,level
position$= "Helicous city"
money$="1000"
level$="1"
atk$="100"
mp$="50"
def$="30"
spe$="20"
eva$="20"
hp$="500"
maxhp$="500"
mp$="20"
maxmp$="20"
exp$="0"
next$="100"
weapon$="small blade"
accesories$=""
items$=""
items1$=""
items2$=""
items3$=""
items4$=""
items5$=""
armor$=""
 
`if file open then close it
if file open(1) then close file 1
 
`open file to read
if file exist(save$)=1
do
text 100,100,"CAUTION"
text 50,120,"If you decide to make a new"
text 50,140,"character you will delete your"
text 100,160,"old one"
text 100,200,"CONTINUE Y/N"
if inkey$()="Y"
delete file "DDsave.DD"
cls
if file exist(save$)=0 then text 100,100,"delete succesful"
sleep 2000
return
endif
if inkey$()="N" then return
if inkey$()="y"
delete file "DDsave.DD"
cls
if file exist(save$)=0 then text 100,100,"delete succesful"
sleep 2000
return
endif
if inkey$()="n" then return
disable escapekey
if escapekey()=1 then return
loop
endif
 
`if file do not exist you will make a file
if file exist(save$)=0
 
`put something in a file
input "What is the name of your character? ";cname$
 
`make a file
open to write 1,"DDsave.DD"
 
`write the name to file
write string 1,cname$
write string 1,position$
write string 1,money$
write string 1,level$
write string 1,hp$
write string 1,maxhp$
write string 1,mp$
write string 1,maxmp$
write string 1,weapon$
write string 1,items$
write string 1,items1$
write string 1,items2$
write string 1,items3$
write string 1,items4$
write string 1,items5$
write string 1,armor$
write string 1,accesories$
 
`clear screen
cls
endif
 
`varibles
H=0
B1=0
 
do
 
Helicous_city:
cls
 
`welcome them
text 100,100,"WELCOME TO HELICOUS CITY"
 
`loop
do
wait 10
cls
 
`make mouse
make mouse(1)
 
`if out or in city
if H=0
text 100,0,"you want to go out of the city press "O""
if inkey$()="O"
H=1
endif
if inkey$()="o"
H=1
endif
 
`shops(weapons,armor,and items)
text 0,200,"Weapons store"
text 0,220,"Items store"
text 0,240,"Armor store"
if mousex() > 0 and mousex() < 100 and mousey() > 200 and mousey() < 230 then ink rgb(100,0,0),0 : text 0,200,"Weapons store"
if mousex() > 0 and mousex() < 100 and mousey() > 200 and mousey() < 230 and mouseclick()=1
gosub Weapons:
endif
if mousex() > 0 and mousex() < 100 and mousey() > 220 and mousey() < 250 then ink rgb(100,0,0),0 : text 0,220,"Items store"
if mousex() > 0 and mousex() < 100 and mousey() > 220 and mousey() < 250 and mouseclick()=1
gosub items
endif
if mousex() > 0 and mousex() < 100 and mousey() > 240 and mousey() < 270 then ink rgb(100,0,0),0 : text 0,240,"Armor store"
if mousex() > 0 and mousex() < 100 and mousey() > 240 and mousey() < 270 and mouseclick()=1
gosub armor
endif
endif
 
`HP,MP don't go above max
if hp$ > maxhp$ then hp$=maxhp$
if mp$ > maxmp$ then mp$=maxmp$
 
`if outside
if H=1
text 50,100,"push up to go to the boss"
text 50,120,"push down back to town"
text 50,140,"push right or left to go to fight monsters that are in Helicous"
 
`back to town
if downkey()=1
H=0
endif
 
`H.Boss
if upkey()=1 then M=01
 
if rightkey()=1
a=rnd(6)
b=rnd(2)
 
`monsters
if a=1
do
text 0,0,"killer snake"
 
`stats
Hksatk$="50"
Hkshp$="1000"
Hksmp$="50"
Hksatk$="35"
Hksdef$="30"
Hksspe$="25"
Hkseva$="20"
if b=1 then text 80,0,"there is 1"
if b=2 then text 80,0,"there are 2"
set cursor 0,20
print "HP ";Hkshp$
print "MP ";Hksmp$
loop
endif
if a=2
do
cls
text 0,0,"speed snake"
 
`stats
Hksatk$="50"
Hkshp$="1000"
Hksmp$="50"
Hksatk$="35"
Hksdef$="30"
Hksspe$="25"
Hkseva$="20"
if b=1 then text 80,0,"there is 1"
if b=2 then text 80,0,"there are 2"
set cursor 0,20
print "HP";Hkshp$
print "MP";Hksmp$
loop
endif
if a=3
do
cls
text 0,0,"Demon snake"
 
`stats
if b=1 then text 80,0,"there is 1"
if b=2 then text 80,0,"there are 2"
Hksatk$="50"
Hkshp$="1000"
Hksmp$="50"
Hksatk$="35"
Hksdef$="30"
Hksspe$="25"
Hkseva$="20"
set cursor 0,20
print "HP";Hkshp$
print "MP";Hksmp$
loop
endif
if a=4
do
cls
text 0,0,"Shadow snake"
 
`stats
Hksatk$="50"
Hkshp$="1000"
Hksmp$="50"
Hksatk$="35"
Hksdef$="30"
Hksspe$="25"
Hkseva$="20"
if b=1 then text 80,0,"there is 1"
if b=2 then text 80,0,"there are 2"
set cursor 0,20
print "HP";Hkshp$
print "MP";Hksmp$
loop
endif
if a=5
do
cls
text 0,0,"Snake Killer"
 
`stats
Hksatk$="50"
Hkshp$="1000"
Hksmp$="50"
Hksatk$="35"
Hksdef$="30"
Hksspe$="25"
Hkseva$="20"
if b=1 then text 80,0,"there is 1"
if b=2 then text 80,0,"there are 2"
set cursor 0,20
print "HP";Hkshp$
print "MP";Hksmp$
loop
endif
if a=6
do
cls
text 0,0,"Snake minions"
 
`stats
Hksatk$="50"
Hkshp$="1000"
Hksmp$="50"
Hksatk$="35"
Hksdef$="30"
Hksspe$="25"
Hkseva$="20"
if b=1 then text 80,0,"there is 1"
if b=2 then text 80,0,"there are 2"
set cursor 0,20
print "HP";Hkshp$
print "MP";Hksmp$
loop
endif
endif
endif
 
`menu
disable escapekey
if escapekey()=1
cls
submenu(2)
endif
loop
 
Varguard_city:
cls
 
`welcome them
text 100,100,"WELCOME TO VARGUARD CITY"
 
`loop
do
wait 10
cls
 
`make mouse
make mouse(1)
 
`menu
disable escapekey
if escapekey()=1
cls
submenu(2)
endif
loop
 
Elex_city:
cls
 
`welcome them
text 100,100,"WELCOME TO ELEX CITY"
 
`loop
do
wait 10
cls
 
`make mouse
make mouse(1)
 
`menu
disable escapekey
if escapekey()=1
cls
submenu(2)
endif
loop
 
Veemest_city:
cls
 
`welcome them
text 100,100,"WELCOME TO VEEMEST CITY"
 
`loop
do
wait 10
cls
 
`make mouse
make mouse(1)
 
`menu
disable escapekey
if escapekey()=1
cls
submenu(2)
endif
loop
 
Hexo_city:
cls
 
`make mouse
make mouse(1)
 
`loop
do
wait 10
cls
 
`make mouse
make mouse(1)
 
`menu
disable escapekey
if escapekey()=1
cls
submenu(2)
endif
loop
 
Vistua_city:
cls
 
`welcome them
text 100,100,"WELCOME TO VISTUA CITY"
 
`loop
do
wait 10
cls
 
`make mouse
make mouse(1)
 
`menu
disable escapekey
if escapekey()=1
cls
submenu(2)
endif
loop
 
disable escapekey
if escapekey()=1
cls
endif
sync
loop
 
`weapons
weapons:
wait 100
save$="DDsave.DD"
if file open(1) then close file 1
open to read 1,save$
read string 1,cname$
read string 1,position$
read string 1,money$
read string 1,level$
read string 1,hp$
read string 1,maxhp$
read string 1,mp$
read string 1,maxmp$
read string 1,weapon$
read string 1,items$
read string 1,armor$
read string 1,accesories$
do
wait 10
make mouse(1)
cls
set text size 30
text 100,100,"WEAPON SHOP"
set text size 10
text 100,200,"press enter to enter"
if returnkey()=1 then exit
loop
do
cls (0)
make mouse(1)
set text size 30
text 200,0,"WEAPON SHOP"
set text size 10
ink rgb(255,255,255),255
text 100,100,"Arrow head Bow  long range $500"
text 100,120,"Laser phaser  long range $1000"
text 100,140,"Demon Bow  long range $2000"
text 100,160,"Dark phaser  long range $4000"
text 100,180,"Light phaser  long range $4000"
text 100,200,"Master bow  long range $10000"
text 100,220,"Shocker gun  long range $10000"
text 100,240,"tranculizer  long range $10000"
text 100,260,"Dark sword  short range $1000"
text 100,280,"Light sword  short range $1000"
text 100,300,"Mini sword  short range $500"
text 100,320,"Long knife  short range $500"
text 100,340,"Master sword  short range 10000"
text 100,360,"Crystal sword short range $10000"
text 100,380,"AMMO"
text 100,420,"SELL"
text 100,460,"BACK <-<-<-<-"
print "Money: ";money$
if mousex() > 50 and mousex() < 200 and mousey() > 100 and mousey() < 120 then ink rgb(100,0,0),0 : text 100,100,"Arrow head Bow  long range $500"
if mousex() > 50 and mousex() < 200 and mousey() > 100 and mousey() < 120 and mouseclick()=1
if money$ < "500"
money$=money$-"500"
if item$="" then item$="arrow head bow"
text 350,100,"You Bought a Arrow head bow"
wait 1000
endif
if money$ > "500"
text 350,100,"You cannot buy arrow head bow"
wait 1000
endif
endif
if mousex() > 50 and mousex() < 200 and mousey() > 120 and mousey() < 140 then ink rgb(100,0,0),0 : text 100,120,"Laser phaser  long range $1000"
if mousex() > 50 and mousex() < 200 and mousey() > 120 and mousey() < 140 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 140 and mousey() < 160 then ink rgb(100,0,0),0 : text 100,140,"Demon Bow  long range $2000"
if mousex() > 50 and mousex() < 200 and mousey() > 140 and mousey() < 160 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 160 and mousey() < 180 then ink rgb(100,0,0),0 : text 100,160,"Dark phaser  long range $4000"
if mousex() > 50 and mousex() < 200 and mousey() > 160 and mousey() < 180 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 180 and mousey() < 200 then ink rgb(100,0,0),0 : text 100,180,"Light phaser  long range $4000"
if mousex() > 50 and mousex() < 200 and mousey() > 180 and mousey() < 200 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 200 and mousey() < 220 then ink rgb(100,0,0),0 : text 100,200,"Master bow  long range $10000"
if mousex() > 50 and mousex() < 200 and mousey() > 200 and mousey() < 220 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 220 and mousey() < 240 then ink rgb(100,0,0),0 : text 100,220,"Shocker gun  long range $10000"
if mousex() > 50 and mousex() < 200 and mousey() > 220 and mousey() < 240 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 240 and mousey() < 260 then ink rgb(100,0,0),0 : text 100,240,"tranculizer  long range $10000"
if mousex() > 50 and mousex() < 200 and mousey() > 240 and mousey() < 260 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 260 and mousey() < 280 then ink rgb(100,0,0),0 : text 100,260,"Dark sword  short range $1000"
if mousex() > 50 and mousex() < 200 and mousey() > 260 and mousey() < 280 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 280 and mousey() < 300 then ink rgb(100,0,0),0 : text 100,280,"Light sword  short range $1000"
if mousex() > 50 and mousex() < 200 and mousey() > 280 and mousey() < 300 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 300 and mousey() < 320 then ink rgb(100,0,0),0 : text 100,300,"Mini sword  short range $500"
if mousex() > 50 and mousex() < 200 and mousey() > 300 and mousey() < 320 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 320 and mousey() < 340 then ink rgb(100,0,0),0 : text 100,320,"Long knife  short range $500"
if mousex() > 50 and mousex() < 200 and mousey() > 320 and mousey() < 340 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 340 and mousey() < 360 then ink rgb(100,0,0),0 : text 100,340,"Master sword  short range 10000"
if mousex() > 50 and mousex() < 200 and mousey() > 340 and mousey() < 360 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 360 and mousey() < 380 then ink rgb(100,0,0),0 : text 100,360,"Crystal sword short range $10000"
if mousex() > 50 and mousex() < 200 and mousey() > 360 and mousey() < 380 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 380 and mousey() < 400 then ink rgb(100,0,0),0 : text 100,380,"AMMO"
if mousex() > 50 and mousex() < 200 and mousey() > 380 and mousey() < 400 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 420 and mousey() < 440 then ink rgb(100,0,0),0 : text 100,420,"SELL"
if mousex() > 50 and mousex() < 200 and mousey() > 420 and mousey() < 440 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 460 and mousey() < 480 then ink rgb(100,0,0),0 : text 100,460,"BACK <-<-<-<-"
if mousex() > 50 and mousex() < 200 and mousey() > 460 and mousey() < 480 and mouseclick()=1
return
endif
sync
loop
 
`items
items:
 
`armor
armor:
 
``````````````````````
``````CONTINUE````````
``````````````````````
 
CONTINUE:
 
`hold file in varible
save$="DDsave.DD"
 
`clear screen
cls
 
`if file open then close it
if file open(1) then close file 1
 
`open file to read
if file exist(save$)=1
open to read 1,save$
 
`read string
read string 1,cname$
read string 1,position$
read string 1,money$
read string 1,level$
read string 1,hp$
read string 1,maxhp$
read string 1,mp$
read string 1,maxmp$
read string 1,weapon$
read string 1,items$
read string 1,armor$
read string 1,accesories$
endif
 
`loop
do
 
cls
 
`make mouse
make mouse(1)
 
set text size 30
text 230,0,"LOAD FILE"
 
if file exist(save$)=0
set text size 10
text 200,100,"DARK DYNASTY"
text 250,120,"EMPTY"
endif
 
`get file
if file exist(save$)=1
ink rgb(255,255,255),0
set text size 10
text 200,100,"DARK DYNASTY"
set cursor 200,120
print cname$
set cursor 200,140
print "position: ";position$
set cursor 200,160
print "money: ";money$
set cursor 200,180
print "level: ";level$
 
`click on file
if mousex() > 180 and mousex() < 350 and mousey() > 80 and mousey() < 220
ink rgb(0,0,200),0
set text size 10
text 200,100,"DARK DYNASTY"
set cursor 200,120
print cname$
set cursor 200,140
print "position: ";position$
set cursor 200,160
print "money: ";money$
set cursor 200,180
print "level: ";level$
endif
 
if mousex() > 180 and mousex() < 350 and mousey() > 80 and mousey() < 220 and mouseclick()=1
if position$="Helicous city"
goto Helicous_city
endif
if position$="Varguard city"
goto Varguard_city
endif
if position$="Elex city"
goto Elex_city
endif
if position$="Veemest city"
goto Veemest_city
endif
if position$="Hexo city"
goto Hexo_city
endif
if position$="Vistua city"
goto Vistua_city
endif
endif
endif
 
`return to main menu
disable escapekey
if escapekey()=1 then return
sync
loop
 
``````````````````````
``````funtions````````
``````````````````````
 
`function submenu
function submenu(sub)
 
sub=sub
 
`give time for it to come
wait 1000
 
`hold file in varible
save$="DDsave.DD"
 
`clear screen
cls
 
`if file open then close it
if file open(1) then close file 1
 
`open file to read
if file exist(save$)=1
open to read 1,save$
 
`read string
read string 1,cname$
read string 1,position$
read string 1,money$
read string 1,level$
read string 1,hp$
read string 1,maxhp$
read string 1,mp$
read string 1,maxmp$
read string 1,weapon$
read string 1,items$
read string 1,armor$
read string 1,accesories$
endif
 
do
wait 10
cls
 
`create mouse in submenu
make mouse(1)
 
`create submenu
set cursor 0,0
print cname$
line 0,50,150,50
line 150,0,150,50
line 500,0,500,500
line 500,50,650,50
line 500,100,650,100
line 500,150,650,150
line 500,200,650,200
line 500,250,650,250
line 500,300,650,300
line 500,350,650,350
line 500,400,650,400
line 500,450,650,450
set cursor 510,20
print "MONEY";money$
text 510,70,"STATUS"
text 510,120,"ITEMS"
text 510,170,"ABILITIES"
text 510,220,"MAGIC"
text 510,270,"WEAPONS"
text 510,320,"INVENTIONS"
text 510,370,"MAP"
text 510,420,"QUIT"
text 0,400,"SAVE"
if mousex() > -50 and mousex() < 100 and mousey() > 400 and mousey() < 430 then ink rgb(0,100,0),0 : text 0,400,"SAVE"
if mousex() > -50 and mousex() < 100 and mousey() > 400 and mousey() < 430 and mouseclick()=1
close file 1
delete file "DDsave.DD"
open to write 1,"DDsave.DD"
write string 1,cname$
write string 1,position$
write string 1,money$
write string 1,level$
write string 1,hp$
write string 1,maxhp$
write string 1,mp$
write string 1,maxmp$
write string 1,weapon$
write string 1,items$
write string 1,items1$
write string 1,items2$
write string 1,items3$
write string 1,items4$
write string 1,items5$
write string 1,armor$
write string 1,accesories$
endif
if mousex() > 460 and mousex() < 610 and mousey() > 70 and mousey() < 100 then ink rgb(0,100,0),0 : text 510,70,"STATUS"
if mousex() > 460 and mousex() < 610 and mousey() > 70 and mousey() < 100 and mouseclick()=1
set cursor 100,100
text 0,100,"STATUS:"
set cursor 0,120
print "lv ";level$
set cursor 0,140
print "atk ";atk$
set cursor 0,160
print "mp ";mp$
set cursor 0,180
print "def ";def$
set cursor 0,200
print "spe ";spe$
set cursor 0,220
print "eva ";eva$
set cursor 0,240
print "hp ";hp$
set cursor 0,260
print "maxhp ";maxhp$
set cursor 0,280
print "mp ";mp$
set cursor 0,300
print "maxmp ";maxmp$
disable escapekey
if escapekey()=1 then exit
wait 1000
endif
if mousex() > 460 and mousex() < 610 and mousey() > 120 and mousey() < 150 then ink rgb(0,100,0),0 : text 510,120,"ITEMS"
if mousex() > 460 and mousex() < 610 and mousey() > 120 and mousey() < 150 and mouseclick()=1
set cursor 100,100
print "ITEMS: "
print items$
wait 1000
endif
if mousex() > 460 and mousex() < 610 and mousey() > 170 and mousey() < 200 then ink rgb(0,100,0),0 : text 510,170,"ABILITIES"
if mousex() > 460 and mousex() < 610 and mousey() > 170 and mousey() < 100 and mouseclick()=1
set cursor 100,100
print "ABILITIES: ";abilities$
wait 1000
endif
if mousex() > 460 and mousex() < 610 and mousey() > 220 and mousey() < 250 then ink rgb(0,100,0),0 : text 510,220,"MAGIC"
if mousex() > 460 and mousex() < 610 and mousey() > 220 and mousey() < 250 and mouseclick()=1
set cursor 100,100
print "MAGIC: ";magic$
wait 1000
endif
if mousex() > 460 and mousex() < 610 and mousey() > 270 and mousey() < 300 then ink rgb(0,100,0),0 : text 510,270,"WEAPONS"
if mousex() > 460 and mousex() < 610 and mousey() > 270 and mousey() < 300 and mouseclick()=1
set cursor 100,100
print "WEAPON: ";weapon$
wait 1000
endif
if mousex() > 460 and mousex() < 610 and mousey() > 320 and mousey() < 350 then ink rgb(0,100,0),0 : text 510,320,"INVENTIONS"
if mousex() > 460 and mousex() < 610 and mousey() > 320 and mousey() < 350 and mouseclick()=1
text 100,100,"NOT AVALIBLE IN ROUGH DRAFT"
wait 1000
endif
if mousex() > 460 and mousex() < 610 and mousey() > 370 and mousey() < 400 then ink rgb(0,100,0),0 : text 510,370,"MAP"
if mousex() > 460 and mousex() < 610 and mousey() > 370 and mousey() < 400 and mouseclick()=1
text 100,100,"NOT AVALIBLE IN ROUGH DRAFT"
wait 1000
endif
if mousex() > 460 and mousex() < 610 and mousey() > 420 and mousey() < 450 then ink rgb(0,100,0),0 : text 510,420,"QUIT"
if mousex() > 460 and mousex() < 610 and mousey() > 420 and mousey() < 450 and mouseclick()=1
end
endif
disable escapekey
if escapekey()=1 then exit
loop
 
`wait 1000
wait 1000
 
endfunction
 
`function battle system
function battle system(battle)
battle=battle
 
`open file if exist
if file exist(save$)=1
open to read 1,save$
 
`read string
read string 1,cname$
read string 1,position$
read string 1,money$
read string 1,level$
read string 1,hp$
read string 1,maxhp$
read string 1,mp$
read string 1,maxmp$
read string 1,weapon$
read string 1,items$
read string 1,armor$
read string 1,accesories$
endif
 
`your stats
print cname$
print "LV.";level$
print "HP: ",hp$,"/";maxhp$
print "MP: ",mp$,"/";maxmp$
 
`Monster base and stats
if M=01
do
cls
text 0,0,"boss: KING SNAKE"
 
`stats
set cursor 0,20
kshp$="1000"
ksmp$="50"
ksatk$="35"
ksdef$="30"
ksspe$="25"
kseva$="20"
print "HP";kshp$
print "MP";ksmp

`you win or lose
if KShp$ < "0" and KShp$ = "0"
text 100,100,"YOU WON"
money$=money$+"500"
sleep 100
exit
endif
if hp$ < "0" and hp$="0"
text 100,100,"YOU DIED"
sleep 100
 
endif
 
loop
endif
if M=02
endif
if M=03
endif
if M=04
endif
if M=05
endif
 
endfunction
 
`function make mouse
function make mouse(mouse)
mouse=mouse
ink rgb(0,0,200),0
if mousex()=mousex()+mousemovex() then x=mousex() : x1=mousex()+20 : x2=mousex()+10
if mousey()=mousey()+mousemovey() then y=mousey() : y1=mousey()-20 : y2=mousey()+20
line x,y,x2,y1
line x1,y,x2,y1
line x,y,x1,y
line x2,y,x2,y2
endfunction

+ Code Snippet

`````````````````````````````````````
`````````````Dark Dynasty````````````
`````````````ROUGH DRAFT`````````````
``````````NOVEMBER 25,2004```````````
`````````````````````````````````````
 
`sync
sync on
sync rate 50
hide mouse
 
`main menu loop
main_menu:
do
 
`clear screen
cls
 
`title
ink rgb(0,0,200),0
set text size 30
text 200,0,"DARK DYNASTY"
 
`made by
set text size 10
text 250,40,"By:Christian Ang"
 
`options
ink rgb(255,255,255),255
text 250,300,"NEW GAME"
text 250,330,"CONTINUE"
 
`make mouse
make mouse(1)
if mousex() > 200 and mousex() < 350 and mousey() > 300 and mousey() < 330 then ink rgb(0,0,100),0 : text 250,300,"NEW GAME"
if mousex() > 200 and mousex() < 350 and mousey() > 300 and mousey() < 330 and mouseclick()=1
gosub NEW_GAME:
endif
if mousex() > 200 and mousex() < 350 and mousey() > 330 and mousey() < 360 then ink rgb(0,0,100),0 : text 250,330,"CONTINUE"
if mousex() > 200 and mousex() < 350 and mousey() > 330 and mousey() < 360 and mouseclick()=1
gosub CONTINUE:
endif
sync
enable escapekey
loop
 
``````````````````````
```````NEW GAME```````
``````````````````````
 
NEW_GAME:
cls
 
`hold file in varible
save$="DDsave.DD"
 
`position,money,level
position$= "Helicous city"
money$="1000"
level$="1"
atk$="100"
mp$="50"
def$="30"
spe$="20"
eva$="20"
hp$="500"
maxhp$="500"
mp$="20"
maxmp$="20"
exp$="0"
next$="100"
weapon$="small blade"
accesories$=""
items$=""
items1$=""
items2$=""
items3$=""
items4$=""
items5$=""
armor$=""
 
`if file open then close it
if file open(1) then close file 1
 
`open file to read
if file exist(save$)=1
do
text 100,100,"CAUTION"
text 50,120,"If you decide to make a new"
text 50,140,"character you will delete your"
text 100,160,"old one"
text 100,200,"CONTINUE Y/N"
if inkey$()="Y"
delete file "DDsave.DD"
cls
if file exist(save$)=0 then text 100,100,"delete succesful"
sleep 2000
return
endif
if inkey$()="N" then return
if inkey$()="y"
delete file "DDsave.DD"
cls
if file exist(save$)=0 then text 100,100,"delete succesful"
sleep 2000
return
endif
if inkey$()="n" then return
disable escapekey
if escapekey()=1 then return
loop
endif
 
`if file do not exist you will make a file
if file exist(save$)=0
 
`put something in a file
input "What is the name of your character? ";cname$
 
`make a file
open to write 1,"DDsave.DD"
 
`write the name to file
write string 1,cname$
write string 1,position$
write string 1,money$
write string 1,level$
write string 1,hp$
write string 1,maxhp$
write string 1,mp$
write string 1,maxmp$
write string 1,weapon$
write string 1,items$
write string 1,items1$
write string 1,items2$
write string 1,items3$
write string 1,items4$
write string 1,items5$
write string 1,armor$
write string 1,accesories$
 
`clear screen
cls
endif
 
`varibles
H=0
B1=0
 
do
 
Helicous_city:
cls
 
`welcome them
text 100,100,"WELCOME TO HELICOUS CITY"
 
`loop
do
wait 10
cls
 
`make mouse
make mouse(1)
 
`if out or in city
if H=0
text 100,0,"you want to go out of the city press "O""
if inkey$()="O"
H=1
endif
if inkey$()="o"
H=1
endif
 
`shops(weapons,armor,and items)
text 0,200,"Weapons store"
text 0,220,"Items store"
text 0,240,"Armor store"
if mousex() > 0 and mousex() < 100 and mousey() > 200 and mousey() < 230 then ink rgb(100,0,0),0 : text 0,200,"Weapons store"
if mousex() > 0 and mousex() < 100 and mousey() > 200 and mousey() < 230 and mouseclick()=1
gosub Weapons:
endif
if mousex() > 0 and mousex() < 100 and mousey() > 220 and mousey() < 250 then ink rgb(100,0,0),0 : text 0,220,"Items store"
if mousex() > 0 and mousex() < 100 and mousey() > 220 and mousey() < 250 and mouseclick()=1
gosub items
endif
if mousex() > 0 and mousex() < 100 and mousey() > 240 and mousey() < 270 then ink rgb(100,0,0),0 : text 0,240,"Armor store"
if mousex() > 0 and mousex() < 100 and mousey() > 240 and mousey() < 270 and mouseclick()=1
gosub armor
endif
endif
 
`HP,MP don't go above max
if hp$ > maxhp$ then hp$=maxhp$
if mp$ > maxmp$ then mp$=maxmp$
 
`if outside
if H=1
text 50,100,"push up to go to the boss"
text 50,120,"push down back to town"
text 50,140,"push right or left to go to fight monsters that are in Helicous"
 
`back to town
if downkey()=1
H=0
endif
 
`H.Boss
if upkey()=1 then M=01
 
if rightkey()=1
a=rnd(6)
b=rnd(2)
 
`monsters
if a=1
do
text 0,0,"killer snake"
 
`stats
Hksatk$="50"
Hkshp$="1000"
Hksmp$="50"
Hksatk$="35"
Hksdef$="30"
Hksspe$="25"
Hkseva$="20"
if b=1 then text 80,0,"there is 1"
if b=2 then text 80,0,"there are 2"
set cursor 0,20
print "HP ";Hkshp$
print "MP ";Hksmp$
loop
endif
if a=2
do
cls
text 0,0,"speed snake"
 
`stats
Hksatk$="50"
Hkshp$="1000"
Hksmp$="50"
Hksatk$="35"
Hksdef$="30"
Hksspe$="25"
Hkseva$="20"
if b=1 then text 80,0,"there is 1"
if b=2 then text 80,0,"there are 2"
set cursor 0,20
print "HP";Hkshp$
print "MP";Hksmp$
loop
endif
if a=3
do
cls
text 0,0,"Demon snake"
 
`stats
if b=1 then text 80,0,"there is 1"
if b=2 then text 80,0,"there are 2"
Hksatk$="50"
Hkshp$="1000"
Hksmp$="50"
Hksatk$="35"
Hksdef$="30"
Hksspe$="25"
Hkseva$="20"
set cursor 0,20
print "HP";Hkshp$
print "MP";Hksmp$
loop
endif
if a=4
do
cls
text 0,0,"Shadow snake"
 
`stats
Hksatk$="50"
Hkshp$="1000"
Hksmp$="50"
Hksatk$="35"
Hksdef$="30"
Hksspe$="25"
Hkseva$="20"
if b=1 then text 80,0,"there is 1"
if b=2 then text 80,0,"there are 2"
set cursor 0,20
print "HP";Hkshp$
print "MP";Hksmp$
loop
endif
if a=5
do
cls
text 0,0,"Snake Killer"
 
`stats
Hksatk$="50"
Hkshp$="1000"
Hksmp$="50"
Hksatk$="35"
Hksdef$="30"
Hksspe$="25"
Hkseva$="20"
if b=1 then text 80,0,"there is 1"
if b=2 then text 80,0,"there are 2"
set cursor 0,20
print "HP";Hkshp$
print "MP";Hksmp$
loop
endif
if a=6
do
cls
text 0,0,"Snake minions"
 
`stats
Hksatk$="50"
Hkshp$="1000"
Hksmp$="50"
Hksatk$="35"
Hksdef$="30"
Hksspe$="25"
Hkseva$="20"
if b=1 then text 80,0,"there is 1"
if b=2 then text 80,0,"there are 2"
set cursor 0,20
print "HP";Hkshp$
print "MP";Hksmp$
loop
endif
endif
endif
 
`menu
disable escapekey
if escapekey()=1
cls
submenu(2)
endif
loop
 
Varguard_city:
cls
 
`welcome them
text 100,100,"WELCOME TO VARGUARD CITY"
 
`loop
do
wait 10
cls
 
`make mouse
make mouse(1)
 
`menu
disable escapekey
if escapekey()=1
cls
submenu(2)
endif
loop
 
Elex_city:
cls
 
`welcome them
text 100,100,"WELCOME TO ELEX CITY"
 
`loop
do
wait 10
cls
 
`make mouse
make mouse(1)
 
`menu
disable escapekey
if escapekey()=1
cls
submenu(2)
endif
loop
 
Veemest_city:
cls
 
`welcome them
text 100,100,"WELCOME TO VEEMEST CITY"
 
`loop
do
wait 10
cls
 
`make mouse
make mouse(1)
 
`menu
disable escapekey
if escapekey()=1
cls
submenu(2)
endif
loop
 
Hexo_city:
cls
 
`make mouse
make mouse(1)
 
`loop
do
wait 10
cls
 
`make mouse
make mouse(1)
 
`menu
disable escapekey
if escapekey()=1
cls
submenu(2)
endif
loop
 
Vistua_city:
cls
 
`welcome them
text 100,100,"WELCOME TO VISTUA CITY"
 
`loop
do
wait 10
cls
 
`make mouse
make mouse(1)
 
`menu
disable escapekey
if escapekey()=1
cls
submenu(2)
endif
loop
 
disable escapekey
if escapekey()=1
cls
endif
sync
loop
 
`weapons
weapons:
wait 100
save$="DDsave.DD"
if file open(1) then close file 1
open to read 1,save$
read string 1,cname$
read string 1,position$
read string 1,money$
read string 1,level$
read string 1,hp$
read string 1,maxhp$
read string 1,mp$
read string 1,maxmp$
read string 1,weapon$
read string 1,items$
read string 1,armor$
read string 1,accesories$
do
wait 10
make mouse(1)
cls
set text size 30
text 100,100,"WEAPON SHOP"
set text size 10
text 100,200,"press enter to enter"
if returnkey()=1 then exit
loop
do
cls (0)
make mouse(1)
set text size 30
text 200,0,"WEAPON SHOP"
set text size 10
ink rgb(255,255,255),255
text 100,100,"Arrow head Bow  long range $500"
text 100,120,"Laser phaser  long range $1000"
text 100,140,"Demon Bow  long range $2000"
text 100,160,"Dark phaser  long range $4000"
text 100,180,"Light phaser  long range $4000"
text 100,200,"Master bow  long range $10000"
text 100,220,"Shocker gun  long range $10000"
text 100,240,"tranculizer  long range $10000"
text 100,260,"Dark sword  short range $1000"
text 100,280,"Light sword  short range $1000"
text 100,300,"Mini sword  short range $500"
text 100,320,"Long knife  short range $500"
text 100,340,"Master sword  short range 10000"
text 100,360,"Crystal sword short range $10000"
text 100,380,"AMMO"
text 100,420,"SELL"
text 100,460,"BACK <-<-<-<-"
print "Money: ";money$
if mousex() > 50 and mousex() < 200 and mousey() > 100 and mousey() < 120 then ink rgb(100,0,0),0 : text 100,100,"Arrow head Bow  long range $500"
if mousex() > 50 and mousex() < 200 and mousey() > 100 and mousey() < 120 and mouseclick()=1
if money$ < "500"
money$=money$-"500"
if item$="" then item$="arrow head bow"
text 350,100,"You Bought a Arrow head bow"
wait 1000
endif
if money$ > "500"
text 350,100,"You cannot buy arrow head bow"
wait 1000
endif
endif
if mousex() > 50 and mousex() < 200 and mousey() > 120 and mousey() < 140 then ink rgb(100,0,0),0 : text 100,120,"Laser phaser  long range $1000"
if mousex() > 50 and mousex() < 200 and mousey() > 120 and mousey() < 140 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 140 and mousey() < 160 then ink rgb(100,0,0),0 : text 100,140,"Demon Bow  long range $2000"
if mousex() > 50 and mousex() < 200 and mousey() > 140 and mousey() < 160 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 160 and mousey() < 180 then ink rgb(100,0,0),0 : text 100,160,"Dark phaser  long range $4000"
if mousex() > 50 and mousex() < 200 and mousey() > 160 and mousey() < 180 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 180 and mousey() < 200 then ink rgb(100,0,0),0 : text 100,180,"Light phaser  long range $4000"
if mousex() > 50 and mousex() < 200 and mousey() > 180 and mousey() < 200 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 200 and mousey() < 220 then ink rgb(100,0,0),0 : text 100,200,"Master bow  long range $10000"
if mousex() > 50 and mousex() < 200 and mousey() > 200 and mousey() < 220 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 220 and mousey() < 240 then ink rgb(100,0,0),0 : text 100,220,"Shocker gun  long range $10000"
if mousex() > 50 and mousex() < 200 and mousey() > 220 and mousey() < 240 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 240 and mousey() < 260 then ink rgb(100,0,0),0 : text 100,240,"tranculizer  long range $10000"
if mousex() > 50 and mousex() < 200 and mousey() > 240 and mousey() < 260 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 260 and mousey() < 280 then ink rgb(100,0,0),0 : text 100,260,"Dark sword  short range $1000"
if mousex() > 50 and mousex() < 200 and mousey() > 260 and mousey() < 280 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 280 and mousey() < 300 then ink rgb(100,0,0),0 : text 100,280,"Light sword  short range $1000"
if mousex() > 50 and mousex() < 200 and mousey() > 280 and mousey() < 300 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 300 and mousey() < 320 then ink rgb(100,0,0),0 : text 100,300,"Mini sword  short range $500"
if mousex() > 50 and mousex() < 200 and mousey() > 300 and mousey() < 320 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 320 and mousey() < 340 then ink rgb(100,0,0),0 : text 100,320,"Long knife  short range $500"
if mousex() > 50 and mousex() < 200 and mousey() > 320 and mousey() < 340 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 340 and mousey() < 360 then ink rgb(100,0,0),0 : text 100,340,"Master sword  short range 10000"
if mousex() > 50 and mousex() < 200 and mousey() > 340 and mousey() < 360 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 360 and mousey() < 380 then ink rgb(100,0,0),0 : text 100,360,"Crystal sword short range $10000"
if mousex() > 50 and mousex() < 200 and mousey() > 360 and mousey() < 380 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 380 and mousey() < 400 then ink rgb(100,0,0),0 : text 100,380,"AMMO"
if mousex() > 50 and mousex() < 200 and mousey() > 380 and mousey() < 400 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 420 and mousey() < 440 then ink rgb(100,0,0),0 : text 100,420,"SELL"
if mousex() > 50 and mousex() < 200 and mousey() > 420 and mousey() < 440 and mouseclick()=1
endif
if mousex() > 50 and mousex() < 200 and mousey() > 460 and mousey() < 480 then ink rgb(100,0,0),0 : text 100,460,"BACK <-<-<-<-"
if mousex() > 50 and mousex() < 200 and mousey() > 460 and mousey() < 480 and mouseclick()=1
return
endif
sync
loop
 
`items
items:
 
`armor
armor:
 
``````````````````````
``````CONTINUE````````
``````````````````````
 
CONTINUE:
 
`hold file in varible
save$="DDsave.DD"
 
`clear screen
cls
 
`if file open then close it
if file open(1) then close file 1
 
`open file to read
if file exist(save$)=1
open to read 1,save$
 
`read string
read string 1,cname$
read string 1,position$
read string 1,money$
read string 1,level$
read string 1,hp$
read string 1,maxhp$
read string 1,mp$
read string 1,maxmp$
read string 1,weapon$
read string 1,items$
read string 1,armor$
read string 1,accesories$
endif
 
`loop
do
 
cls
 
`make mouse
make mouse(1)
 
set text size 30
text 230,0,"LOAD FILE"
 
if file exist(save$)=0
set text size 10
text 200,100,"DARK DYNASTY"
text 250,120,"EMPTY"
endif
 
`get file
if file exist(save$)=1
ink rgb(255,255,255),0
set text size 10
text 200,100,"DARK DYNASTY"
set cursor 200,120
print cname$
set cursor 200,140
print "position: ";position$
set cursor 200,160
print "money: ";money$
set cursor 200,180
print "level: ";level$
 
`click on file
if mousex() > 180 and mousex() < 350 and mousey() > 80 and mousey() < 220
ink rgb(0,0,200),0
set text size 10
text 200,100,"DARK DYNASTY"
set cursor 200,120
print cname$
set cursor 200,140
print "position: ";position$
set cursor 200,160
print "money: ";money$
set cursor 200,180
print "level: ";level$
endif
 
if mousex() > 180 and mousex() < 350 and mousey() > 80 and mousey() < 220 and mouseclick()=1
if position$="Helicous city"
goto Helicous_city
endif
if position$="Varguard city"
goto Varguard_city
endif
if position$="Elex city"
goto Elex_city
endif
if position$="Veemest city"
goto Veemest_city
endif
if position$="Hexo city"
goto Hexo_city
endif
if position$="Vistua city"
goto Vistua_city
endif
endif
endif
 
`return to main menu
disable escapekey
if escapekey()=1 then return
sync
loop
 
``````````````````````
``````funtions````````
``````````````````````
 
`function submenu
function submenu(sub)
 
sub=sub
 
`give time for it to come
wait 1000
 
`hold file in varible
save$="DDsave.DD"
 
`clear screen
cls
 
`if file open then close it
if file open(1) then close file 1
 
`open file to read
if file exist(save$)=1
open to read 1,save$
 
`read string
read string 1,cname$
read string 1,position$
read string 1,money$
read string 1,level$
read string 1,hp$
read string 1,maxhp$
read string 1,mp$
read string 1,maxmp$
read string 1,weapon$
read string 1,items$
read string 1,armor$
read string 1,accesories$
endif
 
do
wait 10
cls
 
`create mouse in submenu
make mouse(1)
 
`create submenu
set cursor 0,0
print cname$
line 0,50,150,50
line 150,0,150,50
line 500,0,500,500
line 500,50,650,50
line 500,100,650,100
line 500,150,650,150
line 500,200,650,200
line 500,250,650,250
line 500,300,650,300
line 500,350,650,350
line 500,400,650,400
line 500,450,650,450
set cursor 510,20
print "MONEY";money$
text 510,70,"STATUS"
text 510,120,"ITEMS"
text 510,170,"ABILITIES"
text 510,220,"MAGIC"
text 510,270,"WEAPONS"
text 510,320,"INVENTIONS"
text 510,370,"MAP"
text 510,420,"QUIT"
text 0,400,"SAVE"
if mousex() > -50 and mousex() < 100 and mousey() > 400 and mousey() < 430 then ink rgb(0,100,0),0 : text 0,400,"SAVE"
if mousex() > -50 and mousex() < 100 and mousey() > 400 and mousey() < 430 and mouseclick()=1
close file 1
delete file "DDsave.DD"
open to write 1,"DDsave.DD"
write string 1,cname$
write string 1,position$
write string 1,money$
write string 1,level$
write string 1,hp$
write string 1,maxhp$
write string 1,mp$
write string 1,maxmp$
write string 1,weapon$
write string 1,items$
write string 1,items1$
write string 1,items2$
write string 1,items3$
write string 1,items4$
write string 1,items5$
write string 1,armor$
write string 1,accesories$
endif
if mousex() > 460 and mousex() < 610 and mousey() > 70 and mousey() < 100 then ink rgb(0,100,0),0 : text 510,70,"STATUS"
if mousex() > 460 and mousex() < 610 and mousey() > 70 and mousey() < 100 and mouseclick()=1
set cursor 100,100
text 0,100,"STATUS:"
set cursor 0,120
print "lv ";level$
set cursor 0,140
print "atk ";atk$
set cursor 0,160
print "mp ";mp$
set cursor 0,180
print "def ";def$
set cursor 0,200
print "spe ";spe$
set cursor 0,220
print "eva ";eva$
set cursor 0,240
print "hp ";hp$
set cursor 0,260
print "maxhp ";maxhp$
set cursor 0,280
print "mp ";mp$
set cursor 0,300
print "maxmp ";maxmp$
disable escapekey
if escapekey()=1 then exit
wait 1000
endif
if mousex() > 460 and mousex() < 610 and mousey() > 120 and mousey() < 150 then ink rgb(0,100,0),0 : text 510,120,"ITEMS"
if mousex() > 460 and mousex() < 610 and mousey() > 120 and mousey() < 150 and mouseclick()=1
set cursor 100,100
print "ITEMS: "
print items$
wait 1000
endif
if mousex() > 460 and mousex() < 610 and mousey() > 170 and mousey() < 200 then ink rgb(0,100,0),0 : text 510,170,"ABILITIES"
if mousex() > 460 and mousex() < 610 and mousey() > 170 and mousey() < 100 and mouseclick()=1
set cursor 100,100
print "ABILITIES: ";abilities$
wait 1000
endif
if mousex() > 460 and mousex() < 610 and mousey() > 220 and mousey() < 250 then ink rgb(0,100,0),0 : text 510,220,"MAGIC"
if mousex() > 460 and mousex() < 610 and mousey() > 220 and mousey() < 250 and mouseclick()=1
set cursor 100,100
print "MAGIC: ";magic$
wait 1000
endif
if mousex() > 460 and mousex() < 610 and mousey() > 270 and mousey() < 300 then ink rgb(0,100,0),0 : text 510,270,"WEAPONS"
if mousex() > 460 and mousex() < 610 and mousey() > 270 and mousey() < 300 and mouseclick()=1
set cursor 100,100
print "WEAPON: ";weapon$
wait 1000
endif
if mousex() > 460 and mousex() < 610 and mousey() > 320 and mousey() < 350 then ink rgb(0,100,0),0 : text 510,320,"INVENTIONS"
if mousex() > 460 and mousex() < 610 and mousey() > 320 and mousey() < 350 and mouseclick()=1
text 100,100,"NOT AVALIBLE IN ROUGH DRAFT"
wait 1000
endif
if mousex() > 460 and mousex() < 610 and mousey() > 370 and mousey() < 400 then ink rgb(0,100,0),0 : text 510,370,"MAP"
if mousex() > 460 and mousex() < 610 and mousey() > 370 and mousey() < 400 and mouseclick()=1
text 100,100,"NOT AVALIBLE IN ROUGH DRAFT"
wait 1000
endif
if mousex() > 460 and mousex() < 610 and mousey() > 420 and mousey() < 450 then ink rgb(0,100,0),0 : text 510,420,"QUIT"
if mousex() > 460 and mousex() < 610 and mousey() > 420 and mousey() < 450 and mouseclick()=1
end
endif
disable escapekey
if escapekey()=1 then exit
loop
 
`wait 1000
wait 1000
 
endfunction
 
`function battle system
function battle system(battle)
battle=battle
 
`open file if exist
if file exist(save$)=1
open to read 1,save$
 
`read string
read string 1,cname$
read string 1,position$
read string 1,money$
read string 1,level$
read string 1,hp$
read string 1,maxhp$
read string 1,mp$
read string 1,maxmp$
read string 1,weapon$
read string 1,items$
read string 1,armor$
read string 1,accesories$
endif
 
`your stats
print cname$
print "LV.";level$
print "HP: ",hp$,"/";maxhp$
print "MP: ",mp$,"/";maxmp$
 
`Monster base and stats
if M=01
do
cls
text 0,0,"boss: KING SNAKE"
 
`stats
set cursor 0,20
kshp$="1000"
ksmp$="50"
ksatk$="35"
ksdef$="30"
ksspe$="25"
kseva$="20"
print "HP";kshp$
print "MP";ksmp
 

`you win or lose
if KShp$ < "0" and KShp$ = "0"
text 100,100,"YOU WON"
money$=money$+"500"
sleep 100
exit
endif
if hp$ < "0" and hp$="0"
text 100,100,"YOU DIED"
sleep 100
 
endif
 
loop
endif
if M=02
endif
if M=03
endif
if M=04
endif
if M=05
endif
 
endfunction
 
`function make mouse
function make mouse(mouse)
mouse=mouse
ink rgb(0,0,200),0
if mousex()=mousex()+mousemovex() then x=mousex() : x1=mousex()+20 : x2=mousex()+10
if mousey()=mousey()+mousemovey() then y=mousey() : y1=mousey()-20 : y2=mousey()+20
line x,y,x2,y1
line x1,y,x2,y1
line x,y,x1,y
line x2,y,x2,y2
endfunction

my problem is that when i create the random monsters it shows only the name and when i put it by itself it works fine

`if outside
if H=1
text 50,100,"push up to go to the boss"
text 50,120,"push down back to town"
text 50,140,"push right or left to go to fight monsters that are in Helicous"
 
`back to town
if downkey()=1
H=0
endif
 
`H.Boss
if upkey()=1 then M=01
 
if rightkey()=1
a=rnd(6)
b=rnd(2)
 
`monsters
if a=1
do
text 0,0,"killer snake"
 
`stats
Hksatk$="50"
Hkshp$="1000"
Hksmp$="50"
Hksatk$="35"
Hksdef$="30"
Hksspe$="25"
Hkseva$="20"
if b=1 then text 80,0,"there is 1"
if b=2 then text 80,0,"there are 2"
set cursor 0,20
print "HP ";Hkshp$
print "MP ";Hksmp$
loop
endif
if a=2
do
cls
text 0,0,"speed snake"
 
`stats
Hksatk$="50"
Hkshp$="1000"
Hksmp$="50"
Hksatk$="35"
Hksdef$="30"
Hksspe$="25"
Hkseva$="20"
if b=1 then text 80,0,"there is 1"
if b=2 then text 80,0,"there are 2"
set cursor 0,20
print "HP";Hkshp$
print "MP";Hksmp$
loop
endif
if a=3
do
cls
text 0,0,"Demon snake"
 
`stats
if b=1 then text 80,0,"there is 1"
if b=2 then text 80,0,"there are 2"
Hksatk$="50"
Hkshp$="1000"
Hksmp$="50"
Hksatk$="35"
Hksdef$="30"
Hksspe$="25"
Hkseva$="20"
set cursor 0,20
print "HP";Hkshp$
print "MP";Hksmp$
loop
endif
if a=4
do
cls
text 0,0,"Shadow snake"
 
`stats
Hksatk$="50"
Hkshp$="1000"
Hksmp$="50"
Hksatk$="35"
Hksdef$="30"
Hksspe$="25"
Hkseva$="20"
if b=1 then text 80,0,"there is 1"
if b=2 then text 80,0,"there are 2"
set cursor 0,20
print "HP";Hkshp$
print "MP";Hksmp$
loop
endif
if a=5
do
cls
text 0,0,"Snake Killer"
 
`stats
Hksatk$="50"
Hkshp$="1000"
Hksmp$="50"
Hksatk$="35"
Hksdef$="30"
Hksspe$="25"
Hkseva$="20"
if b=1 then text 80,0,"there is 1"
if b=2 then text 80,0,"there are 2"
set cursor 0,20
print "HP";Hkshp$
print "MP";Hksmp$
loop
endif
if a=6
do
cls
text 0,0,"Snake minions"
 
`stats
Hksatk$="50"
Hkshp$="1000"
Hksmp$="50"
Hksatk$="35"
Hksdef$="30"
Hksspe$="25"
Hkseva$="20"
if b=1 then text 80,0,"there is 1"
if b=2 then text 80,0,"there are 2"
set cursor 0,20
print "HP";Hkshp$
print "MP";Hksmp$
loop
endif
endif
endif

+ Code Snippet

`if outside
if H=1
text 50,100,"push up to go to the boss"
text 50,120,"push down back to town"
text 50,140,"push right or left to go to fight monsters that are in Helicous"
 
`back to town
if downkey()=1
H=0
endif
 
`H.Boss
if upkey()=1 then M=01
 
if rightkey()=1
a=rnd(6)
b=rnd(2)
 
`monsters
if a=1
do
text 0,0,"killer snake"
 
`stats
Hksatk$="50"
Hkshp$="1000"
Hksmp$="50"
Hksatk$="35"
Hksdef$="30"
Hksspe$="25"
Hkseva$="20"
if b=1 then text 80,0,"there is 1"
if b=2 then text 80,0,"there are 2"
set cursor 0,20
print "HP ";Hkshp$
print "MP ";Hksmp$
loop
endif
if a=2
do
cls
text 0,0,"speed snake"
 
`stats
Hksatk$="50"
Hkshp$="1000"
Hksmp$="50"
Hksatk$="35"
Hksdef$="30"
Hksspe$="25"
Hkseva$="20"
if b=1 then text 80,0,"there is 1"
if b=2 then text 80,0,"there are 2"
set cursor 0,20
print "HP";Hkshp$
print "MP";Hksmp$
loop
endif
if a=3
do
cls
text 0,0,"Demon snake"
 
`stats
if b=1 then text 80,0,"there is 1"
if b=2 then text 80,0,"there are 2"
Hksatk$="50"
Hkshp$="1000"
Hksmp$="50"
Hksatk$="35"
Hksdef$="30"
Hksspe$="25"
Hkseva$="20"
set cursor 0,20
print "HP";Hkshp$
print "MP";Hksmp$
loop
endif
if a=4
do
cls
text 0,0,"Shadow snake"
 
`stats
Hksatk$="50"
Hkshp$="1000"
Hksmp$="50"
Hksatk$="35"
Hksdef$="30"
Hksspe$="25"
Hkseva$="20"
if b=1 then text 80,0,"there is 1"
if b=2 then text 80,0,"there are 2"
set cursor 0,20
print "HP";Hkshp$
print "MP";Hksmp$
loop
endif
if a=5
do
cls
text 0,0,"Snake Killer"
 
`stats
Hksatk$="50"
Hkshp$="1000"
Hksmp$="50"
Hksatk$="35"
Hksdef$="30"
Hksspe$="25"
Hkseva$="20"
if b=1 then text 80,0,"there is 1"
if b=2 then text 80,0,"there are 2"
set cursor 0,20
print "HP";Hkshp$
print "MP";Hksmp$
loop
endif
if a=6
do
cls
text 0,0,"Snake minions"
 
`stats
Hksatk$="50"
Hkshp$="1000"
Hksmp$="50"
Hksatk$="35"
Hksdef$="30"
Hksspe$="25"
Hkseva$="20"
if b=1 then text 80,0,"there is 1"
if b=2 then text 80,0,"there are 2"
set cursor 0,20
print "HP";Hkshp$
print "MP";Hksmp$
loop
endif
endif
endif

and if you see any other problems put them

NARUTO IS THE NINJA.......not really

Back to top

Profile PM Email Website

Slayer93

20

Years of Service

User Offline

Joined: 5th Aug 2004

Location: I wish I knew

Posted: 3rd Mar 2005 10:09

Link

oh i also have a problem with the weapon shop and this is not done so don't go to item and armor shop and a lot other things

NARUTO IS THE NINJA.......not really

Back to top

Profile PM Email Website

Los

20

Years of Service

User Offline

Joined: 3rd Jan 2005

Location:

Posted: 3rd Mar 2005 17:56

Link

well dude I skipped all the armour stuff and left the city to fight the small enemies. Met a .. Snake Killer

well naturally I expected to zonk it and win but I got some slow flashing text. I saw it's HP/MP and 'there are 2 of them' but they disappeared in steps.
0=all show
1=name + amount show
2=name only

tick tock
0,1,2,2
repeat in slow manner

thing is there was no wait command in there. odd. Well you could remove the cls above the do, or leave a sync in before the loop, that keeps everything on the screen. Use all text or print rather than switching between 2.. erm.. odd why it was jumping so much. (?)

I'm glad the continue worked.. I didn't have to type in new names all the time.. my bloke was called 'tole' in Helencia (?)

Exciting stuff.. but if I was gonna make a game I would add in graphics and music files. So make sure your code game code works and you can load whenever you want, you can add in new monsters whenever, cus when I added in loading code for one of my programs? I couldn't see what I needed to call to get everything back on the screen... you see I was so interested in building the place from scratch I couldn't load it back up

still, I kept the program and I will either make another file for loading and add in functionality again.. or figure out what I need to do. You see I kept a record of how many boxes I made in a variable, increased each time I pressed Enter, and assigned it a text box to appear on the screen for it's properties. now when I load it I can't see the text box and I'm 100% unsure it's doing what I want it to.. it's running through that code line by line and I can't understand its order properly... f you get me. I werote it all.. know what each bit does, but I couldn't figure out the loading ORDER.. to call each bit. I also renamed my variables so what gets passed to functions or fututher in the program... oopS!

have a great time making your code and don't punch the monitor! peace!

" Ahh to finish something! My boy, have you ever accomplished anything? "

Back to top

Profile PM

Slayer93

20

Years of Service

User Offline

Joined: 5th Aug 2004

Location: I wish I knew

Posted: 4th Mar 2005 08:26

Link

i am very good at making saving files for my game

.It works with the wait and sync ishould of thought of that

.i also have a problem with the weapon shop the money won't go down when i buy something(i only made the first weapon buyable).in the boss and random battles i didn't set anything except the name yet.

NARUTO IS THE NINJA.......not really

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Discussion / text based game Dark Dynasty