fb:porticula NoPaste

Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen
Dateidownload
Mehrere Grafikpuffer vorhalten (@Key_Frogger)

Uploader:	Sebastian
Datum/Zeit:	18.09.2009 16:18:39
'Siehe http://www.freebasic-portal.de/porticula/hacker-destination-2-921.html



''''''''''''''''''''''''''''''''''''''''''''''

'''''''''Platzhalter fürs Spalsh''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''



''''''''''''''''''''''''''''''''''''''''''''''

''''''''''Konstante,Variabeln&Mehr''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''



DECLARE SUB InputX (ByVal Meldung As String, ByRef Variable As String)

DECLARE SUB KBPufferLeeren ()



Dim Shared As Any Ptr Hilfeseite, Musterseite

Dim NickName as string

Dim amission as string





'''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''Der Code''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''



Screen 18



'''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''HILFE'''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''



Hilfeseite = ImageCreate(640,480)

LINE (10,10)-(629,469),1,BF

COLOR 15,1

LOCATE 2,25: PRINT "HELP:"

LOCATE 6,4: PRINT "You can Type:"

LOCATE 7,4: PRINT "_____________"

LOCATE 8,4: PRINT "[scan]+[servername]"

LOCATE 9,4: PRINT "Then you will get informations about the Server"

LOCATE 10,4: PRINT "[connect]+[short iP]"

LOCATE 11,4: PRINT "Then you will build an connection to the Server"

LOCATE 12,4: PRINT "[login]+[short ip]+[password]"

LOCATE 13,4: PRINT "Then you will be login to a server also you can download files"

LOCATE 14,4: PRINT "[download]+[filename]+[short ip]"

LOCATE 15,4: PRINT "Then you will be download the file which you has selected"

LOCATE 16,4: PRINT "[crack]+[short ip]"

LOCATE 17,4: PRINT "Then you will crack the Server"

LOCATE 18,4: PRINT "[destroy]+[short ip]"

LOCATE 19,4: PRINT "if you`re shure that the server is useless you can destroy the server"

'LOCATE 30,4: PRINT "To return the game Press:[ANY KEY]"

COLOR 7,0

Get (0,0)-(639,479),Hilfeseite



'Nächste Seite

Musterseite = ImageCreate(640,480)

LINE (10,10)-(629,469),7,BF

COLOR 1,7

LOCATE 2, 20: PRINT "Naechste Seite!!!!111elf"

LOCATE 15,20: PRINT "Jaaaa, in der Tat..."

COLOR 7,0

Get (0,0)-(639,479),Musterseite







'''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''Begrüßung'''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''



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

Print "-----"

Sleep 500

Print "Succsess"

Sleep 3000



''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''InGame Begrüßung''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''''



CLS

Print "Welcome: "; nickname

Print "you are an Member of the Hacking-Team (Hacker`s Destination)"

Print "you will get Mission`s from your Team..."

Sleep 5000

Print "Press: [ANY KEY]"

sleep

CLS

Print "To get Help Type [HELP]"

Print "To get your Instructions Type [MISSION]"

InputX "local host@" & nickname, amission

end



'''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''Prozeduren'''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''

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") OR (UCASE(Variable) = "MUSTER") Then

            IF (UCASE(Variable) = "HELP") THEN

                PUT (0,0), Hilfeseite, PSET

            ELSE

                PUT (0,0), Musterseite, PSET

            END IF

            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