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