FUCKCKCKCKCKCK!
I posted an ENTIRE FUCKING TUTORIAL AND MY IT FUCKING TIMED OUT AND I LOST IT ALL!!
FUCK FUCK!
Anyway, here's the source and an example or a working log. When I get more time (hopefully tomorrow) I'll repost the fucking turorial
Sorry for inconviences...
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
Aw, shit, extension .bb not allowed. I"m giving myself admin powers when i get home...=/
- Output of above source
- output.PNG (10.31 KiB) Viewed 1475 times
