REM STONED INSTRUCTION PROGRAM
REM
REM BY Darkheart
REM
REM SETTING UP DEFAULT VAULES
LET GLOBAL DRYNESS=1
LET GLOBAL MAXDRYNESS=5
LET GLOBAL THC=0
LET GLOBAL MAXTHC=15
LET GLOBAL IAM=OK
REM
REM IMPORTING FUNCTIONS
INCLUDE PARTY.LIB
REM
REM MAIN LOOP START
While IAM<>Zombied
REM NESTED LOOP START
While IAM<>Stoned
Function SKINUP
Function LIGHTJOINT
Function PASSJOINTROUND!
Function ASHJOINT
LET DRYNESS=DRYNESS+1.5
LET THC=THC+1
If DRYNESS>=MAXDRYNESS Then GOSUB BEER
If THC=MAXTHC Then LET IAM=Stoned
REM NESTED LOOP END
Wend
Function GETMUNCHIES
LET ZOMBIECOUNT=ZOMBIECOUNT+1
If ZOMBIECOUNT<3 Then LET IAM=READYFORMORE
If ZOMBIECOUNT>=3 Then LET IAM=Zombied
Wend
REM MAINLOOP END
Function SLEEP
End
REM GOSUB SECTION HERE
;LABEL BEER
Function GETPINTGLASS
Function POUR BEER
Function DRINKBEER
Function BELCH
Function DRINKBEER
Function PUTDOWNGLASS
Function CRUSHCAN
Function BINCAN
LET DRYNESS=DRYNESS-5
Return
Darkheart
__________________
(
)
( ______________ __
#______________]__]
HANDS OFF MY CIG!