home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CBM Funet Archive
/
cbm-funet-archive-2003.iso
/
cbm
/
c64
/
games
/
Darkon.help.prg
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1997-01-26
|
17KB
|
460 lines
10 clr:print"[147]":poke53281,0:poke53280,2:poke646,1
20 poke646,3:print" darkon help module":poke646,1
30 print:print
40 print" (i)nstructions"
50 print" (s)tory line"
60 print" (a)bout 'darkon'"
70 print:poke646,4
80 print"**shareware** is the lifeline of public"
90 print"domain programming. it rewards long"
100 print"hours of work and planning and gives"
110 print"incentive to the author to continue to"
120 print"improve his/her art and inspiration to"
130 print"release more programs through public"
140 print"domain. please support shareware!"
150 print:poke 646,5
160 print"minimum contribution of $10 will get"
170 print"you a list of spells, a map, and info"
180 print"on upgrades and sequels! :)"
190 print"make check/mo out to: daniel padavona"
200 print" 7 harrington ave"
210 print" cortland, n.y."
220 print" 13045 "
230 get i$:ifi$=""then 230
240 if i$="i" then gosub 300:run
250 if i$="s" then gosub 2000:run
260 if i$="a" then gosub 4000:run
270 goto 230
300 rem instructions
310 print"[147]":poke 646,3
320 print" instructions"
322 print:poke646,2
324 print"remember:[146]":print"you need to create a disk for play!":poke646,5
326 print"first, you must disolve the sda file-":print
327 print"type:load";:printchr$(34);:print"darkon.sda";:printchr$(34);:print",8 <then return>"
328 print:print"then insert a blank formatted disk- you'll need plenty of space!!!"
329 print"then type run <then return>":print"the files will now be on your disk!"
330 print:print"to play darkon, type:"
332 print"load";:printchr$(34);:print"at";:printchr$(34);:print",8,1 <then return>"
333 print"the game will now load automatically!"
334 geti$:ifi$=""then334
335 print:poke 646,1
340 print"directional keys:"
350 print" @ north"
360 print" : west"
370 print" ; east"
380 print" / south"
390 print:poke 646,5
400 print"press directional keys to move in a"
410 print"given direction. also, use directional"
420 print"keys with other commands. for example,"
430 print"press 't' for 'talk', then @ to specify"
440 print"talking to the character just north."
450 print:poke 646,1
460 print" a attack"
470 print:poke 646,5
480 print"follow this command with a specific"
490 print"direction. ie. 'attack west' "
500 print"this command initiates combat with any"
510 print"character/monster next to you in the"
520 print"direction specified....be careful!"
525 geti$:ifi$=""then525
530 print:poke 646,1
540 print" b bomb "
550 print:poke 646,5
560 print"follow this command with a specific"
570 print"direction. ie. 'bomb east' "
580 print"this command requires a ship to fire"
590 print"cannons. any character or monster next"
600 print"to you will be obliterated...period!"
610 print:poke 646,1
620 print" c cast "
630 print:poke 646,5
635 print"follow this command with a specific"
640 print"character in your party (1-4). if your"
650 print"character has spell casting abilities,"
660 print"you may then input the letter of the"
670 print"spell you wish to cast! stronger"
675 print"spells require more spell points!"
680 get i$:if i$=""then680
690 poke 646,6:print
700 print"cleric spells:"
710 print"a: vidum- a spell to create light"
720 print"b: locirar- randomnly disarms a trap"
730 print"in the dungeon you are in...helpful!"
740 print"c: vigenum- heals a specified character"
750 print"d: nepotio- cures poison for a specific"
760 print"character inflicted with poison"
770 print"e: revaeta- restores youth to a"
780 print"character withered by an evil being"
790 print"f: grevigen- an extra strong heal spell"
800 print"g: cirarto- disarms all traps in the"
810 print"current dungeon. very helpful!"
820 print"h: rebera- resurrects a dead character"
825 print:print"*** simply press 't' to turn the undead"
830 get i$:if i$=""then830
840 poke 646,7:print
850 print"mage spells:"
860 print"i: flagra- a spell to create light"
870 print"j: damnum- fires a missile at an enemy"
880 print"when engaged in combat!"
890 print"k: deazur- blinding blue explosion to"
900 print"wound an enemy when engaged in combat!"
910 print"l: hermoni- magically creates food!
930 [153]"m: mag flagra- long lasting light spell"
940 [153]"n: gredamna- fires a blast of fire at"
950 [153]"an enemy when engaged in combat!"
960 [153]"o: mag hermoni- magically creates a"
970 [153]"virtual feast for your party!"
980 [153]"p: nebera- a spell which kills an"
990 [153]"enemy during combat! "
999 [161] i$:[139] i$[178]""[167]999
1000 [153]:[151] 646,1
1002 [153]" d dress character"
1004 [153]:[151] 646,5
1006 [153]"follow this command with a specific"
1008 [153]"character, and then the letter which"
1009 [153]"corresponds to the armour you own"
1010 [153]:[151] 646,1
1015 [153]" e enter"
1018 [153]:[151] 646,5
1020 [153]"enter any town/dungeon that you are"
1030 [153]"currently standing on"
1040 [153]:[151] 646,1
1050 [153]" g get"
1055 [153]:[151] 646,5
1060 [153]"get any item that you are currently "
1070 [153]"currently standing on. ie. get gold."
1075 [153]"this also allows you to 'get on' a ship"
1080 [161] i$:[139] i$[178]""[167]1080
1090 [153]:[151] 646,1
1100 [153]" l light torch"
1110 [153]:[151] 646,5
1120 [153]"useful when in a dark dungeon!"
1130 [153]:[151] 646,1
1140 [153]" r ready weapon"
1145 [153]:[151] 646,5
1150 [153]"follow this command with a specific"
1155 [153]"character, and then the letter which"
1160 [153]"corresponds to the weapon you own"
1170 [153]:[151] 646,1
1180 [153]" s save game"
1190 [153]:[151] 646,5
1200 [153]"saves the game so you may continue from"
1210 [153]"the same spot later! only available"
1220 [153]"when on the main continent."
1230 [161] i$:[139] i$[178]""[167]1230
1238 [153]:[151] 646,1
1240 [153]" t talk "
1250 [153]:[151] 646,5
1260 [153]"follow this command with a specific"
1270 [153]"direction. if there is someone or"
1280 [153]"something there with something to"
1290 [153]"say, they'll say it loud and clear!"
1300 [153]:[151] 646,1
1310 [153]" u use "
1315 [153]:[151] 646,5
1320 [153]"direction. if there is someothing"
1330 [153]"usable (like a fountain), then you may"
1340 [153]"interract with it."
1350 [153]:[151] 646,1
1360 [153]" x x-it"
1365 [153]:[151] 646,5
1370 [153]"when you want to exit a ship or some"
1380 [153]"other transport, use this option"
1388 [161] i$:[139] i$[178]""[167]1388
1390 [153]:[151] 646,1
1400 [153]" <f1> look at character"
1405 [153]:[151] 646,5
1420 [153]"follow with a specific character (1-4)"
1430 [153]"screens depicting food, gold, and"
1440 [153]"inventory will be displayed. the first"
1450 [153]"screen shows what the character is"
1460 [153]"wearing. bare back/bare hands tells you"
1470 [153]"that no armour or weapon is readied yet"
1472 [153]"if you own any weapons or armour, the"
1474 [153]"final inventory screens will show these"
1476 [153]"items with a corresponding letter. use"
1478 [153]"this letter when asked which item you"
1479 [153]"wish to trade, ready, etc."
1480 [153]:[151] 646,1
1490 [153]" <f3> trade items"
1500 [153]:[151] 646,5
1510 [153]"to trade a weapon/armour, first specify"
1520 [153]"from whom to trade the item, then"
1530 [153]"whether it is a weapon or armour, the"
1540 [153]"letter representing the item to be"
1550 [153]"traded, and finally whom to trade to"
1560 [161] i$:[139] i$[178]""[167]1560
1570 [153]:[151] 646,1
1580 [153]"a quick word on how to read the stats"
1590 [153]"in the upper right window of the screen":[151]646,7
1600 [153]:[153]"hp refers to hit points, and sp refers"
1610 [153]"to spell points: shown are both the"
1620 [153]"maximum points available for each, and"
1630 [153]"how many points are currently available"
1640 [153]"for use!"
1650 [153]"cond refers to condition, with 'g' for"
1660 [153]"good (healthy), 'p' for poisoned,"
1670 [153]"'w' for withered (old), and 'd' for"
1680 [153]"dead...try not to get this one often!"
1690 [153]:[153]"also shown is the character's level,"
1700 [153]"sex (m/f), and class: (r)ogue, (m)age,"
1710 [153]"(w)arrior, and (c)leric."
1720 [161] i$:[139] i$[178]""[167]1720
1730 [153]:[151]646,5
1740 [153]"in combat, press any key to scroll"
1750 [153]"through the enemies' actions. there is"
1760 [153]"no movement during combat, although the"
1770 [153]"characters disappear when killed. you"
1780 [153]"simply enter 'a' for attack or 'c' for"
1790 [153]"cast when your characters are prompted."
1800 [153]"clerics can use 't' to turn the undead."
1810 [153]"some options, like 'r' for ready a"
1820 [153]"weapon are still available in combat!"
1998 [161] i$:[139] i$[178]""[167]1998
1999 [142]
2000 [143] story line
2010 [153]"load":[151] 646,3
2020 [153]" the adventure of darkon"
2030 [153]:[151] 646,4
2040 [153]"in the spirit of classic rpg's, darkon"
2050 [153]"is the story of a mad wizard who"
2060 [153]"threatens a peaceful kingdom. the land"
2070 [153]"is harmonia, which has suddenly been"
2080 [153]"overrun by denizens of the night. in"
2090 [153]"panic, the king has called for four"
2100 [153]"adventurers to come forth and rid the"
2110 [153]"kingdom of evil and to destroy darkon"
2120 [153]:[151] 646,5
2130 [153]"* there are 4 characters included with"
2140 [153]"the game-you may however replace any or"
2150 [153]"all of the characters and create your"
2160 [153]"own! simply choose 'c' to create a"
2170 [153]"player at the opening screen. then,"
2180 [153]"choose a # (1-4) to represent your"
2190 [153]"character. type in a name, follow the"
2200 [153]"prompts, and choose 'y' to save the"
2210 [153]"character, provided you are satisfied"
2212 [153]"press first letter of a choice to"
2214 [153]"choose a class. (r for rogue,etc.)"
2220 [153]:[151] 646,4
2230 [161]i$:[139]i$[178]""[167] 2230
2240 [153]"you must build your characters up by"
2250 [153]"training them and by their experiencing"
2260 [153]"combat (without dying!). too many"
2270 [153]"adventurers have tempted fate too soon"
2280 [153]"and payed the most costly price of all"
2290 [153]"before achieving their goals.":[153]
2300 [153]"much needs to be discovered, for no one"
2310 [153]"has yet discovered darkon's whereabouts"
2320 [153]"within the kingdom. wisemen speak of a"
2330 [153]"foreboding island tower in the vast"
2340 [153]"ocean surrounding harmonia, though no"
2350 [153]"further scripture exists on the subject"
2360 [161] i$:[139]i$[178]""[167]2360
2370 [153]:[153]"hope exists in the many travelers of"
2380 [153]"this land. it is urged that you seek"
2390 [153]"out those who would know and tap the"
2400 [153]"knowledge of the ancients. dungeons"
2410 [153]"yet to be mapped are rumored to hold"
2420 [153]"forgotten treasures and mystical "
2430 [153]"beings. venture with caution!":[153]
2440 [153]"the harmonian king will help your "
2450 [153]"journey and perhaps reduce the peril by"
2460 [153]"offering instructions. seek him out in"
2470 [153]"harmonian castle on the western shores.":[153]
2480 [161] i$:[139]i$[178]""[167]2480
2490 [153]"along your travels, several established"
2500 [153]"businesses will greatly aid thee: ":[151]646,5:[153]
2510 [153]"inns- cozy beds awiat thee upon thy"
2520 [153]"long, tiring journey. failure to rest"
2530 [153]"a character prevents him/her from"
2540 [153]"fully rejuvenating after battle.":[153]
2550 [153]"healers- in these dark times, too many"
2560 [153]"must seek out powerful healers. among"
2570 [153]"their magical abilities are the gifts"
2580 [153]"to heal characters of all their wounds,"
2590 [153]"cure poisonous infections, restore age"
2600 [153]"to characters withered from old age"
2610 [153]"after being touched by a dark spirit,"
2620 [153]"and even resurrecting the dead! with"
2630 [153]"these gifts comes a hefty fee."
2640 [161] i$:[139]i$[178]""[167]2640
2650 [153]:[153]"trainers- seek these wise mentors for"
2660 [153]"increasing your battle skills...all are"
2670 [153]"welcome to learn, regardless of class"
2680 [153]"or experience. due to overwhelming"
2690 [153]"demand, trainers now offer their "
2700 [153]"prodigees torches, which they may use"
2710 [153]"if overzealous enough to seek out"
2720 [153]"dungeon treasure!"
2730 [153]:[153]"armoury/weaponsmiths- throughout the"
2740 [153]"land are shops providing the proper"
2745 [153]"outfitting. a bare back is soon slain!"
2750 [153]"so seek proper protection! rumored are"
2760 [153]"magically enchanted weaponry and armour"
2770 [153]:[153]"grocers- lest one wish to starve to"
2780 [153]"death on the open plains, prepare for"
2790 [153]"long journeys with rations for the trip"
2800 [161] i$:[139]i$[178]""[167]2800
2810 [153]:[151]646,4
2820 [153]"various creatures, some likely under"
2830 [153]"darkon's direct command, threaten the"
2840 [153]"land, and your party! provided is a"
2850 [153]"summary of enemies recently discovered."
2860 [153]"not all are listed, due to the arrival"
2870 [153]"of new beings almost daily!"
2880 [153]:[151]646,7
2890 [153]"pirates- their ships occassionally raid"
2900 [153]"port towns. if defeated, however, you"
2910 [153]"own their gold...and their ship!!!"
2920 [153]:[153]"sea serpents- these huge creatures are"
2930 [153]"known to destroy entire vessels."
2940 [153]:[153]"giant squid- another danger of the open"
2950 [153]"waters are the giant squid of legend"
2955 [161]i$:[139]i$[178]""[167]2955
2960 [153]:[153]"spiders- these mutated arachnoids can"
2970 [153]"be deadly due to their poisonous venom"
2980 [153]:[153]"druids- dark mages that can magically"
2990 [153]"heal themselves in combat!"
3000 [153]:[153]"skeletons- the dead walks among us in"
3010 [153]"the darkest of times. clerics can"
3020 [153]"occassionally turn the undead."
3030 [153]:[153]"wight- powerful undead beings able to"
3040 [153]"turn a character old by their touch!"
3050 [153]:[153]"foti's- strange warriors with a"
3060 [153]"propensity for powerful magic"
3065 [161]i$:[139]i$[178]""[167] 3065
3070 [153]:[153]"piddlers- large insect-like creatures"
3080 [153]"with deadly jaws of venom"
3090 [153]:[153]"gnolls- lizard/human warriors with"
3100 [153]"strong coats of armour for skin"
3110 [153]:[153]"daemons- from the depths of the earth"
3120 [153]"come daemons from the 7th plane. any"
3130 [153]"character foolish enough to challenge"
3140 [153]"these beings may soon find an early"
3150 [153]"grave! their claws alone can inflict"
3160 [153]"poison into the skin of their victims!"
3165 [153]:[153]"devils- the ultimate evil returns!"
3170 [153]"their magic is unmatched and their"
3180 [153]"power greater than any mortal's. the"
3190 [153]"devils should be avoided at any cost!"
3200 [153]:[153]"dragons- legendary beasts of untold"
3210 [153]"power and wealth, they have returned"
3220 [153]"during these dark times to reign terror"
3230 [153]"and profit from our kingdom's falling."
3240 [153]"their flames can burn a party to a"
3250 [153]"crisp during combat!"
3998 [161] i$:[139]i$[178]""[167]3998
3999 [142]
4000 [143] about making darkon
4010 [153]"load":[151] 646,3
4020 [153]" about making darkon"
4030 [153]:[151]646,7
4040 [153]"darkon is a personal tribute for me to"
4050 [153]"the classic c-64 rpg's: ultima iii, my"
4060 [153]"favorite game of all time, and many"
4070 [153]"others including ultima ii,iv, and v,"
4080 [153]"all the bard's tales, magic candle, etc"
4090 [153]:[153]"i do not pretend to have created a game"
4100 [153]"on that level, but perhaps i will one"
4110 [153]"day. if you played the early ultimas,"
4120 [153]"you'll notice that i use similar (not"
4130 [153]"identical) graphics-this is due to my"
4140 [153]"lack of artistic ability rather than to"
4150 [153]"my need to copy the legendary!"
4155 [161] i$:[139] i$[178]"" [167] 4155
4160 [153]:[153]"it is my opinion that most of the best"
4170 [153]"computer games ever made were created"
4180 [153]"on 8-bit machines like this one. why?"
4190 [153]"i have several theories. my favorite"
4200 [153]"theory is that today's incredibly"
4210 [153]"advanced computers have tempted to make"
4220 [153]"game publishers seek master artists and"
4230 [153]"effects wizards first, and tellers of"
4240 [153]"stories secondarily. would i program"
4250 [153]"this game on my ibm with s-vga graphics"
4260 [153]"and soundblaster support if i could?"
4270 [153]"of course i would! but i don't hold"
4280 [153]"this theory due to jealousy of genius"
4290 [153]"designers of hi-tech masterpieces."
4300 [161]i$:[139]i$[178]""[167] 4300
4310 [153]:[153]"more so, how many great novels have"
4320 [153]"there been written by 2,3, or even 20"
4330 [153]"authors? ok-a few. but my point is"
4340 [153]"that many great games came from one"
4350 [153]"designer's vision. whether he/she had"
4360 [153]"sufficient time to program all of the"
4370 [153]"graphics and sound as well as the main"
4380 [153]"code is not important. the main point"
4390 [153]"is that the 'soul' of the program came"
4400 [153]"from within one's mind. today, the"
4410 [153]"modular design using many programmers"
4420 [153]"vastly improves technology and speed of"
4430 [153]"development, but also divides the"
4440 [153]"creativity into too many hands, making"
4450 [153]"for a less-creative, group enduced"
4460 [153]"product. don't get me wrong-the latest"
4470 [153]"ultimas are noticable exceptions to the"
4480 [153]"rule! but i have yet to recapture the"
4490 [153]"sheer adrenalin rush i got from earlier"
4500 [153]"games. you say-hey, movies are made by"
4510 [153]"groups, not just one person! yeah, but"
4520 [153]"there are too many movies which look"
4530 [153]"just like terminator-2 and have chase"
4540 [153]"scenes just like lethal weapon!"
4560 [161] i$:[139]i$[178]""[167] 4560
4570 [153]:[153]"now onto my program. it's 100% ml, so"
4580 [153]"it's fast and efficient! i wanted so"
4590 [153]"badly to create a game that i left much"
4600 [153]"out! for instance, there are no sound"
4610 [153]"effects or musical scores, because i"
4620 [153]"didn't want to spend my time on it yet."
4630 [153]"also, despite showing the participants,"
4640 [153]"combat is a text battle without any"
4650 [153]"character movement. the story line"
4660 [153]"itself is purposely simplistic due to"
4670 [153]"the fact that i learned ml as i created"
4680 [153]"this game-a trial by fire indeed! "
4690 [153]"it took almost 3 years to make, and all"
4700 [153]"i wanted to do at the end was finish"
4710 [153]"it!!! it's fully play-tested without"
4720 [153]"any bugs that i've found."
4730 [161]i$:[139]i$[178]""[167]4730
4740 [153]:[153]"i am already improving the current"
4750 [153]"technology for future sequels. i am"
4760 [153]"considering everything from complex"
4770 [153]"conversations, larger maps, and more"
4780 [153]"combat options, to more original "
4790 [153]"graphics-i know a couple decent artists"
4800 [153]:[153]"unless i create something unusually"
4810 [153]"outstanding, the game will be released"
4820 [153]"as public domain shareware again. i"
4830 [153]"would love to program commercial games,"
4840 [153]"but i'm not yet on that level."
4850 [153]"so let's be reasonable. i don't want"
4860 [153]"to do all of this work for personal"
4870 [153]"satisfaction only! please, please"
4880 [153]"support shareware! it's not just the"
4890 [153]"sharing of my program for your few $,"
4900 [153]"but also idea sharing! i know there"
4910 [153]"are plenty of people out there who have"
4920 [153]"my passion for these games, as players"
4930 [153]"and programmers, and i want to hear"
4940 [153]"from you!"
4950 [161]i$:[139]i$[178]""[167]4950
4960 [153]:[153]"believe me, the sequel (it won't be"
4970 [153]"called darkon) will be far superior in"
4980 [153]"depth, playability, and overall fun!"
4990 [153]"please support my efforts so i will"
5000 [153]"feel the need to share the game with"
5010 [153]"all of you!":[151]646,5
5020 [153]:[153]"in the meantime, please e-mail me any"
5030 [153]"time: i'm exodus12 on q-link"
5035 [153]:[151] 646,4
5040 [153]"death to darkon, and long live the"
5050 [153]"mighty commodore-64!!!"
5098 [161] i$:[139]i$[178]""[167] 5098
5099 [142]