Or you can try my Phototype program it is my first time make a program it is kind of have some bug but i have no time to do it.
this program is dead but it can be useful for ya.
here ya go.
(it about a thousand lines LOL)
remstart
------------------------------------------------------------------------
Out World Game The Grend Attack STORY 1
------------------------------------------------------------------------
remend
mainmanu:
hide mouse
do
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
DO
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
endif
cls
loop
rem level up CodeBase
LEVELUP:
`2
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
`3
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
`4
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
`5
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
`6
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
`7
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
`8
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
`9
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:
do
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
Have a good day to you guy!
