home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
games
/
eamon_d.zip
/
STARTUP.BAS
< prev
next >
Wrap
BASIC Source File
|
1986-11-05
|
1KB
|
44 lines
1000 REM Go on and Adventure
1001 REM
1010 CLS:PRINT:PRINT:PRINT:PRINT"Insert diskette with adventure in this drive then hit 'C' to continue."
1020 A$=INKEY$:IF A$="" THEN 1020
1021 IF A$<>"c" AND A$<>"C" THEN 1020
1030 PRINT
1040 OPEN"I",#1,"EAMON.NAM"
1041 INPUT#1,ADNAME$:INPUT#1,FINM$
1042 CLOSE#1
1050 CLS:PRINT:PRINT:PRINT:PRINT
1052 PRINT"You are about to adventure in ";ADNAME$:PRINT:PRINT
1060 OPEN "O",#1,"FRESHMEA.T"
1062 GOSUB 30000:PRINT#1,RC:PRINT#1,A$
1066 CLOSE#1
1068 RUN FINM$
1070 STOP
29990 REM
30000 REM SET UP CHARACTER INFO FOR DUNGEON
30010 REM
30100 INPUT "Enter your name or <RETURN> for 'You' ";CNAME$
30110 INPUT "Are you a guy or a gal ('M' or 'F') ";SEX$
30120 IF CNAME$="" THEN CNAME$="You"
30130 IF SEX$<>"M" AND SEX$<>"F" THEN 30110
30140 '
30150 WNAME$(1)="SWORD"
30160 WTYPE(1)=4
30170 WODDS(1)=20
30180 WDICE(1)=1
30190 WSIDE(1)=6
30194 FOR I=2 TO 4
30195 WNAME$(I)="NONE"
30196 NEXT I
30200 '
30600 A$=CNAME$+","+STR$(18)+","+STR$(18)+","+STR$(18)+","
30610 FOR I=1 TO 4:A$=A$+STR$(100)+",":NEXT I
30620 FOR I=1 TO 5:A$=A$+STR$(40)+",":NEXT I
30630 A$=A$+STR$(50)+","+SEX$+","+STR$(1000)+","+STR$(1000)+","+STR$(3)
30640 FOR I=1 TO 4:A$=A$+","+WNAME$(I)+","
30650 A$=A$+STR$(WTYPE(I))+","+STR$(WODDS(I))+","
30660 A$=A$+STR$(WDICE(I))+","+STR$(WSIDE(I))
30670 NEXT I
30680 RETURN
30650 A$=A$+STR$(WTYPE(I))+","+STR$(WODDS(I)