home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / U5-PARTY-EDITOR (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.0 KB  |  105 lines
  1. 0 REM CALL THE FORTRESS OF SOLITUDE
  2. 1 REM (619)-442-8909 SYSOP:STEVENSON
  3. 2 REM MENTION THIS PROGRAM PLEASE...
  4. 3 REM***********************************
  5. 4 REM BE SURE TO PUT BRITANNIA DISK IN
  6. 5 REM DRIVE 8 BEFORE RUNNING THIS
  7. 6 REM PROGRAM.  DON'T GO OVER THE MAXI-
  8. 7 REM MUMS OR YOU'LL MESS UP YOUR DISK!
  9. 8 REM EX:  <99>  IS A MAXIMUM.....
  10. 9 REM(null)
  11. 10 POKE53280,13:POKE53281,0:POKE646,12
  12. 12 GOSUB200:GOSUB2000:POKE198,0
  13. 20 PRINT"[147][213]LTIMA [214] [195]HARACTER [197]NHANCER"
  14. 30 PRINT"[154][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  15. 40 PRINT"      [194]Y:  [156][211]TEVENSON"
  16. 50 PRINT"      ([209]NAME:  [158][217][159][207][153][202][151][193][155][206])"
  17. 60 OPEN1,0:PRINT"   [208]RESS [210][197][212][213][210][206]:[144]*[157]";:INPUT#1,A$
  18. 70 PRINT"[147]";
  19. 80 PRINT"[194][146] - [153][210]OB A [194]ANK":PRINT"[199][146] - [153][199]ROCERY [211]TORE"
  20. 90 PRINT"[200][146] - [153][200]ERB'S [200]ERBS":PRINT"[209][146] - [153][209]UIT & [211]AVE"
  21. 95 PRINT"[212][146] - [153][212]HIEVE'S [199]UILD":PRINT"[146][211][146] - [153][211]UMMON [194]RITISH!"
  22. 100 PRINT"[154][217]OUR [195]HOICE: ";:INPUT#1,A$
  23. 105 IFA$="Q"THEN3000
  24. 106 IFA$="T"THEN600
  25. 107 IFA$="S"THEN700
  26. 110 ON-(A$="B")-2*(A$="G")-3*(A$="H")GOTO300,400,500:GOTO70
  27. 197 REM(null)
  28. 200 PRINT"[147][154][193]T THIS TIME THIS PROGRAM IS UNABLE TO"
  29. 201 PRINT"CORRECTLY EDIT THE INDIVIDUAL CHARACTER"
  30. 202 PRINT"STATS.  [200]OWEVER, IT CAN STILL CORRECTLY"
  31. 203 PRINT"CHANGE PARTY STATS, SUCH AS:"
  32. 204 PRINT:PRINT"[156][199]OLD, [198]OOD, [199]EMS, [212]ORCHES, [203]EYS, AND    [210]EAGENTS..."
  33. 206 PRINT:PRINT"[211]UMMONING [204]ORD [194]RITISH WILL RAISE YOUR"
  34. 207 PRINT"CHARACTER LEVELS AND HITPOINT MAXIMUMS"
  35. 208 PRINT"CORRECTLY AS WELL AS RESTORING YOUR HIT"
  36. 209 PRINT"AND MAGIC POINTS TO THEIR MAXIMUM VALUES";
  37. 210 PRINT"LIKE THE NORMAL HOLE UP & REST COMMAND.":PRINT:PRINT
  38. 211 PRINT"[201]NSERT [194]RITANNIA [196]ISK & [208]RESS [193] [203]EY":POKE198,0:WAIT198,1:RETURN
  39. 300 H=PEEK(49538):L=PEEK(49539):GOSUB1010:PRINT"[147][155][195]URRENT [194]ANK [194]ALANCE - $";
  40. 305 PRINT""MID$(STR$(A),2)"[155]":INPUT"[206]EW [212]OTAL (9999 [205]AX)";A
  41. 307 GOSUB1000:POKE49538,H:POKE49539,L:GOTO70
  42. 400 H=PEEK(49536):L=PEEK(49537):GOSUB1010:PRINT"[147][155][195]URRENT [198]OOD [194]ALANCE - ";
  43. 405 PRINT""MID$(STR$(A),2)"[155]":INPUT"[206]EW [212]OTAL (9999 [205]AX)";A
  44. 407 GOSUB1000:POKE49536,H:POKE49537,L:GOTO70
  45. 500 PRINT"[147][149][210]EAGENTS...":PRINT:PRINT"1) <99> [211]ULFUR :";:H=.:L=PEEK(49824):GOSUB1010:PRINTA
  46. 501 PRINT"2) <99> [199]INSENG :";:H=.:L=PEEK(49825):GOSUB1010:PRINTA
  47. 502 PRINT"3) <99> [199]ARLIC :";:H=.:L=PEEK(49826):GOSUB1010:PRINTA
  48. 503 PRINT"4) <99> [211]PIDER [211]ILK :";:H=.:L=PEEK(49827):GOSUB1010:PRINTA
  49. 504 PRINT"5) <99> [194]LOOD [205]OSS :";:H=.:L=PEEK(49828):GOSUB1010:PRINTA
  50. 505 PRINT"6) <99> [194]LACK [208]EARL :";:H=.:L=PEEK(49829):GOSUB1010:PRINTA
  51. 506 PRINT"7) <99> [206]IGHTSHADE :";:H=.:L=PEEK(49830):GOSUB1010:PRINTA
  52. 507 PRINT"8) <99> [205]ANDRAKE :";:H=.:L=PEEK(49831):GOSUB1010:PRINTA
  53. 510 B=.:INPUT"[152][217]OUR [195]HOICE";B:IFB=.THEN70
  54. 511 INPUT"[158][206]EW [193]MOUNT";A:GOSUB1000
  55. 512 IFB=1THENPOKE49824,L
  56. 513 IFB=2THENPOKE49825,L
  57. 514 IFB=3THENPOKE49826,L
  58. 515 IFB=4THENPOKE49827,L
  59. 516 IFB=5THENPOKE49828,L
  60. 517 IFB=6THENPOKE49829,L
  61. 518 IFB=7THENPOKE49830,L
  62. 519 IFB=8THENPOKE49831,L
  63. 520 GOTO500
  64. 600 FORI=0TO15:POKE53281,I:NEXT:POKE53281,0:PRINT"[147][153][212]HIEVES [199]UILD..."
  65. 602 PRINT"1) <99> [203]EYS :";:H=.:L=PEEK(49540):GOSUB1010:PRINTA
  66. 603 PRINT"2) <99> [199]EMS :";:H=.:L=PEEK(49541):GOSUB1010:PRINTA
  67. 604 PRINT"3) <99> [212]ORCHES :";:H=.:L=PEEK(49542):GOSUB1010:PRINTA
  68. 605 B=.:PRINT"":INPUT"[154][217]OUR [195]HOICE";B:IFB=.THEN70
  69. 607 INPUT"[206]EW [193]MOUNT";A:GOSUB1000
  70. 608 IFB=1THENPOKE49540,L
  71. 609 IFB=2THENPOKE49541,L
  72. 610 IFB=3THENPOKE49542,L
  73. 611 GOTO602
  74. 700 PRINT"[147][150][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]":FORI=0TO5
  75. 702 H=PEEK(49292+I*16):L=PEEK(49293+I*16):GOSUB1010:B=A
  76. 704 H=.:L=PEEK(49294+I*16):GOSUB1010:IFINT(B/100)=ATHEN712
  77. 706 A=INT(B/100):PRINT"[158][195]HAR#"+STR$(I+1)+" [210]AISED TO [204]EVEL"+STR$(A):GOSUB1000:B=A
  78. 707 FORZ=1TO1000:NEXT
  79. 708 POKE49294+I*16,L:H=PEEK(49290+I*16):L=PEEK(49291+I*16):GOSUB1010
  80. 710 A=B*30:GOSUB1000:POKE49290+I*16,H:POKE49291+I*16,L
  81. 712 POKE49288+I*16,PEEK(49290+I*16):POKE49289+I*16,PEEK(49291+I*16)
  82. 714 POKE49287+I*16,PEEK(49286+I*16)
  83. 716 NEXTI:GOTO70
  84. 1000 REM CONVERT FROM DECIMAL TO U.FORM
  85. 1005 A$=MID$(STR$(A),2):A$=MID$("000",LEN(A$))+A$
  86. 1007 H=16*VAL(LEFT$(A$,1))+VAL(MID$(A$,2,1))
  87. 1008 L=16*VAL(MID$(A$,3,1))+VAL(MID$(A$,4,1)):RETURN
  88. 1010 REM CONVERT FROM U.FORM TO DECIMAL
  89. 1012 IFH=.THENA=.:GOTO1014
  90. 1013 A=(INT(H/16)*10+H-INT(H/16)*16)*100
  91. 1014 IFH=.ANDL=.THENA=.:RETURN
  92. 1015 A=A+INT(L/16)*10+L-INT(L/16)*16:RETURN
  93. 2000 POKE828,238:POKE829,32:POKE830,208:POKE831,162:POKE832,26:POKE833,202
  94. 2001 POKE834,208:POKE835,253:POKE836,165:POKE837,102:POKE838,240:POKE839,244
  95. 2002 POKE840,32:POKE841,226:POKE842,253
  96. 2009 OPEN2,8,2,"0:ROSTER,P,R":GET#2,L$:GET#2,H$:A=49152
  97. 2010 GET#2,A$:IF64ANDSTTHENCLOSE2:RETURN
  98. 2020 POKEA,ASC(A$+CHR$(0)):A=A+1:GOTO2010
  99. 3000 OPEN15,8,15,"S0:ROSTER":CLOSE15:OPEN2,8,2,"0:ROSTER,P,W":PRINT#2,CHR$(0)CHR$(16);
  100. 3010 FORI=49152TO50174:PRINT#2,CHR$(PEEK(I));:NEXT:CLOSE2:CLOSE1
  101. 3020 POKE53280,0:POKE53281,12:POKE646,6:PRINT"[147][164][175][185][162][162]";
  102. 3025 PRINT"[198]ORTRESS [208]RODUCTIONS  (C) 1988[146][162][162][185][175][164][154][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
  103. 3026 PRINT"[183][183][183][183][183][183][183][183][183]":POKE209,0:POKE210,212:POKE211,0
  104. 3027 PRINT"0D H[213][190][184][146]@@@@@@@_U@[192] @@@@@O";:SYS828
  105.