PinGAll

This is a discussion on PinGAll within the Warcraft 3 Hacks, bots and tools board part of the Warcraft 3 forum category; Code: 'pinGALL '1.0 '---- By DrOiD3 ** version en plugin *** Sub pingall_event_UserTalk(Username, Flags, Message, Ping) 'consigo el access del ...

Results 1 to 3 of 3
  1. #1
    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

    PinGAll

    Code:
    'pinGALL
    '1.0
    '---- By DrOiD3 ** version en plugin ***
     
    Sub pingall_event_UserTalk(Username, Flags, Message, Ping)
    'consigo el access del username en la variable access
    Call ssc.GetDBEntry(username, Access, Flags)
    if Access >= 70 then 
    
    If LCase(Left(Message, 8)) = botvars.trigger & "pingall" Then
    s = ""
    Hping = 0
    Lping = 8000
    for i = 1 to GetInternalUserCount()
    c=c+1
    'if i < 14 then
    if int(GetInternalData(i, 2)) > 0 then
    If int(GetInternalData(i, 2)) >= int(Hping) Then
        Hping = GetInternalData(i, 2)
        HpingUsr = GetNameByPosition(i)
     End If
     If GetInternalData(i, 2) <= Lping Then
        Lping = GetInternalData(i, 2)
        LpingUsr = GetNameByPosition(i)
     End If
    end if
    if i<14 then s = s & GetNameByPosition(i) & " [" & GetInternalData(i, 2) & "], "
    if i>14 then s2 = s2 & GetNameByPosition(i) & " [" & GetInternalData(i, 2) & "], "
    if i>28 then s3 = s3 & GetNameByPosition(i) & " [" & GetInternalData(i, 2) & "], "
    'end if
    next
    s = s & ".."
    s2 = s2 & ".."
    StrText = " | PiNG > : " & HpingUsr & " : " &hping & "! | PiNG < : " & LpingUsr & " : " & Lping & "! | " & c & " PLaYeRs "
    'Pinger_xaddq left(s, len(s) - 2), ", "
    addq s
    addq s2
    addq s3
    addq "/emote " & StrText
    End If
    end if
    end sub



  2. #2
    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
    it can have some bugs in clan-channels, it says ping for other ppl, like:
    me : 78, he : 90
    and say me 90 and he 78 ;D

  3. #3
    M I C H A is offline Member
    Array
    Join Date
    Jul 2009
    Posts
    40
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    9
    Reputation
    1
    Works perfektly, transleted into german. Well done script
    I've not regognized XIN's bug until yet.

Posting Permissions

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