Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|463|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-

Chronicles of P.Edgard : Heart of Kluthu

by svrman for Workshop #052

"I overcomplicated it for myself"

Keyboard

Global title$="CHRONICLES OF P. EDGARD: HEART OF KLUTHU"
AppTitle title$

;--------------------------------
; player globals
;--------------------------------

Global name$="Phelyx"
Global level=0
Global xp_level[10]
Global xp=0
Global xp_cap=50
Global p_hp=70
Global p_atk=17
Global p_def=13
Global p_eva=13
Global xp_gained=0
Global location$
Global playerdefend=False
;item array
;1=lighter - haven't decided on rest
Dim items(10)
For i=1 To 10
	items(i)=0
Next
;-------------------------------
; Game
;-------------------------------



Global debug=0
Global p_turn=True
Global condition=5
Global endbattle=5
Global mission=0
Global enable_playercontrol=True
Global tutorial=0
Global missionbrief$=""
Global mission1_monolithpass$=""


;-------------------------------
; monsters
;-------------------------------
Global enemydefend=False

; temp monster vars
Dim e_name$(1)
Dim e_hp(1)
Dim e_def(1)
Dim e_atk(1)
Dim e_eva(1)

; Thing
Dim thing(1)
Dim thing_name$(1)
Dim thing_hp(1)
Dim thing_atk(1)
Dim thing_def(1)
Dim thing_eva(1)

thing(1)=1
thing_name$(1)="SVRMAN"
thing_hp(1)=250
thing_atk(1)=Rand(10,15)
thing_def(1)=Rand(10,12)
thing_eva(1)=Rand(12,13)
;-------------------------------
; xp levels are automated. You can manually assign each.
;-------------------------------

SeedRnd MilliSecs()

xp_level[1]=50	; first level 50 xp

For i=2 To 10
xp_level[i]=xp_level[i-1]*Rnd(1.4,1.8)
Next

;-------------------------------------------------------------------------------
; Initialise
;-------------------------------------------------------------------------------

Graphics 640,480,16,2

;-------------------------------
; Load fonts
;-------------------------------
Global fntBody=LoadFont("lucida console",12,False,False,False) 
Global fntHeading=LoadFont("lucida console",12,True,False,False) 

;-------------------------------------------------------------------------------------------------;
; Start Game Main loop
;-------------------------------------------------------------------------------------------------;

intro()

Repeat

FlushKeys

	Select mission

		Case 0 ; story prelude
		
		Cls
		u=10:v=12
		Delay 500
		
		tw("Professor Phelyx Edgard.",u):Delay 1000
		tw("An archeologist and adventurer searching for the rare and beware.",u+v):Delay 1000
		tw("Accompanied by his ever loyal friend, Rody McStevens, a former",u+(v*2)):Delay 1000
		tw("legionnaire of the french foreign army.",u+(v*3)):Delay 1000
		
		tw("The story so far:",u+(v*5)):Delay 1000
		tw("For some time now, Professor Edgard has been in the pursuit of a rare",u+(v*7)) 
		tw("and priceless treasure known only has the HEART OF KLUTHU.",u+(v*8)):Delay 1000
		tw("The JEWEL is said to have a real demon heart sealed within its core",u+(v*9))
		tw("and grants mystical powers to those who wield it.",u+(v*10)):Delay 1000 
		tw("The Professor's current lead brings him to the mountains of elkforn,",u+(v*12))
		tw("where he must then climb to its summit and find the HEAVEN'S GATE.",u+(v*13))
		Delay 2000
		
		
		mission=1	; proceed to next mission
		
		Case 1 ;mission 1 begins!
		
		missionbrief$="Find HEAVEN'S GATE! Those snow covered monoliths may hold the answer..."
		Cls
		Delay 2000
		Locate 0,0
		u=10:v=12
		tw("Chapter 1: Hell's gate",u)
		Delay 2000
		tw("5th August 1954 - A windy afternoon",u+(v*2))
		Delay 1000
		tw("Upon scaling the trecharous heights of the elkforn mountains,",u+(v*3))
		tw("We finally reach its windy summit.",u+(v*4))
		Delay 1000
		tw("But to our dismay, there was no sign of HEAVEN'S GATE - a supposedly ethereal",u+(v*6))
		tw("doorway into what some would have you believe, a world of the ancients.",u+(v*7))
		Delay 1000
		tw("BLAST!",u+(v*9),False,50)
		Delay 1000
		tw("We'd almost given up hope when RODY, my good friend and assistant, noticed 4",u+(v*9),True,100,FontWidth()*7)
		tw("identical monoliths in equal distance from each other.",u+(v*10))
		Delay 1000
		tw("By joe, I think we may be on to something...",u+(v*12))
		
		Delay 1000
		location$="elkforn summit"
		
		Locate 0,u+(v*14)
		Color 59,59,59
		Print "Tutorial: type 'LOOK' to search the surroundings!"
		Color 255,255,255
		
		If tutorial=0 Then playercmd()
		
		If tutorial=1 Then
		Color 59,59,59
		Print ""
		Print "Tutorial: type 'LOOK <ITEM>' to look at any particular object"
		Color 255,255,255
		enable_playercontrol=True
		tutorial=2

		End If
		
		If tutorial=2 Then playercmd()
		
		If tutorial=3 Then
		Color 59,59,59
		Print ""
		Print "Tutorial: type 'USE <ITEM>' to use/place a particular object"
		Print "Tutorial: type 'USE <ITEM> <ITEM>' to use/place one object onto another,"
		Print "          additionally you can use this command to use someone else's item."
		Color 255,255,255
		enable_playercontrol=True
		tutorial=4
		End If
		
		If tutorial=4 Then playercmd()
	
	Case 2 ; mission 2
	missionbrief$="Find your comrades! They couldn't have gone far..."
	Cls
	Locate 0,0
	Delay 2000
	u=10:v=12
	tw("Chapter 2: A Warm Welcome",u):Delay 2000
	tw("...Am I dead?...",u+(v*2)):Delay 2000
	tw("I awaken to find myself inside a dark temple, isolated from my party and lost.",u+(v*3)):Delay 1000
	tw("The afternoon sun barely penetrates the thick dust in the air but enough",u+(v*4))
	tw("for me to mentally map out the immediate area.",u+(v*5)):Delay 1500
	tw("The walls here seem ancient and the decor, though badly worn and tattered,",u+(v*7))
	tw("resemble that of buddist origin.",u+(v*8)):Delay 1500
	tw("My legs though still shaken from the ordeal with the vortex, manage",u+(v*10))
	tw("to get a hold of themselves long enough for me to stand.",u+(v*11)):Delay 1000
	tw("First things first, I must regroup with the others.",u+(v*13))
	
	Delay 1000
	location$="Unknown temple"
 
	Locate 0,u+(v*15)
	Color 59,59,59
	Print "Tutorial: You can now use N,S,E,W (keys) to move around!"
	Print "Tutorial: You can now use PICKUP <item> to pick up objects!" 
	Color 255,255,255
	Print ""
	Print "A GIANT THING ATTACKS!!"
	Color 59,59,59
	Print "Tutorial: Reduce the enemy HP to zero to win an encounter!"
	Print "Tutorial: Type 1 to attack, type 2 to defend, type 3 to run!" 
	Color 255,255,255
	FlushKeys()
	Print "<press any key to continue>"
	WaitKey()
	
	fight(thing(1),50,"SVRMAN SAYS PREPARE TO DIE!","OMG! HAXTBH >_<")
	
	Cls
	Locate 0,10
	Print "thanks for playing! To be continued..."
	Delay 3000
	End
	;tutorial=100:enable_playercontrol=True
	;playercmd()
	
	Default

	End Select

Until KeyHit(1)



End

;-------------------------------------------------------------------------------------------------;
; End main loop
;-------------------------------------------------------------------------------------------------;
Function endgame()
	
	; freefonts
FreeFont fntBody 
FreeFont fntHeading

End

End Function

Function playercmd()
	Repeat
		
		If KeyHit(1) Then endgame()
		FlushKeys
		
		Write "> "
		entercmd$=Input("")
		
		If tutorial=100 Then
			If Not entercmd$="" Then command(entercmd$)
		Else
			If Not entercmd$="" Then tutorialcommand(entercmd$)
		End If
		
	Until enable_playercontrol=False
	
End Function



Function h(t$="<insert heading>")
	SetFont fntHeading
	Print t$
	Print ""
	SetFont fntbody
End Function

Function p(t$="<insert normal text>")
	SetFont fntBody
	Print t$
End Function

Function l(n$,t$)
	SetFont fntBody
	Print "     "+n$+". "+t$
End Function


;--------------------------------
; tutorial command
;--------------------------------

Function tutorialcommand(o$)
			
			Select o$
			Case "quit","QUIT","Quit"
				endgame()
			Case "info","INFO","Info"
			Color 59,59,59
			
				Print "info: "+missionbrief$
				Color 255,255,255
			Case "cls"
			Cls	
			Locate 0,10
			Case "menu","MENU","Menu"
			
				Color 59,59,59
				Print "type 'info' to recap mission briefing"
				Print "type 'quit' to end the game"
				Print "type 'cls' if the screen becomes too cluttered"
				Color 255,255,255
			Default
			If Left(o$,13)="missionselect" Then
				
				m%=Int(Replace$(o$,"missionselect",""))
				If m%=0 Then
				Print "Current mission: "+mission
				Else
				mission=m%
				enable_playercontrol=False
				End If
				
			ElseIf Left(o$,4)="look" Then
				
				s$=Str(Replace$(o$,"look",""))
				s$=Str(Replace$(s$," ",""))				
				If s$<>"" Then
					look(location$,s$)
				Else
					look(location$)
				End If
			
					
			ElseIf Left(o$,3)="use" Then
			
				y$=Str(Replace$(o$,"use",""))
				
				y$=Trim$(y$)
								
				yspc%=Instr(y$," ",1)
				
				If yspc%<>0 Then 
					
					ylength%=Len(y$)
					y1$=Left(y$,yspc%-1)
					y2$=Right(y$,ylength%-yspc%)
				
					If y$<>"" Then
						use(y1$,y2$)
					Else
						Print "Use what?"
					End If
			Else
				
					y1$=y$
				
					If y$<>"" Then
						use(y1$)
					Else
						Print "Use what?"
					End If

				End If
			Else
			
				Color 60,159,216
				Print name$+": I don't understand."
				Color 255,255,255

			End If
				
			End Select
			
			
End Function
;--------------------------------
; main command
;--------------------------------
Function command(o$)

	Select o$
		Case "info","mission","-info","-mission","INFO","MISSION"
		
		Color 186,186,186
		Print "info: "+missionbrief$
		Color 255,255,255
			
		Case "cls","Cls","-cls","-CLS"
			Cls
			Locate 0,10

		Case "-hp"
		
		Color 228,210,60
			Print "you have "+p_hp+" health points"
			
		Color 255,255,255
		
		Case "-atk"
		
		Color 228,210,60
			Print "You have "+p_atk+" attack points"
		Color 255,255,255
		
		Case "-def"
		
		Color 228,210,60
			Print "you have "+p_def+" defence points"
		Color 255,255,255
		
		Case "-eva"
		
		Color 228,210,60
			Print "you have "+p_eva+" evasion points"
		Color 255,255,255

		Case "-stats"	; shows stats
		
			Color 228,210,60
			Print "*------------------------*
			Print ""
			Print " Name: "+name
			Print " Health points:	 "+p_hp
			Print " Attack points:	 "+p_atk
			Print " Defense points:	"+p_def
			Print " Evasion points:	 "+p_eva
			Print ""
			Print "*------------------------*
			Print ""
			Color 255,255,255
			
		Case "-xp list"	; shows xp list
		
			Color 163,171,63
			For i=1 To 10
				Print "level"+i+" : "+xp_level[i]
			Next
			Print ""
			Color 255,255,255
			
		Case "-xp"	; shows xp
		
			Color 163,171,63
			If xp_cap>xp_level[10] Then
				Print "You have "+xp+". You have reached the max level."
			Else
				Print "You have "+xp+" exp points. You need "+(xp_cap-xp)+" exp To reach the Next level"
			End If
			Color 255,255,255
			
		Case "quit","QUIT","Quit","-quit","-QUIT"	; shows quit dialogue
		
			FlushKeys
			
			quit$=Input("Are you sure? <y/n> : ")
			
			Select quit$
			Case "y","Y","yes","YES","1"
				End
			Case "n","N","no","NO","0"
				Color 60,159,216
				Print "And so the story continues..."
			Default
			End Select
				Color 255,255,255
		
		Case "menu","MENU","Menu","-menu","-MENU" ; shows menu
			
			Print ""
			Color 171,132,63
			Print "Menu"
			Print "--------------------------"
			Print "Type CMDLIST to show available commands"
			Print "Type QUIT to quit a game"
			Print ""
			Color 255,255,255
			
		Case "cmd","Cmd","cmdlist","CMDLIST","Cmdlist","-cmd","-Cmd","-cmdlist","-CMDLIST"	; shows list of commands
			
			Print ""
			Color 171,132,63
			Print "Current list of commands"
			Print "--------------------------"
			Print " LOOK <ITEM>			: Looks or examines place/person/item."
			Print " USE <ITEM> <ITEM>	: Uses an item."
			Print " PICKUP <ITEM>		: Picks up an item."
			Print " N(orth)				: moves the player north."
			Print " S(outh)				: moves the player south."
			Print " E(ast)				: moves the player east."
			Print " W(est)				: moves the player west."
			Print ""
			Print " -cls				: Clears the screen should it get too cluttered."
			Print " -hp, -atk, -def, -eva			: shows how much HP/ATK/DEF/EVA points you have"
			Print " -xp					: shows how much xp you must gain to advance to the next level"
			Print " -xp list			: Shows levels and corresponding xp requirements"
			Print ""
			Print " -suicide			: another way to quit the game"
			Print " cl_debug 1			: CheatMode (1=on/0=off) (dev)"
			Print ""
			Color 255,255,255
			
		Case "killself","kill self","suicide","-suicide"	; The way of the warrior!
		
			Print "Due to unbearable shame, you have decided to take your own life..."
			Color 230,230,0
			Print "<press space key to continue or any other key to change your mind>"
			Color 255,255,255
			
			
			value=WaitKey()

			If value=32 Then 
				Print "SSSEEEEPPPPUUUKKKKKAAAA! EIIIIIII!"
				Delay 2000
				End
			Else
				Print "Phew! That was a close one..."
				Print ""
			End If
			
			
		Case "cl_debug"	; state of cheat mode
			Print "cl_debug: "+debug
			
		Case "cl_debug 1","cl_debug 0" ; toggle cheat mode (1=on/0=off)
			
			c%=Int(Replace$(o$,"cl_debug ",""))
			
			Select c%
				
			Case 0
				Print "debug off"
				debug=False
			Case 1
				Print "debug on"
				debug=True
			Default
				
			End Select
		
		Default
			If debug=True Then
			
			If Left(o$,10)="solidsnake"	; cheat code. gives player atk points (default :10)
			
					g%=Int(Replace$(o$,"solidsnake",""))
					If g%=0 Then g%=10
					
					Print "Your attack has been boosted! +"+g%
					p_atk=p_atk+g%
			End If
			
			If Left(o$,12)="rockhardbaby"	; cheat code. gives player def points (default: 10)
			
					g%=Int(Replace$(o$,"rockhardbaby",""))
					If g%=0 Then g%=10
					
					Print "Your defense has been boosted! +"+g%
					p_def=p_def+g%
			End If
			
			If Left(o$,11)="greedisgood"	; cheat code. gives player experience points (default 100)  
				
					g%=Int(Replace$(o$,"greedisgood",""))
					
					If g%=0 Then g%=100
					Print "Divine Intervention has granted you "+g%+" exp. points!"
					getxp(g%)
					
			End If
			
			If Left(o$,13)="missionselect"
				
					m%=Int(Replace$(o$,"missionselect",""))
					If m%=0 Then
					Print "current mission: "+mission
					Else
					mission=m%
					enable_playercontrol=False
					End If
					
			End If
			
			Else
			
			If Instr(o$,"look",1)<>0
			
				s$=Str(Replace$(o$,"look",""))
				s$=Str(Replace$(s$," ",""))				
				If s$<>"" Then
					look(location$,s$)
				Else
					look(location$)
				End If
			
			ElseIf Instr(o$,"use",1)<>0
			
				y$=Str(Replace$(o$,"use",""))
				
				y$=Trim$(y$)
				
				yspc%=Instr(y$," ",1)
				
				If yspc%<>0 Then 
				ylength%=Len(y$)
				y1$=Left(y$,yspc%-1)
				y2$=Right(y$,ylength%-yspc%)
				
				If y$<>"" Then
					use(y1$,y2$)
				Else
					Print "Use what?"
				End If
				Else
				y1$=y$
				If y$<>"" Then
					use(y1$)
				Else
					Print "Use what?"
				End If

				End If
				
				
			Else
			
			Color 60,159,216
			Write "I don't understand. "
			Color 59,59,59
			Write "Type "
			Color 59,24,24
			Write "menu"
			Color 59,59,59
			Write " To show a list of commands."
			Print ""
			Color 255,255,255
			
			End If
			End If
			
		End Select

End Function

Function playerattack(enemy)
	
	enemyid=enemy
	;Print e_hp(enemyid)
	;Print e_def(enemyid)
	
	If enemydefend=True Then
		nul=e_eva(enemyid)
	Else
	nul=Rand((e_eva(enemyid)*0.80),e_eva(enemyid)*0.90)
	End If
	
	enemydefend=False
	
	px=p_eva-nul
	If px<=0 Then px=1
	
	pstrike=Ceil(p_atk*px)
	pdamage=pstrike-(e_def(enemyid))
		
	If pdamage<0 Then pdamage=1
	
	e_hp(enemyid)=e_hp(enemyid)-pdamage
	
	If pstrike<1 Then
		Print "You have missed the target!"
	Else
		;Print "The Strike was "+pstrike+" points of damage"
	End If
	
	If pdamage>0 Then
		Color 117,215,74
		Print name$+" inflicted "+pdamage+" points of damage on "+e_name(enemyid)+"!"
		Color 255,255,255 
	Else
		Print "Your attacks are not effective!"
	End If
	
End Function

Function enemyattack(enemy)

	enemyid=enemy
	
	If playerdefend=True Then
	pul=p_eva*0.81
	Else
	pul=Rand((p_eva*0.78),p_eva*0.81)
	End If
	
	playerdefend=False
	
	ex=(e_eva(enemyid)-pul)
	If ex<=0 Then ex=1
	
	qstrike=Ceil(e_atk(enemyid)*ex)
	
	qdamage=qstrike-(p_def)
	
	If qdamage<0 Then qdamage=0
	
	p_hp=p_hp-qdamage
	
	If qstrike < 1 Then
		Print "Enemy has missed the target!"
	Else
		;Print "The Strike was "+qstrike+" points of damage"
	End If
	If qdamage>0 Then
		Color 215,74,74
		Print e_name(enemyid)+" has inflicted "+qdamage+" points of damage on "+name$+"!"
		Color 255,255,255
	Else
		Print "Enemy attack was deflected!"
	EndIf
	
End Function

;-----------------------------------------------------------------
;
; fight()
;
; enemy	= enemy Eg. bat(0)
; xpg%	= experience gained after battle
; m$	= encounter message. Eg. A bat approaches!
; v$	= victory message. Eg. You win!
; x$	= term for attacking.
; y$	= term for defending.
; z$	= term for escaping.
;
;-----------------------------------------------------------------

Function fight(enemy,xpg%=0,m$="Encounter!",v$="Victory!",x$="fight",y$="defend",z$="escape")

	enemyid=enemy
	Select enemy
	Case thing(1)
		e_name$(enemyid)=thing_name$(enemyid)
		e_hp(enemyid)=thing_hp(enemyid)
		e_def(enemyid)=thing_def(enemyid)
		e_atk(enemyid)=thing_atk(enemyid)
		e_eva(enemyid)=thing_eva(enemyid)
		
	End Select
	
	Print ""
	
	SetFont fntBody
	Print m$
	Color 0,180,150
	Print "Name: "+e_name(enemyid)+ " HP: "+e_hp(enemyid)
	Color 255,255,255
	;Write "- atk: "+e_atk(enemyid)
	;Write "- def: "+e_def(enemyid)
	;Write "- eva: "+e_eva(enemyid)
	
	l(1,x$)
	l(2,y$)
	l(3,z$)
	
	Print ""
	
	f=Rand(0,1)
	
	Select f
	
	Case 0
		p_turn=False
		Print "The enemy has the initiative!"
	Case 1
		p_turn=True
		Print "You have the initiative!"
	End Select
		
Repeat

	If p_turn=True Then
	
		Repeat
	
			Write "> "
			action_select=Input()
			
				Select action_select
	
				Case 1
		
					playerattack(enemy)
					p_turn=False

				Case 2
	
					Print "You assume a defensive stance!"
					playerdefend=True
					p_turn=False
	
				Case 3
		
					escaperoll=Rnd(0,1)
					
					If (p_eva/10)<escaperoll Then
		
						endbattle=1
						condition=2
		
					Else
			
						Print "The enemy has prevented your escape!"
				
					End If
		
					p_turn=False
	
				Default
		
					Write "I don't think that will work..."
					Print ""
	
				End Select
	
			chkdead(enemy)
	
		Until p_turn=False
	
	Else
		
		Repeat
			Delay 500
			Print "Enemy Turn:"
			Delay 500
			
			enemyAI=Rand(1,2) ; roflolmao :P
	
			Select enemyAI
	
			Case 1 ;enemy attack mode
				
				Print e_name(enemyid)+" attacks!"
				enemyattack(enemy)
		
				p_turn=True
		
			Case 2 ;enemy defense mode
	
				Print e_name(enemyid)+" begins to shield itself!"
				enemydefend=True
				p_turn=True
		
			End Select
	
			chkdead(enemy)
	
		Until p_turn=True
	
	End If
	
Until endbattle=1
	
	Select condition	; battle outcome
	
	Case 0	; win
		Print e_name(enemyid)+" has fallen!"
		Print ""
		Delay 500
		Color 246,228,185
		Print "*--------------------------------------*"
		Print "    "+v$
		Print "    you have recieved "+xpg%+" exp points."
		Print "*-----------------==-------------------*"
		Print ""
		
		getxp(xpg%)
		Color 255,255,255

	Case 1	; lose

		Print "You have been defeated!"
		Print ""
		Delay 500
		Color 191,77,54
		Print "*--------------------------------------*"
		Print "    You have failed! Evil celebrates."
		Print "*-----------------==-------------------*"
		Print ""
		Color 255,255,255
	
	Case 2 ; escaped
	
	Print "You have successfully escaped!"
	
	End Select
	
	condition=5
	endbattle=5
End Function

Function chkdead(enemyid)

If e_hp(enemyid)<=0 Then e_hp(enemyid)=0:condition=0:endbattle=1
If p_hp<=0 Then p_hp=0:condition=1:endbattle=1

Return

End Function

Function getxp(e%=0)
	
	xp=xp+e%
			
	Repeat 
	
	If xp>xp_cap Then 
	 	xxp=xp-xp_cap
	 	xp=xp_cap
	Else
		xxp=0
	End If
	
	Select xp
	
	Case xp_level[1]
		
		levelup(1,10,1,1,1)
		xp_cap=xp_level[2]
		
	Case xp_level[2]
		
		levelup(1,10,1,2,1)
		xp_cap=xp_level[3]

	Case xp_level[3]
		
		levelup(1,10,2,1,0)	
		xp_cap=xp_level[4]

	Case xp_level[4]
		
		levelup(1,2,3,4,5)	
		xp_cap=xp_level[5]

	Case xp_level[5]
		
		levelup(1,2,3,4,5)	
		xp_cap=xp_level[6]

	Case xp_level[6]
		
		levelup(1,2,3,4,5)	
		xp_cap=xp_level[7]
	
	Case xp_level[7]
		
		levelup(1,2,3,4,5)		
		xp_cap=xp_level[8]
		
	Case xp_level[8]
		
		levelup(1,2,3,4,5)		
		xp_cap=xp_level[9]
		
	Case xp_level[9]
		
		levelup(1,2,3,4,5)		
		xp_cap=xp_level[10]
		
	Case xp_level[10]
		
		levelup(1,2,3,4,5)
		xp_cap=xp+xxp				
	Default
	
	End Select
	
	xp=xp+xxp
	
	
	
	Until Not xp>xp_cap
	
End Function

Function levelup(l%,hp%,p%,b%,e%)
		
		Color 255,255,0
		Print "*--------------------------------------*"
		h("      You have Leveled up!")
		Print "        current lvl : + "+l+" -> "+(level+l)
		Print "        HP          : + "+hp+"-> "+(p_hp+hp)
		Print "        ATK power   : + "+p+" -> "+(p_atk+p)
		Print "        DEF power   : + "+b+" -> "+(p_def+b)
		Print "        EVA power   : + "+e+" -> "+(p_eva+e)
		Print "*--------------------------------------*"
		level=level+l
		p_hp=p_hp+hp
		p_atk=p_atk+p
		p_def=p_def+b
		p_eva=p_eva+e
		
		Color 255,255,255
		
		Print ""
		Print "<press Any key to continue>"
		Print ""
		WaitKey()
		
		
End Function

Function tw(txt$="hello world",y="0",break=True,txtDelay="100",x="0")

	txtlength=Len(txt$)
	
	oldtxtdelay=txtDelay

	For i=1 To txtlength
	
	
	If KeyDown(57) Then
	 txtDelay=0
	 Else
	txtDelay=oldtxtdelay
	End If
	 
	oldtime=MilliSecs()
	While MilliSecs()<oldtime+txtDelay
	Wend

	Locate x,y
	Write Left$(txt,i)

	Next
	If break=True Then Print ""
	
End Function

Function intro()

Locate 0,0
Print ""
h(title$)

u=35:v=12
tw("WEDNESDAY WORKSHOP #52: THE TEXT ADVENTURE CHALLENGE 2",u)
tw("Author: svrman   Email:svrman@jimle.co.uk",u+v)

Repeat

tw("Please enter your name: ",u+(v*3),False)
FlushKeys
nameinput$=Input()
name$=Str(nameinput$)
Until nameinput$<>""

snip$="welcome, oh brave adventurer, "+name$+"!"
tw(snip$,u+(v*5))

Repeat
tw("Would you like to skip the intro? <y/n>: ",u+(v*7),False)
FlushKeys
skip$=Input()

skip$=Replace$(skip$," ","")

If skip$="y"
 mission=1
ElseIf skip$="n"
 mission=0
ElseIf skip$="m2"
 mission=2
ElseIf skip$=""
 skip$="y"
 mission=0
End If

Until skip$="y" Or skip$="n" Or skip$="m2"

End Function

Function look(locationid$="thisroom",atObject$="room")

Select mission	; specify mission
	
	Case 1 ; mission 1
	
		Select locationid$ ; specify room
			
			Case "elkforn summit"
			
				Select atObject$	; specify objects
					
					Case "room" ; default
					
					Color 237,137,47
					Print "Current location: "+Upper$(location$)
					Color 255,255,255
					Color 205,170,109
					Print "You stand dead center of the summit whilst your men examine the monoliths."
					Print "You scour through your notes, pondering the meanings of these stones."
					Color 255,255,255
					Write "You sketch a diagram of the scene noting the monoliths as "
					rgb_item("stone1")
					Write ", "
					rgb_item("stone2")
					Write ", "
					rgb_item("stone3")
					Write ", "
					rgb_item("stone4")
					Write "."
					Print ""
					rgb_item("RODY")
					Write " as the worrisome guy he is, takes out a cigarette to calm himself,"
					Print ""
					Print "bouncing back and forth, his hands shaking, struggles to grip his lighter."
					Print ""
					
					If tutorial=0
					enable_playercontrol=False
					tutorial=1
					End If
					
				Case "stone1"
					Color 205,170,109
					Print "This stone has a perculiar carving: it looks like a yak." ;4 (legs)
					Print "Above it is an emblem of fire..."
					Color 255,255,255
					
					If tutorial=2
					enable_playercontrol=False
					tutorial=3
					End If
					
				Case "stone2"
					Color 205,170,109
					Print "This stone has a perculiar carving: it looks like a man." ;2 (legs)
					Print "Above it, is an emblem of fire..."
					Color 255,255,255
					
					If tutorial=2
					enable_playercontrol=False
					tutorial=3
					End If
					
				Case "stone3"
					Color 205,170,109
					Print "This stone has a perculiar carving: it looks like a tree." ;1 (stump)
					Print "Above it, is an emblem of fire..."
					Color 255,255,255
					
					If tutorial=2
					enable_playercontrol=False
					tutorial=3
					End If
					
				Case "stone4"
					Color 205,170,109
					Print "This stone has a perculiar carving: it looks like a pyramid." ;3 (corners)
					Print "Above it, is an emblem of fire..."
					Color 255,255,255
					
					If tutorial=2
					enable_playercontrol=False
					tutorial=3
					End If
					
				Case "rody","RODY","Rody"
					Color 205,170,109
					Print "The thing with RODY is he has a sixth sense for danger."
					Print "But I've never seen him this shaken! It worries me."
					Print "Perhaps RODY was right, perhaps we should turn back..."
					Print "Hmm.. I should really give him a hand with that lighter."
					Color 255,255,255
					
					If tutorial=2
					enable_playercontrol=False
					tutorial=3
					End If
					
				Default
					Color 60,159,216
					Print "I don't see it..."
					Color 255,255,255
					
				End Select
				
		End Select
	
	Case 2 ; mission 2
		Select locationid$
			Case "Unknown temple"
				Select atObject$
					
					Case "room"
						Color 237,137,47
					Print "Current location: "+Upper$(location$)
					Color 255,255,255
					Color 205,170,109
					Print "You stand dead center of the summit whilst your men examine the monoliths."
					Print "You scour through your notes, pondering the meanings of these stones."
					Color 255,255,255
					
				End Select
		End Select
	
End Select
	
End Function

Function use(item1$,item2$="non")

	Select mission
		Case 1
			Select location
				Case "elkforn summit"
					Select item1$
						
						Case "rody","Rody","rody's","Rody's"
							Select item2$
							Case "lighter","Lighter"
								Color 60,159,216
								Print "RODY my good man, I need to ask you a favor!"
								Print "Could I borrow your lighter for a time?"
								Delay 500
								Print ""
								Color 255,255,255
								Write "You have recieved Rody's "
								rgb_item("LIGHTER")
								Write "."
								items(1)=1
								Print ""
								
							Default
							Color 60,159,216
								Print "You want me to 'use' Rody?!?"
								Color 255,255,255
							End Select
							
						Case "lighter","Lighter","LIGHTER"
							Select item2$
								Case "stone1"
								If items(1)=1 Then
									Color 255,100,100
									Print "The carving on stone1 begins to glow!"
									mission1_monolithpass$=mission1_monolithpass$+"enter"
									Color 255,255,255
									m1_chkmonolithpass()
								Else
									Print "I don't have a lighter..."
								End If
								Case "stone2"
								If items(1)=1 Then
								Color 255,100,100
									Print "The carving on stone2 begins to glow!"
									mission1_monolithpass$=mission1_monolithpass$+"may"
								Color 255,255,255
								m1_chkmonolithpass()
								Else
									Print "I don't have a lighter..."
								End If
								
								Case "stone3"
								If items(1)=1 Then
								Color 255,100,100
									Print "The carving on stone3 begins to glow!"
									mission1_monolithpass$=mission1_monolithpass$+"you"
								Color 255,255,255
								m1_chkmonolithpass()
								Else
									Print "I don't have a lighter..."
								End If
								
								Case "stone4"
								If items(1)=1 Then
								Color 255,100,100
									Print "The carving on stone4 begins to glow!"
									mission1_monolithpass$=mission1_monolithpass$+"now"
								Color 255,255,255
								m1_chkmonolithpass()								
								Else
									Print "I don't have a lighter..."
								End If
							
								Default
								If items(1)=1 Then
								Color 60,159,216
									Print "What should I use it on?"
								Color 255,255,255
								Else
								Color 60,159,216
									Print "I don't have a lighter..."
									Color 255,255,255
								End If
								
							End Select
						
						Case "stone1","stone2","stone3","stone4"
							Select item2$
							Default
							Color 60,159,216
							Print "These objects are alien to me. I wouldn't know how..."
							Color 255,255,255
							End Select
							
						Default
						Color 60,159,216
							Print "I can't do that."
						Color 255,255,255
						
						
					End Select
				Default
				Color 60,159,216
					Print name$+": Where the heck am I?"
				Color 255,255,255
			End Select
		Default
		Color 60,159,216
			Print name$+": What the heck am I doing?"
		Color 255,255,255
	End Select
	
End Function

Function rgb_item(item$,rtn_color=True)

Color 111,205,222
Write item$

If rtn_color Then Color 255,255,255

End Function

Function rgb_place(place$,rtn_color=True)

Color 237,137,47
Write place$

If rtn_color Then Color 255,255,255

End Function

Function m1_chkmonolithpass()
		If Len(mission1_monolithpass$)>=14 Then
			If mission1_monolithpass$="youmaynowenter" Then
			
				
				Color 255,100,100
				Print "..."
				Print ""
				Delay 1000
				Color 59,59,59
				Print "<objective complete!>"
				Color 255,255,255
				Print ""
				Delay 2000
				Cls
				Delay 2000
				Locate 0,0
				u=10:v=12
				tw("The ground... no, the entire mountain begins to shake!!!",u)
				Delay 2000
				tw("A rift of blinding light and deafining pitch begins to tear",u+v*2)
				tw("the very fabric of reality!",u+(v*3))
				Delay 1500
				tw("The party is frozen in fear as am I.",u+(v*5))
				Delay 1500
				tw("Soon enough, a vortex manifests within the rift and claims the first of my men.",u+(v*7))
				Delay 1000
				tw("Then RODY.",u+(v*9))
				Delay 1000
				tw("And as I hurtle powerlessly towards this big sucking hole, I mutter...",u+(v*10))
				Delay 2000
				tw("...what have we unleashed?",u+(v*12))
				Delay 3000
				enable_playercontrol=False
				mission=2
				
			Else
				
				Color 255,100,100
				Print "..."
				Delay 1000
				Print ""
				
				Print "The monoliths have stopped glowing!"
				Delay 500
				Print "There must be some trick to this..."
				Color 255,255,255
				mission1_monolithpass$=""
				Delay 500
				
			EndIf
		End If
End Function

Domo-earth-kun vs unforgiven barrage of flying rocks in space 2 turbo!

by svrman for Workshop #055

It took me four days but huzzah!

Cursors and Mouse

Click to download this entry

Red Light, Green Light!

by svrman for Workshop #084

Shake mouse as fast as you can to race! But beware, If you move during a red light ,you lose!

Mouse

;red traffic light game
;
;
;	How to Play!
;		Shake mouse as fast as you can to race!
;		But beware, If you move during a red light ,you lose!
;

Graphics 640,480,0,2

SetBuffer BackBuffer() 

game=1
win=0
oldmx=0 
oldmy=0
myDiff=0
px=0		;player variable
ex=0		;enemy variable
greenlight=0
tick=0
countdown=5000

; start the race
Repeat
Cls
	Coldtime=MilliSecs()
	If MilliSecs()<Coldtime+5000 Then
		countdown=countdown-50
	End If
	Text (640/2)-50,480/2,"READY TO RACE IN: "+countdown
Flip
Until KeyHit(1) Or countdown=0

Repeat 
Cls 

; mouse code
oldmy=MouseY()
mydiff=oldmy+MouseYSpeed()

oldmx=MouseX()
mxdiff=oldmx+MouseXSpeed()

	; mouse strength : default=150 : lower for a easier time :)
	; screenwidth is larger than screenheight if you was wondering...
	
If Abs(MouseY()-mydiff)>150 Then px=px+2
If Abs(MouseX()-mxdiff)>200 Then px=px+2


; ticker for enemy action
Eoldtime=MilliSecs()
If MilliSecs()<Eoldtime+1

go=Rand(0,100)
If go<15 And greenlight=1 Then ex=ex+1

End If

E2oldtime=MilliSecs()
If MilliSecs()<E2oldtime+1

go2=Rand(0,100)
If go2<5 And greenlight=1 Then ex2=ex2+3

End If

; ticker for light changes
	
	Loldtime=MilliSecs()
	If MilliSecs()<Loldtime+10000
		tick=tick+1
	EndIf
	
	If tick>100 Then
		greenlight=Rand(0,1)
		
		tick=0
	End If
	If greenlight=1 Then Color 0,255,0
	If greenlight=0 Then Color 255,0,0


Oval 450,50,50,50		;traffic light
Color 255,255,255

Rect 100+px,200,30,30	; player rect
color 100,100,100
Rect 100+ex,300,30,30	; enemy rect
Rect 100+ex2,400,30,30	; enemy rect

;result
	;
	; 0.25 ticks grace period.
	;	allows player time to react. Instant lose is no fun :-)
	;
If tick>25 Then
	If Abs(MouseX()-mxdiff)>25 And greenlight=0 Then win=0:game=0
	If Abs(MouseY()-mydiff)>25 And greenlight=0 Then win=0:game=0
End If

;win/lose triggers
If px=450 Then win=1:game=0
If ex=450 Then win=0:game=0
If ex2=450 Then win=0:game=0

Flip 

Until KeyHit(1) Or game=0

FlushKeys()

Cls
color 255,255,255
If win=1 Then
	Text (640/2)-30,(480/2),"WIN!"
Else
	Text (640/2)-30,(480/2),"LOSE!"
End If
Flip

WaitKey()
End