Code: Select all
DECLARE SUB Stopp ()
'Actor database of ZSO
DEFINT A-Z
CLS
'sets up backround
Wbackround:
FOR i = 1 TO 30
COLOR 15, 12
LOCATE 15, 20
PRINT "Loading, Please wait."
FOR b = 1 TO 30
NEXT b
CLS
LOCATE 15, 20
PRINT "Loading, Please wait.."
FOR b = 1 TO 30
NEXT b
CLS
LOCATE 15, 20
PRINT "Loading, Please wait..."
FOR b = 1 TO 30
NEXT b
CLS
NEXT i
'Information
CLS
test:
COLOR 15, 12
LOCATE 1, 1
PRINT "A production of Souylsin."
SLEEP 1
LOCATE 2, 1
PRINT "Production date: Tuesday, November 27th/07."
LOCATE 3, 1
PRINT "Thanks to all who contributed to this project."
SLEEP 1
LOCATE 4, 1
PRINT "ZSO DAT 0.01"
SLEEP 1
LOCATE 5, 1
PRINT "Please make sure all files are in same folder..."
LOCATE 6, 1
PRINT there$
LOCATE 7, 1
LOCATE 8, 1
PRINT "TEST COMPLETE"
LOCATE 11, 1
PRINT "Press Any key to Continue"
DO
kp$ = INKEY$
IF kp$ <> "" THEN GOTO menu
LOOP
'the main menu
menu:
CLS
LOCATE 5, 20
COLOR 15, 12
PRINT "The Offline Wiki"
LOCATE 7, 20
COLOR 10, 12
PRINT "(S)earch for Actors"
LOCATE 9, 20
PRINT "(T)utorials"
LOCATE 11, 20
PRINT "(G)ameshark Codes"
COLOR 15, 12
LOCATE 15, 20
PRINT "(E)xit"
DO
kp$ = INKEY$
IF kp$ = "t" THEN GOTO tuts
IF kp$ = "g" THEN GOTO GSC
IF kp$ = "s" THEN
acts = 0
acts = acts + 1
GOTO asearch
END IF
IF kp$ = "e" THEN GOTO ext
LOOP
'starts the search engine, and fixes it to the correct settings
asearch:
CLS
act$ = "Actordat.txt"
gs$ = "GSC.txt"
data$ = CHR$(0)
IF gscs = 1 THEN
data$ = gs$
GOTO searchprog
END IF
IF acts = 1 THEN
data$ = act$
GOTO searchprog
END IF
searchprog:
LOCATE 1, 1
COLOR 15, 12
INPUT "Part of whole of file:", sactname$
cmd$ = "FIND /I " + CHR$(34) + sactname$ + CHR$(34) + " " + data$
SHELL cmd$
PRINT "(A)nother search or (M)enu?"
DO
kp$ = INKEY$
IF kp$ = "a" THEN GOTO asearch
IF kp$ = "m" THEN
gscs = 0
acts = 0
GOTO menu
END IF
LOOP
'tutorial menu
tuts:
CLS
COLOR 15, 12
LOCATE 10, 20
PRINT "Choose a Tutorial"
LOCATE 12, 20
PRINT "(1)DL's Exit Tutorial"
LOCATE 14, 20
PRINT "(2)DL's Porting Tutorial"
LOCATE 17, 20
PRINT "(E)xit"
DO
kp$ = INKEY$
IF kp$ = "1" THEN
tut = 0
tut = 1
GOTO oall
END IF
IF kp$ = "2" THEN
tut2 = o
tut2 = 1
GOTO oall
END IF
IF kp$ = "e" THEN GOTO menu
LOOP
'gameshark code menu
GSC:
CLS
COLOR 15, 12
LOCATE 10, 13
PRINT "Would you like to"
LOCATE 12, 13
PRINT "(1)Search for GS codes"
LOCATE 13, 13
PRINT "(2)Print them all?"
LOCATE 14, 13
PRINT "(E)xit"
DO
kp$ = INKEY$
IF kp$ = "1" THEN
gscs = 0
gscs = gscs + 1
GOTO asearch
END IF
IF kp$ = "2" THEN
gscs = 0
gscs = gscs + 1
GOTO oall
END IF
LOOP
'prints/opens a whole file
oall:
CLS
DO
f$ = ""
IF gscs = 1 THEN
f$ = "GSC.txt"
gscs = 0
GOTO aftr
END IF
IF tut1 = 1 THEN
f$ = "DLET.txt"
tut1 = 0
GOTO aftr
END IF
IF tut2 = 1 THEN
f$ = "DLPT.txt"
tut2 = 0
GOTO aftr
END IF
aftr:
cmd2$ = "start /MAX notepad " + CHR$(34) + f$ + CHR$(34)
SHELL cmd2$
Stopp
GOTO menu
LOOP
'exit program
ext:
CLS
RANDOMIZE TIMER
C = INT(RND * 0 + 15) + 1
COLOR C
LOCATE 10, 25
PRINT "BYE!"
SLEEP 1
END
SUB Stopp
PRINT "Program Paused"
DO
kp$ = INKEY$
IF kp$ <> "" THEN GOTO contin
LOOP
contin:
END SUB