10.03.2019 - Round 1 results of our "A Love Letter For FreeBASIC" game dev competition have been published. Please be sure to check the results thread: http://games.freebasic.net/forum/index.php?topic=629.0. Don't forget that the competition is continuing with a round 2, lasting till 29th of April, 300 USD first prize. Stay tuned!
Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Hmmm... interesting. Is it like a text adventure? Hopefully, it didn't take 4 hours to display text. Has it been that long? :pNo, not a text adventure.
I wish we could talk about something in here.I will say that I'm building the game's features one at a time, in a way that the game can be released at any moment. So I can still release the game even if I can't do all of the things i wanted. Feature 1 is halfway done.
Yes.But to clarify, not the normal type of math puzzles. There would be a clear connection between what is going on (aka words, letters, numbers, even "typing speeds") and the numbers.
dim shared as string textSequence
dim shared as string currentLetter
dim shared as integer currentLetterAsc = 0
dim shared as integer currentDelay = 0
dim shared as integer numberDelay = 400
dim shared as integer periodDelay = 300
dim shared as integer lowerLetterDelay = 65
dim shared as integer upperLetterDelay = 100
dim shared as integer spaceDelay = 65
dim shared as integer exclamationDelay = 500
dim shared as integer colonDelay = 500
dim shared as integer quoteDelay = 30
dim shared as integer hyphenDelay = 30
dim shared as integer equalsDelay = 50
function getDelay( byval characterAsc as integer ) as integer
var currentDelay = 0
select case currentLetterAsc
case ASC("a") to ASC("z")
currentDelay = lowerLetterDelay
case ASC("A") to ASC("Z")
currentDelay = upperLetterDelay
case ASC(" ")
currentDelay = spaceDelay
case ASC("!")
currentDelay = exclamationDelay
case ASC(":")
currentDelay = colonDelay
case ASC("1") to ASC("0")
currentDelay = numberDelay
case ASC("'")
currentDelay = quoteDelay
case ASC(!"\"")
currentDelay = quoteDelay
case ASC(".")
currentDelay = periodDelay
case ASC("-")
currentDelay = hyphenDelay
case ASC("=")
currentDelay = equalsDelay
end select
return currentDelay
end function
sub printTextSequence( byval textSequence as string)
for i as integer = 0 to len(textSequence) - 1
currentLetterAsc = textSequence[i]
currentLetter = chr(currentLetterAsc)
print currentLetter;
currentDelay = getDelay( currentLetterAsc )
sleep currentDelay, 1
next
end sub
sub printTextSequenceLine( byval textSequence as string, byval lineDelay as integer = 1000)
printTextSequence(textSequence)
sleep lineDelay, 1
print ""
end sub
printTextSequenceLine(!"Power supply from remote source detected.....")
printTextSequenceLine(!"Initiating protocols.....")
printTextSequenceLine(!"WARNING! END USER MUST BE PRESENT TO COMPLETE SEQUENCE INITIATION!")
printTextSequenceLine(!"Initiating sequence:")
printTextSequenceLine(!"3...", 500)
printTextSequenceLine(!"2...", 500)
var textInput1 = ""
while( len(inkey) > 0 )
wend
input ; "", textInput1
if( textInput1 <> "1") then
printTextSequenceLine(!"What? Are you stupid or something?")
sleep
end
end if
printTextSequenceLine(!"...", 300)
printTextSequenceLine(!"!!! SEQUENCE INITIATED !!!", 1500)
printTextSequenceLine(!"!!! WARNING !!!", 500)
printTextSequenceLine(!"!!! SEQUENCE INITIATED !!!", 1500)
printTextSequenceLine(!"--- WARNING ---", 500)
printTextSequenceLine(!"All life forms should leave the habitable zone immediately.")
printTextSequenceLine(!"REPEAT: All life forms, immediately exit the habitable zone.")
printTextSequenceLine(!"--- END WARNING ---", 500)
printTextSequenceLine(!"== Destination (In Order of Solar Distance) ==")
printTextSequenceLine(!"0 = Sol")
printTextSequenceLine(!"1 = HSIV Beta")
printTextSequenceLine(!"2 = Mercury")
printTextSequenceLine(!"3 = Venus")
printTextSequenceLine(!"4 = Earth")
printTextSequenceLine(!"5 = Mars")
printTextSequenceLine(!"6 = Jupiter")
printTextSequenceLine(!"7 = Saturn")
printTextSequenceLine(!"8 = Uranus")
printTextSequenceLine(!"9 = HSIV Alpha II")
printTextSequenceLine(!"10 = Neptune")
printTextSequenceLine(!"11 = HSIV Alpha I")
var textInput2 = ""
while( len(inkey) > 0 )
wend
input ; "", textInput2
printTextSequenceLine(!" You selected: " & textInput2 & ", ""Some Planet"".", 1500)
PRINT ""
PRINT "THANK YOU FOR PLAYING THE ULTRA-TEASER."
PRINT "GOOD BYE!"
PRINT ""
sleep
)