Sorry your browser is not supported!

`%Project 'Untitled'%
`%Version 0.035%
`======================
Type ItemType rem Chris Tate( v0.007,v0.022) - Type in progress...
  Name$
  Price#
  Owner
  Image
  Object
  Description$
  Action
  BuildUpDelay
  MinimumExperienceLevel
Endtype

Global Dim Items() as ItemType rem Chris Tate (v0.035) - Items for the characters, enemies and who knows what

Type BitMap_Pixel_Type Color As Integer, View As Byte EndType : Global Dim BitMap_Buffer(800,600) As BitMap_Pixel_Type rem VisualProg (v0.017) - this bitmap container, from 2D graphics

goto _jmp_finalFunctionBlock0001 rem VisualProg (v0.009) - form the space for code
        function printf(arg_x,arg_y,arg_str$,arg_color) : ink arg_color,0 : text arg_x,arg_y,arg_str$: rem VisualProg (v0.015,v0.027)
        endfunction
        function printBitMap(posx,posy,width,height) : for y=0 to height : for x=0 to width : BitMap_Buffer(x,y).View=0x30 : printf(posx*4+x*4,posy*4+y*4,chr$(BitMap_Buffer(x,y).View),BitMap_Buffer(x,y).Color) : next x : next y: rem VisualProg (v0.021,v0.029) out BitMap to [x,y] read size [width,height]
        endfunction
        function hexToInt(arg_hex$) :local result as integer:result=0:for i=1 to len(arg_hex$):char$=(mid$(arg_hex$,i)):if (char$="1"):inc result,0x01*16^(len(arg_hex$)-i):endif:if (char$="2"):inc result,0x02*16^(len(arg_hex$)-i):endif:if (char$="3"):inc result,0x03*16^(len(arg_hex$)-i):endif:if (char$="4"):inc result,0x04*16^(len(arg_hex$)-i):endif:if (char$="5"):inc result,0x05*16^(len(arg_hex$)-i):endif:if (char$="6"):inc result,0x06*16^(len(arg_hex$)-i):endif:if (char$="7"):inc result,0x07*16^(len(arg_hex$)-i):endif:if (char$="8"):inc result,0x08*16^(len(arg_hex$)-i):endif:if (char$="9"):inc result,0x09*16^(len(arg_hex$)-i):endif:if (char$="A"):inc result,0x0A*16^(len(arg_hex$)-i):endif:if (char$="B"):inc result,0x0B*16^(len(arg_hex$)-i):endif:if (char$="C"):inc result,0x0C*16^(len(arg_hex$)-i):endif:if (char$="D"):inc result,0x0D*16^(len(arg_hex$)-i):endif:if (char$="E"):inc result,0x0E*16^(len(arg_hex$)-i):endif:if (char$="F"):inc result,0x0F*16^(len(arg_hex$)-i):endif:next i:rem VisualProg (v0.023) convert for loading TextBitMap
        endfunction result
        function loadBitMap12BitFromMemory(arg_bin$) :color=0 : x=-1 : y=0:repeat:if (left$(arg_bin$,1)="\"):inc y :  x=-1 : arg_bin$=right$(arg_bin$,len(arg_bin$)-1):else:if (left$(arg_bin$,1)="~"):inc x : BitMap_Buffer(x,y).Color=oldcolor : arg_bin$=right$(arg_bin$,len(arg_bin$)-1):else:inc x : tmp$=left$(arg_bin$,3) : color=rgb(hexToInt(mid$(tmp$,1))*0x0F,hexToInt(mid$(tmp$,2))*0x0F,hexToInt(mid$(tmp$,3))*0x0F) : BitMap_Buffer(x,y).Color=color : arg_bin$=right$(arg_bin$,len(arg_bin$)-3) : oldColor=color:endif:endif:until (len(arg_bin$)<3): rem VisualProg (v0.025) loading TextBitMap12Bit
        endfunction
_jmp_finalFunctionBlock0001: rem VisualProg (v0.006) - start program. Above will be functions
rem TheComet (v0.005, v0.032) - (DEPRECATED) Use this to add new lines inside print statements, e.g. "this line"+nl+"is over this line"

Global CharacterName$ = "Mysterious Outlander" rem Chris Tate (v0.001)
Global CharacterPositionX#=0.0, CharacterPositionY#=0.0, CharacterPositionZ#=0.0 rem VisualProg (v0.002)
printa("{w}You, "+CharacterName$+", push open the shabby doors of the town's inn and\nenter. The dry desert dust flows around you dramatically, highlighted by the\nrays of the setting sun. The desolate chatter of drunk emotions ceases to be,\nas all eyes set on you. "+chr$(34)+"{r}What be your name, stranger?{w}"+chr$(34)+"\nthe bartender asks from across the room.{g}"):input "Enter your name ->", CharacterName$ : rem TheComet (v0.003, v0.008, v0.026) Fixed new lines, now uses printa instead of print
_try_again_idiot: rem TheComet (v0.010) For when the player is too stupid to press the given keys
For i = 1 to 4 : Print : Next i : Ink RGB(0,255,0),0 : Print "Greetings " + CharacterName$ + ", what be the purpose of your visit? " : Wait 2000 : Input "Enter reply > [D] 'Give me a drink' [S] 'Tell me a story' [W] 'I need work' [G]'I have something to give to you' "; option$ ` Chris Tate (v0.004,v0.011) Move input down a bit

Select Upper$(option$) rem Chris Tate (v0.013) Bartender reply
  Case "D" `----------------------- 
    if (trigger_drink=0) then gosub _option_drink : global trigger_drink=1 : loadBitMap12BitFromMemory(Images_TextBitMap12Bit_GlassOfBeer$) : cls 0 : printBitMap(110,70,34,39) : set cursor 0,0 : gosub _try_again_idiot : else : printa("{w}[*You already have a drink!*]") : gosub _try_again_idiot rem VisualProg (v0.033) drink
  Endcase
  Case "G" `-----------------------
                        
  Endcase                       
  Case "W" `-----------------------
                
  Endcase
  Case "S" `-----------------------
                        
  Endcase
  Case Default
    cls 0:set cursor 0,0:printa("{r}"+chr$(34)+"Bahahahaaa!"+chr$(34)+"{w} the bartender bellowed. {r}"+chr$(34)+"Your brain cavity wouldn't\nmake a drinkin' cup for a canary!"+chr$(34)+"{w}"):goto _try_again_idiot : rem TheComet(v0.014, v0.020, v0.028) - Looks like the player is too stupid - added insults
  Endcase
Endselect
printa("{l}Thank you for playing! This is the End!"):wait key:end : rem TheComet (v0.030) Not trollling - if execution reaches here, it's time to exit (as to not flow into functions and subroutines)
_option_drink: rem TheComet(v0.012) The character chose a drink!
Global Images_TextBitMap12Bit_GlassOfBeer$ = "000~~~222665999~888777~~877888988~A99999777555443333111000~~~~~~~~~~~FFF\000~~444BBBEEE~~EED~~~~~EDD~~EEDEDDDDCCCBBAA988444000~~~~~~~~~~FFF\000~333CCBEEE~EED~EEEEEDEDDDDDDCCCCBCBA~~~~~~~~AA9221000~~~~~~~~~FFF\000~555DCCEEDEEEEEDDDDDDCCCBBBABA8A97A87986976875~~865~875~876433000~~~~~~~~~FFF\000~333CBBEDD~~DDCCCBCB9A97A86986976975875864753~~~~653764222000~~~~~~~~~FFF\000~333CCBEDD~~DDCCCBBA9A87986~976875865764754753~653~~764111000~~~~~~~~~FFF\000~443CCBEDD~~DDDCCBBA9A86986~976875865764754653~~~654764111000~~~~~~~~~FFF\000~333CBBEDD~~~CCBBA8A86986~876875865764754654653~~~654333000~~~~~~~~~FFF\000~333CBBEDDDDDEDD~CCBB98986~976876865765764754654653654653654~665888777767666~555333111000~FFF\000~333BBBDDD~EDD~CCBB98986976~875865765754654~653~~654~887EEE~~~~EDDDDD888222000FFF\000~444BBBDDC~DDD~CBBA98975875~~865765754654643~~~653654766AAABABAAA~~~CCCEEE888111FFF\000~443AA9BBACBADCBDDDCBA986864863864863~853753743742642~643~~544111~222~~333766CCC~333FFF\000~332643842951C96DCCBA9B84E91~~E81D81~D71C61B61A51940840741742333000~~~~~333AAADDD444FFF\000~332642841A51C95DCCB98C83E91~~~E81~D71~C61B50A50940840741332000~~~~~333BBBCCC333FFF\000~433642841A61C94DCBA87C82E91~E90E91E81E91E80~D60C60A50940840741332000~~~~~444CCCCBB222FFF\000~432642841A61C83CB9B86D81E91EA0FA0E91~E81E80~C70C60A50950840741433000~~~~~555DDDBAA111FFF\000~432642841A61D82DA6C94EA1~FA0~~E81~~D81C70C60A50950840741433000~~~~~666EEEAA9111FFF\000~432642841B61D81EA2E91EA1~FA0E91FA0~E91E80D80D70C60B50950840741433000~~~~111777EEE888000FFF\000~432642841B61D81EA2~EA1E91~E90FA0~F90E90E80D70C60B50950840741432000~~~~111888EEE777000FFF\000~433742851B71D81EA2~EA1~FA0~E91EA0FA0E90E81D81C61B50A50940741643000~~~~222999EEE666000FFF\000~432742841B71E92EA2EA1~EA0~E90E81E90~~D70~~B60A50841~653000~~~~333BBBDDD444000FFF\000~543752851B72D92E91D81~E90E91E81E80E90E80~C60~D70B61A51951851653000~~~~444CCBDDD333000FFF\000~543864A62B72C82D92D81~E80E91E80E90~E70E90D70C61C81A51A61962A73753000~~~~554DDCCCC222000FFF\000111544975A73C83C72D92D81E90E91~E80FA0~D71E90D70C61C81A51B72A62B83764000~~~~655DDDBBB111000FFF\000110654A86A83C82C72D92E81E90EA1E91E80E91E81D70E91D71B61D91A51B72A62A83864000~~~111777EEEAAA000~FFF\000111654975B83B72C82D92E91E90E91EA1E90E91~D70D81~C61D91A51B72A62A73864000~~~111888EEE888000~FFF\000111654974B83B72C82D92D81E80E81E91E90~E91D70E80C71C61D91A51B72A62A84864000~~~222A99FFE666000~FFF\000111654974B83B72~D92E81E90E91~E90~~D70E81C71C61C81A51B72A62B95864111000~~444BBBEEE444000~FFF\000111654975B83B72~D82E81~E91~E80~E90D70C71D71C61C81A51B72A62B94864222111434767A99EEDDDD111000~FFF\000111654974B83B72C82D82D81E91E90E91E90~F90D70D81D70C61B71A51B72A62A73963987A99BBBDDDEEEDDD777000~~FFF\000111654974B83B71C82~E81E90E91~E80E90E80D70E80D70C61C81951A62A72973974CBAEEE~CCC999545111000~~FFF\000211665974B83B72C81D81E81E80E90E81E80~~D70D71~C61C71A51A62962974~BA8999666222111000~~~~FFF\000211654864A83A62B71C81D71D80E80~~~~D70~C70B61C71951A61962874875443000~~~~~~~~FFF\000221654653863852951A62A51B50B61~B60~B50A50B61A50A40A50841851852875~111000~~~~~~~~FFF\000222654643754853863963A62A51~~A61A51A50951~A51941951852863865876766222000~~~~~~~~FFF\000433543544766876987~A97~B98B97A86B97~~A87~987A87765~~665765444000~~~~~~~~FFF\000443433543654766877998BAACBADCBCCBDCBDDCDCC~BBABAA998887766665654665655333000~~~~~~~~FFF\000111333543654653764875976975A86~~~~~976975865864754753754654333000~~~~~~~~~FFF\000~~111433432643754986A86A75A86A75A86~A76976864753653543433222000~~~~~~~~~~~FFF\000~~~332433655766A98~A97B98A97~A98A87987876765655443333111000~~~~~~~~~~~FFF\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\" rem VisualProg (v0.031) - image beer
  Cls : For i = 1 to 20 : Wait 20  : beerColour = Rgb(i*10,i*6,i*(5*(i>17))) : Box 0, Screen Height()-((i*1.0)*Screen Height()/25), Screen Width(), Screen Height()-(((i+1)*1.0)*Screen Height()/25), beerColour, beerColour , beerColour, beerColour  : Next i : Wait 1000 rem Chris Tate (v0.016,v0.018,v0.019) - Background transition indicating the filling of beer; version 0.016; Had to reinsert because the code was incorrectly altered
Return ` You can now close your labels in the same entry
_option_tell_story: rem TheComet(v0.034) User chose for bartender to tell a story!
return
function printa(s$) :for p=0 to len(s$):c$=right$(left$(s$,p),1):if c$="{":for p2=p+1 to len(s$):c2$=right$(left$(s$,p2),1):if c2$="}":exit:endif:next p2:dec p2,1:c$=right$(left$(s$,p2),p2-p):p=p2+1:if len(c$)>1:ink hexToInt(c$),0:else:if lower$(c$)="r":ink 0xFFFF0000,0:endif:if lower$(c$)="g":ink 0xFF00FF00,0:endif:if lower$(c$)="b":ink 0xFF0000FF,0:endif:if lower$(c$)="y":ink 0xFFFFFF00,0:endif:if lower$(c$)="l":ink 0xFF00FFFF,0:endif:if lower$(c$)="m":ink 0xFFFF00FF,0:endif:if lower$(c$)="w":ink 0xFFFFFFFF,0:endif:endif:c$="":endif:if c$="\":inc p:if right$(left$(s$,p),1)="n":print :endif:c$="":endif:printc c$:next p:print : rem TheComet (v0.024) printa supports colour changes mid-sentence, and doesn't screw up DBPs internal cursor when mixing with newlines. "nl" IS DEPRECATED. Colours are specified between {} brackets, w=white, r=red, g=green, b=blue, y=yellow, m=magenta, l=lightblue. You may also specify a CAPITAL hex value, e.g. {FF00FFFF}. New lines are specified with \n.
endfunction

    def get_author_level(self, author):
        """
        Calculates and returns what level the specified author is.
        Formula used is: sqrt(unique_versions/1.25)
        """
        return int(math.floor(math.sqrt(len(self.get_list_of_unique_versions(author))/1.25)))

Box 110*4,70*4+39*4-i*8,110*4+34*4,70*4+39*4-(i-1)*8, beerColour, beerColour , beerColour, beerColour

`%Project 'Untitled'%
`%Version 0.036%
`======================
Type ItemType rem Chris Tate( v0.007,v0.022) - Type in progress...
  Name$
  Price#
  Owner
  Image
  Object
  Description$
  Action
  BuildUpDelay
  MinimumExperienceLevel
Endtype

Global Dim Items() as ItemType rem Chris Tate (v0.035) - Items for the characters, enemies and who knows what

Type BitMap_Pixel_Type Color As Integer, View As Byte EndType : Global Dim BitMap_Buffer(800,600) As BitMap_Pixel_Type rem VisualProg (v0.017) - this bitmap container, from 2D graphics

goto _jmp_finalFunctionBlock0001 rem VisualProg (v0.009) - form the space for code
        function printf(arg_x,arg_y,arg_str$,arg_color) : ink arg_color,0 : text arg_x,arg_y,arg_str$: rem VisualProg (v0.015,v0.027)
        endfunction
        function printBitMap(posx,posy,width,height) : for y=0 to height : for x=0 to width : BitMap_Buffer(x,y).View=0x30 : printf(posx*4+x*4,posy*4+y*4,chr$(BitMap_Buffer(x,y).View),BitMap_Buffer(x,y).Color) : next x : next y: rem VisualProg (v0.021,v0.029) out BitMap to [x,y] read size [width,height]
        endfunction
        function hexToInt(arg_hex$) :local result as integer:result=0:for i=1 to len(arg_hex$):char$=(mid$(arg_hex$,i)):if (char$="1"):inc result,0x01*16^(len(arg_hex$)-i):endif:if (char$="2"):inc result,0x02*16^(len(arg_hex$)-i):endif:if (char$="3"):inc result,0x03*16^(len(arg_hex$)-i):endif:if (char$="4"):inc result,0x04*16^(len(arg_hex$)-i):endif:if (char$="5"):inc result,0x05*16^(len(arg_hex$)-i):endif:if (char$="6"):inc result,0x06*16^(len(arg_hex$)-i):endif:if (char$="7"):inc result,0x07*16^(len(arg_hex$)-i):endif:if (char$="8"):inc result,0x08*16^(len(arg_hex$)-i):endif:if (char$="9"):inc result,0x09*16^(len(arg_hex$)-i):endif:if (char$="A"):inc result,0x0A*16^(len(arg_hex$)-i):endif:if (char$="B"):inc result,0x0B*16^(len(arg_hex$)-i):endif:if (char$="C"):inc result,0x0C*16^(len(arg_hex$)-i):endif:if (char$="D"):inc result,0x0D*16^(len(arg_hex$)-i):endif:if (char$="E"):inc result,0x0E*16^(len(arg_hex$)-i):endif:if (char$="F"):inc result,0x0F*16^(len(arg_hex$)-i):endif:next i:rem VisualProg (v0.023) convert for loading TextBitMap
        endfunction result
        function loadBitMap12BitFromMemory(arg_bin$) :color=0 : x=-1 : y=0:repeat:if (left$(arg_bin$,1)="\"):inc y :  x=-1 : arg_bin$=right$(arg_bin$,len(arg_bin$)-1):else:if (left$(arg_bin$,1)="~"):inc x : BitMap_Buffer(x,y).Color=oldcolor : arg_bin$=right$(arg_bin$,len(arg_bin$)-1):else:inc x : tmp$=left$(arg_bin$,3) : color=rgb(hexToInt(mid$(tmp$,1))*0x0F,hexToInt(mid$(tmp$,2))*0x0F,hexToInt(mid$(tmp$,3))*0x0F) : BitMap_Buffer(x,y).Color=color : arg_bin$=right$(arg_bin$,len(arg_bin$)-3) : oldColor=color:endif:endif:until (len(arg_bin$)<3): rem VisualProg (v0.025) loading TextBitMap12Bit
        endfunction
		function Beep(dwFreq,dwDuration) : call dll kernel32dll,"Beep",dwFreq,dwDuration rem VisualProg (v0.036) sound beep
		endfunction
_jmp_finalFunctionBlock0001: rem VisualProg (v0.006) - start program. Above will be functions
rem TheComet (v0.005, v0.032) - (DEPRECATED) Use this to add new lines inside print statements, e.g. "this line"+nl+"is over this line"

Global CharacterName$ = "Mysterious Outlander" rem Chris Tate (v0.001)
Global CharacterPositionX#=0.0, CharacterPositionY#=0.0, CharacterPositionZ#=0.0 rem VisualProg (v0.002)
printa("{w}You, "+CharacterName$+", push open the shabby doors of the town's inn and\nenter. The dry desert dust flows around you dramatically, highlighted by the\nrays of the setting sun. The desolate chatter of drunk emotions ceases to be,\nas all eyes set on you. "+chr$(34)+"{r}What be your name, stranger?{w}"+chr$(34)+"\nthe bartender asks from across the room.{g}"):input "Enter your name ->", CharacterName$ : rem TheComet (v0.003, v0.008, v0.026) Fixed new lines, now uses printa instead of print
_try_again_idiot: rem TheComet (v0.010) For when the player is too stupid to press the given keys
For i = 1 to 4 : Print : Next i : Ink RGB(0,255,0),0 : Print "Greetings " + CharacterName$ + ", what be the purpose of your visit? " : Wait 2000 : Input "Enter reply > [D] 'Give me a drink' [S] 'Tell me a story' [W] 'I need work' [G]'I have something to give to you' "; option$ ` Chris Tate (v0.004,v0.011) Move input down a bit

Select Upper$(option$) rem Chris Tate (v0.013) Bartender reply
  Case "D" `----------------------- 
    if (trigger_drink=0) then gosub _option_drink : global trigger_drink=1 : loadBitMap12BitFromMemory(Images_TextBitMap12Bit_GlassOfBeer$) : cls 0 : printBitMap(110,70,34,39) : set cursor 0,0 : gosub _try_again_idiot : else : printa("{w}[*You already have a drink!*]") : gosub _try_again_idiot rem VisualProg (v0.033) drink
  Endcase
  Case "G" `-----------------------
                        
  Endcase                       
  Case "W" `-----------------------
                
  Endcase
  Case "S" `-----------------------
                        
  Endcase
  Case Default
    cls 0:set cursor 0,0:printa("{r}"+chr$(34)+"Bahahahaaa!"+chr$(34)+"{w} the bartender bellowed. {r}"+chr$(34)+"Your brain cavity wouldn't\nmake a drinkin' cup for a canary!"+chr$(34)+"{w}"):goto _try_again_idiot : rem TheComet(v0.014, v0.020, v0.028) - Looks like the player is too stupid - added insults
  Endcase
Endselect
printa("{l}Thank you for playing! This is the End!"):wait key:end : rem TheComet (v0.030) Not trollling - if execution reaches here, it's time to exit (as to not flow into functions and subroutines)
_option_drink: rem TheComet(v0.012) The character chose a drink!
Global Images_TextBitMap12Bit_GlassOfBeer$ = "000~~~222665999~888777~~877888988~A99999777555443333111000~~~~~~~~~~~FFF\000~~444BBBEEE~~EED~~~~~EDD~~EEDEDDDDCCCBBAA988444000~~~~~~~~~~FFF\000~333CCBEEE~EED~EEEEEDEDDDDDDCCCCBCBA~~~~~~~~AA9221000~~~~~~~~~FFF\000~555DCCEEDEEEEEDDDDDDCCCBBBABA8A97A87986976875~~865~875~876433000~~~~~~~~~FFF\000~333CBBEDD~~DDCCCBCB9A97A86986976975875864753~~~~653764222000~~~~~~~~~FFF\000~333CCBEDD~~DDCCCBBA9A87986~976875865764754753~653~~764111000~~~~~~~~~FFF\000~443CCBEDD~~DDDCCBBA9A86986~976875865764754653~~~654764111000~~~~~~~~~FFF\000~333CBBEDD~~~CCBBA8A86986~876875865764754654653~~~654333000~~~~~~~~~FFF\000~333CBBEDDDDDEDD~CCBB98986~976876865765764754654653654653654~665888777767666~555333111000~FFF\000~333BBBDDD~EDD~CCBB98986976~875865765754654~653~~654~887EEE~~~~EDDDDD888222000FFF\000~444BBBDDC~DDD~CBBA98975875~~865765754654643~~~653654766AAABABAAA~~~CCCEEE888111FFF\000~443AA9BBACBADCBDDDCBA986864863864863~853753743742642~643~~544111~222~~333766CCC~333FFF\000~332643842951C96DCCBA9B84E91~~E81D81~D71C61B61A51940840741742333000~~~~~333AAADDD444FFF\000~332642841A51C95DCCB98C83E91~~~E81~D71~C61B50A50940840741332000~~~~~333BBBCCC333FFF\000~433642841A61C94DCBA87C82E91~E90E91E81E91E80~D60C60A50940840741332000~~~~~444CCCCBB222FFF\000~432642841A61C83CB9B86D81E91EA0FA0E91~E81E80~C70C60A50950840741433000~~~~~555DDDBAA111FFF\000~432642841A61D82DA6C94EA1~FA0~~E81~~D81C70C60A50950840741433000~~~~~666EEEAA9111FFF\000~432642841B61D81EA2E91EA1~FA0E91FA0~E91E80D80D70C60B50950840741433000~~~~111777EEE888000FFF\000~432642841B61D81EA2~EA1E91~E90FA0~F90E90E80D70C60B50950840741432000~~~~111888EEE777000FFF\000~433742851B71D81EA2~EA1~FA0~E91EA0FA0E90E81D81C61B50A50940741643000~~~~222999EEE666000FFF\000~432742841B71E92EA2EA1~EA0~E90E81E90~~D70~~B60A50841~653000~~~~333BBBDDD444000FFF\000~543752851B72D92E91D81~E90E91E81E80E90E80~C60~D70B61A51951851653000~~~~444CCBDDD333000FFF\000~543864A62B72C82D92D81~E80E91E80E90~E70E90D70C61C81A51A61962A73753000~~~~554DDCCCC222000FFF\000111544975A73C83C72D92D81E90E91~E80FA0~D71E90D70C61C81A51B72A62B83764000~~~~655DDDBBB111000FFF\000110654A86A83C82C72D92E81E90EA1E91E80E91E81D70E91D71B61D91A51B72A62A83864000~~~111777EEEAAA000~FFF\000111654975B83B72C82D92E91E90E91EA1E90E91~D70D81~C61D91A51B72A62A73864000~~~111888EEE888000~FFF\000111654974B83B72C82D92D81E80E81E91E90~E91D70E80C71C61D91A51B72A62A84864000~~~222A99FFE666000~FFF\000111654974B83B72~D92E81E90E91~E90~~D70E81C71C61C81A51B72A62B95864111000~~444BBBEEE444000~FFF\000111654975B83B72~D82E81~E91~E80~E90D70C71D71C61C81A51B72A62B94864222111434767A99EEDDDD111000~FFF\000111654974B83B72C82D82D81E91E90E91E90~F90D70D81D70C61B71A51B72A62A73963987A99BBBDDDEEEDDD777000~~FFF\000111654974B83B71C82~E81E90E91~E80E90E80D70E80D70C61C81951A62A72973974CBAEEE~CCC999545111000~~FFF\000211665974B83B72C81D81E81E80E90E81E80~~D70D71~C61C71A51A62962974~BA8999666222111000~~~~FFF\000211654864A83A62B71C81D71D80E80~~~~D70~C70B61C71951A61962874875443000~~~~~~~~FFF\000221654653863852951A62A51B50B61~B60~B50A50B61A50A40A50841851852875~111000~~~~~~~~FFF\000222654643754853863963A62A51~~A61A51A50951~A51941951852863865876766222000~~~~~~~~FFF\000433543544766876987~A97~B98B97A86B97~~A87~987A87765~~665765444000~~~~~~~~FFF\000443433543654766877998BAACBADCBCCBDCBDDCDCC~BBABAA998887766665654665655333000~~~~~~~~FFF\000111333543654653764875976975A86~~~~~976975865864754753754654333000~~~~~~~~~FFF\000~~111433432643754986A86A75A86A75A86~A76976864753653543433222000~~~~~~~~~~~FFF\000~~~332433655766A98~A97B98A97~A98A87987876765655443333111000~~~~~~~~~~~FFF\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\" rem VisualProg (v0.031) - image beer
  Cls : For i = 1 to 20 : Wait 20  : beerColour = Rgb(i*10,i*6,i*(5*(i>17))) : Box 0, Screen Height()-((i*1.0)*Screen Height()/25), Screen Width(), Screen Height()-(((i+1)*1.0)*Screen Height()/25), beerColour, beerColour , beerColour, beerColour  : Next i : Wait 1000 rem Chris Tate (v0.016,v0.018,v0.019) - Background transition indicating the filling of beer; version 0.016; Had to reinsert because the code was incorrectly altered
Return ` You can now close your labels in the same entry
_option_tell_story: rem TheComet(v0.034) User chose for bartender to tell a story!
return
function printa(s$) :for p=0 to len(s$):c$=right$(left$(s$,p),1):if c$="{":for p2=p+1 to len(s$):c2$=right$(left$(s$,p2),1):if c2$="}":exit:endif:next p2:dec p2,1:c$=right$(left$(s$,p2),p2-p):p=p2+1:if len(c$)>1:ink hexToInt(c$),0:else:if lower$(c$)="r":ink 0xFFFF0000,0:endif:if lower$(c$)="g":ink 0xFF00FF00,0:endif:if lower$(c$)="b":ink 0xFF0000FF,0:endif:if lower$(c$)="y":ink 0xFFFFFF00,0:endif:if lower$(c$)="l":ink 0xFF00FFFF,0:endif:if lower$(c$)="m":ink 0xFFFF00FF,0:endif:if lower$(c$)="w":ink 0xFFFFFFFF,0:endif:endif:c$="":endif:if c$="\":inc p:if right$(left$(s$,p),1)="n":print :endif:c$="":endif:printc c$:next p:print : rem TheComet (v0.024) printa supports colour changes mid-sentence, and doesn't screw up DBPs internal cursor when mixing with newlines. "nl" IS DEPRECATED. Colours are specified between {} brackets, w=white, r=red, g=green, b=blue, y=yellow, m=magenta, l=lightblue. You may also specify a CAPITAL hex value, e.g. {FF00FFFF}. New lines are specified with \n.
endfunction

`%Project 'Untitled'%
`%Version 0.037%
`======================
Type ItemType rem Chris Tate( v0.007,v0.022) - Type in progress...
  Name$
  Price#
  Owner
  Image
  Object
  Description$
  Action
  BuildUpDelay
  MinimumExperienceLevel
Endtype

Global Dim Items() as ItemType rem Chris Tate (v0.035) - Items for the characters, enemies and who knows what

Type BitMap_Pixel_Type Color As Integer, View As Byte EndType : Global Dim BitMap_Buffer(800,600) As BitMap_Pixel_Type rem VisualProg (v0.017) - this bitmap container, from 2D graphics

goto _jmp_finalFunctionBlock0001 rem VisualProg (v0.009) - form the space for code
        function printf(arg_x,arg_y,arg_str$,arg_color) : ink arg_color,0 : text arg_x,arg_y,arg_str$: rem VisualProg (v0.015,v0.027)
        endfunction
        function printBitMap(posx,posy,width,height) : for y=0 to height : for x=0 to width : BitMap_Buffer(x,y).View=0x30 : printf(posx*4+x*4,posy*4+y*4,chr$(BitMap_Buffer(x,y).View),BitMap_Buffer(x,y).Color) : next x : next y: rem VisualProg (v0.021,v0.029) out BitMap to [x,y] read size [width,height]
        endfunction
        function hexToInt(arg_hex$) :local result as integer:result=0:for i=1 to len(arg_hex$):char$=(mid$(arg_hex$,i)):if (char$="1"):inc result,0x01*16^(len(arg_hex$)-i):endif:if (char$="2"):inc result,0x02*16^(len(arg_hex$)-i):endif:if (char$="3"):inc result,0x03*16^(len(arg_hex$)-i):endif:if (char$="4"):inc result,0x04*16^(len(arg_hex$)-i):endif:if (char$="5"):inc result,0x05*16^(len(arg_hex$)-i):endif:if (char$="6"):inc result,0x06*16^(len(arg_hex$)-i):endif:if (char$="7"):inc result,0x07*16^(len(arg_hex$)-i):endif:if (char$="8"):inc result,0x08*16^(len(arg_hex$)-i):endif:if (char$="9"):inc result,0x09*16^(len(arg_hex$)-i):endif:if (char$="A"):inc result,0x0A*16^(len(arg_hex$)-i):endif:if (char$="B"):inc result,0x0B*16^(len(arg_hex$)-i):endif:if (char$="C"):inc result,0x0C*16^(len(arg_hex$)-i):endif:if (char$="D"):inc result,0x0D*16^(len(arg_hex$)-i):endif:if (char$="E"):inc result,0x0E*16^(len(arg_hex$)-i):endif:if (char$="F"):inc result,0x0F*16^(len(arg_hex$)-i):endif:next i:rem VisualProg (v0.023) convert for loading TextBitMap
        endfunction result
        function loadBitMap12BitFromMemory(arg_bin$) :color=0 : x=-1 : y=0:repeat:if (left$(arg_bin$,1)="\"):inc y :  x=-1 : arg_bin$=right$(arg_bin$,len(arg_bin$)-1):else:if (left$(arg_bin$,1)="~"):inc x : BitMap_Buffer(x,y).Color=oldcolor : arg_bin$=right$(arg_bin$,len(arg_bin$)-1):else:inc x : tmp$=left$(arg_bin$,3) : color=rgb(hexToInt(mid$(tmp$,1))*0x0F,hexToInt(mid$(tmp$,2))*0x0F,hexToInt(mid$(tmp$,3))*0x0F) : BitMap_Buffer(x,y).Color=color : arg_bin$=right$(arg_bin$,len(arg_bin$)-3) : oldColor=color:endif:endif:until (len(arg_bin$)<3): rem VisualProg (v0.025) loading TextBitMap12Bit
        endfunction
		function Beep(dwFreq,dwDuration) : call dll kernel32dll,"Beep",dwFreq,dwDuration rem VisualProg (v0.036) sound beep
		endfunction
_jmp_finalFunctionBlock0001: rem VisualProg (v0.006) - start program. Above will be functions
rem TheComet (v0.005, v0.032) - (DEPRECATED) Use this to add new lines inside print statements, e.g. "this line"+nl+"is over this line"

Global CharacterName$ = "Mysterious Outlander" rem Chris Tate (v0.001)
Global CharacterPositionX#=0.0, CharacterPositionY#=0.0, CharacterPositionZ#=0.0 rem VisualProg (v0.002)
printa("{w}You, "+CharacterName$+", push open the shabby doors of the town's inn and\nenter. The dry desert dust flows around you dramatically, highlighted by the\nrays of the setting sun. The desolate chatter of drunk emotions ceases to be,\nas all eyes set on you. "+chr$(34)+"{r}What be your name, stranger?{w}"+chr$(34)+"\nthe bartender asks from across the room.{g}"):input "Enter your name ->", CharacterName$ : rem TheComet (v0.003, v0.008, v0.026) Fixed new lines, now uses printa instead of print
_try_again_idiot: rem TheComet (v0.010) For when the player is too stupid to press the given keys
For i = 1 to 4 : Print : Next i : Ink RGB(0,255,0),0 : Print "Greetings " + CharacterName$ + ", what be the purpose of your visit? " : Wait 2000 : Input "Enter reply > [D] 'Give me a drink' [S] 'Tell me a story' [W] 'I need work' [G]'I have something to give to you' "; option$ ` Chris Tate (v0.004,v0.011) Move input down a bit

Select Upper$(option$) rem Chris Tate (v0.013) Bartender reply
  Case "D" `----------------------- 
    if (trigger_drink=0) then gosub _option_drink : global trigger_drink=1 : loadBitMap12BitFromMemory(Images_TextBitMap12Bit_GlassOfBeer$) : cls 0 : printBitMap(110,70,34,39) : set cursor 0,0 : gosub _try_again_idiot : else : printa("{w}[*You already have a drink!*]") : gosub _try_again_idiot rem VisualProg (v0.033) drink
  Endcase
  Case "G" `-----------------------
    rem Gosub _something_to_give_bartender_at_start Chris Tate (v0.037) Preparing story branch related to giving the bartender something
  Endcase                       
  Case "W" `-----------------------
                
  Endcase
  Case "S" `-----------------------
                        
  Endcase
  Case Default
    cls 0:set cursor 0,0:printa("{r}"+chr$(34)+"Bahahahaaa!"+chr$(34)+"{w} the bartender bellowed. {r}"+chr$(34)+"Your brain cavity wouldn't\nmake a drinkin' cup for a canary!"+chr$(34)+"{w}"):goto _try_again_idiot : rem TheComet(v0.014, v0.020, v0.028) - Looks like the player is too stupid - added insults
  Endcase
Endselect
printa("{l}Thank you for playing! This is the End!"):wait key:end : rem TheComet (v0.030) Not trollling - if execution reaches here, it's time to exit (as to not flow into functions and subroutines)
_option_drink: rem TheComet(v0.012) The character chose a drink!
Global Images_TextBitMap12Bit_GlassOfBeer$ = "000~~~222665999~888777~~877888988~A99999777555443333111000~~~~~~~~~~~FFF\000~~444BBBEEE~~EED~~~~~EDD~~EEDEDDDDCCCBBAA988444000~~~~~~~~~~FFF\000~333CCBEEE~EED~EEEEEDEDDDDDDCCCCBCBA~~~~~~~~AA9221000~~~~~~~~~FFF\000~555DCCEEDEEEEEDDDDDDCCCBBBABA8A97A87986976875~~865~875~876433000~~~~~~~~~FFF\000~333CBBEDD~~DDCCCBCB9A97A86986976975875864753~~~~653764222000~~~~~~~~~FFF\000~333CCBEDD~~DDCCCBBA9A87986~976875865764754753~653~~764111000~~~~~~~~~FFF\000~443CCBEDD~~DDDCCBBA9A86986~976875865764754653~~~654764111000~~~~~~~~~FFF\000~333CBBEDD~~~CCBBA8A86986~876875865764754654653~~~654333000~~~~~~~~~FFF\000~333CBBEDDDDDEDD~CCBB98986~976876865765764754654653654653654~665888777767666~555333111000~FFF\000~333BBBDDD~EDD~CCBB98986976~875865765754654~653~~654~887EEE~~~~EDDDDD888222000FFF\000~444BBBDDC~DDD~CBBA98975875~~865765754654643~~~653654766AAABABAAA~~~CCCEEE888111FFF\000~443AA9BBACBADCBDDDCBA986864863864863~853753743742642~643~~544111~222~~333766CCC~333FFF\000~332643842951C96DCCBA9B84E91~~E81D81~D71C61B61A51940840741742333000~~~~~333AAADDD444FFF\000~332642841A51C95DCCB98C83E91~~~E81~D71~C61B50A50940840741332000~~~~~333BBBCCC333FFF\000~433642841A61C94DCBA87C82E91~E90E91E81E91E80~D60C60A50940840741332000~~~~~444CCCCBB222FFF\000~432642841A61C83CB9B86D81E91EA0FA0E91~E81E80~C70C60A50950840741433000~~~~~555DDDBAA111FFF\000~432642841A61D82DA6C94EA1~FA0~~E81~~D81C70C60A50950840741433000~~~~~666EEEAA9111FFF\000~432642841B61D81EA2E91EA1~FA0E91FA0~E91E80D80D70C60B50950840741433000~~~~111777EEE888000FFF\000~432642841B61D81EA2~EA1E91~E90FA0~F90E90E80D70C60B50950840741432000~~~~111888EEE777000FFF\000~433742851B71D81EA2~EA1~FA0~E91EA0FA0E90E81D81C61B50A50940741643000~~~~222999EEE666000FFF\000~432742841B71E92EA2EA1~EA0~E90E81E90~~D70~~B60A50841~653000~~~~333BBBDDD444000FFF\000~543752851B72D92E91D81~E90E91E81E80E90E80~C60~D70B61A51951851653000~~~~444CCBDDD333000FFF\000~543864A62B72C82D92D81~E80E91E80E90~E70E90D70C61C81A51A61962A73753000~~~~554DDCCCC222000FFF\000111544975A73C83C72D92D81E90E91~E80FA0~D71E90D70C61C81A51B72A62B83764000~~~~655DDDBBB111000FFF\000110654A86A83C82C72D92E81E90EA1E91E80E91E81D70E91D71B61D91A51B72A62A83864000~~~111777EEEAAA000~FFF\000111654975B83B72C82D92E91E90E91EA1E90E91~D70D81~C61D91A51B72A62A73864000~~~111888EEE888000~FFF\000111654974B83B72C82D92D81E80E81E91E90~E91D70E80C71C61D91A51B72A62A84864000~~~222A99FFE666000~FFF\000111654974B83B72~D92E81E90E91~E90~~D70E81C71C61C81A51B72A62B95864111000~~444BBBEEE444000~FFF\000111654975B83B72~D82E81~E91~E80~E90D70C71D71C61C81A51B72A62B94864222111434767A99EEDDDD111000~FFF\000111654974B83B72C82D82D81E91E90E91E90~F90D70D81D70C61B71A51B72A62A73963987A99BBBDDDEEEDDD777000~~FFF\000111654974B83B71C82~E81E90E91~E80E90E80D70E80D70C61C81951A62A72973974CBAEEE~CCC999545111000~~FFF\000211665974B83B72C81D81E81E80E90E81E80~~D70D71~C61C71A51A62962974~BA8999666222111000~~~~FFF\000211654864A83A62B71C81D71D80E80~~~~D70~C70B61C71951A61962874875443000~~~~~~~~FFF\000221654653863852951A62A51B50B61~B60~B50A50B61A50A40A50841851852875~111000~~~~~~~~FFF\000222654643754853863963A62A51~~A61A51A50951~A51941951852863865876766222000~~~~~~~~FFF\000433543544766876987~A97~B98B97A86B97~~A87~987A87765~~665765444000~~~~~~~~FFF\000443433543654766877998BAACBADCBCCBDCBDDCDCC~BBABAA998887766665654665655333000~~~~~~~~FFF\000111333543654653764875976975A86~~~~~976975865864754753754654333000~~~~~~~~~FFF\000~~111433432643754986A86A75A86A75A86~A76976864753653543433222000~~~~~~~~~~~FFF\000~~~332433655766A98~A97B98A97~A98A87987876765655443333111000~~~~~~~~~~~FFF\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\" rem VisualProg (v0.031) - image beer
  Cls : For i = 1 to 20 : Wait 20  : beerColour = Rgb(i*10,i*6,i*(5*(i>17))) : Box 0, Screen Height()-((i*1.0)*Screen Height()/25), Screen Width(), Screen Height()-(((i+1)*1.0)*Screen Height()/25), beerColour, beerColour , beerColour, beerColour  : Next i : Wait 1000 rem Chris Tate (v0.016,v0.018,v0.019) - Background transition indicating the filling of beer; version 0.016; Had to reinsert because the code was incorrectly altered
Return ` You can now close your labels in the same entry
_option_tell_story: rem TheComet(v0.034) User chose for bartender to tell a story!
return
function printa(s$) :for p=0 to len(s$):c$=right$(left$(s$,p),1):if c$="{":for p2=p+1 to len(s$):c2$=right$(left$(s$,p2),1):if c2$="}":exit:endif:next p2:dec p2,1:c$=right$(left$(s$,p2),p2-p):p=p2+1:if len(c$)>1:ink hexToInt(c$),0:else:if lower$(c$)="r":ink 0xFFFF0000,0:endif:if lower$(c$)="g":ink 0xFF00FF00,0:endif:if lower$(c$)="b":ink 0xFF0000FF,0:endif:if lower$(c$)="y":ink 0xFFFFFF00,0:endif:if lower$(c$)="l":ink 0xFF00FFFF,0:endif:if lower$(c$)="m":ink 0xFFFF00FF,0:endif:if lower$(c$)="w":ink 0xFFFFFFFF,0:endif:endif:c$="":endif:if c$="\":inc p:if right$(left$(s$,p),1)="n":print :endif:c$="":endif:printc c$:next p:print : rem TheComet (v0.024) printa supports colour changes mid-sentence, and doesn't screw up DBPs internal cursor when mixing with newlines. "nl" IS DEPRECATED. Colours are specified between {} brackets, w=white, r=red, g=green, b=blue, y=yellow, m=magenta, l=lightblue. You may also specify a CAPITAL hex value, e.g. {FF00FFFF}. New lines are specified with \n.
endfunction

`%Project 'Untitled'%
`%Version 0.038%
`======================
Type ItemType rem Chris Tate( v0.007,v0.022) - Type in progress...
  Name$
  Price#
  Owner
  Image
  Object
  Description$
  Action
  BuildUpDelay
  MinimumExperienceLevel
Endtype

Global Dim Items() as ItemType rem Chris Tate (v0.035) - Items for the characters, enemies and who knows what

Type BitMap_Pixel_Type Color As Integer, View As Byte EndType : Global Dim BitMap_Buffer(800,600) As BitMap_Pixel_Type rem VisualProg (v0.017) - this bitmap container, from 2D graphics
Global kernel32dll=1 : load dll "kernel32.dll",kernel32dll rem VisualProg (v0.038) kernel for sound

goto _jmp_finalFunctionBlock0001 rem VisualProg (v0.009) - form the space for code
        function printf(arg_x,arg_y,arg_str$,arg_color) : ink arg_color,0 : text arg_x,arg_y,arg_str$: rem VisualProg (v0.015,v0.027)
        endfunction
        function printBitMap(posx,posy,width,height) : for y=0 to height : for x=0 to width : BitMap_Buffer(x,y).View=0x30 : printf(posx*4+x*4,posy*4+y*4,chr$(BitMap_Buffer(x,y).View),BitMap_Buffer(x,y).Color) : next x : next y: rem VisualProg (v0.021,v0.029) out BitMap to [x,y] read size [width,height]
        endfunction
        function hexToInt(arg_hex$) :local result as integer:result=0:for i=1 to len(arg_hex$):char$=(mid$(arg_hex$,i)):if (char$="1"):inc result,0x01*16^(len(arg_hex$)-i):endif:if (char$="2"):inc result,0x02*16^(len(arg_hex$)-i):endif:if (char$="3"):inc result,0x03*16^(len(arg_hex$)-i):endif:if (char$="4"):inc result,0x04*16^(len(arg_hex$)-i):endif:if (char$="5"):inc result,0x05*16^(len(arg_hex$)-i):endif:if (char$="6"):inc result,0x06*16^(len(arg_hex$)-i):endif:if (char$="7"):inc result,0x07*16^(len(arg_hex$)-i):endif:if (char$="8"):inc result,0x08*16^(len(arg_hex$)-i):endif:if (char$="9"):inc result,0x09*16^(len(arg_hex$)-i):endif:if (char$="A"):inc result,0x0A*16^(len(arg_hex$)-i):endif:if (char$="B"):inc result,0x0B*16^(len(arg_hex$)-i):endif:if (char$="C"):inc result,0x0C*16^(len(arg_hex$)-i):endif:if (char$="D"):inc result,0x0D*16^(len(arg_hex$)-i):endif:if (char$="E"):inc result,0x0E*16^(len(arg_hex$)-i):endif:if (char$="F"):inc result,0x0F*16^(len(arg_hex$)-i):endif:next i:rem VisualProg (v0.023) convert for loading TextBitMap
        endfunction result
        function loadBitMap12BitFromMemory(arg_bin$) :color=0 : x=-1 : y=0:repeat:if (left$(arg_bin$,1)="\"):inc y :  x=-1 : arg_bin$=right$(arg_bin$,len(arg_bin$)-1):else:if (left$(arg_bin$,1)="~"):inc x : BitMap_Buffer(x,y).Color=oldcolor : arg_bin$=right$(arg_bin$,len(arg_bin$)-1):else:inc x : tmp$=left$(arg_bin$,3) : color=rgb(hexToInt(mid$(tmp$,1))*0x0F,hexToInt(mid$(tmp$,2))*0x0F,hexToInt(mid$(tmp$,3))*0x0F) : BitMap_Buffer(x,y).Color=color : arg_bin$=right$(arg_bin$,len(arg_bin$)-3) : oldColor=color:endif:endif:until (len(arg_bin$)<3): rem VisualProg (v0.025) loading TextBitMap12Bit
        endfunction
                function Beep(dwFreq,dwDuration) : call dll kernel32dll,"Beep",dwFreq,dwDuration rem VisualProg (v0.036) sound beep
                endfunction
_jmp_finalFunctionBlock0001: rem VisualProg (v0.006) - start program. Above will be functions
rem TheComet (v0.005, v0.032) - (DEPRECATED) Use this to add new lines inside print statements, e.g. "this line"+nl+"is over this line"

Global CharacterName$ = "Mysterious Outlander" rem Chris Tate (v0.001)
Global CharacterPositionX#=0.0, CharacterPositionY#=0.0, CharacterPositionZ#=0.0 rem VisualProg (v0.002)
printa("{w}You, "+CharacterName$+", push open the shabby doors of the town's inn and\nenter. The dry desert dust flows around you dramatically, highlighted by the\nrays of the setting sun. The desolate chatter of drunk emotions ceases to be,\nas all eyes set on you. "+chr$(34)+"{r}What be your name, stranger?{w}"+chr$(34)+"\nthe bartender asks from across the room.{g}"):input "Enter your name ->", CharacterName$ : rem TheComet (v0.003, v0.008, v0.026) Fixed new lines, now uses printa instead of print
_try_again_idiot: rem TheComet (v0.010) For when the player is too stupid to press the given keys
For i = 1 to 4 : Print : Next i : Ink RGB(0,255,0),0 : Print "Greetings " + CharacterName$ + ", what be the purpose of your visit? " : Wait 2000 : Input "Enter reply > [D] 'Give me a drink' [S] 'Tell me a story' [W] 'I need work' [G]'I have something to give to you' "; option$ ` Chris Tate (v0.004,v0.011) Move input down a bit

Select Upper$(option$) rem Chris Tate (v0.013) Bartender reply
  Case "D" `----------------------- 
    if (trigger_drink=0) then gosub _option_drink : global trigger_drink=1 : loadBitMap12BitFromMemory(Images_TextBitMap12Bit_GlassOfBeer$) : cls 0 : printBitMap(110,70,34,39) : set cursor 0,0 : gosub _try_again_idiot : else : printa("{w}[*You already have a drink!*]") : gosub _try_again_idiot rem VisualProg (v0.033) drink
  Endcase
  Case "G" `-----------------------
    rem Gosub _something_to_give_bartender_at_start Chris Tate (v0.037) Preparing story branch related to giving the bartender something
  Endcase                       
  Case "W" `-----------------------
                
  Endcase
  Case "S" `-----------------------
                        
  Endcase
  Case Default
    cls 0:set cursor 0,0:printa("{r}"+chr$(34)+"Bahahahaaa!"+chr$(34)+"{w} the bartender bellowed. {r}"+chr$(34)+"Your brain cavity wouldn't\nmake a drinkin' cup for a canary!"+chr$(34)+"{w}"):goto _try_again_idiot : rem TheComet(v0.014, v0.020, v0.028) - Looks like the player is too stupid - added insults
  Endcase
Endselect
printa("{l}Thank you for playing! This is the End!"):wait key:end : rem TheComet (v0.030) Not trollling - if execution reaches here, it's time to exit (as to not flow into functions and subroutines)
_option_drink: rem TheComet(v0.012) The character chose a drink!
Global Images_TextBitMap12Bit_GlassOfBeer$ = "000~~~222665999~888777~~877888988~A99999777555443333111000~~~~~~~~~~~FFF\000~~444BBBEEE~~EED~~~~~EDD~~EEDEDDDDCCCBBAA988444000~~~~~~~~~~FFF\000~333CCBEEE~EED~EEEEEDEDDDDDDCCCCBCBA~~~~~~~~AA9221000~~~~~~~~~FFF\000~555DCCEEDEEEEEDDDDDDCCCBBBABA8A97A87986976875~~865~875~876433000~~~~~~~~~FFF\000~333CBBEDD~~DDCCCBCB9A97A86986976975875864753~~~~653764222000~~~~~~~~~FFF\000~333CCBEDD~~DDCCCBBA9A87986~976875865764754753~653~~764111000~~~~~~~~~FFF\000~443CCBEDD~~DDDCCBBA9A86986~976875865764754653~~~654764111000~~~~~~~~~FFF\000~333CBBEDD~~~CCBBA8A86986~876875865764754654653~~~654333000~~~~~~~~~FFF\000~333CBBEDDDDDEDD~CCBB98986~976876865765764754654653654653654~665888777767666~555333111000~FFF\000~333BBBDDD~EDD~CCBB98986976~875865765754654~653~~654~887EEE~~~~EDDDDD888222000FFF\000~444BBBDDC~DDD~CBBA98975875~~865765754654643~~~653654766AAABABAAA~~~CCCEEE888111FFF\000~443AA9BBACBADCBDDDCBA986864863864863~853753743742642~643~~544111~222~~333766CCC~333FFF\000~332643842951C96DCCBA9B84E91~~E81D81~D71C61B61A51940840741742333000~~~~~333AAADDD444FFF\000~332642841A51C95DCCB98C83E91~~~E81~D71~C61B50A50940840741332000~~~~~333BBBCCC333FFF\000~433642841A61C94DCBA87C82E91~E90E91E81E91E80~D60C60A50940840741332000~~~~~444CCCCBB222FFF\000~432642841A61C83CB9B86D81E91EA0FA0E91~E81E80~C70C60A50950840741433000~~~~~555DDDBAA111FFF\000~432642841A61D82DA6C94EA1~FA0~~E81~~D81C70C60A50950840741433000~~~~~666EEEAA9111FFF\000~432642841B61D81EA2E91EA1~FA0E91FA0~E91E80D80D70C60B50950840741433000~~~~111777EEE888000FFF\000~432642841B61D81EA2~EA1E91~E90FA0~F90E90E80D70C60B50950840741432000~~~~111888EEE777000FFF\000~433742851B71D81EA2~EA1~FA0~E91EA0FA0E90E81D81C61B50A50940741643000~~~~222999EEE666000FFF\000~432742841B71E92EA2EA1~EA0~E90E81E90~~D70~~B60A50841~653000~~~~333BBBDDD444000FFF\000~543752851B72D92E91D81~E90E91E81E80E90E80~C60~D70B61A51951851653000~~~~444CCBDDD333000FFF\000~543864A62B72C82D92D81~E80E91E80E90~E70E90D70C61C81A51A61962A73753000~~~~554DDCCCC222000FFF\000111544975A73C83C72D92D81E90E91~E80FA0~D71E90D70C61C81A51B72A62B83764000~~~~655DDDBBB111000FFF\000110654A86A83C82C72D92E81E90EA1E91E80E91E81D70E91D71B61D91A51B72A62A83864000~~~111777EEEAAA000~FFF\000111654975B83B72C82D92E91E90E91EA1E90E91~D70D81~C61D91A51B72A62A73864000~~~111888EEE888000~FFF\000111654974B83B72C82D92D81E80E81E91E90~E91D70E80C71C61D91A51B72A62A84864000~~~222A99FFE666000~FFF\000111654974B83B72~D92E81E90E91~E90~~D70E81C71C61C81A51B72A62B95864111000~~444BBBEEE444000~FFF\000111654975B83B72~D82E81~E91~E80~E90D70C71D71C61C81A51B72A62B94864222111434767A99EEDDDD111000~FFF\000111654974B83B72C82D82D81E91E90E91E90~F90D70D81D70C61B71A51B72A62A73963987A99BBBDDDEEEDDD777000~~FFF\000111654974B83B71C82~E81E90E91~E80E90E80D70E80D70C61C81951A62A72973974CBAEEE~CCC999545111000~~FFF\000211665974B83B72C81D81E81E80E90E81E80~~D70D71~C61C71A51A62962974~BA8999666222111000~~~~FFF\000211654864A83A62B71C81D71D80E80~~~~D70~C70B61C71951A61962874875443000~~~~~~~~FFF\000221654653863852951A62A51B50B61~B60~B50A50B61A50A40A50841851852875~111000~~~~~~~~FFF\000222654643754853863963A62A51~~A61A51A50951~A51941951852863865876766222000~~~~~~~~FFF\000433543544766876987~A97~B98B97A86B97~~A87~987A87765~~665765444000~~~~~~~~FFF\000443433543654766877998BAACBADCBCCBDCBDDCDCC~BBABAA998887766665654665655333000~~~~~~~~FFF\000111333543654653764875976975A86~~~~~976975865864754753754654333000~~~~~~~~~FFF\000~~111433432643754986A86A75A86A75A86~A76976864753653543433222000~~~~~~~~~~~FFF\000~~~332433655766A98~A97B98A97~A98A87987876765655443333111000~~~~~~~~~~~FFF\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\" rem VisualProg (v0.031) - image beer
  Cls : For i = 1 to 20 : Wait 20  : beerColour = Rgb(i*10,i*6,i*(5*(i>17))) : Box 0, Screen Height()-((i*1.0)*Screen Height()/25), Screen Width(), Screen Height()-(((i+1)*1.0)*Screen Height()/25), beerColour, beerColour , beerColour, beerColour  : Next i : Wait 1000 rem Chris Tate (v0.016,v0.018,v0.019) - Background transition indicating the filling of beer; version 0.016; Had to reinsert because the code was incorrectly altered
Return ` You can now close your labels in the same entry
_option_tell_story: rem TheComet(v0.034) User chose for bartender to tell a story!
return
function printa(s$) :for p=0 to len(s$):c$=right$(left$(s$,p),1):if c$="{":for p2=p+1 to len(s$):c2$=right$(left$(s$,p2),1):if c2$="}":exit:endif:next p2:dec p2,1:c$=right$(left$(s$,p2),p2-p):p=p2+1:if len(c$)>1:ink hexToInt(c$),0:else:if lower$(c$)="r":ink 0xFFFF0000,0:endif:if lower$(c$)="g":ink 0xFF00FF00,0:endif:if lower$(c$)="b":ink 0xFF0000FF,0:endif:if lower$(c$)="y":ink 0xFFFFFF00,0:endif:if lower$(c$)="l":ink 0xFF00FFFF,0:endif:if lower$(c$)="m":ink 0xFFFF00FF,0:endif:if lower$(c$)="w":ink 0xFFFFFFFF,0:endif:endif:c$="":endif:if c$="\":inc p:if right$(left$(s$,p),1)="n":print :endif:c$="":endif:printc c$:next p:print : rem TheComet (v0.024) printa supports colour changes mid-sentence, and doesn't screw up DBPs internal cursor when mixing with newlines. "nl" IS DEPRECATED. Colours are specified between {} brackets, w=white, r=red, g=green, b=blue, y=yellow, m=magenta, l=lightblue. You may also specify a CAPITAL hex value, e.g. {FF00FFFF}. New lines are specified with \n.
endfunction

`%Project 'Untitled'%
`%Version 0.039%
`======================
Type ItemType rem Chris Tate( v0.007,v0.022) - Type in progress...
  Name$
  Price#
  Owner
  Image
  Object
  Description$
  Action
  BuildUpDelay
  MinimumExperienceLevel
Endtype

Global Dim Items() as ItemType rem Chris Tate (v0.035) - Items for the characters, enemies and who knows what

Type BitMap_Pixel_Type Color As Integer, View As Byte EndType : Global Dim BitMap_Buffer(800,600) As BitMap_Pixel_Type rem VisualProg (v0.017) - this bitmap container, from 2D graphics
Global kernel32dll=1 : load dll "kernel32.dll",kernel32dll rem VisualProg (v0.038) kernel for sound

goto _jmp_finalFunctionBlock0001 rem VisualProg (v0.009) - form the space for code
        function printf(arg_x,arg_y,arg_str$,arg_color) : ink arg_color,0 : text arg_x,arg_y,arg_str$: rem VisualProg (v0.015,v0.027)
        endfunction
        function printBitMap(posx,posy,width,height) : for y=0 to height : for x=0 to width : BitMap_Buffer(x,y).View=0x30 : printf(posx*4+x*4,posy*4+y*4,chr$(BitMap_Buffer(x,y).View),BitMap_Buffer(x,y).Color) : next x : next y: rem VisualProg (v0.021,v0.029) out BitMap to [x,y] read size [width,height]
        endfunction
        function hexToInt(arg_hex$) :local result as integer:result=0:for i=1 to len(arg_hex$):char$=(mid$(arg_hex$,i)):if (char$="1"):inc result,0x01*16^(len(arg_hex$)-i):endif:if (char$="2"):inc result,0x02*16^(len(arg_hex$)-i):endif:if (char$="3"):inc result,0x03*16^(len(arg_hex$)-i):endif:if (char$="4"):inc result,0x04*16^(len(arg_hex$)-i):endif:if (char$="5"):inc result,0x05*16^(len(arg_hex$)-i):endif:if (char$="6"):inc result,0x06*16^(len(arg_hex$)-i):endif:if (char$="7"):inc result,0x07*16^(len(arg_hex$)-i):endif:if (char$="8"):inc result,0x08*16^(len(arg_hex$)-i):endif:if (char$="9"):inc result,0x09*16^(len(arg_hex$)-i):endif:if (char$="A"):inc result,0x0A*16^(len(arg_hex$)-i):endif:if (char$="B"):inc result,0x0B*16^(len(arg_hex$)-i):endif:if (char$="C"):inc result,0x0C*16^(len(arg_hex$)-i):endif:if (char$="D"):inc result,0x0D*16^(len(arg_hex$)-i):endif:if (char$="E"):inc result,0x0E*16^(len(arg_hex$)-i):endif:if (char$="F"):inc result,0x0F*16^(len(arg_hex$)-i):endif:next i:rem VisualProg (v0.023) convert for loading TextBitMap
        endfunction result
        function loadBitMap12BitFromMemory(arg_bin$) :color=0 : x=-1 : y=0:repeat:if (left$(arg_bin$,1)="\"):inc y :  x=-1 : arg_bin$=right$(arg_bin$,len(arg_bin$)-1):else:if (left$(arg_bin$,1)="~"):inc x : BitMap_Buffer(x,y).Color=oldcolor : arg_bin$=right$(arg_bin$,len(arg_bin$)-1):else:inc x : tmp$=left$(arg_bin$,3) : color=rgb(hexToInt(mid$(tmp$,1))*0x0F,hexToInt(mid$(tmp$,2))*0x0F,hexToInt(mid$(tmp$,3))*0x0F) : BitMap_Buffer(x,y).Color=color : arg_bin$=right$(arg_bin$,len(arg_bin$)-3) : oldColor=color:endif:endif:until (len(arg_bin$)<3): rem VisualProg (v0.025) loading TextBitMap12Bit
        endfunction
                function Beep(dwFreq,dwDuration) : call dll kernel32dll,"Beep",dwFreq,dwDuration rem VisualProg (v0.036) sound beep
                endfunction
_jmp_finalFunctionBlock0001: rem VisualProg (v0.006) - start program. Above will be functions
rem TheComet (v0.005, v0.032) - (DEPRECATED) Use this to add new lines inside print statements, e.g. "this line"+nl+"is over this line"

Global CharacterName$ = "Mysterious Outlander" rem Chris Tate (v0.001)
Global CharacterPositionX#=0.0, CharacterPositionY#=0.0, CharacterPositionZ#=0.0 rem VisualProg (v0.002)
printa("{w}You, "+CharacterName$+", push open the shabby doors of the town's inn and\nenter. The dry desert dust flows around you dramatically, highlighted by the\nrays of the setting sun. The desolate chatter of drunk emotions ceases to be,\nas all eyes set on you. "+chr$(34)+"{r}What be your name, stranger?{w}"+chr$(34)+"\nthe bartender asks from across the room.{g}"):input "Enter your name ->", CharacterName$ : rem TheComet (v0.003, v0.008, v0.026) Fixed new lines, now uses printa instead of print
_try_again_idiot: rem TheComet (v0.010) For when the player is too stupid to press the given keys
For i = 1 to 4 : Print : Next i : Ink RGB(0,255,0),0 : Print "Greetings " + CharacterName$ + ", what be the purpose of your visit? " : Wait 2000 : Input "Enter reply > [D] 'Give me a drink' [S] 'Tell me a story' [W] 'I need work' [G]'I have something to give to you' "; option$ ` Chris Tate (v0.004,v0.011) Move input down a bit

Select Upper$(option$) rem Chris Tate (v0.013) Bartender reply
  Case "D" `----------------------- 
    if (trigger_drink=0) then gosub _option_drink : global trigger_drink=1 : loadBitMap12BitFromMemory(Images_TextBitMap12Bit_GlassOfBeer$) : cls 0 : printBitMap(110,70,34,39) : set cursor 0,0 : gosub _try_again_idiot : else : printa("{w}[*You already have a drink!*]") : gosub _try_again_idiot rem VisualProg (v0.033) drink
  Endcase
  Case "G" `-----------------------
    rem Gosub _something_to_give_bartender_at_start Chris Tate (v0.037) Preparing story branch related to giving the bartender something
  Endcase                       
  Case "W" `-----------------------
                
  Endcase
  Case "S" `-----------------------
                        
  Endcase
  Case Default
    cls 0:set cursor 0,0:printa("{r}"+chr$(34)+"Bahahahaaa!"+chr$(34)+"{w} the bartender bellowed. {r}"+chr$(34)+"Your brain cavity wouldn't\nmake a drinkin' cup for a canary!"+chr$(34)+"{w}"):goto _try_again_idiot : rem TheComet(v0.014, v0.020, v0.028) - Looks like the player is too stupid - added insults
  Endcase
Endselect
printa("{l}Thank you for playing! This is the End!"):wait key:end : rem TheComet (v0.030) Not trollling - if execution reaches here, it's time to exit (as to not flow into functions and subroutines)
_option_drink: rem TheComet(v0.012) The character chose a drink!
Global Images_TextBitMap12Bit_GlassOfBeer$ = "000~~~222665999~888777~~877888988~A99999777555443333111000~~~~~~~~~~~FFF\000~~444BBBEEE~~EED~~~~~EDD~~EEDEDDDDCCCBBAA988444000~~~~~~~~~~FFF\000~333CCBEEE~EED~EEEEEDEDDDDDDCCCCBCBA~~~~~~~~AA9221000~~~~~~~~~FFF\000~555DCCEEDEEEEEDDDDDDCCCBBBABA8A97A87986976875~~865~875~876433000~~~~~~~~~FFF\000~333CBBEDD~~DDCCCBCB9A97A86986976975875864753~~~~653764222000~~~~~~~~~FFF\000~333CCBEDD~~DDCCCBBA9A87986~976875865764754753~653~~764111000~~~~~~~~~FFF\000~443CCBEDD~~DDDCCBBA9A86986~976875865764754653~~~654764111000~~~~~~~~~FFF\000~333CBBEDD~~~CCBBA8A86986~876875865764754654653~~~654333000~~~~~~~~~FFF\000~333CBBEDDDDDEDD~CCBB98986~976876865765764754654653654653654~665888777767666~555333111000~FFF\000~333BBBDDD~EDD~CCBB98986976~875865765754654~653~~654~887EEE~~~~EDDDDD888222000FFF\000~444BBBDDC~DDD~CBBA98975875~~865765754654643~~~653654766AAABABAAA~~~CCCEEE888111FFF\000~443AA9BBACBADCBDDDCBA986864863864863~853753743742642~643~~544111~222~~333766CCC~333FFF\000~332643842951C96DCCBA9B84E91~~E81D81~D71C61B61A51940840741742333000~~~~~333AAADDD444FFF\000~332642841A51C95DCCB98C83E91~~~E81~D71~C61B50A50940840741332000~~~~~333BBBCCC333FFF\000~433642841A61C94DCBA87C82E91~E90E91E81E91E80~D60C60A50940840741332000~~~~~444CCCCBB222FFF\000~432642841A61C83CB9B86D81E91EA0FA0E91~E81E80~C70C60A50950840741433000~~~~~555DDDBAA111FFF\000~432642841A61D82DA6C94EA1~FA0~~E81~~D81C70C60A50950840741433000~~~~~666EEEAA9111FFF\000~432642841B61D81EA2E91EA1~FA0E91FA0~E91E80D80D70C60B50950840741433000~~~~111777EEE888000FFF\000~432642841B61D81EA2~EA1E91~E90FA0~F90E90E80D70C60B50950840741432000~~~~111888EEE777000FFF\000~433742851B71D81EA2~EA1~FA0~E91EA0FA0E90E81D81C61B50A50940741643000~~~~222999EEE666000FFF\000~432742841B71E92EA2EA1~EA0~E90E81E90~~D70~~B60A50841~653000~~~~333BBBDDD444000FFF\000~543752851B72D92E91D81~E90E91E81E80E90E80~C60~D70B61A51951851653000~~~~444CCBDDD333000FFF\000~543864A62B72C82D92D81~E80E91E80E90~E70E90D70C61C81A51A61962A73753000~~~~554DDCCCC222000FFF\000111544975A73C83C72D92D81E90E91~E80FA0~D71E90D70C61C81A51B72A62B83764000~~~~655DDDBBB111000FFF\000110654A86A83C82C72D92E81E90EA1E91E80E91E81D70E91D71B61D91A51B72A62A83864000~~~111777EEEAAA000~FFF\000111654975B83B72C82D92E91E90E91EA1E90E91~D70D81~C61D91A51B72A62A73864000~~~111888EEE888000~FFF\000111654974B83B72C82D92D81E80E81E91E90~E91D70E80C71C61D91A51B72A62A84864000~~~222A99FFE666000~FFF\000111654974B83B72~D92E81E90E91~E90~~D70E81C71C61C81A51B72A62B95864111000~~444BBBEEE444000~FFF\000111654975B83B72~D82E81~E91~E80~E90D70C71D71C61C81A51B72A62B94864222111434767A99EEDDDD111000~FFF\000111654974B83B72C82D82D81E91E90E91E90~F90D70D81D70C61B71A51B72A62A73963987A99BBBDDDEEEDDD777000~~FFF\000111654974B83B71C82~E81E90E91~E80E90E80D70E80D70C61C81951A62A72973974CBAEEE~CCC999545111000~~FFF\000211665974B83B72C81D81E81E80E90E81E80~~D70D71~C61C71A51A62962974~BA8999666222111000~~~~FFF\000211654864A83A62B71C81D71D80E80~~~~D70~C70B61C71951A61962874875443000~~~~~~~~FFF\000221654653863852951A62A51B50B61~B60~B50A50B61A50A40A50841851852875~111000~~~~~~~~FFF\000222654643754853863963A62A51~~A61A51A50951~A51941951852863865876766222000~~~~~~~~FFF\000433543544766876987~A97~B98B97A86B97~~A87~987A87765~~665765444000~~~~~~~~FFF\000443433543654766877998BAACBADCBCCBDCBDDCDCC~BBABAA998887766665654665655333000~~~~~~~~FFF\000111333543654653764875976975A86~~~~~976975865864754753754654333000~~~~~~~~~FFF\000~~111433432643754986A86A75A86A75A86~A76976864753653543433222000~~~~~~~~~~~FFF\000~~~332433655766A98~A97B98A97~A98A87987876765655443333111000~~~~~~~~~~~FFF\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\" rem VisualProg (v0.031) - image beer
  Cls : For i = 1 to 20 : Wait 20  : beerColour = Rgb(i*10,i*6,i*(5*(i>17))) : Box 0, Screen Height()-((i*1.0)*Screen Height()/25), Screen Width(), Screen Height()-(((i+1)*1.0)*Screen Height()/25), beerColour, beerColour , beerColour, beerColour  : Next i : Wait 1000 rem Chris Tate (v0.016,v0.018,v0.019) - Background transition indicating the filling of beer; version 0.016; Had to reinsert because the code was incorrectly altered
Return ` You can now close your labels in the same entry
_option_tell_story: rem TheComet(v0.034) User chose for bartender to tell a story!
return
function printa(s$) :for p=0 to len(s$):c$=right$(left$(s$,p),1):if c$="{":for p2=p+1 to len(s$):c2$=right$(left$(s$,p2),1):if c2$="}":exit:endif:next p2:dec p2,1:c$=right$(left$(s$,p2),p2-p):p=p2+1:if len(c$)>1:ink hexToInt(c$),0:else:if lower$(c$)="r":ink 0xFFFF0000,0:endif:if lower$(c$)="g":ink 0xFF00FF00,0:endif:if lower$(c$)="b":ink 0xFF0000FF,0:endif:if lower$(c$)="y":ink 0xFFFFFF00,0:endif:if lower$(c$)="l":ink 0xFF00FFFF,0:endif:if lower$(c$)="m":ink 0xFFFF00FF,0:endif:if lower$(c$)="w":ink 0xFFFFFFFF,0:endif:endif:c$="":endif:if c$="\":inc p:if right$(left$(s$,p),1)="n":print :endif:c$="":endif:printc c$:next p:print : rem TheComet (v0.024) printa supports colour changes mid-sentence, and doesn't screw up DBPs internal cursor when mixing with newlines. "nl" IS DEPRECATED. Colours are specified between {} brackets, w=white, r=red, g=green, b=blue, y=yellow, m=magenta, l=lightblue. You may also specify a CAPITAL hex value, e.g. {FF00FFFF}. New lines are specified with \n.
endfunction

_something_to_give_bartender_at_start: rem Chris Tate(v0.039) Added 'I have something to give to you' story path sub routine
	
Return

#!/usr/bin/env python
# -*- coding: utf-8 -*-

__author__ = 'TheComet'


import sys
import math
import urllib
import re
import StringIO
from bs4 import BeautifulSoup   # use 'pip install beautifulsoup4' to install this module


class DBPGameStats(object):

    def __init__(self, stream=None):

	# define ranks - feel free to add more!
        self.__entries = dict()
        self.__rank_names = {
            '0': 'Total n00b',
            '1': 'You call that Programming?',
            '2': 'Colon Apprentice',
            '3': 'Programmer with no Life',
            '4': 'Fantastic Elastic Spastic',
            '5': 'Flowz with da Codez'
        }

        # see if we're getting the code from a stream or from the internetz
        if stream is None:
            default_url = 'http://forum.thegamecreators.com/?m=forum_view&t=211263&b=1'
            stream = StringIO.StringIO(TGCSniffer(default_url).get_latest_code_in_thread())

        # parse stream and extract all of the statistical data
        self.__extract(stream)

    def __extract(self, stream):
        """
        Internal method for extracting all of the statistical data from a stream
        containing the code.
        """
        valid_comment_qualifiers = ('rem', '`', '//')
        last_unique_version = ""
        for line in stream:
            
            # gets the string at the end of a line with all of the version info
            comment = ''
            for comment_qualifier in valid_comment_qualifiers:
                pos = line.rfind(comment_qualifier)
                if pos == -1:
                    continue
                comment = line[pos:].strip(' '+comment_qualifier)
                break

            # confirm comment is valid
            if any(comment.find(x) == -1 for x in '()'):
                # apparently it wasn't valid! Add the line character count to the last unique version
                if not last_unique_version == "":
                    self.__entries[last_unique_version]['code character count'] += len(line)
                continue

            # extract the name, version, and optional comment
            author = comment[:comment.find('(')].strip()
            versions = [x.strip() for x in comment[comment.find('(')+1:comment.find(')')].split(',')]
            comment = comment[comment.find(')')+1:].strip()

            # add exracted data to internal dictionary
            for version in versions:
                if not version in self.__entries:
                    self.__entries[version] = dict()
                self.__entries[version]['author'] = author
                self.__entries[version]['comment'] = comment
                self.__entries[version]['is unique'] = False
                self.__entries[version]['code character count'] = 0

            # only the first version is unique
            last_unique_version = versions[0]

            # requested by Chris - Unique entries - Flag the first version appearing in the list
            # of versions as unique. This allows the calculation of experience points and levels
            self.__entries[last_unique_version]['is unique'] = True

            # Unique entries also store how many characters of code existed on that line
            self.__entries[last_unique_version]['code character count'] = len(line)

    def get_list_of_authors(self):
        """
        Generates an alphabetically sorted list of strings of all contributing names.
        :return: The list of names.
        """
        authors = list()
        for key, value in self.__entries.iteritems():
            if not value['author'] in authors:
                authors.append(value['author'])
        return sorted(authors)

    def get_list_of_versions(self, author):
        """
        :return: Generates a sorted list of all versions the specified author created.
        """
        versions = list()
        for key, value in self.__entries.iteritems():
            if value['author'] == author:
                versions.append(key)
        return sorted(versions)

    def get_list_of_unique_versions(self, author):
        """
        Generates a sorted list of all unique versions the specified author created.
        Unique versions are different from normal versions in that there is only ever
        one unique version per line of code, whereas there can be more than one version
        per line of code.
        :return: Returns a list of unique versions associated with the specified author.
        """
        unique_versions = list()
        for key, value in self.__entries.iteritems():
            if value['author'] == author and value['is unique']:
                unique_versions.append(key)
        return sorted(unique_versions)

    def get_code_character_count(self, author):
        """
        :return: Returns the total character count of the specified author.
        """
        count = 0
        for key, value in self.__entries.iteritems():
            if value['author'] == author and value['is unique']:
                count += value['code character count']
        return count

    def get_author_level(self, author):
        """
        Calculates and returns what level the specified author is.
        Formula used is: sqrt(unique_versions/1.25)
        """
        return int(math.floor(math.sqrt(len(self.get_list_of_unique_versions(author))/1.25)))

    def get_author_rank(self, level):
        """
        Looks up the rank (if any) for the specified level.
        :return: The rank string.
        """
        level = str(level)
        if level in self.__rank_names:
            return self.__rank_names[level]
        else:
            return "no rank exists for this level"

    def print_all_data(self):
        """
        Outputs all statistical data available.
        """
        print('sorted version list\n=====================')
        self.print_sorted_version_list()
        print('\ncontribution statistics\n====================================')
        self.print_contribution_statistics()
        print('\nauthor statistics\n======================')
        self.print_author_statistics()

    def print_sorted_version_list(self):
        """
        Outputs a sorted list of versions with the associated author and optional comments.
        """
        for key in sorted(self.__entries):
            print('{0}: {1:30}: "{2}"'.format(key, self.__entries[key]['author'], self.__entries[key]['comment']))

    def print_contribution_statistics(self):
        """
        Prints statistical data related to contribution.
        """
        for author in self.get_list_of_authors():
            print('{0:30}: contributed {1} versions, {2} unique versions, and a total of {3} characters of code'.format(
                    author,
                    len(self.get_list_of_versions(author)),
                    len(self.get_list_of_unique_versions(author)),
                    self.get_code_character_count(author)
            ))

    def print_author_statistics(self):
        """
        Prints statistical data related to the author himself/herself.
        """
        for author in self.get_list_of_authors():
            level = self.get_author_level(author)
            print('{0:30}: Level {1} - "{2}"'.format(
                    author,
                    level,
                    self.get_author_rank(level)
            ))


class TGCSniffer(object):

    def __init__(self, url):
        self.__url = url
        self.__page_urls = dict()
        self.__code_tag_open = False

        # parse initial page
        print 'loading initial page...'
        content = urllib.urlopen(url).read()
        self.__soup = BeautifulSoup(content)

        # generate a dictionary of urls
        url = re.sub('&p=[0-9]', '', url)
        for page in range(self.get_page_count()):
            self.__page_urls[str(page)] = url + '&p={0}'.format(page)

    def load_page(self, page_id):
        """
        Loads the specified page, starting from 1 (int).
        :param page_id: The page number to load.
        """
        print 'loading page {0}...'.format(page_id)
        content = urllib.urlopen(self.__page_urls[str(page_id-1)])
        self.__soup = BeautifulSoup(content)

    def get_latest_code_in_thread(self):
        """
        Will load the very last page in the thread, and scan backwards until it finds
        code with the highest version.
        :return: Returns a string containing the latest version of code in the thread.
        """
        # load last page in thread, and go backwards from there
        page_id = self.get_page_count()
        while True:
            self.load_page(page_id)
            code = self.get_latest_code_on_page()
            if not code is None:
                return code
            page_id -= 1

    def get_latest_code_on_page(self):
        """
        Scans the loaded page and returns the latest version of code. Note that
        this may not necessarily be the latest version of code in the entire thread.
        :return: A string containing the latest version of code on the page.
        If none is found, then None is returned.
        """
        latest_code = None
        latest_version = None
        # this is retarded, but it seems there is no easier way to detect wether something is a code snippet or not. This data is consistent with all snippets.
        code_snippet_flag = 'display: none; font-family: Courier New, Arial; font-size: 14px; color: black; border: 1px solid black; background-color: #fefefe; padding: 4px; text-overflow: ellipsis; word-wrap: break-word; line-height:13px;'
        for code in (pre.contents[0] for pre in self.__soup.find_all('pre') if ' '.join(pre.get('style').split()) == code_snippet_flag):
            version = self.extract_version_from_code(code)
            if not version is None:
                if latest_version is None or version > latest_version:
                    latest_version = version
                    latest_code = code
        return latest_code

    @staticmethod
    def extract_version_from_code(code):
        """
        Extracts the version from the header of the code. This assumes that
        the version is specified as:
            %Version 0.xxx%
        :return: If No version was found, None is returned, otherwise the text between
        the %% characters is returned.
        """
        for line in code.split('\n'):
            if not line.find('%') == -1 and not line.find('Version') == -1:
                return line.split('%')[1].strip()
        return None

    def get_page_count(self):
        """
        Gets the total number of pages contained in the loaded thread.
        """
        # if dictionary is empty, we have to scan the HTML to find out
        # how many pages there are.
        if len(self.__page_urls) == 0:
            for i in self.__soup.find_all('input'):
                if i.get('name') == 'lastpage':
                    return int(i.get('value'))
            raise RuntimeError('Failed to get page count')
        else:
            return len(self.__page_urls)


if __name__ == '__main__':
    if len(sys.argv) > 1:
    	with open(sys.argv[1], 'rb') as f:
            stats = DBPGameStats(f)
    else:
        stats = DBPGameStats()
    stats.print_all_data()
    sys.exit(0)

self.__rank_names = {
            '0': 'Total n00b',
            '1': 'You call that Programming?',
            '2': 'Colon Apprentice',
            '3': 'Programmer with no Life',
            '4': 'Fantastic Elastic Spastic',
            '5': 'Flowz with da Codez'
        }

python dbp-experiment.py code.txt

python dbp-experiment.py

@ECHO OFF
python dbp-experiment.py >out.txt

pip install beautifulsoup4

#!/usr/bin/env python
# -*- coding: utf-8 -*-

__author__ = 'TheComet'


import sys
import math
import urllib
import re
import StringIO
from bs4 import BeautifulSoup   # use 'pip install beautifulsoup4' to install this module


class DBPGameStats(object):

    def __init__(self, stream=None):

	# define ranks - feel free to add more!
        self.__entries = dict()
        self.__rank_names = {
            '0': 'Total n00b',
            '1': 'You call that Programming?',
            '2': 'Colon Apprentice',
            '3': 'Programmer with no Life',
            '4': 'Fantastic Elastic Spastic',
            '5': 'Flowz with da Codez'
        }

        # see if we're getting the code from a stream or from the internetz
        if stream is None:
            default_url = 'http://forum.thegamecreators.com/?m=forum_view&t=211263&b=1'
            code = TGCSniffer(default_url).get_latest_code_in_thread()
            stream = StringIO.StringIO(code)

        # parse stream and extract all of the statistical data
        self.__extract(stream)

    def __extract(self, stream):
        """
        Internal method for extracting all of the statistical data from a stream
        containing the code.
        """
        valid_comment_qualifiers = ('rem', '`', '//')
        last_unique_version = ""
        for line in stream:
            
            # gets the string at the end of a line with all of the version info
            comment = ''
            for comment_qualifier in valid_comment_qualifiers:
                pos = line.rfind(comment_qualifier)
                if pos == -1:
                    continue
                comment = line[pos:].strip(' '+comment_qualifier)
                break

            # confirm comment is valid
            if any(comment.find(x) == -1 for x in '()'):
                # apparently it wasn't valid! Add the line character count to the last unique version
                if not last_unique_version == "":
                    self.__entries[last_unique_version]['code character count'] += len(line)
                continue

            # extract the name, version, and optional comment
            author = comment[:comment.find('(')].strip()
            versions = [x.strip() for x in comment[comment.find('(')+1:comment.find(')')].split(',')]
            comment = comment[comment.find(')')+1:].strip()

            # add exracted data to internal dictionary
            for version in versions:
                if not version in self.__entries:
                    self.__entries[version] = dict()
                self.__entries[version]['author'] = author
                self.__entries[version]['comment'] = comment
                self.__entries[version]['is unique'] = False
                self.__entries[version]['code character count'] = 0

            # only the first version is unique
            last_unique_version = versions[0]

            # requested by Chris - Unique entries - Flag the first version appearing in the list
            # of versions as unique. This allows the calculation of experience points and levels
            self.__entries[last_unique_version]['is unique'] = True

            # Unique entries also store how many characters of code existed on that line
            self.__entries[last_unique_version]['code character count'] = len(line)

    def get_list_of_authors(self):
        """
        Generates an alphabetically sorted list of strings of all contributing names.
        :return: The list of names.
        """
        authors = list()
        for key, value in self.__entries.iteritems():
            if not value['author'] in authors:
                authors.append(value['author'])
        return sorted(authors)

    def get_list_of_versions(self, author):
        """
        :return: Generates a sorted list of all versions the specified author created.
        """
        versions = list()
        for key, value in self.__entries.iteritems():
            if value['author'] == author:
                versions.append(key)
        return sorted(versions)

    def get_list_of_unique_versions(self, author):
        """
        Generates a sorted list of all unique versions the specified author created.
        Unique versions are different from normal versions in that there is only ever
        one unique version per line of code, whereas there can be more than one version
        per line of code.
        :return: Returns a list of unique versions associated with the specified author.
        """
        unique_versions = list()
        for key, value in self.__entries.iteritems():
            if value['author'] == author and value['is unique']:
                unique_versions.append(key)
        return sorted(unique_versions)

    def get_code_character_count(self, author):
        """
        :return: Returns the total character count of the specified author.
        """
        count = 0
        for key, value in self.__entries.iteritems():
            if value['author'] == author and value['is unique']:
                count += value['code character count']
        return count

    def get_author_level(self, author):
        """
        Calculates and returns what level the specified author is.
        Formula used is: sqrt(unique_versions/1.25)
        """
        return int(math.floor(math.sqrt(len(self.get_list_of_unique_versions(author))/1.25)))

    def get_author_rank(self, level):
        """
        Looks up the rank (if any) for the specified level.
        :return: The rank string.
        """
        level = str(level)
        if level in self.__rank_names:
            return self.__rank_names[level]
        else:
            return "no rank exists for this level"

    def print_all_data(self):
        """
        Outputs all statistical data available.
        """
        print('sorted version list\n=====================')
        self.print_sorted_version_list()
        print('\ncontribution statistics\n====================================')
        self.print_contribution_statistics()
        print('\nauthor statistics\n======================')
        self.print_author_statistics()

    def print_sorted_version_list(self):
        """
        Outputs a sorted list of versions with the associated author and optional comments.
        """
        for key in sorted(self.__entries):
            print('{0}: {1:30}: "{2}"'.format(key, self.__entries[key]['author'], self.__entries[key]['comment']))

    def print_contribution_statistics(self):
        """
        Prints statistical data related to contribution.
        """
        for author in self.get_list_of_authors():
            print('{0:30}: contributed {1} versions, {2} unique versions, and a total of {3} characters of code'.format(
                    author,
                    len(self.get_list_of_versions(author)),
                    len(self.get_list_of_unique_versions(author)),
                    self.get_code_character_count(author)
            ))

    def print_author_statistics(self):
        """
        Prints statistical data related to the author himself/herself.
        """
        for author in self.get_list_of_authors():
            level = self.get_author_level(author)
            print('{0:30}: Level {1} - "{2}"'.format(
                    author,
                    level,
                    self.get_author_rank(level)
            ))


class TGCSniffer(object):

    def __init__(self, url):
        self.__url = url
        self.__page_urls = dict()
        self.__code_tag_open = False

        # parse initial page
        print 'loading initial page...'
        content = urllib.urlopen(url).read()
        self.__soup = BeautifulSoup(content)

        # generate a dictionary of urls
        url = re.sub('&p=[0-9]', '', url)
        for page in range(self.get_page_count()):
            self.__page_urls[str(page)] = url + '&p={0}'.format(page)

    def load_page(self, page_id):
        """
        Loads the specified page, starting from 1 (int).
        :param page_id: The page number to load.
        """
        print 'loading page {0}...'.format(page_id)
        content = urllib.urlopen(self.__page_urls[str(page_id-1)])
        self.__soup = BeautifulSoup(content)

    def get_latest_code_in_thread(self):
        """
        Will load the very last page in the thread, and scan backwards until it finds
        code with the highest version.
        :return: Returns a string containing the latest version of code in the thread.
        """
        # load last page in thread, and go backwards from there
        page_id = self.get_page_count()
        while True:
            self.load_page(page_id)
            code = self.get_latest_code_on_page()
            if not code is None:
                return code
            page_id -= 1

    def get_latest_code_on_page(self):
        """
        Scans the loaded page and returns the latest version of code. Note that
        this may not necessarily be the latest version of code in the entire thread.
        :return: A string containing the latest version of code on the page.
        If none is found, then None is returned.
        """
        latest_code = None
        latest_version = None
        # this is retarded, but it seems there is no easier way to detect wether something is a code snippet or not. This data is consistent with all snippets.
        code_snippet_flag = 'display: none; font-family: Courier New, Arial; font-size: 14px; color: black; border: 1px solid black; background-color: #fefefe; padding: 4px; text-overflow: ellipsis; word-wrap: break-word; line-height:13px;'
        for code in (pre.contents[0] for pre in self.__soup.find_all('pre') if ' '.join(pre.get('style').split()) == code_snippet_flag):
            version = self.extract_version_from_code(code)
            if not version is None:
                if latest_version is None or version > latest_version:
                    latest_version = version
                    latest_code = code
        return latest_code

    @staticmethod
    def extract_version_from_code(code):
        """
        Extracts the version from the header of the code. This assumes that
        the version is specified as:
            %Version 0.xxx%
        :return: If No version was found, None is returned, otherwise the text between
        the %% characters is returned.
        """
        lines_processed = 0
        for line in code.split('\n'):
            if not line.find('%') == -1 and not line.find('Version') == -1:
                return line.split('%')[1].strip()
            # give up after 10 lines - fixes accidentally reading this script
            # as being the latest version
            lines_processed += 1
            if lines_processed >= 10:
                return None
        return None

    def get_page_count(self):
        """
        Gets the total number of pages contained in the loaded thread.
        """
        # if dictionary is empty, we have to scan the HTML to find out
        # how many pages there are.
        if len(self.__page_urls) == 0:
            for i in self.__soup.find_all('input'):
                if i.get('name') == 'lastpage':
                    return int(i.get('value'))
            raise RuntimeError('Failed to get page count')
        else:
            return len(self.__page_urls)


if __name__ == '__main__':
    if len(sys.argv) > 1:
    	with open(sys.argv[1], 'rb') as f:
            stats = DBPGameStats(f)
    else:
        stats = DBPGameStats()
    stats.print_all_data()
    sys.exit(0)

if __name__ == '__main__':
    if len(sys.argv) > 1:
    	with open(sys.argv[1], 'rb') as f:
            stats = DBPGameStats(f) # < Here

#!/usr/bin/env python
# -*- coding: utf-8 -*-

__author__ = 'TheComet'


import sys
import math
import urllib
import re
import StringIO
from bs4 import BeautifulSoup   # use 'pip install beautifulsoup4' to install this module


class DBPGameStats(object):

    def __init__(self, stream=None):

    # define ranks - feel free to add more!
        self.__entries = dict()
        self.__rank_names = {
            '0': 'Total n00b',
            '1': 'You call that Programming?',
            '2': 'Colon Apprentice',
            '3': 'Programmer with no Life',
            '4': 'Fantastic Elastic Spastic',
            '5': 'Flowz with da Codez'
        }

        # see if we're getting the code from a stream or from the internetz
        if stream is None:
            default_url = 'http://forum.thegamecreators.com/?m=forum_view&t=211263&b=1'
            code = TGCSniffer(default_url).get_latest_code_in_thread()
            stream = StringIO.StringIO(code)

        # parse stream and extract all of the statistical data
        self.__extract(stream)

    def __extract(self, stream):
        """
        Internal method for extracting all of the statistical data from a stream
        containing the code.
        """
        valid_comment_qualifiers = ('rem', '`', '//')
        last_unique_version = ""
        for line in stream:
            
            # gets the string at the end of a line with all of the version info
            comment = ''
            for comment_qualifier in valid_comment_qualifiers:
                pos = line.rfind(comment_qualifier)
                if pos == -1:
                    continue
                comment = line[pos:].strip(' '+comment_qualifier)
                break

            # confirm comment is valid
            if any(comment.find(x) == -1 for x in '()'):
                # apparently it wasn't valid! Add the line character count to the last unique version
                if not last_unique_version == "":
                    self.__entries[last_unique_version]['code character count'] += len(line)
                continue

            # extract the name, version, and optional comment
            author = comment[:comment.find('(')].strip()
            versions = [x.strip() for x in comment[comment.find('(')+1:comment.find(')')].split(',')]
            comment = comment[comment.find(')')+1:].strip()

            # add exracted data to internal dictionary
            for version in versions:
                if not version in self.__entries:
                    self.__entries[version] = dict()
                self.__entries[version]['author'] = author
                self.__entries[version]['comment'] = comment
                self.__entries[version]['is unique'] = False
                self.__entries[version]['code character count'] = 0

            # only the first version is unique
            last_unique_version = versions[0]

            # requested by Chris - Unique entries - Flag the first version appearing in the list
            # of versions as unique. This allows the calculation of experience points and levels
            self.__entries[last_unique_version]['is unique'] = True

            # Unique entries also store how many characters of code existed on that line
            self.__entries[last_unique_version]['code character count'] = len(line)

    def get_list_of_authors(self):
        """
        Generates an alphabetically sorted list of strings of all contributing names.
        :return: The list of names.
        """
        authors = list()
        for key, value in self.__entries.iteritems():
            if not value['author'] in authors:
                authors.append(value['author'])
        return sorted(authors)

    def get_list_of_versions(self, author):
        """
        :return: Generates a sorted list of all versions the specified author created.
        """
        versions = list()
        for key, value in self.__entries.iteritems():
            if value['author'] == author:
                versions.append(key)
        return sorted(versions)

    def get_list_of_unique_versions(self, author):
        """
        Generates a sorted list of all unique versions the specified author created.
        Unique versions are different from normal versions in that there is only ever
        one unique version per line of code, whereas there can be more than one version
        per line of code.
        :return: Returns a list of unique versions associated with the specified author.
        """
        unique_versions = list()
        for key, value in self.__entries.iteritems():
            if value['author'] == author and value['is unique']:
                unique_versions.append(key)
        return sorted(unique_versions)

    def get_code_character_count(self, author):
        """
        :return: Returns the total character count of the specified author.
        """
        count = 0
        for key, value in self.__entries.iteritems():
            if value['author'] == author and value['is unique']:
                count += value['code character count']
        return count

    def get_author_level(self, author):
        """
        Calculates and returns what level the specified author is.
        Formula used is: sqrt(unique_versions/1.25)
        """
        return int(math.floor(math.sqrt(len(self.get_list_of_unique_versions(author))/1.25)))

    def get_author_rank(self, level):
        """
        Looks up the rank (if any) for the specified level.
        :return: The rank string.
        """
        level = str(level)
        if level in self.__rank_names:
            return self.__rank_names[level]
        else:
            return "no rank exists for this level"

    def print_all_data(self):
        """
        Outputs all statistical data available.
        """
        print('sorted version list\n=====================')
        self.print_sorted_version_list()
        print('\ncontribution statistics\n====================================')
        self.print_contribution_statistics()
        print('\nauthor statistics\n======================')
        self.print_author_statistics()

    def print_sorted_version_list(self):
        """
        Outputs a sorted list of versions with the associated author and optional comments.
        """
        for key in sorted(self.__entries):
            print('{0}: {1:30}: "{2}"'.format(key, self.__entries[key]['author'], self.__entries[key]['comment']))

    def print_contribution_statistics(self):
        """
        Prints statistical data related to contribution.
        """
        for author in self.get_list_of_authors():
            print('{0:30}: contributed {1} versions, {2} unique versions, and a total of {3} characters of code'.format(
                    author,
                    len(self.get_list_of_versions(author)),
                    len(self.get_list_of_unique_versions(author)),
                    self.get_code_character_count(author)
            ))

    def print_author_statistics(self):
        """
        Prints statistical data related to the author himself/herself.
        """
        for author in self.get_list_of_authors():
            level = self.get_author_level(author)
            print('{0:30}: Level {1} - "{2}"'.format(
                    author,
                    level,
                    self.get_author_rank(level)
            ))


class TGCSniffer(object):

    def __init__(self, url):
        self.__url = url
        self.__page_urls = dict()
        self.__code_tag_open = False

        # parse initial page
        print 'loading initial page...'
        content = urllib.urlopen(url).read()
        self.__soup = BeautifulSoup(content)

        # generate a dictionary of urls
        url = re.sub('&p=[0-9]', '', url)
        for page in range(self.get_page_count()):
            self.__page_urls[str(page)] = url + '&p={0}'.format(page)

    def load_page(self, page_id):
        """
        Loads the specified page, starting from 1 (int).
        :param page_id: The page number to load.
        """
        print 'loading page {0}...'.format(page_id)
        content = urllib.urlopen(self.__page_urls[str(page_id-1)])
        self.__soup = BeautifulSoup(content)

    def get_latest_code_in_thread(self):
        """
        Will load the very last page in the thread, and scan backwards until it finds
        code with the highest version.
        :return: Returns a string containing the latest version of code in the thread.
        """
        # load last page in thread, and go backwards from there
        page_id = self.get_page_count()
        while True:
            self.load_page(page_id)
            code = self.get_latest_code_on_page()
            if not code is None:
                return code
            page_id -= 1

    def get_latest_code_on_page(self):
        """
        Scans the loaded page and returns the latest version of code. Note that
        this may not necessarily be the latest version of code in the entire thread.
        :return: A string containing the latest version of code on the page.
        If none is found, then None is returned.
        """
        latest_code = None
        latest_version = None
        # this is retarded, but it seems there is no easier way to detect wether something is a code snippet or not. This data is consistent with all snippets.
        code_snippet_flag = 'display: none; font-family: Courier New, Arial; font-size: 14px; color: black; border: 1px solid black; background-color: #fefefe; padding: 4px; text-overflow: ellipsis; word-wrap: break-word; line-height:13px;'
        for code in (pre.contents[0] for pre in self.__soup.find_all('pre') if ' '.join(pre.get('style').split()) == code_snippet_flag):
            version = self.extract_version_from_code(code)
            if not version is None:
                if latest_version is None or version > latest_version:
                    latest_version = version
                    latest_code = code
        return latest_code

    @staticmethod
    def extract_version_from_code(code):
        """
        Extracts the version from the header of the code. This assumes that
        the version is specified as:
            %Version 0.xxx%
        :return: If No version was found, None is returned, otherwise the text between
        the %% characters is returned.
        """
        lines_processed = 0
        for line in code.split('\n'):
            if not line.find('%') == -1 and not line.find('Version') == -1:
                return line.split('%')[1].strip()
            # give up after 10 lines - fixes accidentally reading this script
            # as being the latest version
            lines_processed += 1
            if lines_processed >= 10:
                return None
        return None

    def get_page_count(self):
        """
        Gets the total number of pages contained in the loaded thread.
        """
        # if dictionary is empty, we have to scan the HTML to find out
        # how many pages there are.
        if len(self.__page_urls) == 0:
            for i in self.__soup.find_all('input'):
                if i.get('name') == 'lastpage':
                    return int(i.get('value'))
            raise RuntimeError('Failed to get page count')
        else:
            return len(self.__page_urls)


if __name__ == '__main__':
    if len(sys.argv) > 1:
        with open(sys.argv[1], 'rb') as f:
            stats = DBPGameStats(f)
    else:
        stats = DBPGameStats()
    stats.print_all_data()
    sys.exit(0)

1) Installed python 2.7.7
2) downloaded and installed pip (you're here)
3) Added "C:\Python27\Scripts" to windows PATH (start->right-click Computer->properties->advanced system settings->Environment Variables, add "C:\Python27\Scripts" to "PATH")
4) Click OK to everything
5) Open windows command prompt and type "pip install beautifulsoup4"

`%Project 'Untitled'%
`%Version 0.040%
`======================
Type ItemType rem Chris Tate( v0.007,v0.022) - Type in progress...
  Name$
  Price#
  Owner
  Image
  Object
  Description$
  Action
  BuildUpDelay
  MinimumExperienceLevel
Endtype

Global Dim Items() as ItemType rem Chris Tate (v0.035) - Items for the characters, enemies and who knows what

Type BitMap_Pixel_Type Color As Integer, View As Byte EndType : Global Dim BitMap_Buffer(800,600) As BitMap_Pixel_Type rem VisualProg (v0.017) - this bitmap container, from 2D graphics
Global kernel32dll=1 : load dll "kernel32.dll",kernel32dll rem VisualProg (v0.038) kernel for sound

goto _jmp_finalFunctionBlock0001 rem VisualProg (v0.009) - form the space for code
        function printf(arg_x,arg_y,arg_str$,arg_color) : ink arg_color,0 : text arg_x,arg_y,arg_str$: rem VisualProg (v0.015,v0.027)
        endfunction
        function printBitMap(posx,posy,width,height) : for y=0 to height : for x=0 to width : BitMap_Buffer(x,y).View=0x30 : printf(posx*4+x*4,posy*4+y*4,chr$(BitMap_Buffer(x,y).View),BitMap_Buffer(x,y).Color) : next x : next y: rem VisualProg (v0.021,v0.029) out BitMap to [x,y] read size [width,height]
        endfunction
        function hexToInt(arg_hex$) :local result as integer:result=0:for i=1 to len(arg_hex$):char$=(mid$(arg_hex$,i)):if (char$="1"):inc result,0x01*16^(len(arg_hex$)-i):endif:if (char$="2"):inc result,0x02*16^(len(arg_hex$)-i):endif:if (char$="3"):inc result,0x03*16^(len(arg_hex$)-i):endif:if (char$="4"):inc result,0x04*16^(len(arg_hex$)-i):endif:if (char$="5"):inc result,0x05*16^(len(arg_hex$)-i):endif:if (char$="6"):inc result,0x06*16^(len(arg_hex$)-i):endif:if (char$="7"):inc result,0x07*16^(len(arg_hex$)-i):endif:if (char$="8"):inc result,0x08*16^(len(arg_hex$)-i):endif:if (char$="9"):inc result,0x09*16^(len(arg_hex$)-i):endif:if (char$="A"):inc result,0x0A*16^(len(arg_hex$)-i):endif:if (char$="B"):inc result,0x0B*16^(len(arg_hex$)-i):endif:if (char$="C"):inc result,0x0C*16^(len(arg_hex$)-i):endif:if (char$="D"):inc result,0x0D*16^(len(arg_hex$)-i):endif:if (char$="E"):inc result,0x0E*16^(len(arg_hex$)-i):endif:if (char$="F"):inc result,0x0F*16^(len(arg_hex$)-i):endif:next i:rem VisualProg (v0.023) convert for loading TextBitMap
        endfunction result
        function loadBitMap12BitFromMemory(arg_bin$) :color=0 : x=-1 : y=0:repeat:if (left$(arg_bin$,1)="\"):inc y :  x=-1 : arg_bin$=right$(arg_bin$,len(arg_bin$)-1):else:if (left$(arg_bin$,1)="~"):inc x : BitMap_Buffer(x,y).Color=oldcolor : arg_bin$=right$(arg_bin$,len(arg_bin$)-1):else:inc x : tmp$=left$(arg_bin$,3) : color=rgb(hexToInt(mid$(tmp$,1))*0x0F,hexToInt(mid$(tmp$,2))*0x0F,hexToInt(mid$(tmp$,3))*0x0F) : BitMap_Buffer(x,y).Color=color : arg_bin$=right$(arg_bin$,len(arg_bin$)-3) : oldColor=color:endif:endif:until (len(arg_bin$)<3): rem VisualProg (v0.025) loading TextBitMap12Bit
        endfunction
                function Beep(dwFreq,dwDuration) : call dll kernel32dll,"Beep",dwFreq,dwDuration rem VisualProg (v0.036) sound beep
                endfunction
_jmp_finalFunctionBlock0001: rem VisualProg (v0.006) - start program. Above will be functions
rem TheComet (v0.005, v0.032) - (DEPRECATED) Use this to add new lines inside print statements, e.g. "this line"+nl+"is over this line"

Global CharacterName$ = "Mysterious Outlander" rem Chris Tate (v0.001)
Global CharacterPositionX#=0.0, CharacterPositionY#=0.0, CharacterPositionZ#=0.0 rem VisualProg (v0.002)
printa("{w}You, "+CharacterName$+", push open the shabby doors of the town's inn and\nenter. The dry desert dust flows around you dramatically, highlighted by the\nrays of the setting sun. The desolate chatter of drunk emotions ceases to be,\nas all eyes set on you. "+chr$(34)+"{r}What be your name, stranger?{w}"+chr$(34)+"\nthe bartender asks from across the room.{g}"):input "Enter your name ->", CharacterName$ : rem TheComet (v0.003, v0.008, v0.026) Fixed new lines, now uses printa instead of print
_try_again_idiot: rem TheComet (v0.010) For when the player is too stupid to press the given keys
For i = 1 to 4 : Print : Next i : Ink RGB(0,255,0),0 : Print "Greetings " + CharacterName$ + ", what be the purpose of your visit? " : Wait 2000 : Input "Enter reply > [D] 'Give me a drink' [S] 'Tell me a story' [W] 'I need work' [G]'I have something to give to you' "; option$ ` Chris Tate (v0.004,v0.011) Move input down a bit

Select Upper$(option$) rem Chris Tate (v0.013) Bartender reply
  Case "D" `----------------------- 
    if (trigger_drink=0) then gosub _option_drink : global trigger_drink=1 : loadBitMap12BitFromMemory(Images_TextBitMap12Bit_GlassOfBeer$) : cls 0 : printBitMap(110,70,34,39) : set cursor 0,0 : gosub _try_again_idiot : else : printa("{w}[*You already have a drink!*]") : gosub _try_again_idiot rem VisualProg (v0.033) drink
  Endcase
  Case "G" `-----------------------
    rem Gosub _something_to_give_bartender_at_start Chris Tate (v0.037) Preparing story branch related to giving the bartender something
  Endcase                       
  Case "W" `-----------------------
                
  Endcase
  Case "S" `-----------------------
                        
  Endcase
  Case Default
    cls 0:set cursor 0,0:printa("{r}"+chr$(34)+"Bahahahaaa!"+chr$(34)+"{w} the bartender bellowed. {r}"+chr$(34)+"Your brain cavity wouldn't\nmake a drinkin' cup for a canary!"+chr$(34)+"{w}"):goto _try_again_idiot : rem TheComet(v0.014, v0.020, v0.028) - Looks like the player is too stupid - added insults
  Endcase
Endselect
printa("{l}Thank you for playing! This is the End!"):wait key:end : rem TheComet (v0.030) Not trollling - if execution reaches here, it's time to exit (as to not flow into functions and subroutines)
_option_drink: rem TheComet(v0.012) The character chose a drink!
Global Images_TextBitMap12Bit_GlassOfBeer$ = "000~~~222665999~888777~~877888988~A99999777555443333111000~~~~~~~~~~~FFF\000~~444BBBEEE~~EED~~~~~EDD~~EEDEDDDDCCCBBAA988444000~~~~~~~~~~FFF\000~333CCBEEE~EED~EEEEEDEDDDDDDCCCCBCBA~~~~~~~~AA9221000~~~~~~~~~FFF\000~555DCCEEDEEEEEDDDDDDCCCBBBABA8A97A87986976875~~865~875~876433000~~~~~~~~~FFF\000~333CBBEDD~~DDCCCBCB9A97A86986976975875864753~~~~653764222000~~~~~~~~~FFF\000~333CCBEDD~~DDCCCBBA9A87986~976875865764754753~653~~764111000~~~~~~~~~FFF\000~443CCBEDD~~DDDCCBBA9A86986~976875865764754653~~~654764111000~~~~~~~~~FFF\000~333CBBEDD~~~CCBBA8A86986~876875865764754654653~~~654333000~~~~~~~~~FFF\000~333CBBEDDDDDEDD~CCBB98986~976876865765764754654653654653654~665888777767666~555333111000~FFF\000~333BBBDDD~EDD~CCBB98986976~875865765754654~653~~654~887EEE~~~~EDDDDD888222000FFF\000~444BBBDDC~DDD~CBBA98975875~~865765754654643~~~653654766AAABABAAA~~~CCCEEE888111FFF\000~443AA9BBACBADCBDDDCBA986864863864863~853753743742642~643~~544111~222~~333766CCC~333FFF\000~332643842951C96DCCBA9B84E91~~E81D81~D71C61B61A51940840741742333000~~~~~333AAADDD444FFF\000~332642841A51C95DCCB98C83E91~~~E81~D71~C61B50A50940840741332000~~~~~333BBBCCC333FFF\000~433642841A61C94DCBA87C82E91~E90E91E81E91E80~D60C60A50940840741332000~~~~~444CCCCBB222FFF\000~432642841A61C83CB9B86D81E91EA0FA0E91~E81E80~C70C60A50950840741433000~~~~~555DDDBAA111FFF\000~432642841A61D82DA6C94EA1~FA0~~E81~~D81C70C60A50950840741433000~~~~~666EEEAA9111FFF\000~432642841B61D81EA2E91EA1~FA0E91FA0~E91E80D80D70C60B50950840741433000~~~~111777EEE888000FFF\000~432642841B61D81EA2~EA1E91~E90FA0~F90E90E80D70C60B50950840741432000~~~~111888EEE777000FFF\000~433742851B71D81EA2~EA1~FA0~E91EA0FA0E90E81D81C61B50A50940741643000~~~~222999EEE666000FFF\000~432742841B71E92EA2EA1~EA0~E90E81E90~~D70~~B60A50841~653000~~~~333BBBDDD444000FFF\000~543752851B72D92E91D81~E90E91E81E80E90E80~C60~D70B61A51951851653000~~~~444CCBDDD333000FFF\000~543864A62B72C82D92D81~E80E91E80E90~E70E90D70C61C81A51A61962A73753000~~~~554DDCCCC222000FFF\000111544975A73C83C72D92D81E90E91~E80FA0~D71E90D70C61C81A51B72A62B83764000~~~~655DDDBBB111000FFF\000110654A86A83C82C72D92E81E90EA1E91E80E91E81D70E91D71B61D91A51B72A62A83864000~~~111777EEEAAA000~FFF\000111654975B83B72C82D92E91E90E91EA1E90E91~D70D81~C61D91A51B72A62A73864000~~~111888EEE888000~FFF\000111654974B83B72C82D92D81E80E81E91E90~E91D70E80C71C61D91A51B72A62A84864000~~~222A99FFE666000~FFF\000111654974B83B72~D92E81E90E91~E90~~D70E81C71C61C81A51B72A62B95864111000~~444BBBEEE444000~FFF\000111654975B83B72~D82E81~E91~E80~E90D70C71D71C61C81A51B72A62B94864222111434767A99EEDDDD111000~FFF\000111654974B83B72C82D82D81E91E90E91E90~F90D70D81D70C61B71A51B72A62A73963987A99BBBDDDEEEDDD777000~~FFF\000111654974B83B71C82~E81E90E91~E80E90E80D70E80D70C61C81951A62A72973974CBAEEE~CCC999545111000~~FFF\000211665974B83B72C81D81E81E80E90E81E80~~D70D71~C61C71A51A62962974~BA8999666222111000~~~~FFF\000211654864A83A62B71C81D71D80E80~~~~D70~C70B61C71951A61962874875443000~~~~~~~~FFF\000221654653863852951A62A51B50B61~B60~B50A50B61A50A40A50841851852875~111000~~~~~~~~FFF\000222654643754853863963A62A51~~A61A51A50951~A51941951852863865876766222000~~~~~~~~FFF\000433543544766876987~A97~B98B97A86B97~~A87~987A87765~~665765444000~~~~~~~~FFF\000443433543654766877998BAACBADCBCCBDCBDDCDCC~BBABAA998887766665654665655333000~~~~~~~~FFF\000111333543654653764875976975A86~~~~~976975865864754753754654333000~~~~~~~~~FFF\000~~111433432643754986A86A75A86A75A86~A76976864753653543433222000~~~~~~~~~~~FFF\000~~~332433655766A98~A97B98A97~A98A87987876765655443333111000~~~~~~~~~~~FFF\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\" rem VisualProg (v0.031) - image beer
  Cls : For i = 1 to 20 : Wait 20  : beerColour = Rgb(i*10,i*6,i*(5*(i>17))) : Box 0, Screen Height()-((i*1.0)*Screen Height()/25), Screen Width(), Screen Height()-(((i+1)*1.0)*Screen Height()/25), beerColour, beerColour , beerColour, beerColour  : Next i : Wait 1000 rem Chris Tate (v0.016,v0.018,v0.019) - Background transition indicating the filling of beer; version 0.016; Had to reinsert because the code was incorrectly altered
Return ` You can now close your labels in the same entry
_option_tell_story: rem TheComet(v0.034) User chose for bartender to tell a story!
return
function printa(s$) :for p=0 to len(s$):c$=right$(left$(s$,p),1):if c$="{":for p2=p+1 to len(s$):c2$=right$(left$(s$,p2),1):if c2$="}":exit:endif:next p2:dec p2,1:c$=right$(left$(s$,p2),p2-p):p=p2+1:if len(c$)>1:ink hexToInt(c$),0:else:if lower$(c$)="r":ink 0xFFFF0000,0:endif:if lower$(c$)="g":ink 0xFF00FF00,0:endif:if lower$(c$)="b":ink 0xFF0000FF,0:endif:if lower$(c$)="y":ink 0xFFFFFF00,0:endif:if lower$(c$)="l":ink 0xFF00FFFF,0:endif:if lower$(c$)="m":ink 0xFFFF00FF,0:endif:if lower$(c$)="w":ink 0xFFFFFFFF,0:endif:endif:c$="":endif:if c$="\":inc p:if right$(left$(s$,p),1)="n":print :endif:c$="":endif:printc c$:next p:print : rem TheComet (v0.024) printa supports colour changes mid-sentence, and doesn't screw up DBPs internal cursor when mixing with newlines. "nl" IS DEPRECATED. Colours are specified between {} brackets, w=white, r=red, g=green, b=blue, y=yellow, m=magenta, l=lightblue. You may also specify a CAPITAL hex value, e.g. {FF00FFFF}. New lines are specified with \n.
endfunction

_something_to_give_bartender_at_start: rem Chris Tate(v0.039) Added 'I have something to give to you' story path sub routine
        
Return
_option_i_need_work: rem TheComet(v0.040) User chose for bartender to give him work
return

`%Project 'Untitled'%
`%Version 0.041%
`======================
Type ItemType rem Chris Tate( v0.007,v0.022) - Type in progress...
  Name$
  Price#
  Owner
  Image
  Object
  Description$
  Action
  BuildUpDelay
  MinimumExperienceLevel
Endtype

Global Dim Items() as ItemType rem Chris Tate (v0.035) - Items for the characters, enemies and who knows what

Type BitMap_Pixel_Type Color As Integer, View As Byte EndType : Global Dim BitMap_Buffer(800,600) As BitMap_Pixel_Type rem VisualProg (v0.017) - this bitmap container, from 2D graphics
Global kernel32dll=1 : load dll "kernel32.dll",kernel32dll rem VisualProg (v0.038) kernel for sound

goto _jmp_finalFunctionBlock0001 rem VisualProg (v0.009) - form the space for code
        function printf(arg_x,arg_y,arg_str$,arg_color) : ink arg_color,0 : text arg_x,arg_y,arg_str$: rem VisualProg (v0.015,v0.027)
        endfunction
        function printBitMap(posx,posy,width,height) : for y=0 to height : for x=0 to width : BitMap_Buffer(x,y).View=0x30 : printf(posx*4+x*4,posy*4+y*4,chr$(BitMap_Buffer(x,y).View),BitMap_Buffer(x,y).Color) : next x : next y: rem VisualProg (v0.021,v0.029) out BitMap to [x,y] read size [width,height]
        endfunction
        function hexToInt(arg_hex$) :local result as integer:result=0:for i=1 to len(arg_hex$):char$=(mid$(arg_hex$,i)):if (char$="1"):inc result,0x01*16^(len(arg_hex$)-i):endif:if (char$="2"):inc result,0x02*16^(len(arg_hex$)-i):endif:if (char$="3"):inc result,0x03*16^(len(arg_hex$)-i):endif:if (char$="4"):inc result,0x04*16^(len(arg_hex$)-i):endif:if (char$="5"):inc result,0x05*16^(len(arg_hex$)-i):endif:if (char$="6"):inc result,0x06*16^(len(arg_hex$)-i):endif:if (char$="7"):inc result,0x07*16^(len(arg_hex$)-i):endif:if (char$="8"):inc result,0x08*16^(len(arg_hex$)-i):endif:if (char$="9"):inc result,0x09*16^(len(arg_hex$)-i):endif:if (char$="A"):inc result,0x0A*16^(len(arg_hex$)-i):endif:if (char$="B"):inc result,0x0B*16^(len(arg_hex$)-i):endif:if (char$="C"):inc result,0x0C*16^(len(arg_hex$)-i):endif:if (char$="D"):inc result,0x0D*16^(len(arg_hex$)-i):endif:if (char$="E"):inc result,0x0E*16^(len(arg_hex$)-i):endif:if (char$="F"):inc result,0x0F*16^(len(arg_hex$)-i):endif:next i:rem VisualProg (v0.023) convert for loading TextBitMap
        endfunction result
        function loadBitMap12BitFromMemory(arg_bin$) :color=0 : x=-1 : y=0:repeat:if (left$(arg_bin$,1)="\"):inc y :  x=-1 : arg_bin$=right$(arg_bin$,len(arg_bin$)-1):else:if (left$(arg_bin$,1)="~"):inc x : BitMap_Buffer(x,y).Color=oldcolor : arg_bin$=right$(arg_bin$,len(arg_bin$)-1):else:inc x : tmp$=left$(arg_bin$,3) : color=rgb(hexToInt(mid$(tmp$,1))*0x0F,hexToInt(mid$(tmp$,2))*0x0F,hexToInt(mid$(tmp$,3))*0x0F) : BitMap_Buffer(x,y).Color=color : arg_bin$=right$(arg_bin$,len(arg_bin$)-3) : oldColor=color:endif:endif:until (len(arg_bin$)<3): rem VisualProg (v0.025) loading TextBitMap12Bit
        endfunction
                function Beep(dwFreq,dwDuration) : call dll kernel32dll,"Beep",dwFreq,dwDuration rem VisualProg (v0.036) sound beep
                endfunction
_jmp_finalFunctionBlock0001: rem VisualProg (v0.006) - start program. Above will be functions
rem TheComet (v0.005, v0.032) - (DEPRECATED) Use this to add new lines inside print statements, e.g. "this line"+nl+"is over this line"

Global CharacterName$ = "Mysterious Outlander" rem Chris Tate (v0.001)
Global CharacterPositionX#=0.0, CharacterPositionY#=0.0, CharacterPositionZ#=0.0 rem VisualProg (v0.002)
printa("{w}You, "+CharacterName$+", push open the shabby doors of the town's inn and\nenter. The dry desert dust flows around you dramatically, highlighted by the\nrays of the setting sun. The desolate chatter of drunk emotions ceases to be,\nas all eyes set on you. "+chr$(34)+"{r}What be your name, stranger?{w}"+chr$(34)+"\nthe bartender asks from across the room.{g}"):input "Enter your name ->", CharacterName$ : rem TheComet (v0.003, v0.008, v0.026) Fixed new lines, now uses printa instead of print
_try_again_idiot: rem TheComet (v0.010) For when the player is too stupid to press the given keys
For i = 1 to 4 : Print : Next i : Ink RGB(0,255,0),0 : Print "Greetings " + CharacterName$ + ", what be the purpose of your visit? " : Wait 2000 : Input "Enter reply > [D] 'Give me a drink' [S] 'Tell me a story' [W] 'I need work' [G]'I have something to give to you' "; option$ ` Chris Tate (v0.004,v0.011) Move input down a bit

Select Upper$(option$) rem Chris Tate (v0.013) Bartender reply
  Case "D" `----------------------- 
    if (trigger_drink=0) then gosub _option_drink : global trigger_drink=1 : loadBitMap12BitFromMemory(Images_TextBitMap12Bit_GlassOfBeer$) : cls 0 : printBitMap(110,70,34,39) : set cursor 0,0 : gosub _try_again_idiot : else : printa("{w}[*You already have a drink!*]") : gosub _try_again_idiot rem VisualProg (v0.033) drink
  Endcase
  Case "G" `-----------------------
    Gosub _something_to_give_bartender_at_start rem Chris Tate (v0.037,v0.041) Story branch related to giving the bartender something
  Endcase                       
  Case "W" `-----------------------
                
  Endcase
  Case "S" `-----------------------
                        
  Endcase
  Case Default
    cls 0:set cursor 0,0:printa("{r}"+chr$(34)+"Bahahahaaa!"+chr$(34)+"{w} the bartender bellowed. {r}"+chr$(34)+"Your brain cavity wouldn't\nmake a drinkin' cup for a canary!"+chr$(34)+"{w}"):goto _try_again_idiot : rem TheComet(v0.014, v0.020, v0.028) - Looks like the player is too stupid - added insults
  Endcase
Endselect

printa("{l}Thank you for playing! This is the End!"):wait key:end : rem TheComet (v0.030) Not trollling - if execution reaches here, it's time to exit (as to not flow into functions and subroutines)

_option_drink: rem TheComet(v0.012) The character chose a drink!
Global Images_TextBitMap12Bit_GlassOfBeer$ = "000~~~222665999~888777~~877888988~A99999777555443333111000~~~~~~~~~~~FFF\000~~444BBBEEE~~EED~~~~~EDD~~EEDEDDDDCCCBBAA988444000~~~~~~~~~~FFF\000~333CCBEEE~EED~EEEEEDEDDDDDDCCCCBCBA~~~~~~~~AA9221000~~~~~~~~~FFF\000~555DCCEEDEEEEEDDDDDDCCCBBBABA8A97A87986976875~~865~875~876433000~~~~~~~~~FFF\000~333CBBEDD~~DDCCCBCB9A97A86986976975875864753~~~~653764222000~~~~~~~~~FFF\000~333CCBEDD~~DDCCCBBA9A87986~976875865764754753~653~~764111000~~~~~~~~~FFF\000~443CCBEDD~~DDDCCBBA9A86986~976875865764754653~~~654764111000~~~~~~~~~FFF\000~333CBBEDD~~~CCBBA8A86986~876875865764754654653~~~654333000~~~~~~~~~FFF\000~333CBBEDDDDDEDD~CCBB98986~976876865765764754654653654653654~665888777767666~555333111000~FFF\000~333BBBDDD~EDD~CCBB98986976~875865765754654~653~~654~887EEE~~~~EDDDDD888222000FFF\000~444BBBDDC~DDD~CBBA98975875~~865765754654643~~~653654766AAABABAAA~~~CCCEEE888111FFF\000~443AA9BBACBADCBDDDCBA986864863864863~853753743742642~643~~544111~222~~333766CCC~333FFF\000~332643842951C96DCCBA9B84E91~~E81D81~D71C61B61A51940840741742333000~~~~~333AAADDD444FFF\000~332642841A51C95DCCB98C83E91~~~E81~D71~C61B50A50940840741332000~~~~~333BBBCCC333FFF\000~433642841A61C94DCBA87C82E91~E90E91E81E91E80~D60C60A50940840741332000~~~~~444CCCCBB222FFF\000~432642841A61C83CB9B86D81E91EA0FA0E91~E81E80~C70C60A50950840741433000~~~~~555DDDBAA111FFF\000~432642841A61D82DA6C94EA1~FA0~~E81~~D81C70C60A50950840741433000~~~~~666EEEAA9111FFF\000~432642841B61D81EA2E91EA1~FA0E91FA0~E91E80D80D70C60B50950840741433000~~~~111777EEE888000FFF\000~432642841B61D81EA2~EA1E91~E90FA0~F90E90E80D70C60B50950840741432000~~~~111888EEE777000FFF\000~433742851B71D81EA2~EA1~FA0~E91EA0FA0E90E81D81C61B50A50940741643000~~~~222999EEE666000FFF\000~432742841B71E92EA2EA1~EA0~E90E81E90~~D70~~B60A50841~653000~~~~333BBBDDD444000FFF\000~543752851B72D92E91D81~E90E91E81E80E90E80~C60~D70B61A51951851653000~~~~444CCBDDD333000FFF\000~543864A62B72C82D92D81~E80E91E80E90~E70E90D70C61C81A51A61962A73753000~~~~554DDCCCC222000FFF\000111544975A73C83C72D92D81E90E91~E80FA0~D71E90D70C61C81A51B72A62B83764000~~~~655DDDBBB111000FFF\000110654A86A83C82C72D92E81E90EA1E91E80E91E81D70E91D71B61D91A51B72A62A83864000~~~111777EEEAAA000~FFF\000111654975B83B72C82D92E91E90E91EA1E90E91~D70D81~C61D91A51B72A62A73864000~~~111888EEE888000~FFF\000111654974B83B72C82D92D81E80E81E91E90~E91D70E80C71C61D91A51B72A62A84864000~~~222A99FFE666000~FFF\000111654974B83B72~D92E81E90E91~E90~~D70E81C71C61C81A51B72A62B95864111000~~444BBBEEE444000~FFF\000111654975B83B72~D82E81~E91~E80~E90D70C71D71C61C81A51B72A62B94864222111434767A99EEDDDD111000~FFF\000111654974B83B72C82D82D81E91E90E91E90~F90D70D81D70C61B71A51B72A62A73963987A99BBBDDDEEEDDD777000~~FFF\000111654974B83B71C82~E81E90E91~E80E90E80D70E80D70C61C81951A62A72973974CBAEEE~CCC999545111000~~FFF\000211665974B83B72C81D81E81E80E90E81E80~~D70D71~C61C71A51A62962974~BA8999666222111000~~~~FFF\000211654864A83A62B71C81D71D80E80~~~~D70~C70B61C71951A61962874875443000~~~~~~~~FFF\000221654653863852951A62A51B50B61~B60~B50A50B61A50A40A50841851852875~111000~~~~~~~~FFF\000222654643754853863963A62A51~~A61A51A50951~A51941951852863865876766222000~~~~~~~~FFF\000433543544766876987~A97~B98B97A86B97~~A87~987A87765~~665765444000~~~~~~~~FFF\000443433543654766877998BAACBADCBCCBDCBDDCDCC~BBABAA998887766665654665655333000~~~~~~~~FFF\000111333543654653764875976975A86~~~~~976975865864754753754654333000~~~~~~~~~FFF\000~~111433432643754986A86A75A86A75A86~A76976864753653543433222000~~~~~~~~~~~FFF\000~~~332433655766A98~A97B98A97~A98A87987876765655443333111000~~~~~~~~~~~FFF\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\" rem VisualProg (v0.031) - image beer
  Cls : For i = 1 to 20 : Wait 20  : beerColour = Rgb(i*10,i*6,i*(5*(i>17))) : Box 0, Screen Height()-((i*1.0)*Screen Height()/25), Screen Width(), Screen Height()-(((i+1)*1.0)*Screen Height()/25), beerColour, beerColour , beerColour, beerColour  : Next i : Wait 1000 rem Chris Tate (v0.016,v0.018,v0.019) - Background transition indicating the filling of beer; version 0.016; Had to reinsert because the code was incorrectly altered
Return ` You can now close your labels in the same entry

_option_tell_story: rem TheComet(v0.034) User chose for bartender to tell a story!
return

function printa(s$) :for p=0 to len(s$):c$=right$(left$(s$,p),1):if c$="{":for p2=p+1 to len(s$):c2$=right$(left$(s$,p2),1):if c2$="}":exit:endif:next p2:dec p2,1:c$=right$(left$(s$,p2),p2-p):p=p2+1:if len(c$)>1:ink hexToInt(c$),0:else:if lower$(c$)="r":ink 0xFFFF0000,0:endif:if lower$(c$)="g":ink 0xFF00FF00,0:endif:if lower$(c$)="b":ink 0xFF0000FF,0:endif:if lower$(c$)="y":ink 0xFFFFFF00,0:endif:if lower$(c$)="l":ink 0xFF00FFFF,0:endif:if lower$(c$)="m":ink 0xFFFF00FF,0:endif:if lower$(c$)="w":ink 0xFFFFFFFF,0:endif:endif:c$="":endif:if c$="\":inc p:if right$(left$(s$,p),1)="n":print :endif:c$="":endif:printc c$:next p:print : rem TheComet (v0.024) printa supports colour changes mid-sentence, and doesn't screw up DBPs internal cursor when mixing with newlines. "nl" IS DEPRECATED. Colours are specified between {} brackets, w=white, r=red, g=green, b=blue, y=yellow, m=magenta, l=lightblue. You may also specify a CAPITAL hex value, e.g. {FF00FFFF}. New lines are specified with \n.
endfunction

_something_to_give_bartender_at_start: rem Chris Tate(v0.039) Added 'I have something to give to you' story path sub routine
        
Return
_option_i_need_work: rem TheComet(v0.040) User chose for bartender to give him work
return

`%Project 'Untitled'%
`%Version 0.042%
`======================
Type ItemType rem Chris Tate( v0.007,v0.022) - Type in progress...
  Name$
  Price#
  Owner
  Image
  Object
  Description$
  Action
  BuildUpDelay
  MinimumExperienceLevel
Endtype

Global Dim Items() as ItemType rem Chris Tate (v0.035) - Items for the characters, enemies and who knows what

Type BitMap_Pixel_Type Color As Integer, View As Byte EndType : Global Dim BitMap_Buffer(800,600) As BitMap_Pixel_Type rem VisualProg (v0.017) - this bitmap container, from 2D graphics
Global kernel32dll=1 : load dll "kernel32.dll",kernel32dll rem VisualProg (v0.038) kernel for sound

goto _jmp_finalFunctionBlock0001 rem VisualProg (v0.009) - form the space for code
        function printf(arg_x,arg_y,arg_str$,arg_color) : ink arg_color,0 : text arg_x,arg_y,arg_str$: rem VisualProg (v0.015,v0.027)
        endfunction
        function printBitMap(posx,posy,width,height) : for y=0 to height : for x=0 to width : BitMap_Buffer(x,y).View=0x30 : printf(posx*4+x*4,posy*4+y*4,chr$(BitMap_Buffer(x,y).View),BitMap_Buffer(x,y).Color) : next x : next y: rem VisualProg (v0.021,v0.029) out BitMap to [x,y] read size [width,height]
        endfunction
        function hexToInt(arg_hex$) :local result as integer:result=0:for i=1 to len(arg_hex$):char$=(mid$(arg_hex$,i)):if (char$="1"):inc result,0x01*16^(len(arg_hex$)-i):endif:if (char$="2"):inc result,0x02*16^(len(arg_hex$)-i):endif:if (char$="3"):inc result,0x03*16^(len(arg_hex$)-i):endif:if (char$="4"):inc result,0x04*16^(len(arg_hex$)-i):endif:if (char$="5"):inc result,0x05*16^(len(arg_hex$)-i):endif:if (char$="6"):inc result,0x06*16^(len(arg_hex$)-i):endif:if (char$="7"):inc result,0x07*16^(len(arg_hex$)-i):endif:if (char$="8"):inc result,0x08*16^(len(arg_hex$)-i):endif:if (char$="9"):inc result,0x09*16^(len(arg_hex$)-i):endif:if (char$="A"):inc result,0x0A*16^(len(arg_hex$)-i):endif:if (char$="B"):inc result,0x0B*16^(len(arg_hex$)-i):endif:if (char$="C"):inc result,0x0C*16^(len(arg_hex$)-i):endif:if (char$="D"):inc result,0x0D*16^(len(arg_hex$)-i):endif:if (char$="E"):inc result,0x0E*16^(len(arg_hex$)-i):endif:if (char$="F"):inc result,0x0F*16^(len(arg_hex$)-i):endif:next i:rem VisualProg (v0.023) convert for loading TextBitMap
        endfunction result
        function loadBitMap12BitFromMemory(arg_bin$) :color=0 : x=-1 : y=0:repeat:if (left$(arg_bin$,1)="\"):inc y :  x=-1 : arg_bin$=right$(arg_bin$,len(arg_bin$)-1):else:if (left$(arg_bin$,1)="~"):inc x : BitMap_Buffer(x,y).Color=oldcolor : arg_bin$=right$(arg_bin$,len(arg_bin$)-1):else:inc x : tmp$=left$(arg_bin$,3) : color=rgb(hexToInt(mid$(tmp$,1))*0x0F,hexToInt(mid$(tmp$,2))*0x0F,hexToInt(mid$(tmp$,3))*0x0F) : BitMap_Buffer(x,y).Color=color : arg_bin$=right$(arg_bin$,len(arg_bin$)-3) : oldColor=color:endif:endif:until (len(arg_bin$)<3): rem VisualProg (v0.025) loading TextBitMap12Bit
        endfunction
                function Beep(dwFreq,dwDuration) : call dll kernel32dll,"Beep",dwFreq,dwDuration rem VisualProg (v0.036) sound beep
                endfunction
_jmp_finalFunctionBlock0001: rem VisualProg (v0.006) - start program. Above will be functions
rem TheComet (v0.005, v0.032) - (DEPRECATED) Use this to add new lines inside print statements, e.g. "this line"+nl+"is over this line"

Global CharacterName$ = "Mysterious Outlander" rem Chris Tate (v0.001)
Global CharacterPositionX#=0.0, CharacterPositionY#=0.0, CharacterPositionZ#=0.0 rem VisualProg (v0.002)
printa("{w}You, "+CharacterName$+", push open the shabby doors of the town's inn and\nenter. The dry desert dust flows around you dramatically, highlighted by the\nrays of the setting sun. The desolate chatter of drunk emotions ceases to be,\nas all eyes set on you. "+chr$(34)+"{r}What be your name, stranger?{w}"+chr$(34)+"\nthe bartender asks from across the room.{g}"):input "Enter your name ->", CharacterName$ : rem TheComet (v0.003, v0.008, v0.026) Fixed new lines, now uses printa instead of print
_try_again_idiot: rem TheComet (v0.010) For when the player is too stupid to press the given keys
For i = 1 to 4 : Print : Next i : Ink RGB(0,255,0),0 : Print "Greetings " + CharacterName$ + ", what be the purpose of your visit? " : Wait 2000 : Input "Enter reply > [D] 'Give me a drink' [S] 'Tell me a story' [W] 'I need work' [G]'I have something to give to you' "; option$ ` Chris Tate (v0.004,v0.011) Move input down a bit

Select Upper$(option$) rem Chris Tate (v0.013) Bartender reply
  Case "D" `----------------------- 
    if (trigger_drink=0) then gosub _option_drink : global trigger_drink=1 : loadBitMap12BitFromMemory(Images_TextBitMap12Bit_GlassOfBeer$) : cls 0 : printBitMap(110,70,34,39) : set cursor 0,0 : gosub _try_again_idiot : else : printa("{w}[*You already have a drink!*]") : gosub _try_again_idiot rem VisualProg (v0.033) drink
  Endcase
  Case "G" `-----------------------
    Gosub _something_to_give_bartender_at_start rem Chris Tate (v0.037,v0.041) Story branch related to giving the bartender something
  Endcase                       
  Case "W" `-----------------------
    gosub _option_i_need_work : rem TheComet (v0.042) Call subroutine for handling "i need work" option
  Endcase
  Case "S" `-----------------------
                        
  Endcase
  Case Default
    cls 0:set cursor 0,0:printa("{r}"+chr$(34)+"Bahahahaaa!"+chr$(34)+"{w} the bartender bellowed. {r}"+chr$(34)+"Your brain cavity wouldn't\nmake a drinkin' cup for a canary!"+chr$(34)+"{w}"):goto _try_again_idiot : rem TheComet(v0.014, v0.020, v0.028) - Looks like the player is too stupid - added insults
  Endcase
Endselect

printa("{l}Thank you for playing! This is the End!"):wait key:end : rem TheComet (v0.030) Not trollling - if execution reaches here, it's time to exit (as to not flow into functions and subroutines)

_option_drink: rem TheComet(v0.012) The character chose a drink!
Global Images_TextBitMap12Bit_GlassOfBeer$ = "000~~~222665999~888777~~877888988~A99999777555443333111000~~~~~~~~~~~FFF\000~~444BBBEEE~~EED~~~~~EDD~~EEDEDDDDCCCBBAA988444000~~~~~~~~~~FFF\000~333CCBEEE~EED~EEEEEDEDDDDDDCCCCBCBA~~~~~~~~AA9221000~~~~~~~~~FFF\000~555DCCEEDEEEEEDDDDDDCCCBBBABA8A97A87986976875~~865~875~876433000~~~~~~~~~FFF\000~333CBBEDD~~DDCCCBCB9A97A86986976975875864753~~~~653764222000~~~~~~~~~FFF\000~333CCBEDD~~DDCCCBBA9A87986~976875865764754753~653~~764111000~~~~~~~~~FFF\000~443CCBEDD~~DDDCCBBA9A86986~976875865764754653~~~654764111000~~~~~~~~~FFF\000~333CBBEDD~~~CCBBA8A86986~876875865764754654653~~~654333000~~~~~~~~~FFF\000~333CBBEDDDDDEDD~CCBB98986~976876865765764754654653654653654~665888777767666~555333111000~FFF\000~333BBBDDD~EDD~CCBB98986976~875865765754654~653~~654~887EEE~~~~EDDDDD888222000FFF\000~444BBBDDC~DDD~CBBA98975875~~865765754654643~~~653654766AAABABAAA~~~CCCEEE888111FFF\000~443AA9BBACBADCBDDDCBA986864863864863~853753743742642~643~~544111~222~~333766CCC~333FFF\000~332643842951C96DCCBA9B84E91~~E81D81~D71C61B61A51940840741742333000~~~~~333AAADDD444FFF\000~332642841A51C95DCCB98C83E91~~~E81~D71~C61B50A50940840741332000~~~~~333BBBCCC333FFF\000~433642841A61C94DCBA87C82E91~E90E91E81E91E80~D60C60A50940840741332000~~~~~444CCCCBB222FFF\000~432642841A61C83CB9B86D81E91EA0FA0E91~E81E80~C70C60A50950840741433000~~~~~555DDDBAA111FFF\000~432642841A61D82DA6C94EA1~FA0~~E81~~D81C70C60A50950840741433000~~~~~666EEEAA9111FFF\000~432642841B61D81EA2E91EA1~FA0E91FA0~E91E80D80D70C60B50950840741433000~~~~111777EEE888000FFF\000~432642841B61D81EA2~EA1E91~E90FA0~F90E90E80D70C60B50950840741432000~~~~111888EEE777000FFF\000~433742851B71D81EA2~EA1~FA0~E91EA0FA0E90E81D81C61B50A50940741643000~~~~222999EEE666000FFF\000~432742841B71E92EA2EA1~EA0~E90E81E90~~D70~~B60A50841~653000~~~~333BBBDDD444000FFF\000~543752851B72D92E91D81~E90E91E81E80E90E80~C60~D70B61A51951851653000~~~~444CCBDDD333000FFF\000~543864A62B72C82D92D81~E80E91E80E90~E70E90D70C61C81A51A61962A73753000~~~~554DDCCCC222000FFF\000111544975A73C83C72D92D81E90E91~E80FA0~D71E90D70C61C81A51B72A62B83764000~~~~655DDDBBB111000FFF\000110654A86A83C82C72D92E81E90EA1E91E80E91E81D70E91D71B61D91A51B72A62A83864000~~~111777EEEAAA000~FFF\000111654975B83B72C82D92E91E90E91EA1E90E91~D70D81~C61D91A51B72A62A73864000~~~111888EEE888000~FFF\000111654974B83B72C82D92D81E80E81E91E90~E91D70E80C71C61D91A51B72A62A84864000~~~222A99FFE666000~FFF\000111654974B83B72~D92E81E90E91~E90~~D70E81C71C61C81A51B72A62B95864111000~~444BBBEEE444000~FFF\000111654975B83B72~D82E81~E91~E80~E90D70C71D71C61C81A51B72A62B94864222111434767A99EEDDDD111000~FFF\000111654974B83B72C82D82D81E91E90E91E90~F90D70D81D70C61B71A51B72A62A73963987A99BBBDDDEEEDDD777000~~FFF\000111654974B83B71C82~E81E90E91~E80E90E80D70E80D70C61C81951A62A72973974CBAEEE~CCC999545111000~~FFF\000211665974B83B72C81D81E81E80E90E81E80~~D70D71~C61C71A51A62962974~BA8999666222111000~~~~FFF\000211654864A83A62B71C81D71D80E80~~~~D70~C70B61C71951A61962874875443000~~~~~~~~FFF\000221654653863852951A62A51B50B61~B60~B50A50B61A50A40A50841851852875~111000~~~~~~~~FFF\000222654643754853863963A62A51~~A61A51A50951~A51941951852863865876766222000~~~~~~~~FFF\000433543544766876987~A97~B98B97A86B97~~A87~987A87765~~665765444000~~~~~~~~FFF\000443433543654766877998BAACBADCBCCBDCBDDCDCC~BBABAA998887766665654665655333000~~~~~~~~FFF\000111333543654653764875976975A86~~~~~976975865864754753754654333000~~~~~~~~~FFF\000~~111433432643754986A86A75A86A75A86~A76976864753653543433222000~~~~~~~~~~~FFF\000~~~332433655766A98~A97B98A97~A98A87987876765655443333111000~~~~~~~~~~~FFF\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\" rem VisualProg (v0.031) - image beer
  Cls : For i = 1 to 20 : Wait 20  : beerColour = Rgb(i*10,i*6,i*(5*(i>17))) : Box 0, Screen Height()-((i*1.0)*Screen Height()/25), Screen Width(), Screen Height()-(((i+1)*1.0)*Screen Height()/25), beerColour, beerColour , beerColour, beerColour  : Next i : Wait 1000 rem Chris Tate (v0.016,v0.018,v0.019) - Background transition indicating the filling of beer; version 0.016; Had to reinsert because the code was incorrectly altered
Return ` You can now close your labels in the same entry

_option_tell_story: rem TheComet(v0.034) User chose for bartender to tell a story!
return

function printa(s$) :for p=0 to len(s$):c$=right$(left$(s$,p),1):if c$="{":for p2=p+1 to len(s$):c2$=right$(left$(s$,p2),1):if c2$="}":exit:endif:next p2:dec p2,1:c$=right$(left$(s$,p2),p2-p):p=p2+1:if len(c$)>1:ink hexToInt(c$),0:else:if lower$(c$)="r":ink 0xFFFF0000,0:endif:if lower$(c$)="g":ink 0xFF00FF00,0:endif:if lower$(c$)="b":ink 0xFF0000FF,0:endif:if lower$(c$)="y":ink 0xFFFFFF00,0:endif:if lower$(c$)="l":ink 0xFF00FFFF,0:endif:if lower$(c$)="m":ink 0xFFFF00FF,0:endif:if lower$(c$)="w":ink 0xFFFFFFFF,0:endif:endif:c$="":endif:if c$="\":inc p:if right$(left$(s$,p),1)="n":print :endif:c$="":endif:printc c$:next p:print : rem TheComet (v0.024) printa supports colour changes mid-sentence, and doesn't screw up DBPs internal cursor when mixing with newlines. "nl" IS DEPRECATED. Colours are specified between {} brackets, w=white, r=red, g=green, b=blue, y=yellow, m=magenta, l=lightblue. You may also specify a CAPITAL hex value, e.g. {FF00FFFF}. New lines are specified with \n.
endfunction

_something_to_give_bartender_at_start: rem Chris Tate(v0.039) Added 'I have something to give to you' story path sub routine
        
Return
_option_i_need_work: rem TheComet(v0.040) User chose for bartender to give him work
return

`%Project 'Untitled'%
`%Version 0.043%
`======================
Type ItemType rem Chris Tate( v0.007,v0.022) - Type in progress...
	Name$
	Price#
	Owner
	Image
	Object
	Description$
	Action
	BuildUpDelay
	MinimumExperienceLevel
Endtype

Global Dim Items() as ItemType rem Chris Tate (v0.035) - Items for the characters, enemies and who knows what

Type BitMap_Pixel_Type Color As Integer, View As Byte EndType : Global Dim BitMap_Buffer(800,600) As BitMap_Pixel_Type rem VisualProg (v0.017) - this bitmap container, from 2D graphics
Global kernel32dll=1 : load dll "kernel32.dll",kernel32dll rem VisualProg (v0.038) kernel for sound

goto _jmp_finalFunctionBlock0001 rem VisualProg (v0.009) - form the space for code
				function printf(arg_x,arg_y,arg_str$,arg_color) : ink arg_color,0 : text arg_x,arg_y,arg_str$: rem VisualProg (v0.015,v0.027)
				endfunction
				function printBitMap(posx,posy,width,height) : for y=0 to height : for x=0 to width : BitMap_Buffer(x,y).View=0x30 : printf(posx*4+x*4,posy*4+y*4,chr$(BitMap_Buffer(x,y).View),BitMap_Buffer(x,y).Color) : next x : next y: rem VisualProg (v0.021,v0.029) out BitMap to [x,y] read size [width,height]
				endfunction
				function hexToInt(arg_hex$) :local result as integer:result=0:for i=1 to len(arg_hex$):char$=(mid$(arg_hex$,i)):if (char$="1"):inc result,0x01*16^(len(arg_hex$)-i):endif:if (char$="2"):inc result,0x02*16^(len(arg_hex$)-i):endif:if (char$="3"):inc result,0x03*16^(len(arg_hex$)-i):endif:if (char$="4"):inc result,0x04*16^(len(arg_hex$)-i):endif:if (char$="5"):inc result,0x05*16^(len(arg_hex$)-i):endif:if (char$="6"):inc result,0x06*16^(len(arg_hex$)-i):endif:if (char$="7"):inc result,0x07*16^(len(arg_hex$)-i):endif:if (char$="8"):inc result,0x08*16^(len(arg_hex$)-i):endif:if (char$="9"):inc result,0x09*16^(len(arg_hex$)-i):endif:if (char$="A"):inc result,0x0A*16^(len(arg_hex$)-i):endif:if (char$="B"):inc result,0x0B*16^(len(arg_hex$)-i):endif:if (char$="C"):inc result,0x0C*16^(len(arg_hex$)-i):endif:if (char$="D"):inc result,0x0D*16^(len(arg_hex$)-i):endif:if (char$="E"):inc result,0x0E*16^(len(arg_hex$)-i):endif:if (char$="F"):inc result,0x0F*16^(len(arg_hex$)-i):endif:next i:rem VisualProg (v0.023) convert for loading TextBitMap
				endfunction result
				function loadBitMap12BitFromMemory(arg_bin$) :color=0 : x=-1 : y=0:repeat:if (left$(arg_bin$,1)="\"):inc y :  x=-1 : arg_bin$=right$(arg_bin$,len(arg_bin$)-1):else:if (left$(arg_bin$,1)="~"):inc x : BitMap_Buffer(x,y).Color=oldcolor : arg_bin$=right$(arg_bin$,len(arg_bin$)-1):else:inc x : tmp$=left$(arg_bin$,3) : color=rgb(hexToInt(mid$(tmp$,1))*0x0F,hexToInt(mid$(tmp$,2))*0x0F,hexToInt(mid$(tmp$,3))*0x0F) : BitMap_Buffer(x,y).Color=color : arg_bin$=right$(arg_bin$,len(arg_bin$)-3) : oldColor=color:endif:endif:until (len(arg_bin$)<3): rem VisualProg (v0.025) loading TextBitMap12Bit
				endfunction
								function Beep(dwFreq,dwDuration) : call dll kernel32dll,"Beep",dwFreq,dwDuration rem VisualProg (v0.036) sound beep
								endfunction
//==--==--==--==--==--==--==--==--==--==--==
Function MakeItem(sName$,fPrice#,sDescription$,iUsageActionID,iMinimumExperienceLevel, iImage, iObject, iBuildUpMillisecondDelay) rem Chris Tate (v0.043) - Item creation function declaration
	
Endfunction id

_jmp_finalFunctionBlock0001: rem VisualProg (v0.006) - start program. Above will be functions
rem TheComet (v0.005, v0.032) - (DEPRECATED) Use this to add new lines inside print statements, e.g. "this line"+nl+"is over this line"

Global CharacterName$ = "Mysterious Outlander" rem Chris Tate (v0.001)
Global CharacterPositionX#=0.0, CharacterPositionY#=0.0, CharacterPositionZ#=0.0 rem VisualProg (v0.002)
printa("{w}You, "+CharacterName$+", push open the shabby doors of the town's inn and\nenter. The dry desert dust flows around you dramatically, highlighted by the\nrays of the setting sun. The desolate chatter of drunk emotions ceases to be,\nas all eyes set on you. "+chr$(34)+"{r}What be your name, stranger?{w}"+chr$(34)+"\nthe bartender asks from across the room.{g}"):input "Enter your name ->", CharacterName$ : rem TheComet (v0.003, v0.008, v0.026) Fixed new lines, now uses printa instead of print
_try_again_idiot: rem TheComet (v0.010) For when the player is too stupid to press the given keys
For i = 1 to 4 : Print : Next i : Ink RGB(0,255,0),0 : Print "Greetings " + CharacterName$ + ", what be the purpose of your visit? " : Wait 2000 : Input "Enter reply > [D] 'Give me a drink' [S] 'Tell me a story' [W] 'I need work' [G]'I have something to give to you' "; option$ ` Chris Tate (v0.004,v0.011) Move input down a bit

Select Upper$(option$) rem Chris Tate (v0.013) Bartender reply
	Case "D" `----------------------- 
		if (trigger_drink=0) then gosub _option_drink : global trigger_drink=1 : loadBitMap12BitFromMemory(Images_TextBitMap12Bit_GlassOfBeer$) : cls 0 : printBitMap(110,70,34,39) : set cursor 0,0 : gosub _try_again_idiot : else : printa("{w}[*You already have a drink!*]") : gosub _try_again_idiot rem VisualProg (v0.033) drink
	Endcase
	Case "G" `-----------------------
		Gosub _something_to_give_bartender_at_start rem Chris Tate (v0.037,v0.041) Story branch related to giving the bartender something
	Endcase                       
	Case "W" `-----------------------
		gosub _option_i_need_work : rem TheComet (v0.042) Call subroutine for handling "i need work" option
	Endcase
	Case "S" `-----------------------
												
	Endcase
	Case Default
		cls 0:set cursor 0,0:printa("{r}"+chr$(34)+"Bahahahaaa!"+chr$(34)+"{w} the bartender bellowed. {r}"+chr$(34)+"Your brain cavity wouldn't\nmake a drinkin' cup for a canary!"+chr$(34)+"{w}"):goto _try_again_idiot : rem TheComet(v0.014, v0.020, v0.028) - Looks like the player is too stupid - added insults
	Endcase
Endselect

printa("{l}Thank you for playing! This is the End!"):wait key:end : rem TheComet (v0.030) Not trollling - if execution reaches here, it's time to exit (as to not flow into functions and subroutines)

_option_drink: rem TheComet(v0.012) The character chose a drink!
Global Images_TextBitMap12Bit_GlassOfBeer$ = "000~~~222665999~888777~~877888988~A99999777555443333111000~~~~~~~~~~~FFF\000~~444BBBEEE~~EED~~~~~EDD~~EEDEDDDDCCCBBAA988444000~~~~~~~~~~FFF\000~333CCBEEE~EED~EEEEEDEDDDDDDCCCCBCBA~~~~~~~~AA9221000~~~~~~~~~FFF\000~555DCCEEDEEEEEDDDDDDCCCBBBABA8A97A87986976875~~865~875~876433000~~~~~~~~~FFF\000~333CBBEDD~~DDCCCBCB9A97A86986976975875864753~~~~653764222000~~~~~~~~~FFF\000~333CCBEDD~~DDCCCBBA9A87986~976875865764754753~653~~764111000~~~~~~~~~FFF\000~443CCBEDD~~DDDCCBBA9A86986~976875865764754653~~~654764111000~~~~~~~~~FFF\000~333CBBEDD~~~CCBBA8A86986~876875865764754654653~~~654333000~~~~~~~~~FFF\000~333CBBEDDDDDEDD~CCBB98986~976876865765764754654653654653654~665888777767666~555333111000~FFF\000~333BBBDDD~EDD~CCBB98986976~875865765754654~653~~654~887EEE~~~~EDDDDD888222000FFF\000~444BBBDDC~DDD~CBBA98975875~~865765754654643~~~653654766AAABABAAA~~~CCCEEE888111FFF\000~443AA9BBACBADCBDDDCBA986864863864863~853753743742642~643~~544111~222~~333766CCC~333FFF\000~332643842951C96DCCBA9B84E91~~E81D81~D71C61B61A51940840741742333000~~~~~333AAADDD444FFF\000~332642841A51C95DCCB98C83E91~~~E81~D71~C61B50A50940840741332000~~~~~333BBBCCC333FFF\000~433642841A61C94DCBA87C82E91~E90E91E81E91E80~D60C60A50940840741332000~~~~~444CCCCBB222FFF\000~432642841A61C83CB9B86D81E91EA0FA0E91~E81E80~C70C60A50950840741433000~~~~~555DDDBAA111FFF\000~432642841A61D82DA6C94EA1~FA0~~E81~~D81C70C60A50950840741433000~~~~~666EEEAA9111FFF\000~432642841B61D81EA2E91EA1~FA0E91FA0~E91E80D80D70C60B50950840741433000~~~~111777EEE888000FFF\000~432642841B61D81EA2~EA1E91~E90FA0~F90E90E80D70C60B50950840741432000~~~~111888EEE777000FFF\000~433742851B71D81EA2~EA1~FA0~E91EA0FA0E90E81D81C61B50A50940741643000~~~~222999EEE666000FFF\000~432742841B71E92EA2EA1~EA0~E90E81E90~~D70~~B60A50841~653000~~~~333BBBDDD444000FFF\000~543752851B72D92E91D81~E90E91E81E80E90E80~C60~D70B61A51951851653000~~~~444CCBDDD333000FFF\000~543864A62B72C82D92D81~E80E91E80E90~E70E90D70C61C81A51A61962A73753000~~~~554DDCCCC222000FFF\000111544975A73C83C72D92D81E90E91~E80FA0~D71E90D70C61C81A51B72A62B83764000~~~~655DDDBBB111000FFF\000110654A86A83C82C72D92E81E90EA1E91E80E91E81D70E91D71B61D91A51B72A62A83864000~~~111777EEEAAA000~FFF\000111654975B83B72C82D92E91E90E91EA1E90E91~D70D81~C61D91A51B72A62A73864000~~~111888EEE888000~FFF\000111654974B83B72C82D92D81E80E81E91E90~E91D70E80C71C61D91A51B72A62A84864000~~~222A99FFE666000~FFF\000111654974B83B72~D92E81E90E91~E90~~D70E81C71C61C81A51B72A62B95864111000~~444BBBEEE444000~FFF\000111654975B83B72~D82E81~E91~E80~E90D70C71D71C61C81A51B72A62B94864222111434767A99EEDDDD111000~FFF\000111654974B83B72C82D82D81E91E90E91E90~F90D70D81D70C61B71A51B72A62A73963987A99BBBDDDEEEDDD777000~~FFF\000111654974B83B71C82~E81E90E91~E80E90E80D70E80D70C61C81951A62A72973974CBAEEE~CCC999545111000~~FFF\000211665974B83B72C81D81E81E80E90E81E80~~D70D71~C61C71A51A62962974~BA8999666222111000~~~~FFF\000211654864A83A62B71C81D71D80E80~~~~D70~C70B61C71951A61962874875443000~~~~~~~~FFF\000221654653863852951A62A51B50B61~B60~B50A50B61A50A40A50841851852875~111000~~~~~~~~FFF\000222654643754853863963A62A51~~A61A51A50951~A51941951852863865876766222000~~~~~~~~FFF\000433543544766876987~A97~B98B97A86B97~~A87~987A87765~~665765444000~~~~~~~~FFF\000443433543654766877998BAACBADCBCCBDCBDDCDCC~BBABAA998887766665654665655333000~~~~~~~~FFF\000111333543654653764875976975A86~~~~~976975865864754753754654333000~~~~~~~~~FFF\000~~111433432643754986A86A75A86A75A86~A76976864753653543433222000~~~~~~~~~~~FFF\000~~~332433655766A98~A97B98A97~A98A87987876765655443333111000~~~~~~~~~~~FFF\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\" rem VisualProg (v0.031) - image beer
	Cls : For i = 1 to 20 : Wait 20  : beerColour = Rgb(i*10,i*6,i*(5*(i>17))) : Box 0, Screen Height()-((i*1.0)*Screen Height()/25), Screen Width(), Screen Height()-(((i+1)*1.0)*Screen Height()/25), beerColour, beerColour , beerColour, beerColour  : Next i : Wait 1000 rem Chris Tate (v0.016,v0.018,v0.019) - Background transition indicating the filling of beer; version 0.016; Had to reinsert because the code was incorrectly altered
Return ` You can now close your labels in the same entry

_option_tell_story: rem TheComet(v0.034) User chose for bartender to tell a story!
return

function printa(s$) :for p=0 to len(s$):c$=right$(left$(s$,p),1):if c$="{":for p2=p+1 to len(s$):c2$=right$(left$(s$,p2),1):if c2$="}":exit:endif:next p2:dec p2,1:c$=right$(left$(s$,p2),p2-p):p=p2+1:if len(c$)>1:ink hexToInt(c$),0:else:if lower$(c$)="r":ink 0xFFFF0000,0:endif:if lower$(c$)="g":ink 0xFF00FF00,0:endif:if lower$(c$)="b":ink 0xFF0000FF,0:endif:if lower$(c$)="y":ink 0xFFFFFF00,0:endif:if lower$(c$)="l":ink 0xFF00FFFF,0:endif:if lower$(c$)="m":ink 0xFFFF00FF,0:endif:if lower$(c$)="w":ink 0xFFFFFFFF,0:endif:endif:c$="":endif:if c$="\":inc p:if right$(left$(s$,p),1)="n":print :endif:c$="":endif:printc c$:next p:print : rem TheComet (v0.024) printa supports colour changes mid-sentence, and doesn't screw up DBPs internal cursor when mixing with newlines. "nl" IS DEPRECATED. Colours are specified between {} brackets, w=white, r=red, g=green, b=blue, y=yellow, m=magenta, l=lightblue. You may also specify a CAPITAL hex value, e.g. {FF00FFFF}. New lines are specified with \n.
endfunction

_something_to_give_bartender_at_start: rem Chris Tate(v0.039) Added 'I have something to give to you' story path sub routine
	
Return
_option_i_need_work: rem TheComet(v0.040) User chose for bartender to give him work
return