Hackers in channel, made by T[x]aS !

This is a discussion on Hackers in channel, made by T[x]aS ! within the Warcraft 3 Hacks, bots and tools board part of the Warcraft 3 forum category; well, i know its useless for mhers, but if u go inside, u just can change hacker by pgm or ...

Results 1 to 8 of 8
  1. #1
    xiN
    xiN is offline Guess who's back ?
    Array
    Join Date
    Feb 2007
    Location
    Six feet under
    Posts
    1,580
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    12
    Reputation
    358

    Hackers in channel, made by T[x]aS !

    well, i know its useless for mhers, but if u go inside, u just can change hacker by pgm or so


    > Removed <

    Last edited by T[X]AS; 09-13-2008 at 08:07 PM. Reason: Removed

  2. #2
    DaMiTroU is offline Newbie
    Array
    Join Date
    Nov 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0
    thanks !
    really nice :p

  3. #3
    lolercakess's Avatar
    lolercakess is offline Member
    Array
    Join Date
    Jul 2007
    Posts
    49
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    11
    Reputation
    41
    Thx x-freeloose-x i love You :p

  4. #4
    taipon_92 is offline Newbie
    Array
    Join Date
    Apr 2007
    Posts
    7
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0
    'gosu
    '1.0
    'By DrOiD
    dim TxtAll
    Dim gosuDetected
    Dim PgM

    Sub gOsU_Event_Load()


    call ActualizaArraygosu()
    addchat vborange, ">> DrOiD's gOsU MANAGER LOADED | Comands: gosuinchannel | gosudetected | addgosu <HAcker> | removegOsU <HAcker> | totalgosu | searchgOsU <pGm>"



    end sub

    Sub gOsU_Event_UserJoins(Username, Flags, Message, Ping, Product, Level, OriginalStatstring)
    if Isgosu(username)="si" then
    addq "/emote ! gOsU DETECTED ! [ " & username & " ] iS a gOsU."
    pos1 = instr(lcase(gosuDetected),lcase(username) )
    if pos1 = 0 then gOsUDetected = gOsUDetected & " | " & Username
    end if
    end sub

    Sub gOsU_event_UserTalk(Username, Flags, Message, Ping)

    'consigo el access del username en la variable access
    Call ssc.GetDBEntry(username, Access, Flags)
    if access < 80 then exit sub

    If LCase(Left(Message, 17)) = BotVars.Trigger & "gosuinchannel" Then call gosuinchannel()
    If LCase(Left(Message, 16)) = BotVars.Trigger & "gosudetected" then
    IF LEN(gOsUDetected)>220 THEN
    addq "/emote -> " & LEFT(gosuDetected,220)
    addq "/emote -> " & MID(gosuDetected,220)
    else
    addq "/emote -> " & gosuDetected
    END IF
    END IF
    If LCase(Left(Message, 11)) = BotVars.Trigger & "addgOsU " then call AddgOsU(mid(message,12))
    If LCase(Left(Message, 14)) = BotVars.Trigger & "removegOsU " then call RemovegOsU(mid(message,15))
    If LCase(Left(Message, 13)) = BotVars.Trigger & "totalgOsU" then
    addq "/emote >> TOTAL SHIT gOsU: " & gOsU & " <<"
    end if
    If LCase(Left(Message, 14)) = BotVars.Trigger & "searchgosu " then
    IF Isgosu(mid(message,15))="si" then
    addq "/emote >>> " & mid(message,15) & " iS in gOsU LisT"
    else
    addq "/emote >>> " & mid(message,15) & " iS NoT in gOsU LisT"
    end if
    end if

    If LCase(Left(Message, 12)) = BotVars.Trigger & "gOsUhelp" then
    addq "/w " & username & " Comands: gosuinchannel | gosudetected | addgosu <pGm> | removegosu <PGM> | totalgosu | searchgosu"
    end if


    end sub

    Sub gosuinchannel()

    addq "/emote >> DETECTING gosu IN CHANNEL << WAIT..."

    For i = 1 to GetInternalUserCount()

    if ishacker(GetNameByPosition(i)) = "si" then addq "/emote >> gOsU: " & GetNameByPosition(i)
    next


    addq "/emote >> DONE <<"

    end sub


    Function Isgosu(TxtAcc)

    isgosu = "no"
    nombrefichero = "gosulist.txt"
    filepath = BotPath() & "plugins\" & nombrefichero
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.OpenTextFile(filepath, 1, False)
    Do While Not file.AtEndOfStream
    line = file.ReadLine
    if lcase(line) = lcase(txtacc) then ishacker = "si"
    Loop


    end function

    sub Addgosu(User)
    nombrefichero = "gosulist.txt"
    filepath = BotPath() & "plugins\" & nombrefichero
    Set objFS = CreateObject("Scripting.FileSystemObject")
    Set objTS = objFS.OpenTextFile(filepath, 8)
    ObjTS.WriteLine vbNewLine & user
    'ObjTS.WriteLine user

    call ActualizaArrayHgOsU()
    addq "/emote << " & user & " >> Added To gOsU LiSt | Num. gOsU: " & pGm
    end sub


    Sub RemovegOsU(username)



    'Const FOR_READING = 1
    'Const FOR_WRITING = 2


    strCheckForString = UCase(username)


    Nombrefichero = "gosulist.txt"
    filepath = BotPath() & "plugins\" & nombrefichero
    Set objFS = CreateObject("Scripting.FileSystemObject")
    Set objTS = objFS.OpenTextFile(filepath, 1)
    strContents = objTS.ReadAll
    objTS.Close

    'addchat vbred,strContents

    arrLines = Split(strContents, vbNewLine)
    Set objTS = objFS.OpenTextFile(filepath, 2)



    encuentra = "no"
    For Each strLine In arrLines

    If Not(Left(UCase(LTrim(strLine)),Len(strCheckForStri ng)) = strCheckForString) Then
    if trim(strLine) <> "" then
    objTS.WriteLine strLine
    else
    encuentra = "si"
    end if
    End If
    Next

    call ActualizaArraygOsU()


    if encuentra = "si" then
    addq "/emote >>> DoNe <<< gOsU LiSt UpdateD | Num. gOsU: " & pGm
    else
    addq "/emote >>> NOT FOUND <<< | Num. gOsU: " & PgM
    end if

    end sub





    Sub ActualizaArraygOsU()
    TxtAll = ""
    gosu = 0
    nombrefichero = "gosulist.txt"
    filepath = BotPath() & "plugins\" & nombrefichero
    'addchat vbred , filepath
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.OpenTextFile(filepath, 1, False)
    Do While Not file.AtEndOfStream
    lineT = file.readline
    if lineT <> "" then gosu = gosu +1
    Loop

  5. #5
    taipon_92 is offline Newbie
    Array
    Join Date
    Apr 2007
    Posts
    7
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0
    UserJoins Call Error On File> C:\Program Files\StealthBot\plugins\GoSu.plug
    [00:16:13] Error Number: 501 Description: Illegal assignment




    help me plz plug no found

  6. #6
    t0pcraft- is offline Hacker
    Array
    Join Date
    Jan 2008
    Location
    Under Your Bed
    Posts
    233
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    10
    Reputation
    61
    Quote Originally Posted by X-FreeLoOsE-X View Post
    well, i know its useless for mhers, but if u go inside, u just can change hacker by pgm or so
    what is this script for? i dont understand what youre writing..


  7. #7
    xiN
    xiN is offline Guess who's back ?
    Array
    Join Date
    Feb 2007
    Location
    Six feet under
    Posts
    1,580
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    12
    Reputation
    358
    When you add somebody to the list, and when he enters the channel a message will apper " X is a hacker! ". If you go inside the .plug, you can edit it to " X is a gay! ", or whatever else you want.

  8. #8
    snipe_sck is offline Newbie
    Array
    Join Date
    Oct 2008
    Posts
    1
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    0
    Reputation
    0
    Thanks

Similar Threads

  1. Infochannel plugin, made by T[x]aS ! New version
    By xiN in forum Warcraft 3 Hacks, bots and tools
    Replies: 5
    Last Post: 12-07-2007, 03:17 PM
  2. Kalbintion's Guide To Get To Hidden Area's
    By Kalbintion in forum WoW Private Servers
    Replies: 32
    Last Post: 10-08-2007, 03:33 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •