home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ArachnoPhobia 18
/
ArachnoPhobia_18_2000-11-01_Spiders-Crew_ROLE_Side_B.d64
/
con.inst
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
14KB
|
316 lines
1 v=53248:pokev+33,0:pokev+32,0:d$="":print"[147]"d$
3 printchr$(8)chr$(142)spc(7)"[158][198][162][162][162][162][162][162][162][162][162][162][162][162][146][184][184][184][184][184][184][183][183][183][183][163][163]
4 [151]650,255:[153][166]7)" getrndrndgetnewrndgetnewnewgetnewrndgetnewrndwaitlogrndnewgetnewrndgetnewrnd
5 printspc(7)" [161][161][161][161][162][162][161][162][146][190][161][187][162][161][162][187][161][161][161][161][187][162]
6 [153][166]7)" waitloglogloglog lognewnewwaitloglognewwaitlog log lognewwaitlognewnewwaitloglogrnd
7 printspc(7)"[175][146] s o f t w a r e[158][161]
8 [153][166]7)"newnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew
9 fori=1to18:b$=b$+" ":next:fori=0to17:print:fork=0to9:nextk,i:print"
10 u$[178]"newnewnewnewnewnewnewnewnewnewnewnewnewposandto toandpos
11 j$="[146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146] [146][163][146][183][146][184][162][185][175][164] [164][175][185][162][146][184][146][183][146][163]"
12 fori=1to13:print""spc(7)mid$(u$,i,13)mid$(u$,32-i)
13 printspc(7)mid$(j$,i+i,26)mid$(j$,77-i-i):next
14 u$=" p r e s e n t s":fori=1to8
15 print""spc(11)mid$(u$,i,9)mid$(u$,25-i):forj=0to99:nextj,i
20 printspc(5)"[159]i n s t r u c t i o n s f o r
22 [151]198,0:[153]"(NULL)str$right$ right$ (NULL) right$right$ (NULL)str$right$
23 print"[158][199][202][203][213][203][178][201][213][201][201][201][213][201][213][201][219] [219][213][203][201][203][219][221][201][213][201] [199][202][203][201][203][213][203][201][201][201][178][201]
24 [153]"defonchr$ closechr$left$(NULL)(NULL)chr$(NULL)(NULL)left$chr$(NULL)mid$right$chr$ (NULL)chr$left$left$ chr$(NULL)(NULL)chr$(NULL) chr$ left$ chr$left$left$left$left$(NULL)(NULL)
25 print"[145][202][198][203][202][203][202][202][202][221][202][203][202][203][202][203][202] [203][202][203][203] [202][202][202][202][203] [202][198][203][203] [202][203][202][202][203][202][202]
30 [153]" def f1 wait cont- output on screen
32 print" [150] f3 [146] [154]- output on printer
34 [153]" def f7 wait cont- load game
40 getu$:ifu$<>"[133]"andu$<>"[134]"andu$<>"[136]"goto40
50 pokev+21,0:print"[147]";:ifu$="[134]"goto500
60 ifu$="[133]"goto100
70 print"[147][144]p[207]43,1:p[207]44,18:p[207]4608,0:l[207]"chr$(34)"con.boot"chr$(34)",8
80 [129]i[178]0[164]9:[153]"r(NULL)":[130]:[153]"":[151]631,13:[151]632,13:[151]633,13:[151]198,3:[162]
100 [153]"load"[199](14):[129]i[178]1[164]15
102 [153]"defloadsys * len(NULL)(NULL)(NULL)(NULL)val(NULL)(NULL) asc(NULL)(NULL) (NULL)left$val len(NULL)(NULL)(NULL)(NULL) * instructionswaitprint";
103 [129]j[178]1[164]21:[135]u$:[139]u$[178]"*"[137]108
105 [139]u$[178]"@"[167][153]:[137]107
106 [153]u$
107 [130]
108 [153]d$"def [asc7] next page [asc1] start [asc8] end":[151]2023,160
109 [161]u$:[139]u$[178]"input"[167][138]
110 [139]u$[178]"restore"[167][153][199](142):[137]70
120 [139]u$[179][177]"let"[137]108
130 [130]i:[138]
500 [153]"loadstopr(NULL)"[200](d$,8)"systhe whole text will be printed":[153]"continously
502 print"[150]if you use single sheets after paper is
504 [153]"ejected you only have to insert a new
506 print"piece of paper an to switch the printer
508 [153]"to 'on-line' and the printer will go on.
510 print"[158] prepare your printer and press a key
512 [151]198,0:[146]198,1:[151]631,19:[151]632,13:[151]198,2
513 [153][166]12)"contokay, printing":[159]1,4,7
514 [152]1," right$ (NULL) (NULL) (NULL) (NULL) (NULL) len (NULL) right$ (NULL) (NULL) (NULL) asc (NULL) (NULL)":[152]1
515 [152]1," *** * ** ";
516 [152]1," * * **
517 print#1," * * *** *** ";
518 print#1," *** * * *
519 [152]1,"* * ** ** * * * ** * * *";
520 [152]1," * * ** * * * * * * **
521 print#1,"* * * * * * * * * * * * * * * ";
522 print#1,"* * * * * * * * * * * * * * * *";
523 print#1,"* * * * * * * * * *** * * * * ";
524 print#1,"* * * * * *** * * * * * * * * *";
525 print#1," * * * * * * * * * * * * * * * ";
526 print#1,"* * * * * * * * * * * * * * * *";
527 print#1," *** * * * ** ** ** ** * * *";
528 print#1," * * * * ** ** * * * * * *";
529 print#1," *":print#1:print#1
530 readu$:ifu$="@"thenprint#1:goto530
550 ifright$(u$,1)="-"thenprint#1,left$(u$,len(u$)-1);:goto600
560 print#1,u$" ";
600 readu$:ifleft$(u$,2)=" [211]"thenprint#1:print#1,u$:print#1:close1:run
610 ifu$="@"thenprint#1:print#1:goto530
620 print#1,u$:goto530
1000 data"[207]nce a point of time there was a king-
1010 [131]"dom on a small continent of a fantasy
1020 data"world. [212]he living standart was similar
1030 [131]"to our middle-age but the people were
1040 data"quite happy because their king was wise
1050 [131]"and full of justice. left$e ended war by
1060 data"overrunning the other small countries
1070 [131]"but without any battle.
1080 data@,"[200]e forced the other kings only with the
1090 [131]"presence of his mighty army to include
1100 data"their countries into his kingdom as
1110 [131]"provinces and allowed them to be the
1120 data"lords of thoose territories.
1130 [131]@,"(NULL)he kings were angry but they agreed
1140 data"because they thought that it is better
1150 [131]"to loose some of their power and avoid
1160 data"a war than to be defeated in a battle
1170 [131]they could not win.,@,"(NULL)ith this method the king brought the
1180 data"whole continent under his power. [217]ears
1190 [131]"of peace and freedom were going through
1200 data"the land. [212]he lords accepted all the
1210 [131]"king's orders but they were dissatis-
1220 data"fied and waiting for their opportunity.
1230 [131]@,"(NULL)ne day of a cold december an assassin
1240 data"creeped into the castle an took the
1250 [131]"king's life. (NULL)he murderer was slain by
1260 data"the guards in a fiercy battle before he
1270 [131]"could say who had sent him. str$uring this
1280 data"fight flames suddenly rose up in the
1290 [131]"hall and fire lit from room to room in
1300 data"the castle. [204]ike his home the peace the
1310 [131]"king brought was burned into ashes.
1320 data@,"[212]he lords now saw their chance to take
1330 [131]"over the power of the whole kingdom and
1340 data"called their knights. [212]he king's men
1350 [131]"were slain or throwed out of the pro-
1360 data"vinces ruled by the lords again. [212]he
1370 [131]"armies were prepared for battle and are
1380 data"now waiting for orders from their
1390 [131]lords.,@,"atnt this point the game starts. (NULL)he
1400 data"players represent thoose lords. [212]he
1410 [131]"winner is who defeats all the other
1420 data"players and rules the whole continent.
1430 [131]@,"right$n this tactical game of conquest up to
1440 data"eight players may fight against each
1450 [131]"other and reach for the crown. (NULL)he game
1460 data"is steered by a joystick plugged in
1470 [131]"controlport #2. (NULL)henever a flashing
1480 data"sword appears you can move it over the
1490 [131]"the screen and point it on the selected
1500 data"option. [201]f there is no sword but num-
1510 [131]"bers are requested you can change them
1520 data"by one by moving the joystick left or
1530 [131]"right and by ten by moving the stick up",or down.
1531 [131]@,"(NULL)ote one thing: (NULL)he hexagons used as
1532 data"provinces have only space for three
1533 [131]"characters. right$f the number of soldiers
1534 data"in a territory passes 999 only the left
1535 [131]"three numbers will be shown but this
1536 data"numbers will appear in red.
1540 [131]@,"peekefore the game starts you will be
1550 data"asked if you want to begin a new game
1560 [131]"or to resume an old one. right$f you want to
1570 data"continue an old game just follow the
1580 [131]"instructions shown on the screen.
1590 data@,"[193]t the beginning of a new game you may
1600 [131]"build a continent by yourself or let
1610 data"the computer do this for you by random.
1620 [131]"ascor each province a hexagon is set on
1630 data"that position of the screen where you
1640 [131]"point the sword. atnll eight directions
1650 data"of the joystick may be used to position
1660 [131]"the sword. atnny next territory must be
1670 data"adjacted to another hexagon. [201]f your
1680 [131]"continent is ready press the space bar.
1690 data"[212]he allowed number of provinces is
1700 [131]"between ten and forty. right$f the continent
1710 data"is built the computer will ask you
1720 [131]"wether you accept it or not.
1730 data@,"[193]fter that you can decide how the
1740 [131]"soldiers of the dead king will act
1750 data"during the game. [201]f you make them
1760 [131]"friendly they will accept you as their
1770 data"lord, give you their provinces when
1780 [131]"your army marches in and follow you. right$f
1790 data"you decide them to be hostile they will
1800 [131]"defend their provinces against occupa-
1810 data"tion. [212]heir number will increase after
1820 [131]"each game turn if you want that. (NULL)ou
1830 data"also can make them beeing agressive.
1840 [131]"(NULL)his means that they will attack and
1850 data"occupate the player's provinces if they
1860 [131]"have a chance to. right$f you make them very
1870 data"agressive they will organise themselve
1880 [131]"and attack from every direction to-
1890 data"gether. [212]his is hard to play.
1900 [131]@,"(NULL)hen you may set the beginning number
1910 data"of the king's men and the villages of
1911 [131]"the provinces or let them be random.
1912 data@,"[217]ou then may select the maximum number
1913 [131]"of villages which can be built on one",hexagon.,@
1914 [131]"right$f you have chosen the king's men to be
1915 data"agressive, you will be asked wether
1916 [131]"they shall be able to spread their
1917 data"forces or not. [212]his means that after
1918 [131]"their combat-phase their number will be
1919 data"quite equal in each of their provinces.
1920 [131]"peekut this will allow them another method","of attacking. (NULL)hich? (NULL)ry it!
1921 data@,"[212]hen you may decide wether the dead
1922 [131]"king shall have a brother or not. right$f
1923 data"yes, he is on crusade in the holy land.
1924 [131]"peekut after a few years - how many is
1925 data"your decision - his mighty army is
1926 [131]"expected to return and support the
1927 data"king's men. [194]eware of him and defeat
1928 [131]"all the king's provinces before his
1929 data"brother arrives...
1930 [131]@,"(NULL)ou then have to decide wether random
1931 data"things shall happen to the players
1932 [131]"during the game or not. (NULL)his is to make
1933 data"the game more interesting.
1939 [131]@,"atnfter that the number of players is
1940 data"requested. [212]he computer will then ask
1950 [131]"each player for his name up to ten
1960 data"letters. [212]he computer will try to guess
1970 [131]"wether the player is male or female
1980 data"because of his name but it will be
1990 [131]"carefully asked if this decision is
2000 data"right. [217]ou may then select your colour
2010 [131]"and your coat of arms.
2020 data@,"[217]ou now have to place the players home
2030 [131]"castles on the continent or let the
2040 data"computer do this. [197]ach player will get
2050 [131]"ten knights for his army and 2(NULL) pieces
2060 data"of gold as treasure. [197]ach knight stands
2070 [131]"for a small group of knights and their
2080 data"vasalls. [212]he computer decides now which
2090 [131]"player gets which province. (NULL)hen the
2100 data"game will start.
2110 [131]@,"(NULL)he game turns are devided in months.
2120 data"[193]t the beginning of each game turn you
2130 [131]"will get taxes from your provinces.
2140 data"[197]ach village will pay one piece of gold
2150 [131]"to your treasure. (NULL)ou also get a piece
2160 data"of gold for every player coming before
2170 [131]"you in the player order. (NULL)his is to
2180 data"avoid disadvantages from players late
2181 [131]in the order.,@,"right$f you have any gold left from the last
2182 data"month it will increase by ten percent.
2190 [131]@,"right$n the combat-phase you have the oppor-
2200 data"tuninty to invade and conquer other
2210 [131]"provinces. right$f you want to attack a
2220 data"territory select [201][206][214][193][196][197] and point the
2230 [131]"sword on the enemy's province. (NULL)he
2240 data"computer will then examine all the
2250 [131]"surrounding territories. right$f you are
2260 data"able to attack from there you will be
2270 [131]"asked if you want to. right$f armies are
2280 data"avaiable battle occurs.
2290 [131]@,"(NULL)ow the scenario changes and shows the
2300 data"invaded province and the symbolic
2310 [131]"armies. valach men on the screen stands
2320 data"for up to twenty of your knights.
2330 [131]@,"(NULL)ote that the invaders come over open
2340 data"field and the defenders have the first
2350 [131]"strike. right$f the defender is on an tower
2360 data"his number of men is double effective
2370 [131]"than on the field and in a castle it
2380 data"counts for three. [206]ormally in a real
2390 [131]"battle of swordsmen a low number of
2400 data"warriors will be surrounded from a
2410 [131]"higher number of enemies and have lower
2420 data"chances to defend themselve or to
2430 [131]"defeat some of their opponents. (NULL)his is
2440 datareflected in the game.,@,"[196]uring the fight you can watch the
2450 [131]"number of men of both sides becoming
2460 data"lower. [201]f you think it would be useless
2470 [131]"to continue fighting you may press the
2480 data"firebutton to retreat your soldiers.
2481 [131]@,"(NULL)he defender may retreat his troops by
2482 data"pressing any key. [206]ote that during
2483 [131]"fleeing - attacker or defender - both
2484 data"sides have a strike left. [212]he fugitives
2485 [131]"before running away and the winners by
2486 data"following them and slashing at their
2487 [131]"backs. (NULL)ou cannot flee from your home-","castle, of course.
2490 data@,"[201]f nobody flees the battle will be over
2500 [131]"if either your men were slain or all
2510 datathe enemies were wiped out.,@,"[201]f you have won, you occupate the
2520 [131]"territory and the province with all in
2530 data"it belongs to you. [201]f you manage to
2540 [131]"capture another player's home-castle he
2550 data"is out of the game and all his provin-
2560 [131]"ces and men will fall to you.
2570 data@,"[193]fter the won combat your knights will
2580 [131]"be spread over the engaged provinces in
2600 data"equal numbers. [217]ou can attack another
2610 [131]"territory then but all your soldiers
2620 data"who were engaged in war this month
2630 [131]"cannot strike again.
2640 data@,"[193]fter leaving the combat-phase you can
2650 [131]"move your men in the transfer-phase. right$f
2660 data"you select [205][207][214][197] you can point the sword
2670 [131]"on a province and then on an adjacted
2680 data"destiny. [212]ransfer the men between both
2690 [131]territories by moving the joystick.
2691 [131]"(NULL)ou can transfer all men at once by
2692 data"pressing any key.
2700 [131]@,"right$n the build-phase you can recruit new
2710 data"knights. [197]ach men costs you one piece
2720 [131]"of gold and appears in your home-castle
2730 datafor exercises.,@,"[217]ou can also build up a tower for
2740 [131]"twenty pieces of gold to increase your
2750 data"defense in a province.
2760 [131]@,"(NULL)o develop your economy you can build
2770 data"new villages in your provinces for four
2780 [131]"pieces of gold. (NULL)emember that every new
2790 data"town will pay taxes in future. [197]ach
2800 [131]"province holds enough space for up to
2801 datathe number you allow at the parameter-,setting.
2810 data@,"[204]eaving this phase the game turn ends
2820 [131]"and the next player can act. atnfter
2830 data"that - if choosen - the king's men will
2840 [131]"attack the players if they think their
2850 data"chance to win is fair.
2851 [131]@,"right$f you have chosen - they will then
2852 dataspread their forces to hold their,balance of power.
2858 data@,"[212]hey will then increase their forces.
2859 [131]"left$ow much depends on the number of
2860 data"villages in the province.
2862 [131]@,"right$f the number of the king's men is
2870 data"fifty or more they will build up a
2880 [131]tower.,@,"(NULL)ometimes they will add a new",village.,@
2890 [131]"atnt the end of each game turn you can
2900 data"select between continue, save or end
2910 [131]"the game. right$f you continue the next
2920 data"month will begin.",@,"[212]o save a game you need another disk.
2930 [131]"(NULL)ou can format it if it is necessary.
2940 data"[211]elect a number between one and nine to
2950 [131]"save it. (NULL)ou can resume that game by
2960 data"typing this number in the load mode at
2970 [131]"the start. (NULL)ith this method you can
2980 data"save nine different games on the same
2990 [131]disk.,@,"right$f you decide to end the game make sure
3000 data"[212]hat you have saved it because all the
3010 [131]game data will be lost.,@,"(NULL)e wish you many amazing hours.
3020 data@,"[201] [205] [208] [197] [210] [193] [212] [207] [210]",," [211] [207] [198] [212] [215] [193] [210] [197]",*