Elysian Shadows

Code: Select all

Text 200,405, "ADVENTURE LOG"
Text 200,425, logline1$ 
Text 200,440, logline2$ 
Text 200,455, logline3$ 

Code: Select all

If ImagesCollide(player,x,y,0,chest,chest1\x,chest1\y,0) Then
	If KeyHit(57) Then 
	If frame = 0 
		numpicked = numpicked + 1  
		numopen = numopen - 1
	EndIf 
	
		If numpicked = 1 Then 
			logline1$ = "Player has obtained a Radogin Bow" 
		ElseIf numpicked = 2 Then
		 	logline2$ = "Player has obtained a Radogin Bow"
		ElseIf numpicked = 3 Then
			logline3$ = "Player has obtained a Radogin Bow" 
		ElseIf numpicked = 4 Then 
		If numopen = 0 Then 
			logline4$ = "Player has obtained a Gun"
			logline3$ = "Player has obtained a Gun" 
			logline2$ = "Player has obtained a Ragodin Bow"
			logline1$ = "Player has obtained a Sword" 
		EndIf   
		EndIf 
				
		frame = frame + 1
		If frame = 3 Then frame = 0  
		
		If numpicked = 3 Then 
		occupied = 1 
			Inv3$ = eq4$ 
		ElseIf numpicked = 2 Then 
			Inv2$ = eq4$ 
			occupied = 1
		ElseIf numpicked = 1 Then
			Inv1$ = eq4$ 
			occupied = 1 
		EndIf 
		If frame = 1 Or frame = 2 Then 
			PlaySound LockLatch
 		EndIf 
	EndIf 		
EndIf 

Code: Select all

;This way I'm doing it would take me for ever seeing as I'd have to enter a string for each line and declare it's Y coordinate. Better approaches are welcome!

Type advlog
	Field logline1$ 
	Field logline2$ 
	Field logline3$
	Field logline4$ 
	Field logline1y
	Field logline2y
	Field logline3y 
	Field logline4y
End Type

addline.advlog = New advlog
addline.advlog\logline1$ = "" 
addline.advlog\logline2$ = "" 
addline.advlog\logline3$ = ""
addline.advlog\logline4$ = "" 
addline.advlog\logline1y = 450 
addline.advlog\logline2y = 435
addline.advlog\logline3y = 420 
addline.advlog\logline4y = 405 

;Skip to Text Area 
Text 200,390, "Adventure Log"
Text 200,addline\logline1y, addline\logline1$ 
Text 200,addline\logline2y, addline\logline2$ 
Text 200,addline\logline3y, addline\logline3$ 
Text 200,addline\logline4y, addline\logline4$ 

Code: Select all

Graphics 640,480


Type AdventureLog
	Field logline.LogLine[3]
	Field w,h,x,y
	Field r,g,b
End Type 

Type LogLine
	Field logline$
	Field x,y
	Field r,g,b
End Type 

Global AdvLog.AdventureLog = New AdventureLog
initializeLog()

Repeat
	Cls 
		drawLog()
		If KeyHit(1) End
		If KeyHit(200) Then addLogLine("Suck my cock bitch!",255,0,255)
		If KeyHit(208) Then addLogLine("Sorry for the statement above.",255,255,255)
		If KeyHit(203) Then clearLog()
	Flip 
Forever 

Function initializeLog()
	AdvLog\Logline[1]=New Logline
	AdvLog\Logline[2]=New Logline
	AdvLog\Logline[3]=New Logline

	AdvLog\w=250
	AdvLog\h=100
	AdvLog\x=380
	AdvLog\y=10

	AdvLog\r=255
	AdvLog\g=0
	AdvLog\b=0

	AdvLog\LogLine[1]\logline$="ass"
	AdvLog\LogLine[1]\x=10
	AdvLog\LogLine[1]\y=40
	AdvLog\LogLine[1]\r=0
	AdvLog\LogLine[1]\g=255
	AdvLog\LogLine[1]\b=255


	AdvLog\LogLine[2]\logline$="hole"
	AdvLog\LogLine[2]\x=10
	AdvLog\LogLine[2]\y=55
	AdvLog\LogLine[2]\r=255
	AdvLog\LogLine[2]\g=255
	AdvLog\LogLine[2]\b=255

	AdvLog\LogLine[3]\logline$="BAM"
	AdvLog\LogLine[3]\x=10
	AdvLog\LogLine[3]\y=70
	AdvLog\LogLine[3]\r=255
	AdvLog\LogLine[3]\g=255
	AdvLog\LogLine[3]\b=255
End Function

Function drawLog()
	Color AdvLog\r,AdvLog\g,AdvLog\b
	Rect AdvLog\x,AdvLog\y,AdvLog\w,AdvLog\h,0
	Rect AdvLog\x,AdvLog\y,AdvLog\w,15,1
	
	Color 255,255,255
	Text AdvLog\x+ (AdvLog\w / 2) - 45,AdvLog\y,"Adventure Log"

	
	For i = 1 To 3
		Color AdvLog\LogLine[i]\r,AdvLog\LogLine[i]\g,AdvLog\LogLine[i]\b
		Text (AdvLog\x + AdvLog\LogLine[i]\x),(AdvLog\y + AdvLog\LogLine[i]\y),AdvLog\LogLine[i]\logline$
	Next
	
End Function 

Function clearLog()
	For i = 1 To 3
		AdvLog\LogLine[i]\logline$=""
		AdvLog\LogLine[i]\r=0
		AdvLog\LogLine[i]\g=0
		AdvLog\LogLine[i]\b=0
	Next 
End Function 

Function addLogLine(newline$,r,g,b)
	If AdvLog\LogLine[3]\logline$="" Then 
		AdvLog\LogLine[3]\logline$=newline$
		AdvLog\LogLine[3]\r=r
		AdvLog\LogLine[3]\g=g
		AdvLog\LogLine[3]\b=b
	Else
		AdvLog\LogLine[1]\logline$=AdvLog\LogLine[2]\LogLine$
			AdvLog\LogLine[1]\r=AdvLog\LogLine[2]\r
			AdvLog\LogLine[1]\g=AdvLog\LogLine[2]\g
			AdvLog\LogLine[1]\b=AdvLog\LogLine[2]\b
		
		AdvLog\LogLine[2]\logline$=AdvLog\LogLine[3]\LogLine$
			AdvLog\LogLine[2]\r=AdvLog\LogLine[3]\r
			AdvLog\LogLine[2]\g=AdvLog\LogLine[3]\g
			AdvLog\LogLine[2]\b=AdvLog\LogLine[3]\b
		
		AdvLog\LogLine[3]\logline$=newline$
			AdvLog\LogLine[3]\r=r
			AdvLog\LogLine[3]\g=g
			AdvLog\LogLine[3]\b=b
	EndIf 
End Function