fb:porticula NoPaste

Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen
Dateidownload
Hacker Destination 3

Uploader:	Key_Frogger
Datum/Zeit:	18.09.2009 16:11:21
''''''''''''''''''''''''''''''''''''''''''''''

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

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



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

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

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



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

DECLARE SUB KBPufferLeeren ()



Dim Shared Hilfeseite As Any Ptr

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



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

'''''''''''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]"

Print "Root@"+nickname+":"

InputX "", amission

sleep

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" 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