Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Hilfeseite ein- und ausblenden
| Uploader: |  Sebastian |
| Datum/Zeit: | 18.09.2009 14:02:54 |
' Codevorschlag zu
' http://www.freebasic-portal.de/porticula/hacker-destination-919.html
DECLARE SUB InputX (ByVal Meldung As String, ByRef Variable As String)
DECLARE SUB KBPufferLeeren ()
''''''''''''''''''''''''''''''''''''''''''''''
'''''''Platzhalter fürs Spalsh''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''
''''''''''Konstante,Variabeln&Mehr''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''
Dim Shared Hilfeseite As Any Ptr
Dim NickName as string
Const HELP =!"You can choose between: Scan;Crack;Connect;Logout"
'''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''Der Code''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''
Screen 18
Hilfeseite = ImageCreate(640,480)
LINE (10,10)-(629,469),1,BF
COLOR 15,1
LOCATE 4,4: PRINT "HILFE"
LOCATE 8,4: PRINT "Hallo! Bitte Taste druecken."
COLOR 7,0
Get (0,0)-(639,479),Hilfeseite
CLS
Print "Welcome to hacker`s-Destination"
Print "_______________________________"
Print
InputX "Nickname: ", nickname
sleep 500
Print "_________ "
'''''''''''''''''''''''''''''''''''''''''''''''
''''''' LOAD Animation '''''''
'''''''''''''''''''''''''''''''''''''''''''''''
Sleep 1000
CLS
Print "Check Nickname"
Sleep 2000
CLS
Print "-"
Sleep 1500
CLS
Print "--"
Sleep 1500
CLS
Print "---"
Sleep 1500
CLS
Print "----"
Sleep 1500
CLS
Sleep 1500
Print "-----"
Sleep 500
Print "Succsess"
Sleep 3000
CLS
Print "Welcome: "; nickname
sleep
end
SUB InputX (ByVal Meldung As String, ByRef Variable As String)
Dim Puffer As Any Ptr
Dim As Integer z, s
z = CSRLIN: s = POS(CSRLIN)
Puffer = ImageCreate(640,480)
Get (0,0)-(639,479),Puffer
DO
PRINT Meldung;
INPUT "", Variable
IF UCASE(Variable) = "HELP" Then
PUT (0,0), Hilfeseite, PSET
SLEEP
PUT (0,0), Puffer, PSET
LOCATE z,s
Variable = ""
KBPufferLeeren
ELSE
KBPufferLeeren
EXIT DO
END IF
LOOP
END SUB
SUB KBPufferLeeren ()
DO: SLEEP 1: LOOP UNTIL INKEY = ""
END SUB