Anyone know what this code does?
Yeah yeah yeah... I don't understand. I can kinda pick out a few things. but yeah... what's this do?
Code:
Opt("WinTitleMatchMode",2)
If WinActive("Gaia Rally | Gaia Online - Mozilla Firefox") Then
Console()
EndIf
While 1
Sleep(90000)
Wend
Func Console()
Global $FORM1, $input2, $edit, $INVISIB, $INVISI, $COORDS, $rEdit, $text2, $SsidMeTalk, $text, $text3, $text4, $text21, $Filereading, $text5, $text6, $text8, $Avis, $HelpCommands, $text19, $text17, $SID2, $text9, $text11, $Proname, $console, $text12, $text13, $text15, $text16, $text14, $fontcolor, $Prouser, $text18, $AVA, $USER, $Cids, $KG_RALLY
AdlibRegister("enterbutton", 50)
$ETY = "User IP"
$ET = _GetIp()
$FORM1 = GUICreate("[" & $ETY & ":" & $ET & "]", 695, 309, 393, 181)
$input2 = GUICtrlCreateInput("Input commands here...", 1, 283, 690, 25)
WinSetTrans("Bot", "", 220)
GUICtrlSetBkColor($input2, 2)
GUICtrlSetColor($input2, 0x0000FF)
$edit = GUICtrlCreateEdit("Please Type Continue...", 1, 0, 693, 283, BitOR($ES_AUTOVSCROLL, $ES_MULTILINE, $ES_WANTRETURN, $ES_READONLY, $WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE, $WS_BORDER))
GUICtrlSetBkColor($edit, 2)
GUICtrlSetColor($edit, 0x0000FF)
GUISetOnEvent($GUI_EVENT_CLOSE, "LEAVE")
GUISetState(@SW_SHOW)
$HelpCommands = @CRLF & "Rally or /rally" & @CRLF & "Name or /name" & @CRLF & "Avi or /avi" & @CRLF & "Invisible or /invisible" & @CRLF & "Color or /color" & @CRLF & "Droid or /droid" & @CRLF & "Close or /close" & @CRLF & "Whisper or /whisper" & @CRLF & "Talk or /talk" & @CRLF & "RoomID or /roomid" & @CRLF & "Close Rally or /close rally" & @CRLF & "Remove Cars or /remove cars" & @CRLF & "Bomb or /bomb" & @CRLF & "Follow or /follow" & @CRLF & "Members or /members" & @CRLF & "Room Name or /room name" & @CRLF & "Server or /server" & @CRLF & "Teleport or /teleport" & @CRLF & "Mass Movement or /mass movement" & @CRLF & "Close Gaia or /close gaia" & @CRLF & "Gaiaonline or /gaiaonline" & @CRLF & "Morph or /morph" & @CRLF & "Move Me or /move me" & @CRLF & "Teleport All or /teleport all" & @CRLF & "Speed or /speed" & @CRLF & "History or /history" & @CRLF & "Challenge or /challenge" & @CRLF & "Color ID or /color id" & @CRLF & "Avis or /avis" & @CRLF & "Statue" & @CRLF & "Spam" & @CRLF & "Test" & @CRLF & "Chat Logs" & @CRLF & "Screensaver" & @CRLF & "Isobomb" & @CRLF & "Restart" & @CRLF & "Get Coords" & @CRLF & "Change ID" & @CRLF & "Set User"
$Avis = @CRLF & "Dethyl" & @CRLF & "Cakeee" & @CRLF & "CounT" & @CRLF & "Blue Dragon" & @CRLF & "Ron" & @CRLF & "Isonyx" & @CRLF & "Isonyx 1" & @CRLF & "Isonyx 2" & @CRLF & "Leet"
Do
$null = ("null")
Until GUICtrlRead($input2) == "Continue"
$text2 = GUICtrlRead($input2)
$rEdit = GUICtrlRead($edit)
_GUICtrlEdit_AppendText($edit, @CRLF & $console & "Welcome to the Isonyx Console Droid. Your command History will be show here...")
GUISetBkColor(0)
GUICtrlSetData($input2, "")
$Cids = @CRLF & "Name Color IDs" & @CRLF & "12 = Purple" & @CRLF & "55 = Green" & @CRLF & "99 = Bold Orange" & @CRLF & "105 = Orange" & @CRLF & "9 = Red" & @CRLF & "160 = Brown" & @CRLF & "00 = Black"
$Prouser = "Isonyx"
$ETK = _GetIp()
$Proname = "[" & $ETK & "]:"
$console = "[Console]: "
EndFunc ;==>ViewConsole
Sleep(60000)
While 1
WEnd
Func enterbutton()
Dim $Console[4]
If WinActive($FORM1) Then
If GUICtrlRead($input2) == "Commands" Or GUICtrlRead($input2) == "/commands" And _IsPressed("0D") Then
$text7 = GUICtrlRead($input2)
$rEdit = GUICtrlRead($edit)
_GUICtrlEdit_AppendText($edit, @CRLF & @CRLF & $HelpCommands & @CRLF & @CRLF)
GUICtrlSetData($input2, "")
EndIf
If GUICtrlRead($input2) == "close console" And _IsPressed("0D") Then
$text8 = WinClose("Console", "")
ElseIf _IsPressed("0D") Then
$text9 = GUICtrlRead($input2)
$rEdit = GUICtrlRead($edit)
If $text9 <> "" And $rEdit <> "" Then
_GUICtrlEdit_AppendText($edit, @CRLF & $Proname & $text9)
GUICtrlSetData($input2, "")
ElseIf $text9 <> "" And $rEdit = "" Then
_GUICtrlEdit_AppendText($edit, $text9)
GUICtrlSetData($input2, "")
EndIf
EndIf
EndIf
EndFunc ;==>enterbutton
