CLS
RANDOMIZE TIMER
'Välkomstskärm med namn, version och copyright.
COLOR 12, 0
PRINT "David RPG"
PRINT "Version 1.0"
PRINT "Copyright David Gometz 2007"
SLEEP 1
PRINT
COLOR 30, 0
PRINT "Tryck på valfri tangent för att fortsätta": Ch$ = INPUT$(1)
COLOR 12, 0
'Startskärm där man väljer namn, kön och yrke.
BEEP
CLS
WIDTH 80
INPUT "Vad heter du"; namn$
SELECT CASE namn$
CASE "David"
PRINT "Välkommen du överlägsna mästare!"
CASE ELSE
PRINT "Välkommen "; namn$; " din värdelösa mask till Davids RPG!"
END SELECT
PRINT
1 INPUT "Är du en pojke eller en flicka"; kon$
SELECT CASE kon$
CASE "pojke"
GOTO 2 ' Accepterar inputen och går till nästa fråga.
CASE "Pojke"
GOTO 2
CASE "Flicka"
GOTO 2
CASE "flicka"
GOTO 2
CASE ELSE
PRINT "Ogiltigt svar"
GOTO 1 ' Går tillbaka och ställer frågan igen.
END SELECT
2 IF kon$ = "flicka" OR kon$ = "Flicka" THEN ' Om det är en flicka används "hennes" och om det är en pojke används "hans" i resten av spelet
gen$ = "hennes"
ELSE
gen$ = "hans"
END IF
PRINT
INPUT "Vad är ditt yrke"; prof$
CLS
PRINT "Lol fan vilket kass yrke..."
SLEEP 1
PRINT
PRINT "Iallfall "; name$;;", ditt äventyr börjar nu!"
SLEEP 1
PRINT
COLOR 30, 0
PRINT "Tryck på valfri tangent för att fortsätta": Ch$ = INPUT$(1)
COLOR 12, 0
CLS
'Jimmy Fight
PRINT "Rackarns bananer! En elakartad Jimmy hoppar fram!"
jimlife = 20 'Bestämmer Jimmys HP
youlife = 100 'Bestämmer spelarens HP
jimmy1:
INPUT "Vill du attackera Jimmy?"; d$
d2$ = LEFT$(d$, 1)
SELECT CASE d2$
CASE "j" 'Alla ord som börjar med litet j tolkas som JA
GOTO attackjimmy
CASE "J" 'Alla ord som börjar med stort J tolkas som JA
GOTO attackjimmy
CASE "n" 'Alla ord som börjar med litet n tolkas som NEJ
GOTO die2
CASE "N" 'Alla ord som börjar med stort N tolkas som NEJ
GOTO die2
CASE ELSE
PRINT "Ogiltigt svar" 'Allt annas räknas som ett ogiltigt svar och frågan ställs igen
GOTO jimmy1
END SELECT
die2:
PRINT "Korkat drag, eftersom du iten attackerade "
PRINT "så blev du ihjä-irriterad av Jimmy med tjat om "
PRINT "Apples överlägsenhet och bedrövligt dålig indiepop."
COLOR 30, 0
PRINT "Tryck på valfri tangent för att avsluta": Ch$ = INPUT$(1)
COLOR 12, 0
CLS
END
attackjimmy:
CLS
PRINT name$; " attackerade Jimmy med sin superbanan!"
SLEEP 2
BEEP
damage = INT(RND * 6 + 1) 'Slumpar fram hur mycket man skadar (mellan 1 & 6.)
jimlife = jimlife - damage 'Drar av det man skadade från Jimmys totala HP
PRINT "Jimmy förlorade "; damage; " HP!" 'Visar hur mycket Jimmy skadaddes
SLEEP 1
PRINT
IF jimlife <= 0 OR jimlife = 0 THEN 'Kollar om Jimmys HP är lika med eller under noll och går isåfall till delen där Jimmy dör
PRINT "Jimmy dog!"
PRINT "Game Over"
SLEEP 5
END
ELSE
PRINT "Jimmy har "; jimlife; " HP kvar." 'Prints how many hit points Jimmy got left
attag:
PRINT
COLOR 30, 0
INPUT "Attackera igen"; d3$ 'Frågar om man villl attackera igen
COLOR 12, 0
d4$ = LEFT$(d3$, 1)
SELECT CASE d4$
CASE "j"
GOTO attackjimmy
CASE "J"
GOTO attackjimmy
CASE "n"
GOTO die
CASE "N"
GOTO die
CASE ELSE
PRINT "Ogiltigt svar."
GOTO attag
END SELECT
END IF
die:
PRINT "Korkat drag, eftersom du iten attackerade "
PRINT "så blev du ihjä-irriterad av Jimmy med tjat om "
PRINT "Apples överlägsenhet och bedrövligt dålig indiepop."
SLEEP 10
PRINT "GAME OVER"
END