home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / games / eamon0.zip / LISTCHAR.BAS < prev    next >
BASIC Source File  |  1986-06-23  |  2KB  |  76 lines

  1. 10 REM   CNAME$: CHARACTER NAME      HD: HARDINESS  AG: AGILITY  CH: CHARISMA
  2. 15 REM
  3. 20 REM   SA(1)-SA(4):SPELL ABILITIES
  4. 30 REM   WA(1)-WA(5):WEAPON ABILITIES
  5. 35 REM
  6. 40 REM   AE: AMROUR EXPERT.  SEX$: M OR F  GOLD: ON PERSON  BANK: GOLD IN BANK
  7. 50 REM   AC: ARMOUR CLASS  
  8. 60 REM 
  9. 70 REM WEAPON INFO:
  10. 80 REM     WNAME$: WEAPON NAME
  11. 90 REM   WTYPE: TYPE   WODDS:ODDS OF HIT   WDICE:# OF DICE  WSIDE:# OF SIDES
  12. 95 REM
  13. 96 REM
  14. 110 REM
  15. 120 REM LIST CHARACTERS PROGRAM
  16. 200 REM
  17. 210 REM
  18. 220 CLS
  19. 230 X=RND(10)
  20. 240 OPEN"R",#1,"CHARACTE.RS",255
  21. 250 FIELD 1,255 AS B$
  22. 260 GET#1,1
  23. 270 NC=VAL(B$)
  24. 300 FOR KR1=1 TO NC
  25. 310 GET#1,KR1+1
  26. 320 GOSUB 30000
  27. 325 PRINT "RECORD #";KR1:PRINT
  28. 330 PRINT "NAME :";CNAME$
  29. 340 PRINT USING "HARDINESS= ## , AGILITY= ## , CHARISMA= ##";HD,AG,CH
  30. 350 PRINT:INPUT"Hit return to continue ";A$
  31. 360 NEXT KR1
  32. 370 CLOSE#1
  33. 380 END
  34. 30000 REM
  35. 30010 REM  break up record into its needed parts
  36. 30020 REM  and damned be he the first to screw up this ordered set!!!
  37. 30030 REM
  38. 30031 REM HINT: a string of 37 commas will clear all fields!
  39. 30040 REM
  40. 30050 R$=B$
  41. 30060 U=1:W=1:X=1:Y=1:IF LEN(R$)=0 THEN 30560
  42. 30070 FOR I=1 TO 37
  43. 30075 A1$=""
  44. 30080 IF R$="" THEN 30555
  45. 30090 J=INSTR(R$,",")
  46. 30095 IF J<>0 THEN A1$=LEFT$(R$,J-1):R$=MID$(R$,J+1):GOTO 30110
  47. 30100 IF J=0 AND R$<>"" THEN A1$=R$:R$=""
  48. 30110 REM
  49. 30120 ON U    GOTO 30170,30180,30190,30200,30210,30210,30210,30210,30250,30250
  50. 30130 ON U-10 GOTO 30250,30250,30250,30300,30310,30320,30330,30340,30350,30360
  51. 30140 ON U-20 GOTO 30370,30380,30390,30350,30360,30370,30380,30390,30350,30360
  52. 30150 ON U-30 GOTO 30370,30380,30390,30350,30360,30370,30380,30390
  53. 30160 STOP
  54. 30170 CNAME$=A1$:GOTO 30550
  55. 30180 HD=VAL(A1$):GOTO 30550
  56. 30190 AG=VAL(A1$):GOTO 30550
  57. 30200 CH=VAL(A1$):GOTO 30550
  58. 30210 SA(X)=VAL(A1$):X=X+1:GOTO 30550
  59. 30250 WA(Y)=VAL(A1$):Y=Y+1:GOTO 30550
  60. 30300 AE=VAL(A1$):GOTO 30550
  61. 30310 SEX$=A1$:GOTO 30550
  62. 30320 GOLD=VAL(A1$):GOTO 30550
  63. 30330 BANK=VAL(A1$):GOTO 30550
  64. 30340 AC=VAL(A1$):GOTO 30550
  65. 30350 WNAME$(W)=A1$:GOTO 30550
  66. 30360 WTYPE(W)=VAL(A1$):GOTO 30550
  67. 30370 WODDS(W)=VAL(A1$):GOTO 30550
  68. 30380 WDICE(W)=VAL(A1$):GOTO 30550
  69. 30390 WSIDE(W)=VAL(A1$):W=W+1:GOTO 30550
  70. 30550 U=U+1
  71. 30555 NEXT I
  72. 30560 RETURN
  73. 30570 REM
  74. 30580 REM   pack the array with commas
  75. 30590 REM
  76.