ADLIBREGISTER("_update", "1800000") Global $VERSION = "3_3_RC" IniWrite("susiconf.ini", "Info", "Version", $VERSION) Opt("TrayIconHide", 0) Opt("ExpandVarStrings", 1) HotKeySet("{Pause}", "_pauseman") HotKeySet("{ESC}", "_exit") HotKeySet("{F1}", "_fly") HotKeySet("{F2}", "_carkauf") $USER = "" $ANTWORT = "" Local $SEARCHWORD = "" Global $PAUSED $DSSDATA = "" $CHATE = "" $NAME = "" $SUCHE = "" $CHATUSR = "" $SIDE = "" $SIDE2 = "" $ARTWIN = "0" $WCC = "" $CODE = "" $USERPUNKT = "" $COUNTRY = "" $POWER = "" $RELOAD = "600" $BOXTIME = "7200" ADLIBREGISTER("_fly", "1800000") ADLIBREGISTER("_boxtraining", $BOXTIME & "000") ADLIBREGISTER("_sendstats", $RELOAD & "000") ADLIBREGISTER("_mailguck", "60000") $VARA = IniReadSection(@ScriptDir & "/susiconf.ini", "design") If @error Then IniWrite(@ScriptDir & "/susiconf.ini", "design", "ordner", "DarkRed") Else EndIf $VARA = IniReadSection(@ScriptDir & "/susiconf.ini", "Einstellungen") If @error Then Local $SDATA = "Auto_bann_an=1" & @LF & "Bier_Auto_an=1" & @LF & "Bannmailer_Auto=1" & @LF & "Boxen=1" & @LF & "Boxschule=1" & @LF & "Drogen=1" & @LF & "verkaufen=1" IniWriteSection(@ScriptDir & "/susiconf.ini", "Einstellungen", $SDATA) Else FileDelete(@ScriptDir & "/einstellung.ini") EndIf Global $DESIGN = IniRead(@ScriptDir & "/susiconf.ini", "design", "ordner", "DarkRed") $ICON_FOLDER = @ScriptDir & "/design/" & $DESIGN $SKIN_FOLDER = @ScriptDir & "/design/" & $DESIGN Dim $XSKINID[3] $GUIWIDTH = 600 $GUIHEIGHT = 340 $GUITITLE = " Susi Sorglos " & $VERSION & " " & $SIDE $GUIHEADER = -1 $GUICORNERS = 0 Dim $PAUSEA[10] $PAUSEA[0] = "Hihi wieder daaaaaaa :)" $PAUSEA[1] = "Ruhe! die nervensaegege ist da!" $PAUSEA[2] = "wiederle dadaaaaa" $PAUSEA[3] = "Freiheit für susi lange lass ich mir eure pause nicht mehr gefallen!" $PAUSEA[4] = "bin ja da wieder (6)" $PAUSEA[5] = "pssst das man mich nicht mehr wegschickt :( ich bin wieder da pssst" $PAUSEA[6] = "Labaloma blankaaaaaa oh wie ist das spammen schoennnnnnnnn :)" $POINTS = 0 $POINT = "" Global $BOTN = "susi" Global $BOTP = IniRead(@ScriptDir & "/susiconf.ini", "chatbot", "cpass", "fehler acc pass") Global $PAUSE = "7" $BOS = "" $DATENURL = "" $ANTWORT = "" $HW_OPEN = _WINHTTPOPEN("Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.12) Gecko/20101026 Firefox/3.6.12") $HW_CONNECT = _WINHTTPCONNECT($HW_OPEN, "www." & $SIDE) $XSKINGUI = XSKINGUICREATE($GUITITLE, $GUIWIDTH, $GUIHEIGHT, $SKIN_FOLDER, $GUIHEADER, $GUICORNERS) $PROGRESS1 = XSKINPROGRESS(14, 310, 376, 10) $BUTTON_1 = XSKINBUTTON("Start", 290, 282, 100, 20, "_go") $BUTTON_2 = XSKINBUTTON("Save", 495, 211, 50, 21, "_save") $EDIT1 = GUICtrlCreateEdit("", 14, 35, 376, 242, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN)) GUICtrlSetFont(-1, 9, 400, 0, "Comic Sans MS") $LABEL1 = GUICtrlCreateLabel("susi offline", 14, 282, 260, 20, $SS_CENTER) GUICtrlSetFont(-1, 11, 400, 0, "Comic Sans MS") $LABEL2 = GUICtrlCreateLabel("Addons:", 395, 90, 75, 15, $SS_LEFT) $LABEL3 = GUICtrlCreateLabel("by susibot.de", 460, 10, 90, 11, $SS_CENTER) GUICtrlSetFont(-1, 7, 400, 0, "Comic Sans MS") $LABEL4 = GUICtrlCreateLabel("F1 = Fly", 395, 50, 100, 15, $SS_LEFT) $LABEL5 = GUICtrlCreateLabel("-----", 50, 10, 90, 11, $SS_CENTER) GUICtrlSetFont(-1, 7, 400, 0, "Comic Sans MS") $LABEL6 = GUICtrlCreateLabel("F2 = Carkauf", 395, 65, 100, 15, $SS_LEFT) $LABEL7 = GUICtrlCreateLabel("Shortcuts:", 395, 35, 50, 15, $SS_LEFT) $LABEL8 = GUICtrlCreateLabel("Badwords:", 395, 190, 50, 15, $SS_LEFT) $LABEL9 = GUICtrlCreateLabel("1 = Abzug Respektpunkt", 395, 240, 200, 15, $SS_LEFT) $LABEL10 = GUICtrlCreateLabel("2 = 1 Stunde Kommbann", 395, 255, 200, 15, $SS_LEFT) $LABEL11 = GUICtrlCreateLabel("3 = 12 Stunden Kommbann", 395, 270, 200, 15, $SS_LEFT) $LABEL12 = GUICtrlCreateLabel("4 = 24 Stunden Komplattbann", 395, 285, 200, 15, $SS_LEFT) $INPUT1 = GUICtrlCreateInput("Badword?", 395, 210, 60, 21, BitOR($WS_EX_CLIENTEDGE, $WS_EX_STATICEDGE)) $INPUT2 = GUICtrlCreateCombo("1", 460, 210, 30) GUICtrlSetData(-1, "2|3|4", "1") GUISetState() $CHECKBOX1 = GUICtrlCreateCheckbox("Auto bann", 395, 110, 75, 15) GUICtrlSetState(-1, IniRead(@ScriptDir & "\susiconf.ini", "Einstellungen", "Auto_bann_an", "1")) GUICtrlSetTip(-1, "Auto Bann Siehe Badword.ini") GUICtrlSetBkColor(-1, 16777215) $CHECKBOX2 = GUICtrlCreateCheckbox("Bier", 475, 110, 75, 15) GUICtrlSetState(-1, IniRead(@ScriptDir & "\susiconf.ini", "Einstellungen", "Bier_Auto_an", "1")) GUICtrlSetTip(-1, "Bier? Siehe bier.ini") GUICtrlSetBkColor(-1, 16777215) $CHECKBOX3 = GUICtrlCreateCheckbox("Bann Mail", 395, 130, 75, 15) GUICtrlSetState(-1, IniRead(@ScriptDir & "\susiconf.ini", "Einstellungen", "Bannmailer_Auto", "1")) GUICtrlSetBkColor(-1, 16777215) $CHECKBOX4 = GUICtrlCreateCheckbox("Boxen", 475, 130, 75, 15) GUICtrlSetState(-1, IniRead(@ScriptDir & "\susiconf.ini", "Einstellungen", "Boxen", "1")) GUICtrlSetBkColor(-1, 16777215) $CHECKBOX5 = GUICtrlCreateCheckbox("Auto verk?", 395, 150, 75, 15) GUICtrlSetState(-1, IniRead(@ScriptDir & "\susiconf.ini", "Einstellungen", "verkaufen", "1")) GUICtrlSetTip(-1, "Autos verkaufen oder in der Garage behalten?") GUICtrlSetBkColor(-1, 16777215) $CHECKBOX6 = GUICtrlCreateCheckbox("Boxschule", 475, 150, 75, 15) GUICtrlSetState(-1, IniRead(@ScriptDir & "\susiconf.ini", "Einstellungen", "Boxschule", "1")) GUICtrlSetBkColor(-1, 16777215) $CHECKBOX7 = GUICtrlCreateCheckbox("Drogen", 395, 170, 75, 15) GUICtrlSetState(-1, IniRead(@ScriptDir & "\susiconf.ini", "Einstellungen", "Drogen", "1")) GUICtrlSetTip(-1, "Drogen? Siehe drogen.ini") GUICtrlSetBkColor(-1, 16777215) $CHECKBOX8 = GUICtrlCreateCheckbox("Statistik", 475, 170, 75, 15) GUICtrlSetState(-1, IniRead(@ScriptDir & "\susiconf.ini", "Einstellungen", "Statistik", "1")) GUICtrlSetBkColor(-1, 16777215) $RET = XSKINANIMATE($XSKINGUI, 1, 19) _UPDATE() GUICtrlSetData($LABEL1, "Drücke Start um Susi zu Starten!") While 1 $POINTS = $POINTS + 1 If $POINTS > "15" Then $POINT = "drücke auf Start " & @CRLF & "um susi zu starten" If $POINTS > "400" Then $POINT = "ESC " & @CRLF & "auf deiner Tastatur beendet susi" If $POINTS > "800" Then $POINT = "drücke auf Start " & @CRLF & "um susi zu starten" If $POINTS > "1200" Then $POINT = "ESC " & @CRLF & "auf deiner Tastatur beendet susi" If $POINTS > "2000" Then $POINT = "Hallo :) " & @CRLF & "auf start unten rechts?!?" If $POINTS > "3000" Then $POINT = "Na komm " & @CRLF & "so schwer ist es " & @CRLF & "nun auch wieder nicht!!" If $POINTS > "4000" Then $POINT = "Drück mich Baby " & @CRLF & ":) drück mich" & @CRLF & " !Start!" If $POINTS > "5000" Then $POINT = "na lol" & @CRLF & " ich bin nicht on" & @CRLF & " wenn du nicht drückst!!" If $POINTS > "6000" Then $POINT = "Brauchst du Hilfe?" If $POINTS > "7000" Then $POINTS = 0 GUICtrlSetData($EDIT1, $POINT) MOUSEOVER() $NMSG = GUIGetMsg() Switch $NMSG Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func _EXIT() $RET = XSKINANIMATE($XSKINGUI, "", 4) Exit EndFunc Func _GO() IniDelete(@ScriptDir & "/susiconf.ini", "Länder") _LOGIN() _RECHTE() While 1 _PING() _RELOGIN() _SUCH() _PING() _BAD() _SLEEP() WEnd EndFunc Func _RELOGIN() $OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "") _WINHTTPRECEIVERESPONSE($OPENREQUEST) $ATA = "" Do $ATA &= _WINHTTPREADDATA($OPENREQUEST) Until @error If StringInStr($ATA, '' & $USER & "", '', 3) $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/admin/minichat/delete/" & $SID[0], "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8", "") _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) Else EndIf EndIf Next EndFunc Func _STRAFE1() $H_OPENREQUESTF = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/member/" & $USER & "/disrespect", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUESTF, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "") _WINHTTPRECEIVERESPONSE($H_OPENREQUESTF) $ANTWORT = "dafür gibts einen respekt punkt weniger" $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "text=" & _HTML_ANT1($ANTWORT)) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) Sleep(3000) $ANTWORT = "" ConsoleWrite("baaad 1") _STRAFEMESS() EndFunc Func _STRAFE2() $H_OPENREQUESTF = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/admin/bans/add/" & $USER, "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUESTF, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "reason=susi+Auto+comuni+Bann+&bantype=2&expires=1&confirm=Ja") _WINHTTPRECEIVERESPONSE($H_OPENREQUESTF) $ANTWORT = $USER & " 1 std bann hast du bekommen!" $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "text=" & _HTML_ANT1($ANTWORT)) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) Sleep(3000) $ANTWORT = "" ConsoleWrite("baaad 2") _STRAFEMESS() EndFunc Func _STRAFE3() $H_OPENREQUESTF = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/admin/bans/add/" & $USER, "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUESTF, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "reason=susi+Auto+comuni+Bann+&bantype=2&expires=12&confirm=Ja") _WINHTTPRECEIVERESPONSE($H_OPENREQUESTF) $ANTWORT = $USER & " 12 std bann hast du bekommen! Sorry so geht das nicht !!!" $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "text=" & _HTML_ANT1($ANTWORT)) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) Sleep(3000) $ANTWORT = "" ConsoleWrite("baaad 3") _STRAFEMESS() If BitAND(GUICtrlRead($CHECKBOX3), $GUI_CHECKED) Then _MAIL() $BANNSTATUSR = IniRead(@ScriptDir & "\Badword.ini", "bannstat", "gebannt", "0") IniWrite(@ScriptDir & "\Badword.ini", "bannstat", "gebannt", $BANNSTATUSR + 1) EndFunc Func _STRAFE4() $H_OPENREQUESTF = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/admin/bans/add/" & $USER, "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUESTF, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "reason=susi+Auto+Bann+&bantype=1&expires=24&confirm=Ja") _WINHTTPRECEIVERESPONSE($H_OPENREQUESTF) $ANTWORT = $USER & " 24 std bann !! Nochmal und ich lösche dich!" $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "text=" & _HTML_ANT1($ANTWORT)) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) Sleep(3000) $ANTWORT = "" ConsoleWrite("baaad 4") _STRAFEMESS() If BitAND(GUICtrlRead($CHECKBOX3), $GUI_CHECKED) Then _MAIL() $BANNSTATUSR = IniRead(@ScriptDir & "\Badword.ini", "bannstat", "gebannt", "0") IniWrite(@ScriptDir & "\Badword.ini", "bannstat", "gebannt", $BANNSTATUSR + 1) EndFunc Func _STRAFEMESS() $ANTWORT22 = $USER & "s letzer eintrag wurde von mir gelöscht!!" $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "text=" & _HTML_ANT1($ANTWORT22)) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) EndFunc Func _READINI($SUCHE) $ININAMES = IniReadSectionNames(@ScriptDir & "\susi.ini") For $GG = 0 To $ININAMES[0] - 1 If StringInStr($SUCHE, $ININAMES[$GG], 0) Then $PART = $GG $VAR = IniReadSection(@ScriptDir & "\susi.ini", $ININAMES[$PART]) If @error Then Return For $D = 0 To $VAR[0][0] Next $ANZ = $VAR[0][0] $ANZ2 = $VAR[0][1] Global $ANTWORT = $VAR[Random(1, $ANZ)][1] _SUCHSUSI() _SLEEP() Else EndIf Next EndFunc Func _SUCHSUSI() If $CHATUSR[$CHATE - 1] = "susi" Then Global $ANTWORT = "" Else _SENDEMESSAGE() $PAUSE = IniRead(@ScriptDir & "/susiconf.ini", "susipause", "pause", "7") EndIf EndFunc Func _SLEEP() $WERT = 100 GUICtrlSetData($PROGRESS1, $WERT) For $TT = 0 To $PAUSE $WERT = $WERT - $WERT / $PAUSE GUICtrlSetData($PROGRESS1, $WERT) Sleep(500) Next GUICtrlSetData($PROGRESS1, 0) GUICtrlSetData($LABEL1, "Pause: " & $PAUSE / 2 & " Sekunden") If $PAUSE >= 25 Then $PAUSE = 20 $PAUSE = $PAUSE + 1 EndFunc Func _SENDEMESSAGE() $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "text=" & _HTML_ANT1($ANTWORT)) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) Sleep(3000) $ANTWORT = "" EndFunc Func _SUCH() If StringInStr($SUCHE, "version", 2) Then VERSION() If $PAUSE >= 45 Then $PAUSE = 35 $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "") _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) $DATA = "" Do $DATA &= _WINHTTPREADDATA($H_OPENREQUEST) Until @error _WINHTTPCLOSEHANDLE($H_OPENREQUEST) If StringInStr($DATA, "chatbar", 0) Then Global $CHATTEXT = StringRegExp(_HTML_EDIT($DATA), '76%">(.*?)<', 3) If Not IsArray($CHATTEXT) Then Return 0 $CHATUSR = StringRegExp($DATA, 'member/(.*?)" class', 3) $ADMIN = StringRegExp($DATA, 'level(.*?)">', 3) For $GG = 0 To UBound($CHATUSR) - 1 If Not IsArray($CHATTEXT) Then _SUCH() Next Global $CHATE = $GG GUICtrlSetData($EDIT1, "") For $DN = 0 To $CHATE - 1 GUICtrlSetData($EDIT1, $CHATUSR[$DN] & ": " & $CHATTEXT[$DN] & @CRLF, $DN + 1) Next $ADMINPAUSE = StringReplace($ADMIN[$DN - 1], " vip", "") Global $USER = $CHATUSR[$CHATE - 1] Global $SUCHE = $CHATTEXT[$CHATE - 1] If StringInStr($ADMINPAUSE & $SUCHE, "1pause", 2) Then _USERPAUSE() If StringInStr($ADMINPAUSE & $SUCHE, "2pause", 2) Then _MODPAUSE() If StringInStr($ADMINPAUSE & $SUCHE, "3pause", 2) Then _MODPAUSE() If StringInStr($ADMINPAUSE & $SUCHE, "4pause", 2) Then _ADMINPAUSE() If StringInStr($ADMINPAUSE & $SUCHE, "5pause", 2) Then _ADMINPAUSE() If StringInStr($ADMINPAUSE & $SUCHE, "6pause", 2) Then _GGPAUSE() If StringInStr($ADMINPAUSE & $SUCHE, "5respekt 4 all", 2) Then _ONLINERES() If StringInStr($ADMINPAUSE & $SUCHE, "5vip 4 all", 2) Then _ONLINEVIP() If StringInStr($ADMINPAUSE & $SUCHE, "6respekt 4 all", 2) Then _ONLINERES() If StringInStr($ADMINPAUSE & $SUCHE, "6vip 4 all", 2) Then _ONLINEVIP() If StringInStr($ADMINPAUSE & $SUCHE, "4respekt 4 all", 2) Then _ONLINERES() If StringInStr($ADMINPAUSE & $SUCHE, "4vip 4 all", 2) Then _ONLINEVIP() $BIERWORT = IniRead(@ScriptDir & "\bier.ini", "Einstellungen", "bier_aktiv", "bier runde") If StringInStr($SUCHE, $BIERWORT, 2) Then If BitAND(GUICtrlRead($CHECKBOX2), $GUI_CHECKED) Then _BIER() Else Dim $BIERA[6] $BIERA[0] = "Sorry Bier ist alle :( " $BIERA[1] = "Leider kein Bier mehr hier :(" $BIERA[2] = "lalal ih kan gein pier mer ausschengen higs" $BIERA[3] = "Bier ist lalala Tralalalala lalala" $BIERA[4] = "wah ist mir schlecht - kein Bier mehr Heute" $BIERA[5] = "Sperr Stunde Kinder und Alkis bekommen kein Bier mehr" $BIERB = Round(Random(0, 5)) $BIERAUS = $BIERA[$BIERB] $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "text= " & $BIERAUS) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) EndIf EndIf $DROGENWORT = IniRead(@ScriptDir & "\drogen.ini", "Einstellungen", "drogen_aktiv", "drugtime") If StringInStr($SUCHE, $DROGENWORT, 2) Then If BitAND(GUICtrlRead($CHECKBOX7), $GUI_CHECKED) Then _DRUG() Else Local $DRUGA[6] $DRUGA[0] = "Sorry Drogen sind alle :( " $DRUGA[1] = "Leider keine Drogen mehr hier :(" $DRUGA[2] = "Die Nase muss erstmal heilen!" $DRUGA[3] = "Drogen schniieeeeffffffff" $DRUGA[4] = "wah bin ich stoned - keine Drogen mehr Heute" $DRUGA[5] = "Sperr Stunde Kinder und Druggis bekommen keine Drogen mehr" $DRUGB = Round(Random(0, 5)) $DRUGAUS = $DRUGA[$DRUGB] $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "text= " & $DRUGAUS) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) EndIf EndIf If StringInStr($SUCHE, "oü", 0) Then _OUE() If StringInStr($SUCHE, "susi einen Respektpunkt", 2) Then _RESPECKT() If StringInStr($SUCHE, "Wetter", 2) Then _CHECK() _READINI($SUCHE) Else EndIf EndFunc Func _ONLINEMUNI() EndFunc Func _ONLINEVIP() GUICtrlSetData($LABEL1, "Admin vip aufgerufen") $H_OPENREQUEST5 = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/online", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST5, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "") _WINHTTPRECEIVERESPONSE($H_OPENREQUEST5) $DATA5 = "" Do $DATA5 &= _WINHTTPREADDATA($H_OPENREQUEST5) Until @error If StringInStr($DATA5, "

Mitglieder online

", 0) Then Global $ONLINE = _StringBetween($DATA5, "

Mitglieder online

", " $XPICK[0] Then XSKINANERROR("XSkinAnimate, $Xstyle max is 19 ") If $XSTYLE <> 0 Then Local $RET = DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $XWND, "int", $XSPEED, "long", "0x000" & $XPICK[$XSTYLE]) If $XTRANS <> 0 Then WinSetTrans($XWND, "", $XTRANS) If $XSTATE = 1 Then GUISetState(@SW_SHOW, $XWND) If $XSTATE = 2 Then GUISetState(@SW_HIDE, $XWND) If $XSTYLE <> 0 Then Return $RET EndFunc Func XSKINANERROR($XE_MSG) MsgBox(262208, "XSkin Error", $XE_MSG, 5) Exit EndFunc Func VERSION() $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "text=" & $VERSION) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) EndFunc Func _USERPAUSE() GUICtrlSetData($LABEL1, "user Pause") $MINPAUSE = Round(Random(100, 300)) $MINIT = Round($MINPAUSE / 60) Dim $MODP[10] $MODP[0] = "Wieso sollte ich meinen schnabel halten?" $MODP[1] = "nene :)" $MODP[2] = "zaa Nein tu ich nicht :(" $MODP[3] = "ach komm reicht schon wenn mich mods nerven" $MODP[4] = "hahaha aber nicht wirklich :( pause pause beehhhh" $MODP[5] = "Ich mache 5 min Pause .-.-.- denkste :( " $MOD = Round(Random(0, 5)) $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "text=" & $MODP[$MOD]) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) EndFunc Func _MODPAUSE() GUICtrlSetData($LABEL1, "Mod Pause") $MINPAUSE = Round(Random(200, 600)) $MINIT = Round($MINPAUSE / 60) Dim $MODP[10] $MODP[0] = "grr Mod OK " & $MINIT & " Minuten bin ich ruhig.. Wiederwillig!" $MODP[1] = $MINIT & " Minuten habt ihr nun ruhe ich hasse mods :(" $MODP[2] = "Hmm als mod so frech dennoch " & $MINIT & " Minuten habt ihr mal ruhe" $MODP[3] = "ein Moderator befiehl mir " & $MINIT & " Minuten bin ich ruhig.. Aufstand!!" $MODP[4] = "ja Herr Moderator so kann mann ja mit frauen umgehen " & $MINIT & " Minuten ruhe" $MODP[5] = $MINIT & " Minuten bin ich ruhig Ach komm Modi lass das bitte! (6)" $MODP[6] = "Bitte Herr mod dings " & $MINIT & " Minuten Ruhe und mach das grr nie wieder!" $MOD = Round(Random(0, 6)) $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "text=" & $MODP[$MOD]) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) Sleep($MINPAUSE & "000") GUICtrlSetData($LABEL1, "mod Pause aus") $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") $PAUSEALL = Round(Random(0, 6)) _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "text=" & $PAUSEA[$PAUSEALL]) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) EndFunc Func _ADMINPAUSE() GUICtrlSetData($LABEL1, "Admin Pause") $AINPAUSE = Round(Random(300, 900)) $AINIT = Round($AINPAUSE / 60) Dim $AAODP[10] $AAODP[0] = "Ja herr admin " & $AINIT & " Minuten bin ich ruhig." $AAODP[1] = $AINIT & " Minuten habt ihr nun ruhe bis dann" $AAODP[2] = "klaro " & $AINIT & " Minuten habt ihr mal ruhe" $AAODP[3] = "hihi " & $AINIT & " Minuten bin ich ruhig.. " $AAODP[4] = "Sicherlich :) " & $AINIT & " Minuten ruhe" $AAODP[5] = $AINIT & " Minuten hasste ruhe :)" $AAODP[6] = "oky " & $AINIT & " Minuten Ruhe" $AAOD = Round(Random(0, 6)) $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "text=" & $AAODP[$AAOD]) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) Sleep($AINPAUSE & "000") GUICtrlSetData($LABEL1, "Admin Pause aus") $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") $PAUSEALL = Round(Random(0, 6)) _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "text=" & $PAUSEA[$PAUSEALL]) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) EndFunc Func _GGPAUSE() GUICtrlSetData($LABEL1, "Besitzer Pause") $AAMINPAUSE = Round(Random(400, 1200)) $AAMINIT = Round($AAMINPAUSE / 60) Dim $AAODP[4] $AAODP[0] = $AAMINIT & " Minuten ruhig." $AAODP[1] = $AAMINIT & " Minuten ruhe bis dann" $AAODP[2] = $AAMINIT & " Minuten ruhe" $AAODP[3] = $AAMINIT & " Minuten hasste ruhe" $AOD = Round(Random(0, 3)) $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "text=" & $AAODP[$AOD]) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) Sleep($AAMINPAUSE & "000") GUICtrlSetData($LABEL1, "Besitzer Pause aus") $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") $PAUSEALL = Round(Random(0, 6)) _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "text=" & $PAUSEA[$PAUSEALL]) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) EndFunc Func _PAUSEMAN() GUICtrlSetData($LABEL1, "!!!Dauer Pause aktive!!!") ToolTip("Susi macht eine Pause", 0, 0) $PAUSED = Not $PAUSED While $PAUSED $RET = XSKINANIMATE($XSKINGUI, 100, 4) Sleep(50) $RET = XSKINANIMATE($XSKINGUI, 20, 3) WEnd GUICtrlSetData($LABEL1, "Pause aus") ToolTip("") EndFunc Func _CHECK() $NAME = IniRead("gadget.ini", "Wetter", "Name", "0") If $NAME = "0" Then #Region --- CodeWizard generated code Start --- $NAME = InputBox("Wetter-Information", "Es ist noch kein Stadtname bekannt. Bitte tippen Sie Ihren Stadtnamen oder DE für eine deutschlandweite Übersicht ein.", "", "", "-1", "-1", "-1", "-1") Select Case @error = 0 IniWrite("Gadget.ini", "Wetter", "Name", $NAME) _CHECK() Case @error = 1 Exit Case @error = 3 EndSelect #EndRegion --- CodeWizard generated code Start --- EndIf If $NAME = "DE" Then _DEUTSCHLAND() Else _STADT() EndIf EndFunc Func _STADT() $ARRAY = _StringBetween(_INetGetSource("http://www.meteo24.de/wetter/index.php?go=7&cid=49X2823&design=9&cityName=" & $NAME & "&disableflash=1"), '') $LINK = _ArrayToString($ARRAY, "") $ARRAY = _StringBetween(_INetGetSource($LINK), '', "
") $LINK = _ArrayToString($ARRAY, "") $ARRAY = _StringBetween($LINK, 'max', "") $MAXTEMP = _ArrayToString($ARRAY, "") $ARRAY = _StringBetween($MAXTEMP, '', " °C") $MAXTEMP = _ArrayToString($ARRAY) $ARRAY = _StringBetween($LINK, 'min', "") $MINTEMP = _ArrayToString($ARRAY, "") $ARRAY = _StringBetween($MINTEMP, '', " °C") $MINTEMP = _ArrayToString($ARRAY) $ARRAY = _StringBetween($LINK, "', "
") $WINDRICHTUNG = _ArrayToString($ARRAY, "") $ARRAY = _StringBetween($WINDSTAERKE, "
", " km/h") $WINDSTAERKE = _ArrayToString($ARRAY, "") $ARRAY = _StringBetween($LINK, '') $WETTER = _ArrayToString($ARRAY, "") $ARRAY = _StringBetween($WETTER, '', "") $WETTER = _ArrayToString($ARRAY, "") If $WINDRICHTUNG = "S" Then $WINDRICHTUNG = "Sueden" If $WINDRICHTUNG = "N" Then $WINDRICHTUNG = "Norden" If $WINDRICHTUNG = "W" Then $WINDRICHTUNG = "Westen" If $WINDRICHTUNG = "O" Then $WINDRICHTUNG = "Osten" If $WINDRICHTUNG = "SW" Then $WINDRICHTUNG = "Sued West" If $WINDRICHTUNG = "SO" Then $WINDRICHTUNG = "Sued Ost" If $WINDRICHTUNG = "NW" Then $WINDRICHTUNG = "Nord West" If $WINDRICHTUNG = "NO" Then $WINDRICHTUNG = "Nord Ost" If $WINDRICHTUNG = "NNO" Then $WINDRICHTUNG = "Nord Nord Ost" If $WINDRICHTUNG = "ONO" Then $WINDRICHTUNG = "Ost Nord Ost" If $WINDRICHTUNG = "OSO" Then $WINDRICHTUNG = "Ost Sued Ost" If $WINDRICHTUNG = "SSO" Then $WINDRICHTUNG = "Sued Sued Ost" If $WINDRICHTUNG = "SSW" Then $WINDRICHTUNG = "Sued Sued West" If $WINDRICHTUNG = "WSW" Then $WINDRICHTUNG = "West Sued West" If $WINDRICHTUNG = "WNW" Then $WINDRICHTUNG = "West Nord West" If $WINDRICHTUNG = "NNW" Then $WINDRICHTUNG = "Nord Nord West" $WINDKOMMENTAR = "Orkan" If $WINDSTAERKE < 120 Then $WINDKOMMENTAR = "ein orkanartiger Sturm" If $WINDSTAERKE < 102 Then $WINDKOMMENTAR = "ein schwerer Sturm" If $WINDSTAERKE < 83 Then $WINDKOMMENTAR = "ein Sturm" If $WINDSTAERKE < 74 Then $WINDKOMMENTAR = "stuermischer Wind" If $WINDSTAERKE < 65 Then $WINDKOMMENTAR = "starker bis stuermischer Wind" If $WINDSTAERKE < 56 Then $WINDKOMMENTAR = "starker Wind" If $WINDSTAERKE < 46 Then $WINDKOMMENTAR = "frischer Wind" If $WINDSTAERKE < 37 Then $WINDKOMMENTAR = "maeßiger Wind" If $WINDSTAERKE < 28 Then $WINDKOMMENTAR = "schwacher Wind" If $WINDSTAERKE < 19 Then $WINDKOMMENTAR = "leichter Wind" If $WINDSTAERKE < 9 Then $WINDKOMMENTAR = "geringer Wind" If $WINDSTAERKE < 3 Then $WINDKOMMENTAR = "Windstille" $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "text=Heute wird es " & $WETTER & " sein. ") _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "text=Es wird zischen " & $MINTEMP & " und " & $MAXTEMP & " Grad warm.") _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "text=" & $WINDKOMMENTAR & " aus " & $WINDRICHTUNG & " blaest mit zirka " & $WINDSTAERKE & " Kilometern pro Stunde.") _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) EndFunc Func _DEUTSCHLAND() $HTML = _INetGetSource("http://wetter.welt.de/index.php") $ABDA = '

' $BISDA = "

" $DE = _StringBetween($HTML, $ABDA, $BISDA) $DEUTSCHLAND = _ArrayToString($DE, "") Exit EndFunc Func _ONLINERES() GUICtrlSetData($LABEL1, "Admin Respeckt aufgerufen") $H_OPENREQUEST5 = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/online", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST5, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "") _WINHTTPRECEIVERESPONSE($H_OPENREQUEST5) $DATA5 = "" Do $DATA5 &= _WINHTTPREADDATA($H_OPENREQUEST5) Until @error If StringInStr($DATA5, "

Mitglieder online

", 0) Then Global $ONLINE = _StringBetween($DATA5, "

Mitglieder online

", "Konto', "") $MMCODE = IniRead(@ScriptDir & "\bier.ini", "Einstellungen", "mmcode", "36") $GELDGUCK2 = StringRegExp($GELDGUCK3[0], 'class="tcell">&#' & $MMCODE & "; (.*?)", 3) $GELD = StringReplace($GELDGUCK2[0], ".", "", 0) If $BIER * $BIERUSER <= $GELD Then ConsoleWrite($BIER & @CRLF) ConsoleWrite($GELD & @CRLF) TrayTip("", $USER & " hat bier gekauft ", 10) $PAUSE = "4" $GES = $BIER * $BIERUSER $POST30 = "bank=" & $GES & "&min=%2B" $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", "/admin/edit-member/" & $USER, "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8", $POST30) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) ConsoleWrite("kontoabzug:$ " & $GES & @CRLF) $VAR = IniReadSection(@ScriptDir & "\bier.ini", "text") For $D = 0 To $VAR[0][0] Next $ANZ = $VAR[0][0] $ANZ2 = $VAR[0][1] Global $0ANTWORT = $VAR[Random(1, $ANZ)][1] $0ANTWORT = StringReplace($0ANTWORT, "ä", "%C3%A4") $0ANTWORT = StringReplace($0ANTWORT, "ü", "%C3%BC") $0ANTWORT = StringReplace($0ANTWORT, "ö", "%C3%B6") $0ANTWORT = StringReplace($0ANTWORT, "§", "%C3%B8") $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "text= " & $0ANTWORT) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) $USERPUNKT = IniRead(@ScriptDir & "/bier.ini", "Bier", $USER, "0") IniWrite(@ScriptDir & "/bier.ini", "Bier", $USER, $USERPUNKT + 1) $2VAR = IniReadSection(@ScriptDir & "\bier.ini", "wertung") For $2D = 0 To $2VAR[0][0] Next $2ANZ = $2VAR[0][0] $2ANZ2 = $2VAR[0][1] Global $2ANTWORT = $2VAR[Random(1, $2ANZ)][1] ConsoleWrite($2ANTWORT) $2ANTWORT = StringReplace($2ANTWORT, "ä", "%C3%A4") $2ANTWORT = StringReplace($2ANTWORT, "ü", "%C3%BC") $2ANTWORT = StringReplace($2ANTWORT, "ö", "%C3%B6") $2ANTWORT = StringReplace($2ANTWORT, "§", "%C3%B8") $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "text= " & $2ANTWORT) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) $GELDWIN = IniReadSection(@ScriptDir & "\bier.ini", "Gewinne_konto") For $KONTO = 1 To $GELDWIN[0][0] If $USERPUNKT = $GELDWIN[$KONTO][0] Then $WCC = $GELDWIN[$KONTO][1] $ARTWIN = "kohle" $CODE = "bank=" & $WCC & "&plus=%2B" _WIN() EndIf Next Else $3VAR = IniReadSection(@ScriptDir & "\bier.ini", "kein_geld") TrayTip("", $USER & " hatte kein Geld!", 10) For $3D = 0 To $3VAR[0][0] Next $3ANZ = $3VAR[0][0] $3ANZ2 = $3VAR[0][1] Global $3ANTWORT = $3VAR[Random(1, $3ANZ)][1] ConsoleWrite($3ANTWORT) $3ANTWORT = StringReplace($3ANTWORT, "ä", "%C3%A4") $3ANTWORT = StringReplace($3ANTWORT, "ü", "%C3%BC") $3ANTWORT = StringReplace($3ANTWORT, "ö", "%C3%B6") $3ANTWORT = StringReplace($3ANTWORT, "§", "%C3%B8") $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "text= " & $3ANTWORT) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) EndIf EndFunc Func _DRUG() $DRUG = IniRead(@ScriptDir & "\drogen.ini", "Einstellungen", "drogen_kostet", "7") $DRUGUSER = IniRead(@ScriptDir & "\drogen.ini", "Einstellungen", "anzahl_user", "50") GUICtrlSetData($LABEL1, $USER & " gibt ne Line aus") TrayTip("", $USER & " kauft Drogen", 10) $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", "/admin/edit-member/" & $USER, "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "") _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) $DATA2 = "" Do $DATA2 &= _WINHTTPREADDATA($H_OPENREQUEST) Until @error _WINHTTPCLOSEHANDLE($H_OPENREQUEST) $GELDGUCK3 = _StringBetween($DATA2, '"tcell">Konto', "") $MMCODE = IniRead(@ScriptDir & "\drogen.ini", "Einstellungen", "mmcode", "36") $GELDGUCK2 = StringRegExp($GELDGUCK3[0], 'class="tcell">&#' & $MMCODE & "; (.*?)", 3) $GELD = StringReplace($GELDGUCK2[0], ".", "", 0) If $DRUG * $DRUGUSER <= $GELD Then ConsoleWrite($DRUG & @CRLF) ConsoleWrite($GELD & @CRLF) TrayTip("", $USER & " hat Drogen gekauft ", 10) $PAUSE = "4" $GES = $DRUG * $DRUGUSER $POST30 = "bank=" & $GES & "&min=%2B" $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", "/admin/edit-member/" & $USER, "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8", $POST30) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) ConsoleWrite("kontoabzug:$ " & $GES & @CRLF) $VAR = IniReadSection(@ScriptDir & "\drogen.ini", "text") For $D = 0 To $VAR[0][0] Next $ANZ = $VAR[0][0] $ANZ2 = $VAR[0][1] Global $0ANTWORT = $VAR[Random(1, $ANZ)][1] $0ANTWORT = StringReplace($0ANTWORT, "ä", "%C3%A4") $0ANTWORT = StringReplace($0ANTWORT, "ü", "%C3%BC") $0ANTWORT = StringReplace($0ANTWORT, "ö", "%C3%B6") $0ANTWORT = StringReplace($0ANTWORT, "§", "%C3%B8") $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "text= " & $0ANTWORT) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) $USERPUNKT = IniRead(@ScriptDir & "\drogen.ini", "Drogen", $USER, "0") IniWrite(@ScriptDir & "/drogen.ini", "Drogen", $USER, $USERPUNKT + 1) $2VAR = IniReadSection(@ScriptDir & "\drogen.ini", "wertung") For $2D = 0 To $2VAR[0][0] Next $2ANZ = $2VAR[0][0] $2ANZ2 = $2VAR[0][1] Global $2ANTWORT = $2VAR[Random(1, $2ANZ)][1] ConsoleWrite($2ANTWORT) $2ANTWORT = StringReplace($2ANTWORT, "ä", "%C3%A4") $2ANTWORT = StringReplace($2ANTWORT, "ü", "%C3%BC") $2ANTWORT = StringReplace($2ANTWORT, "ö", "%C3%B6") $2ANTWORT = StringReplace($2ANTWORT, "§", "%C3%B8") $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "text= " & $2ANTWORT) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) $CCWIN = IniReadSection(@ScriptDir & "\drogen.ini", "Gewinne_cc") For $CC = 1 To $CCWIN[0][0] If $USERPUNKT = $CCWIN[$CC][0] Then $WCC = $CCWIN[$CC][1] $ARTWIN = "Credits" $CODE = "credits=" & $WCC & "&plus=%2B" _WINN() EndIf Next Else $3VAR = IniReadSection(@ScriptDir & "\drogen.ini", "kein_geld") TrayTip("", $USER & " hatte kein Geld!", 10) For $3D = 0 To $3VAR[0][0] Next $3ANZ = $3VAR[0][0] $3ANZ2 = $3VAR[0][1] Global $3ANTWORT = $3VAR[Random(1, $3ANZ)][1] ConsoleWrite($3ANTWORT) $3ANTWORT = StringReplace($3ANTWORT, "ä", "%C3%A4") $3ANTWORT = StringReplace($3ANTWORT, "ü", "%C3%BC") $3ANTWORT = StringReplace($3ANTWORT, "ö", "%C3%B6") $3ANTWORT = StringReplace($3ANTWORT, "§", "%C3%B8") $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "text= " & $3ANTWORT) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) EndIf EndFunc Func _WIN() $WINTEXT = $USER & " du hast f%C3%BCr deine " & $USERPUNKT & " Bier " & $WCC & " " & $ARTWIN & " gewonnen" $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "text= " & $WINTEXT) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", "/admin/edit-member/" & $USER, "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8", $CODE) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) EndFunc Func _WINN() $WINTEXT = $USER & " du hast f%C3%BCr deine " & $USERPUNKT & " Drogen " & $WCC & " " & $ARTWIN & " gewonnen" $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "/minichat", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "text= " & $WINTEXT) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", "/admin/edit-member/" & $USER, "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8", $CODE) _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) EndFunc Func _UPDATE() GUICtrlSetData($LABEL1, "Suche nach updates!") Local $PING = Ping("susibot.de", 600) If $PING Then FileDelete(@TempDir & "\update.txt") InetGet("http://susibot.de/susiupdate/update.txt", @TempDir & "\update.txt", 1, 0) $FILE = FileOpen(@TempDir & "\update.txt", 0) $VER_SER = FileReadLine($FILE, 1) $VER_SERVER = FileReadLine($FILE, 2) $VER_SERVER2 = FileReadLine($FILE, 3) $VER_SERVER3 = FileReadLine($FILE, 4) $VER_SERVER4 = FileReadLine($FILE, 5) $VER_SERVER5 = FileReadLine($FILE, 6) $VER_SERVER6 = FileReadLine($FILE, 7) $VER_SERVER7 = FileReadLine($FILE, 8) $VER_SERVER8 = FileReadLine($FILE, 9) $VER_SERVER9 = FileReadLine($FILE, 10) $VER_PC = IniRead("susiconf.ini", "Info", "Version", "") ConsoleWrite($VER_SER & @CRLF) ConsoleWrite($VER_PC & @CRLF) If $VER_SERVER = $VER_PC Or $VER_SERVER = "" Then ToolTip("Keine Neuen updates") GUICtrlSetData($LABEL1, "Keine Updates gefunden!") FileClose($FILE) FileDelete(@TempDir & "\update.txt") Sleep(1500) Else $MSGBOX = MsgBox(36, "Update! für Susi " & $VER_SERVER & " ist Online!", "Es ist Version " & $VER_SERVER & " verfügbar! " & @CRLF & "Deine Aktuelle Version ist " & $VER_PC & @CRLF & @CRLF & "Willst du runterladen?" & @CRLF & @CRLF & $VER_SERVER2 & @CRLF & $VER_SERVER3 & @CRLF & $VER_SERVER4 & @CRLF & $VER_SERVER5 & @CRLF & $VER_SERVER6 & @CRLF & $VER_SERVER7 & @CRLF & $VER_SERVER8, 10) If $MSGBOX = 6 Then ToolTip("Update " & $VER_SERVER & " wird runtergeladen... bitte warten :-)") GUICtrlSetData($LABEL1, $VER_SERVER & " wird runtergeladen... bitte warten") InetGet("http://susibot.de/susiupdate/" & $VER_SER, @ScriptDir & "\" & $VER_SER, 1, 0) IniWrite("susiconf.ini", "Info", "Version", $VER_SERVER) FileClose($FILE) FileDelete(@ScriptDir & "\info.txt") ToolTip("") ConsoleWrite($MSGBOX & @CRLF) If Not IsDeclared("iMsgBoxAnswer") Then Local $IMSGBOXANSWER $IMSGBOXANSWER = MsgBox(68, "Update Erfolgreich!", "Willst du Susi nun Beenden und das Update Starten?") Select Case $IMSGBOXANSWER = 6 GUICtrlSetData($LABEL1, $VER_SERVER & " wird gestartet !... bitte warten") InetGet("http://susibot.de/susiupdate/update.txt", @ScriptDir & "\info.txt", 1, 0) Sleep(250) ConsoleWrite("Starte " & $VER_SER) Run(@ScriptDir & "\" & $VER_SERVER) ShellExecute("info.txt", "", @ScriptDir, "edit") Sleep(450) Exit Case $IMSGBOXANSWER = 7 EndSelect EndIf EndIf Else ToolTip("Update Server Nicht online!") GUICtrlSetData($LABEL1, " Update Server Offline") EndIf ToolTip("") EndFunc Func _PING() Local $PING = Ping($SIDE, 1000) If $PING Then Else GUICtrlSetData($LABEL1, $SIDE & " Nicht erreichbar !! ") GUICtrlSetFont(-1, 6, 400, 0, "Comic Sans MS") Sleep(5000) Local $PING = Ping($SIDE, 1000) If $PING Then Else GUICtrlSetData($LABEL1, $SIDE & " Nicht erreichbar !! ") GUICtrlSetFont(-1, 4, 400, 0, "Comic Sans MS") Sleep(5000) EndIf EndIf EndFunc Func _CHATDEL() EndFunc Func _LAND() $H_OPENREQUEST = _WINHTTPOPENREQUEST($HW_CONNECT, "POST", $SIDE2 & "admin/edit-member/" & $BOTN & "", "HTTP/1.1", "http://www." & $SIDE & "/") _WINHTTPSENDREQUEST($H_OPENREQUEST, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, "") _WINHTTPRECEIVERESPONSE($H_OPENREQUEST) If _WINHTTPQUERYDATAAVAILABLE($H_OPENREQUEST) Then Local $BESITZ = "" Do $BESITZ &= _WINHTTPREADDATA($H_OPENREQUEST) Until @error <> 0 Global $LANDX = _StringBetween($BESITZ, 'Land', "") ConsoleWrite($BESITZ & @CRLF) Global $LAND = StringRegExp($LANDX[0], "