0 spl=0:key off:randomize timer:open "enem.dll" for input as 1
1 print "Welcome to Ultimate Tournament!!!":fle=1
2 print "b=begin, i=instructions, a=author's info, o=other game title info, q=quit"
3 mon=1000:men$=input$(1):cls
4 if men$="b" then 32
5 if men$="i" then 10
6 if men$="a" then 26
7 if men$="q" then 30
8 if men$="o" then 550
9 print "Invalid keypress.":goto 2
10 print "instructions:":
11 print "You are faced with 20 enemies, similar to Daniel Zingaro's battle.bas game."
12 print "you can also make you're own enemies up explained in readfirst.txt."
13 print "when you attack you're enemy, his defense level kicks in, and waves some of the damage."
14 print "example: you attack, doing 1000 damage."
15 print "he has 500 defense, so it kicks in,":print "and randomly selects a number from 1 to defense."
16 print "but, if the attack was only 5 and defense was 500,":print "there is nothing that the defenses can do."
17 print "the same if the enemy attacks you."
18 print "there are attack, defense,":print "and power bonus thingies you can get after each match."
19 print "you can also spells you can use, which have been improved since battle."
20 print "massive restore, massive drainage,"
21 print "instant death,"
22 print "and multiply power, attack, and defense, by 10."
23 print "Some matches are also bonus matches, and easy wins."
24 print "have fun."
25 print "returning to main menu...":goto 2
26 print "author:":print "Jason SW"
27 print "author web page:":print "http://bascentral.topcities.com"
28 print "author e-mail:":print "jhsw1@juno.com"
29 print "returning to main menu...":goto 2
30 end
31 end
32 print "setting variables..."
33 first=0:second=0:third=0:fourth=0:fifth=0
34 bs=0:apwr=655:aatk=550:adef=900
35 r=0:gosub 500
42 spl=0:print "s=start match, t=store, r=how many rounds have i gone through? q=quit."
43 be$=input$(1):cls
44 if be$="s" then 60100
45 if be$="r" then 48
46 if be$="q" then 60390
47 if be$="t" then 60200:goto 42
48 print r;"rounds have been completed.":goto 42
50 input#1,na$
51 if na$="nomore" then 160
52 input#1,bpwr
53 input#1,batk
54 input#1,bdef
55 print " "na$" has "bpwr" power, "batk" strength, and "bdef" defense."
56 print "you: "apwr" power, "aatk" attack, "adef" defense."
57 print "a=attack, r=restore, d=double attack.":gosub 20000
58 if first=1 then print "2. massive restore."
59 if second=1 then print "3. massive drainage."
60 if third=1 then print "4. instant death!"
61 if fourth=1 then print "5. multiply."
62 bf$=input$(1):cls
63 if bf$="a" then 76
64 if bf$="r" then 82
65 if bf$="d" then 86
66 if bf$="2" and first=0 then print "you don't have that spell.":print:print:goto 55
67 if bf$="2" and first=1 then 118
68 if bf$="3" and second=0 then print "you don't have that spell.":print:print:goto 55
69 if bf$ ="3" and second=1 then 122
70 if bf$="4" and third=0 then print "you don't have that spell.":print:print:goto 55
71 if bf$="4" and third=1 then 126
72 if bf$="5" and fourth=0 then print "you don't have that spell.":print:print:goto 55
73 if bf$="5" and fourth=1 then 128
74 if bf$="1" then 40000
75 goto 57
76 admg=int(rnd(1)*aatk)
77 bpwr=bpwr-admg
78 if bpwr<1 then print "you take the rest of his power, and win the fight!":beep:goto 60290
79 if admg<bdef then 81:bwave=int(rnd(1)*bdef)
80 admg=admg-bwave:bpwr=bpwr+bwave
81 print "you take "admg".":goto 94
82 ars=int(rnd(1)*aatk)
83 apwr=apwr+ars:print " "ars" power gotten back."
84 print "you have "apwr".":goto 94
86 print "you hurt yourself.":apwr=apwr-2
87 admg=int(rnd(1)*aatk)
88 admg=admg*2:bpwr=bpwr-admg
89 if bpwr<1 then print "you take the rest of his power, and win the fight!":beep:goto 60290
90 if admg<bdef then 92:bwave=int(rnd(1)*bdef)
91 admg=admg-bwave:bpwr=bpwr+bwave
92 print "you take "admg"."
94 bchance=int(rnd(1)*10)+1
95 if bchance=1 then 104
96 if bchance=2 or bchance=5 then 108
98 bdmg=int(rnd(1)*batk)
99 apwr=apwr-bdmg
100 if apwr<1 then print "he takes all of the rest of power, and you are dead. thanks for playing.":goto 300
101 if bdmg<adef then 103:awave=int(rnd(1)*adef)+1
102 bdmg=bdmg-awave:apwr=apwr+awave
103 print "he takes "bdmg".":goto 55
104 brs=int(rnd(1)*batk)
105 bpwr=bpwr+brs:print "he restores "brs" power."
106 goto 55
108 print "he hurts himself.":bpwr=bpwr-2
109 bdmg=int(rnd(1)*batk)
110 bdmg=bdmg*2
111 apwr=apwr-bdmg
112 if apwr<1 then print "he takes the rest of power, and you are dead. thanks for playing.":goto 300
113 if bdmg<adef then 115:awave=int(rnd(1)*adef)
114 bdmg=bdmg-awave:apwr=apwr+awave
115 print "he takes "bdmg"."
116 goto 55
118 ars=int(rnd(1)*apwr)+150
119 ars=ars*2:apwr=apwr+ars:first=0
120 print " "ars" power gotten back.":print "you have "apwr".":goto 94
122 mdr=int(rnd(1)*aatk)+1
123 mdr=mdr*4:bpwr=bpwr-mdr:second=0
124 if bpwr<1 then print "you take the rest of power, and win the fight!":goto 60420
125 goto 94
126 bpwr=0:third=0
127 print "instant death!!!":goto 60420
128 apwr=apwr*10:aatk=aatk*10:adef=adef*10:fourth=0
129 print "multiplied!!!":goto 94
130 bns=int(rnd(1)*5)+1
131 if bns=1 then print "attack bonus awarded!":aatk=aatk+500:r=r+1:goto 42
132 if bns=2 then print "power bonus awarded!":apwr=apwr+200:r=r+1:goto 42
133 if bns=3 then print "defense bonus awarded!":adef=adef+200:r=r+1:goto 42
134 if bns=4 then print "you get a spell":r=r+1:goto 140
135 if bns=5 then r=r+1:goto 42
140 if spl >= 5 then print "sorry, but you have all of the spells, and can only have 1 of each at a time.":goto 42
141 bgd=int(rnd(1)*5)+1
142 if bgd=1 and first=0 then first=1:goto 42
143 if bgd=1 and first=1 then spl=spl+1:goto 140
144 if bgd=2 and second=0 then second=1:goto 42
145 if bgd=2 and second=1 then spl=spl+1:goto 140
146 if bgd=3 and third=0 then third=1:goto 42
147 if bgd=3 and third=1 then spl=spl+1:goto 140
148 if bgd=4 and fourth=0 then fourth=1:goto 42
149 if bgd=4 and fourth=1 then spl=spl+1:goto 140
150 if bgd=5 and fifth=0 then fifth=1:goto 42
151 if bgd=5 and fifth=1 then spl=spl+1:goto 140
160 close 1
161 open "personal.dll" for input as 2:fle=2
162 input#2,na$
163 if na$="nomore" then 180
164 input#2,bpwr
165 input#2,batk
166 input#2,bdef
167 goto 55
180 print "congratulations! you have won!!!":beep:beep:end
181 end
300 sound 100,1.82:sound 100,1.82:sound 100,1.82
301 print "play again? enter Y or N?":bc$=input$(1)
302 if bc$="n" then sound 100,1.82:sound 100,1.82:sound 100,1.82:sound 100,1.82:end
303 if bc$="y" then 400
304 goto 301
400 close 1
401 clear:mon=0:goto 0
500 print "authenticating enem.dl l authenticode..."
501 input#1,va$
502 if va$="gbd69dqfrcgbd7q9r" then print "authentic. you have $"mon".":return
503 print "error, invalid authenticode in enem.dl l in line 501.":end
550 print "other game title info menu:"
551 print "a=armed survival, t=ultimate tournament, u=ultimate hack, v=version info,"
552 print "r=return":gametm$=input$(1):cls
553 if gametm$="a" then 600
554 if gametm$="t" then 700
555 if gametm$="u" then 800
556 if gametm$="v" then 900
557 if gametm$="r" then 2
558 print "Invalid keypress.":goto 551
600 print "armed survival is a game like Munawar Bijani's Unending"
601 print "Adventure game series, except that it is packed with excitement!"
602 print "there will soon be 11 levels in it, but for now,"
603 print "there are only 4,":print "to give you the feeling of what the finished product will be like."
604 print "the first three levels are just run and then shoot at the end kind of levels,"
605 print "but at level 4, a Bobcat named Persion chalenges you to a"
610 print "tournament to the death."
613 print "you must battle him, untill you or he dies."
614 print "pick up a demo copy today!":goto 550
700 print "Ultimate Tournament is an improved version of Daniel Zingaro's battle.bas game."
701 print "some concepts have been changed, and character data is inputted from enem.dll."
702 print "note: this file is password protected, and it has a code in it"
703 print "that the main program gets and varifies, so don't try anything funny with it."
704 print "failure to comply with this rule will result in a custom error, and program"
705 print "termination."
706 print "you fight aponents, and after each match,"
707 print "you are given a bonus of some sort, or a spell."
708 print "there are also bonus matches, and/or easy wins."
709 print "have fun!":goto 550
800 sound 1000,1.82
801 print "coming soon, download a copy of uhack.txt or uhack.brl"
802 print "from the web site of B A S Central.":goto 550
900 print "version info:"
901 print "version: 2.0"
902 print "description: improved version"
903 print "what's new?"
904 print "Store added!"
905 goto 550
20000 if fifth=1 then print "1. obtain big attack bonus"
20001 return
40000 if fifth=0 then print "you don't have that spell.":print:print:goto 55
40010 if fifth=1 then 60000
60000 atck=int(rnd(1)*10000)+1
60001 aatk=aatk*2+atck
60002 print "done!!!":fifth=0:goto 94
60100 if fle=1 then 50
60101 if fle=2 then 162
60102 print "error!":beep:end
60103 end
60200 print "Hello. You've got $"mon"."
60201 print "buy what?":print "p=power, a=attack, d=defense, s=spell,":gosub 60400
60202 print "e=exit.":sto$=input$(1):cls:gosub 60401
60203 if sto$="p" then 60210
60204 if sto$="a" then 60220
60205 if sto$="d" then 60230
60206 if sto$="s" then 60239
60207 if sto$="e" then 42
60208 goto 60201
60210 print "1 unit=$35."
60211 input "enter amount",unt:gosub 60300
60212 cal=35*unt
60213 if mon<cal then print "not enough money.":goto 60201
60214 mon=mon-cal
60215 print "You have bought "unt" units of power."
60216 print "total=$"cal"."
60217 print "You now have $"mon"."
60218 apwr=apwr+unt:goto 60201
60220 print "1 unit=$45."
60221 input "enter amount.",unt:gosub 60300
60222 cal=45*unt
60223 if mon<cal then print "Not enough money.":goto 60201
60224 mon=mon-cal
60225 print "You've bought "unt" units of attack."
60226 print "total=$"cal"."
60227 print "You now have $"mon"."
60228 aatk=aatk+unt:goto 60201
60230 print "1 unit=$60."
60231 input "enter amount.",unt:gosub 60300
60232 cal=60*unt
60233 if mon<cal then print "Not enough money.":goto 60201
60234 print "You just bought "unt" units of defense.":mon=mon-cal
60235 print "total=$"cal".":adef=adef+unt
60236 print "You now have $"mon"."
60237 goto 60201
60239 if mon<6000 then print "You don't have enough money.":goto 60201
60240 print "press 1-5 to buy spells 1 2 3 4 or 5."
60241 print "each spell costs $6000."
60242 spel$=input$(1)
60243 if spel$="1" then 60260
60244 if spel$="2" then 60265
60245 if spel$="3" then 60270
60246 if spel$="4" then 60275
60247 if spel$="5" then 60280
60248 goto 60240
60260 if fifth=1 then print "You have it already.":goto 60201
60261 fifth=1:mon=mon-6000
60262 print "spell bought. you have $"mon".":goto 60201
60265 if first=1 then print "You have it already.":goto 60201
60266 first=1:mon=mon-6000
60267 print "spell bought. you now have $"mon".":goto 60201
60270 if second=1 then print "You have it already.":goto 60201
60271 second=1:mon=mon-6000
60272 print "Spell bought. You now have $"mon".":goto 60201
60275 if third=1 then print "You have it already.":goto 60201
60276 third=1:mon=mon-6000
60277 print "Spell bought. You now have %"mon".":goto 60201
60280 if fourth=1 then print "You have it already.":goto 60201
60281 fourth=1:mon=mon-6000
60282 print "Spell bought. you now have $;"mon;".":goto 60201
60290 getm=int(rnd(1)*900)+10:mon=mon+getm
60291 print "you just earned";getm;
60292 print "dollars."
60293 print "You have";mon;
60294 print "dollars."
60295 print "you have";apwr;" power, ";aatk;" attack,";
60296 print "And";adef;"defense."
60297 goto 130
60300 if unt<0 then print "the number must be a positive one.":goto 60201
60301 return
60390 sound 100,1.82:sound 100,1.82:sound 100,1.82:sound 100,1.82
60391 end
60392 end
60400 print "k=skip enemy, cost=$15000,":return
60401 if sto$="k" then 60405
60402 return
60405 if mon<15000 then print "Forget it, you don't have enough.":goto 60201
60406 mon=mon-15000
60407 input#1,na$
60408 if fle=1 and na$="nomore" then fle=2:open "personal.dll" for input as 2:goto 60407
60409 if fle=2 and na$="nomore" then 180
60410 input#1,bpwr,batk,bdef
60411 print "Bought. you now have $"mon".":goto 60201
60420 getm=int(rnd(1)*5000)+1000:mon=mon+getm:goto 60291
