home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
games
/
eamon0.zip
/
LISTCHAR.BAS
< prev
next >
Wrap
BASIC Source File
|
1986-06-23
|
2KB
|
76 lines
10 REM CNAME$: CHARACTER NAME HD: HARDINESS AG: AGILITY CH: CHARISMA
15 REM
20 REM SA(1)-SA(4):SPELL ABILITIES
30 REM WA(1)-WA(5):WEAPON ABILITIES
35 REM
40 REM AE: AMROUR EXPERT. SEX$: M OR F GOLD: ON PERSON BANK: GOLD IN BANK
50 REM AC: ARMOUR CLASS
60 REM
70 REM WEAPON INFO:
80 REM WNAME$: WEAPON NAME
90 REM WTYPE: TYPE WODDS:ODDS OF HIT WDICE:# OF DICE WSIDE:# OF SIDES
95 REM
96 REM
110 REM
120 REM LIST CHARACTERS PROGRAM
200 REM
210 REM
220 CLS
230 X=RND(10)
240 OPEN"R",#1,"CHARACTE.RS",255
250 FIELD 1,255 AS B$
260 GET#1,1
270 NC=VAL(B$)
300 FOR KR1=1 TO NC
310 GET#1,KR1+1
320 GOSUB 30000
325 PRINT "RECORD #";KR1:PRINT
330 PRINT "NAME :";CNAME$
340 PRINT USING "HARDINESS= ## , AGILITY= ## , CHARISMA= ##";HD,AG,CH
350 PRINT:INPUT"Hit return to continue ";A$
360 NEXT KR1
370 CLOSE#1
380 END
30000 REM
30010 REM break up record into its needed parts
30020 REM and damned be he the first to screw up this ordered set!!!
30030 REM
30031 REM HINT: a string of 37 commas will clear all fields!
30040 REM
30050 R$=B$
30060 U=1:W=1:X=1:Y=1:IF LEN(R$)=0 THEN 30560
30070 FOR I=1 TO 37
30075 A1$=""
30080 IF R$="" THEN 30555
30090 J=INSTR(R$,",")
30095 IF J<>0 THEN A1$=LEFT$(R$,J-1):R$=MID$(R$,J+1):GOTO 30110
30100 IF J=0 AND R$<>"" THEN A1$=R$:R$=""
30110 REM
30120 ON U GOTO 30170,30180,30190,30200,30210,30210,30210,30210,30250,30250
30130 ON U-10 GOTO 30250,30250,30250,30300,30310,30320,30330,30340,30350,30360
30140 ON U-20 GOTO 30370,30380,30390,30350,30360,30370,30380,30390,30350,30360
30150 ON U-30 GOTO 30370,30380,30390,30350,30360,30370,30380,30390
30160 STOP
30170 CNAME$=A1$:GOTO 30550
30180 HD=VAL(A1$):GOTO 30550
30190 AG=VAL(A1$):GOTO 30550
30200 CH=VAL(A1$):GOTO 30550
30210 SA(X)=VAL(A1$):X=X+1:GOTO 30550
30250 WA(Y)=VAL(A1$):Y=Y+1:GOTO 30550
30300 AE=VAL(A1$):GOTO 30550
30310 SEX$=A1$:GOTO 30550
30320 GOLD=VAL(A1$):GOTO 30550
30330 BANK=VAL(A1$):GOTO 30550
30340 AC=VAL(A1$):GOTO 30550
30350 WNAME$(W)=A1$:GOTO 30550
30360 WTYPE(W)=VAL(A1$):GOTO 30550
30370 WODDS(W)=VAL(A1$):GOTO 30550
30380 WDICE(W)=VAL(A1$):GOTO 30550
30390 WSIDE(W)=VAL(A1$):W=W+1:GOTO 30550
30550 U=U+1
30555 NEXT I
30560 RETURN
30570 REM
30580 REM pack the array with commas
30590 REM