Hero

Hero
Topic Started: Jan 10 2008, 08:16 AM (822 Views)
astropirate	Jan 10 2008, 08:16 AM Post #1
Not Lurking Posts: 36 Group: Members Member #9 Joined: 9-01-08	This is a huge program! Each character in this game had to drawn in manually, which gives it it's bulk. Hero is an RPG including 5 weapons and 6 monsters. Code: :ClrHome :Output(2,7,"HERO" :Output(6,9,"BY" :Output(7,8,"MARC" :Output(8,7,"HAWKINSON" :Output(1,3,"/:" :Output(2,3,"::" :Output(3,3,"::" :Output(4,3,"::" :Output(5,3,"::" :Output(6,1,"(+^^+)" :Output(7,3,"OO" :Output(8,3,"OO" :Pause :PlotsOff :ClrDraw :1->Xmin :95->Xmax :1->Ymin :63->Ymax :CoordOff :GridOff :AxesOff :PlotsOff :Lbl L :ClrHome :Menu("HERO","NEW GAME",R,"CONTINUE",O :Lbl O :ClrHome :Disp "(1-6)" :Input "LEVEL?:",A :abs(iPart(A))->A :If A>6 :6->A :If A<1 :1->A :Input "GOLD?:",D :Disp "(0-4)" :Input "WEAPON NUMBER:",F :iPart(F)->F :If F>4 :4->F :If F<0 :0->F :Input "SKILL:",E :If A=1 :15->C :If A=2 :30->C :If A=3 :60->C :If A=4 :120->C :If A=5 :240->C :If A=6 :450->C :C->B :Goto T :Lbl R :1->A :15->C :C->B :0->F :150->D :0->E :Lbl T :ClrHome :If A=1 :3->G :If A=2 :6->G :If A=3 :12->G :If A=4 :24->G :If A=5 :48->G :If A=6 :96->G :If F=1 :G+2->G :If F=2 :G+5->G :If F=3 :G+8->G :If F=4 :G+12->G :Menu("TOWN","FIGHT",1,"INN 5G",I,"SHOP",S,"STATS",A,"HELP",H,"RESTART",R,"QUIT",Q Be sure you get ..."FIGHT",1,"INN 5G",I... correct. There's a 'ONE' after FIGHT and an 'EYE' after INN 5G :Lbl H :ClrHome :Disp "IN THE FIGHT","MODE, UP ARROW","ATTACKS, DOWN","ARROW RUNS." :Pause :ClrHome :Disp "THE YELLOW KEY","QUITS OUT OF THE","GAME.","LOWER NUMBERS","SHOW DAMAGE","RECIEVED." :Pause :ClrHome :Goto T :Lbl Q :ClrHome :Stop :Lbl I :If D<5 :Then :Output(4,1,"NOT ENOUGH GOLD!" :Pause :ClrHome :Goto T :End :C->B :D-5->D :ClrHome :Output(4,1,"HEALTH RECOVERED" :Pause :Goto T :Lbl A :ClrHome :Output(1,1,"LEVEL:" :Output(1,8,A :Output(2,1,"HEALTH:" :Output(2,9,B :Output(2,12,"/" :Output(2,14,C :Output(3,1,"GOLD:" :Output(3,7,D :Output(4,1,"SKILL:" :Output(4,8,E :Output(5,1,"WEAPON:" :If F=0 :Output(5,9,"FIST" :If F=1 :Output(5,9,"POLE" :If F=2 :Output(5,9,"DAGGER" :If F=3 :Output(5,9,"SPEAR" :If F=4 :Output(5,9,"SWORD" :Pause :ClrHome :Goto T :Lbl S :ClrHome :Menu("SHOP","POLE___100",11,"DAGGER_300",12,"SPEAR__900",13,"SWORD__1500",14,"TOWN",T :Lbl 10 :ClrHome :Disp "YOU CANNOT","AFFORD IT" :Pause :ClrHome :Goto S :Lbl 11 :If D<100 :Goto 10 :D-100->D :1->F :Goto T :Lbl 12 :If D<300 :Goto 10 :D-300->D :2->F :Goto T :Lbl 13 :If D<900 :Goto 10 :D-900->D :3->F :Goto T :Lbl 14 :If D<1500 :Goto 10 :D-1500->D :4->F :Goto T :Lbl 1 :If A=1 or A=2 :randInt(1,A)->H :If A=3 :randInt(2,3)->H :If A=4 :randInt(3,4)->H :If A=5 :randInt(3,5)->H :If A=6 :randInt(4,6)->H :If H=1 :Then :15->I :3->J :10->M :5->N :End :If H=2 :Then :30->I :6->J :20->M :7->N :End :If H=3 :Then :60->I :12->J :50->M :10->N :End :If H=4 :Then :120->I :24->J :100->M :25->N :End :If H=5 :Then :240->I :48->J :200->M :50->N :End :If H=6 :Then :500->I :96->J :0->M :0->N :End :Lbl 2 :ClrDraw :Text(1,1,"HEALTH:" :Text(14,1,"WEAPON:" :If F=0 :Text(20,1,"FIST" :If F=1 :Text(20,1,"POLE" :If F=2 :Text(20,1,"DAGGER" :If F=3 :Text(20,1,"SPEAR" :If F=4 :Text(20,1,"SWORD" :Text(1,60,"ENEMY:" :If H=1 :Text(8,60,"BIG ROACH" :If H=2 :Text(8,60,"BAD CHIMP" :If H=3 :Text(8,60,"FANG WOLF" :If H=4 :Text(8,60,"SERPENT" :If H=5 :Text(8,60,"GOLOM" :If H=6 :Text(8,60,"KULROG" :Line(30,10,35,15 :Line(38,12,36,15 :Line(36,15,37,20 :Line(37,20,32,21 :Line(37,20,38,23 :Line(38,20,39,23 :Line(37,20,43,18 :If F=1 :Line(45,25,41,14 :If F=2 :Line(43,17,46,20 :If F=3 :Then :Line(47,27,41,14 :Pt-On(46,26 :Pt-On(47,25 :End :If F=4 :Then :Line(42,16,45,26 :Line(43,21,44,27 :End :If H=1 :Then :Line(55,15,65,14 :Line(53,13,67,12 :Line(54,14,53,10 :Line(65,13,70,9 :Line(60,12,64,9 :Line(58,13,58,10 :End :If H=2 :Then :Line(58,16,54,12 :Line(62,16,66,20 :Line(62,16,58,16 :Line(60,16,59,19 :Line(61,19,60,16 :Pt-On(60,20 :Line(66,20,63,25 :Line(60,16,60,13 :Line(60,13,58,10 :Line(60,13,62,10 :End :If H=3 :Then :Line(55,17,68,14 :Line(68,14,70,17 :Line(68,14,70,10 :Line(64,13,70,10 :Line(55,10,59,13 :Line(59,13,64,13 :Line(54,17,57,19 :Line(56,14,55,11 :Line(53,16,56,14 :Line(53,13,53,15 :Pt-Off(56,17 :End :If H=4 :Then :Line(65,20,62,14 :Line(62,14,63,11 :Line(63,11,67,10 :Line(67,10,79,10 :Line(79,10,68,13 :Line(68,13,67,14 :Line(67,14,70,22 :Line(70,22,70,25 :Line(70,25,66,29 :Line(66,29,61,30 :Line(61,30,56,27 :Line(56,27,56,25 :Line(56,27,59,26 :Line(59,26,58,24 :Line(58,24,62,25 :Line(62,25,64,24 :Line(64,24,65,21 :Pt-On(61,27 :End :If H=5 :Then :Line(70,35,64,32 :Line(64,32,64,27 :Line(70,30,64,27 :Line(70,30,70,35 :Line(63,35,70,35 :Line(63,35,58,32 :Line(58,32,64,32 :Line(58,32,58,27 :Line(58,29,60,29 :Line(62,29,64,29 :Line(64,29,66,30 :Line(59,26,63,26 :Line(64,24,63,26 :Line(58,26,57,24 :Line(68,28,69,26 :Line(69,26,74,23 :Line(74,23,76,19 :Line(76,19,76,10 :Line(64,24,68,22 :Line(68,22,70,18 :Line(70,18,70,10 :Line(57,24,55,22 :Line(55,22,55,10 :Line(64,17,64,10 :Line(64,17,63,18 :Line(58,17,58,10 :End :If H=6 :Then :Circle(70,20,6 :Line(75,25,80,35 :Line(65,25,55,30 :Line(65,15,60,10 :Line(75,15,80,10 :Line(80,35,70,37 :Line(60,10,66,12 :Line(80,10,83,11 :Line(55,30,63,32 :Line(63,32,40,40 :Line(67,20,70,22 :Line(70,22,73,20 :Line(67,20,70,18 :Line(70,18,73,20 :Line(69,20,71,20 :End :Lbl 3 :Line(1,51,20,51,0 :Line(1,52,20,52,0 :Line(1,53,20,53,0 :Line(1,54,20,54,0 :Line(1,55,20,55,0 :Line(1,1,95,1,0 :Line(1,2,95,2,0 :Line(1,3,95,3,0 :Line(1,4,95,4,0 :Line(1,5,95,5,0 :Line(1,6,95,6,0 :Text(7,1,B :If B=0 :Then :Text(57,1,"YOU FAINTED, GOLD WAS LOST." :Pause :If D<5 :Then :ClrHome :Disp "CANNOT RECOVER" :For(U,1,100 :End :ClrHome :Output(4,4,"GAME OVER" :Stop :End :iPart(D/2)->D :C->B :Goto T :End :If I<0 or I=0 :Then :Text(57,1,"THE ENEMY DIED." :Pause :ClrHome :If H=6 :Goto K :Output(1,1,"GOLD:" :Output(2,1,"+" :Output(2,2,M :D+M->D :Output(4,1,"SKILL:" :Output(5,1,"+" :Output(5,2,N :E+N->E :Pause :If A=1 and E>30 or E=30 :Goto 5 :If A=2 and E>100 or E=100 :Goto 5 :If A=3 and E>200 or E=200 :Goto 5 :If A=4 and E>400 or E=400 :Goto 5 :If A=5 and E>800 or E=800 :Goto 5 :Goto T :End :getKey->P :While P=0 :getKey->P :End :If P/=25 and P/=34 and P/=21 :Goto 3 :If P=21 :Then :ClrHome :ClrDraw :Stop :End :randInt(1,2)->Z :If Z=1 and P=34 :Then :Text(57,1,"YOU ESCAPED" :Pause :Goto T :End :If Z=2 and P=34 :Then :Text(57,1,"YOU COULD NOT ESCAPE" :Pause :Line(1,1,95,1,0 :Line(1,2,95,2,0 :Line(1,3,95,3,0 :Line(1,4,95,4,0 :Line(1,5,95,5,0 :Line(1,6,95,6,0 :0->K :Goto 4 :End :If P=25 :randInt(iPart(G/2),G)->K :Lbl 4 :randInt(iPart(J/2),J)->L :randInt(1,7)->O :If O=1 :Then :If K/=0 :Text(57,54,"DODGED" :0->K :Goto 6 :End :If K/=0 :Text(57,60,K :Lbl 6 :randInt(1,6)->O :If O=1 :Then :Text(57,24,"DODGED" :0->L :Goto 7 :End :Text(57,32,L :Lbl 7 :For(U,1,50 :End :B-L->B :If B<0 :0->B :I-K->I :Goto 3 :Lbl 5 :ClrHome :For(X,1,3 :For(Y,4,14 :Output(4,4,"LEVEL UP!" :Output(4,Y,"_" :For(W,1,20 :End :End :End :A+1->A :If A=2 :30->C :If A=3 :60->C :If A=4 :120->C :If A=5 :240->C :If A=6 :450->C :Goto T :Lbl K :Disp "YOU HAVE SAVED","THE LAND FROM","THE EVIL KULROG","AND HIS LEAGUE","OF MONSTERS!!" :Pause :ClrHome :Disp "AS YOU WALK BACK","INTO TOWN, THE TOWNS MEN LIFT","YOU HIGH INTO","THE AIR AS THEY" :Output(6,1,"..." :Pause :ClrHome :Disp "MAKE YOUR NAME","KNOWN TO ALL","WALKS OF LIFE." :Pause :ClrHome :Disp "YOU HAVE PROVEN","YOUR RIGHT TO","THE TITLE OF:" :Disp "" :For (P,1,3 :For(U,1,100 :End :Output(4,7,"H" :For(U,1,20 :End :Output(4,7,"_E" :For (U,1,20 :End :Output(4,7,"__R" :For(U,1,20 :End :Output(4,7,"____" :End :For(U,1,100 :End :Output(4,7,"HERO" :FOR(U,1,100 :End :ClrHome :Output(4,4,"THE END" I take no credit for this. found it on the World Wide Web. (why does no on use that any more?) Edited by astropirate, Jan 10 2008, 05:56 PM.
	You will Bow before me!


techwizrd	Jan 10 2008, 04:22 PM Post #2
Magister ex Machina Posts: 236 Group: Admins Member #1 Joined: 31-12-07 Development Experience Jack-of-all-Trades Operating System Ubuntu 8.04, Slackware 12.1 Favorite Programming Language Python, C, Lisp Favorite Desktop Environment Gnome 2.24	Dude, you copied that. I remember seeing Kyros with it. He said that he had found it online for free and he was using it to learn how to create a real BASIC rpg. You didn't even change the name. At least give credit to the original author...
	My DeviantArt user page Please comment and add me to your favorites!


Kyros the Hedgehog	Jan 10 2008, 07:09 PM Post #3
(still) a dude with a funky headband Posts: 29 Group: Members Member #3 Joined: 1-01-08 Favorite Desktop Environment one that's off the computer. it's easier to doodle on.	Yeah, what techie said look, i don't wanna sound preachy or anything, but seriously, we're here to dev things. make something, instead of copying the code. i put my version up because it significantly helped my TIBasic programming. It kinda disappoints me you copy-pasted everything between "this is a huge program!" and the end of the code-block. anyway, i get off my soap box now.
	The companion cube will not threaten to stab you. The cake is a lie. Spoiler: click to toggle that is a real spoier for a real thing that you may not want to know of (that is, if you own or will own yet haven't beaten Valve's game Portal). it's not like, to make you lose... uh... I'll stop now.


Kyros the Hedgehog	Jan 10 2008, 07:12 PM Post #4
(still) a dude with a funky headband Posts: 29 Group: Members Member #3 Joined: 1-01-08 Favorite Desktop Environment one that's off the computer. it's easier to doodle on.	oh, and here's my junkyard, if you don't believe we've seen it before. http://wiki.bluedevs.net/proj:skmisc
	The companion cube will not threaten to stab you. The cake is a lie. Spoiler: click to toggle that is a real spoier for a real thing that you may not want to know of (that is, if you own or will own yet haven't beaten Valve's game Portal). it's not like, to make you lose... uh... I'll stop now.


astropirate	Jan 11 2008, 11:59 PM Post #5
Not Lurking Posts: 36 Group: Members Member #9 Joined: 9-01-08	here to dev things. plz inlighten me wat are we working on again? seriously just tell me.
	You will Bow before me!


techwizrd	Jan 14 2008, 12:17 AM Post #6
Magister ex Machina Posts: 236 Group: Admins Member #1 Joined: 31-12-07 Development Experience Jack-of-all-Trades Operating System Ubuntu 8.04, Slackware 12.1 Favorite Programming Language Python, C, Lisp Favorite Desktop Environment Gnome 2.24	astropirate Jan 11 2008, 11:59 PM here to dev things. plz inlighten me wat are we working on again? seriously just tell me. Mind your spelling and grammar. If you don't, you'll end up look like and idiot and a stupid script kiddie. If you plan on being respectable I hope you listen to me, else you'll end up looking like Firefox838 and NarutoBoy225. Anyway, you can just check the bluedevs Project Page.
	My DeviantArt user page Please comment and add me to your favorites!


slurpee123abc	Jun 2 2008, 04:23 PM Post #7
Slurpee Posts: 57 Group: Members Member #19 Joined: 2-06-08 Development Experience Programming Operating System Windows Favorite Programming Language Blender, Python, C++, GMC	Hi. Edited by slurpee123abc, Sep 5 2009, 09:25 PM.



1 user reading this topic (1 Guest and 0 Anonymous)


« Previous Topic · Finished Projects · Next Topic »