Infochannel plugin, made by T[x]aS ! New version

This is a discussion on Infochannel plugin, made by T[x]aS ! New version within the Warcraft 3 Hacks, bots and tools board part of the Warcraft 3 forum category; here it is ! i uploaded it because its very good and usefull Code: 'infochannel '1.6 'By DrOiD Dim AhoraC ...

Results 1 to 6 of 6
  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

    Infochannel plugin, made by T[x]aS ! New version

    here it is ! i uploaded it because its very good and usefull



    Code:
    'infochannel
    '1.6
    'By DrOiD
    
    
    Dim AhoraC
    dim Peon,Footman,Knight,Archmage,Medivh,Grunt,Tauren,Far_Seer,Thrall,Ghoul,Abomination,Lich,Tichondrius,Archer
    dim Druid_of_the_Claw,Priestess_of_the_Moon,Furion_Stomrage,Green_Dragon_Whelp,Blue_Dragon,Red_Dragon,Deathwing
    dim Total,LevelSum
    Dim TotalNum
    dim human,Orc,Undead,Night_Elf,Random
    dim estado,StartTime,icgreet
    
    dim TimeLastMsg
    
    Sub infochannel_event_Load()
    	      AhoraC = now()
                  icgreet = "on"
                  Estado = "off"
                  Tseconds1 = 60 '60 seconds
                  Tseconds2 = 50 '60 seconds
                  TimerInterval "infochannel", "Timer1", (Tseconds1)
                  TimerEnabled "infochannel", "Timer1", false
                  TimerInterval "infochannel", "Timer2", (Tseconds2)
                  TimerEnabled "infochannel", "Timer2", false
                  addchat vbOrange, "** DrOiD'S INFOCHANNEL PluG LoaDeD ** Command: .iChannel On/off | .AccTested | .StartTime | .iCTiMER on/off | .ichannel1 | .ichannel2 | .iCGreet on/Off | Access > 120"
    End Sub
    
    
    '// Fires when a user leaves the channel.
     
    Sub infochannel_Event_UserLeaves(Username, Flags)
    	'Addq "/w " & username & " Bye " & username & " !, See You Soon in " & ucase(myChannel)
    End Sub
    
    
    Sub infochannel_event_UserTalk(Username, Flags, Message, Ping)
        Message = lcase(Message)
        Call ssc.GetDBEntry(username, Access, Flags)
    
        if access > 120 then
    
        If LCase(Left(Message, 10)) = BotVars.Trigger & "ichannel " Then
            Estado = mid(Message, 11)
            if estado = "on" then
                addq "/emote ** Infochannel PLuG [On] ChanneL: " & myChannel
                TimerEnabled "infochannel", "Timer1", true
                TimerEnabled "infochannel", "Timer2", true
                StartTime = time
                call Limpia()
            else
                addq "/emote ** Infochannel PLuG [OFF]"
                TimerEnabled "infochannel", "Timer1", false
                TimerEnabled "infochannel", "Timer2", false
                call Limpia()
            end if
        end if
        If LCase(Left(Message, 10)) = BotVars.Trigger & "acctested" Then
                addq "/emote Acc. Tested: [" & total & "]"
        end if
        If LCase(Left(Message, 10)) = BotVars.Trigger & "starttime" Then
                txtMin = DateDiff("s", StartTime, time)
                txtMin = left(txtMin / 60,3)
                addq "/emote Start Time: [" & StartTime & "] " & txtmin & " Minutes ago"
        end if
        If LCase(Left(Message, 9)) = BotVars.Trigger & "ictimer " Then
            IdleMsg = mid(Message, 10)
            if IdleMsg = "on" then
                addq "/emote ** Timer Idle InFoChannel [On] Showing Mode"
                TimerEnabled "infochannel", "Timer1", true
                TimerEnabled "infochannel", "Timer2", true
            else
                addq "/emote ** Timer Idle InFoChannel [OFF] Silence Mode"
                TimerEnabled "infochannel", "Timer1", false
                TimerEnabled "infochannel", "Timer2", false
            end if
        end if
    
        If LCase(Left(Message, 10)) = BotVars.Trigger & "ichannel1" Then
            if estado = "on" then
               call Info1()
            else
               addq "/emote ** InFoChanneL is not Activated ** Type: .iChannel On"
            end if
        end if
        If LCase(Left(Message, 10)) = BotVars.Trigger & "ichannel2" Then
            if estado = "on" then
               call Info2()
            else
               addq "/emote ** InFoChanneL is not Activated ** Type: .iChannel On"
            end if
        end if
    
        If LCase(Left(Message, 9)) = BotVars.Trigger & "icgreet " Then
            icgreet = mid(Message, 10)
            if icgreet = "on" then
                addq "/emote ** Greet Users [On]"
            else
                addq "/emote ** Greet Users [OFF]"
            end if
        end if
    
        
        end if 'End if the Acces
    end sub
    
    
    
    Sub infochannel_Event_UserJoins(Username, Flags, Message, Ping, Product, Level, OriginalStatstring)
    	totalnum = totalnum + 1
            if Estado = "on" then
                    Level = GetStat(OriginalStatstring,1)
    	        LevelSum = LevelSum + level
    	        BestRace = GetStat(OriginalStatstring,2)
    	        icono = GetStat(OriginalStatstring,3)
    	        clan = GetStat(OriginalStatstring,4)
                    total = total + 1
             end if
    
            if icgreet = "on" then
                       txtSecs = DateDiff("s",TimeLastMsg, now())
                       if txtSecs <= 3 then
                          addchat vbred," DrOiD's Anti Greets FlooD Detected | Time Last Greet: " & txtSecs
                          exit sub
                       end if
                       if Estado <> "on" then
                          Level = GetStat(OriginalStatstring,1)
    	              BestRace = GetStat(OriginalStatstring,2)
    	              icono = GetStat(OriginalStatstring,3)
                          clan = GetStat(OriginalStatstring,4)
                          if clan <> "" then clan = "[Clan " & clan & "]"
                          addq  "/w " & username & " [ /!\  Welcome To " & ucase(myChannel) & " /!\ ] " & clan & Username & " | RaCe: " & BesTRace & " | iCon: " & icono & " | " & categoria(level) & " | " & CategoriaPing(ping) & " | ViSitOr NuMber: [ " & totalnum & " ] SinCe: " & ahorac
                          TimeLastMsg = now()
    		      'addq  "/w " & username & " " & USername & " Did You Know... " & gettipt()
                       end if
            end if
            
    
            'addchat vbgreen,"Join: " & clan & Username & " | BesTRaCe " & BesTRace & " | Icon: " & icono & " | " & categoria(level) & " | " & CategoriaPing(ping)
    End Sub
    
    Sub infochannel_timer1_Timer()
        call Info1()
    end sub
    
    Sub infochannel_timer2_Timer()
        call info2()
    end sub
    
    function GetPer(Num,total)
             getper = left(num * 100 / total,4) & "%"
    end function
    
    function Categoria(level)
    	 Categoria = "Level 0 T.t"
             if level > 1 then Categoria = "NooB Level : " & level
             if level > 5 then Categoria = "Naap Level : " & level
             if level > 10 then Categoria = "Medium Level : " & level
             if level > 20 then Categoria = "GooD Level : " & level
             if level > 35 then Categoria = "Very GooD Level : " & level
             if level > 40 then Categoria = "GooD Gosu Level : " & level
             if level > 50 then Categoria = "TOP ELITE GOSU Level : " & level
    end function
    function CategoriaPing(ping)
             if ping > 15 then CategoriaPing = "GoSu Ping : " & ping
             if ping > 30 then CategoriaPing = "Very GooD Ping : " & ping
             if ping > 60 then CategoriaPing = "Nice PinG : " & ping
             if ping > 90 then CategoriaPing = "GooD PinG : " & ping
             if ping > 110 then CategoriaPing = "Normal PinG : " & ping
             if ping > 150 then CategoriaPing = "BAD PinG : " & ping
             if ping >= 1000 then CategoriaPing = "Exit Bnet , VERY BaD PinG : " & ping
    end function
    
    Sub Info1()
           PeonPer = getper( peon , total )
           FootmanPer = getper( Footman , total )
           KnightPer = getper( Knight , total )
           ArchmagePer = getper( Archmage , total )
           MedivhPer = getper( Medivh , total )
           GruntPer = getper( Grunt , total )
           TaurenPer = getper( Tauren , total )
           Far_SeerPer = getper( Far_Seer , total )
           ThrallPer = getper( Thrall , total )
           '___________
           humanPer = getper( human , total )
           OrcPer = getper( Orc , total )
           UndeadPer = getper( Undead , total )
           Night_ElfPer = getper( Night_Elf , total )
           RandomPer = getper( Random , total )
           '___________
           LevelPer = getper( levelsum , total ) 'Level medio = SumLevels / TotalPlayers
    
           addq  "/emote Peon: " & PeonPer & " FooTman: " & FootmanPer & " Knight: " & KnightPer & " Archmage: " & ArchmagePer & " Medivh: " & MedivhPer
           addq  "/emote Grunt: " & GruntPer & " Tauren: " & TaurenPer & " Far Seer: " & Far_SeerPer & " ThraLL: " & ThrallPer
           addq  "/emote [RACE PLAYERS] Ne: " & Night_ElfPer & " | Orc: " & OrcPer & " | Human: " & humanPer & " | Undead: " & UndeadPer & " | Level Average: " & levelper '" | Random: " & RandomPer
    end sub
    SuB info2()
           PeonPer = getper( peon , total )
           GhoulPer = getper( Ghoul , total )
           AbominationPer = getper( Abomination , total )
           LichPer = getper( Lich , total )
           TichondriusPer = getper( Tichondrius , total )
           ArcherPer = getper( Archer , total )
           Druid_of_the_ClawPer = getper( Druid_of_the_Claw , total )
           Priestess_of_the_MoonPer = getper( Priestess_of_the_Moon , total )
           Furion_StomragePer = getper( Furion_Stomrage , total )
           Green_Dragon_WhelpPer = getper( Green_Dragon_Whelp , total )
           Blue_DragonPer = getper( Blue_Dragon , total )
           Red_DragonPer = getper( Red_Dragon , total )
           DeathwingPer  = getper( DeathwingPer , total )
    
           addchat vbgreen , "-TOTAL: " & total
    
           addq "/emote Peon: " & PeonPer & " Ghoul: " & GhoulPer & " Abomination: " & AbominationPer & " Lich: " & LichPer & " Tichondrius: " & TichondriusPer
           addq "/emote Archer: " & ArcherPer & " Dotc: " & Druid_of_the_ClawPer & " PoTM: " & Priestess_of_the_MoonPer & " Furion: " & Furion_StomragePer
           addq "/emote Green Dragon: " & Green_Dragon_WhelpPer & " Blue Dragon: " & Blue_DragonPer & " Red Dragon: " & Red_DragonPer & " Deathwing: " & DeathwingPer
    end sub
    
    '/////// FUNCTION GETSTATS /////  Usando Statstring  Valido para [email protected]
    
    Function GetStat(Statstring, Value)
      Dim Product, StatArray, StatArray2(50), SaveStatString
      StatArray = Split(Statstring, " ")
      Product = Left(Statstring, 4)
      GetStat = ""
      Select Case Product
        Case "3RAW"
          If Len(Statstring) = 4 And Value <> 0 Then
            Exit Function
          End If
          Select Case Value
            Case 0
              GetStat = "WarCraft III: Reign of Chaos"
            Case 1
              GetStat = StatArray(2)
            Case 2
              Select Case Mid(StatArray(1), 2, 1)
                Case "H"
                  GetStat = "Human"
                  human = human + 1
                Case "O"
                  GetStat = "Orc"
                  Orc = orc + 1
                Case "U"
                  GetStat = "Undead"
                  Undead = undead + 1
                Case "N"
                  GetStat = "Night Elf"
                  Night_Elf = Night_Elf +1
                Case "R"
                  GetStat = "Random"
                  Random = random + 1
              End Select
            Case 3
              Select Case Mid(StatArray(1), 2, 1)
                Case "H"
                  Select Case Mid(StatArray(1), 1, 1)
                    Case 1
                      GetStat = "Peon"
                      peon = peon +1
                    Case 2
                      GetStat = "Footman"
                      Footman = Footman +1
                    Case 3
                      GetStat = "Knight"
                      Knight = Knight +1
                    Case 4
                      GetStat = "Archmage"
                      Archmage = Archmage + 1
                    Case 5
                      GetStat = "Medivh"
                      Medivh = Medivh +1
                  End Select
                Case "O"
                  Select Case Mid(StatArray(1), 1, 1)
                    Case 1
                      GetStat = "Peon"
                      Peon = Peon +1
                    Case 2
                      GetStat = "Grunt"
                      Grunt = Grunt +1
                    Case 3
                      GetStat = "Tauren"
                      Tauren = Tauren +1
                    Case 4
                      GetStat = "Far Seer"
                      Far_Seer = Far_Seer +1
                    Case 5
                      GetStat = "Thrall"
                      Thrall = Thrall + 1
                  End Select
                Case "U"
                  Select Case Mid(StatArray(1), 1, 1)
                    Case 1
                      GetStat = "Peon"
                      Peon = Peon + 1
                    Case 2
                      GetStat = "Ghoul"
                      Ghoul = Ghoul + 1
                    Case 3
                      GetStat = "Abomination"
                      Abomination = Abomination + 1
                    Case 4
                      GetStat = "Lich"
                      Lich = Lich +1
                    Case 5
                      GetStat = "Tichondrius"
                      Tichondrius = Tichondrius +1
                  End Select
                Case "N"
                  Select Case Mid(StatArray(1), 1, 1)
                    Case 1
                      GetStat = "Peon"
                      Peon = Peon + 1
                    Case 2
                      GetStat = "Archer"
                      Archer = Archer +1
                    Case 3
                      GetStat = "Druid of the Claw"
                      Druid_of_the_Claw = Druid_of_the_Claw +1
                    Case 4
                      GetStat = "Priestess of the Moon"
                      Priestess_of_the_Moon = Priestess_of_the_Moon + 1
                    Case 5
                      GetStat = "Furion Stomrage"
                      Furion_Stomrage = Furion_Stomrage +1
                  End Select
                Case "R"
                  Select Case Mid(StatArray(1), 1, 1)
                    Case 1
                      GetStat = "Peon"
                      Peon = Peon +1
                    Case 2
                      GetStat = "Green Dragon Whelp"
                      Green_Dragon_Whelp = Green_Dragon_Whelp +1
                    Case 3
                      GetStat = "Blue Dragon"
                      Blue_Dragon = Blue_Dragon +1
                    Case 4
                      GetStat = "Red Dragon"
                      Red_Dragon = Red_Dragon +1
                    Case 5
                      GetStat = "Deathwing"
                      Deathwing = Deathwing +1
                  End Select
              End Select
            Case 4
              If UBound(StatArray) > 2 Then
                GetStat = StrReverse(StatArray(3))
              End If
          End Select
        Case "PX3W"
          If Len(Statstring) = 4 And Value <> 0 Then
            Exit Function
          End If
          Select Case Value
            Case 0
              GetStat = "WarCraft III: The Frozen Throne"
            Case 1
              GetStat = StatArray(2)
            Case 2
              Select Case Mid(StatArray(1), 2, 1)
                Case "H"
                  GetStat = "Human"
                Case "O"
                  GetStat = "Orc"
                Case "U"
                  GetStat = "Undead"
                Case "N"
                  GetStat = "Night Elf"
                Case "R"
                  GetStat = "Random"
                Case "D"
                  GetStat = "Tournament"
              End Select
            Case 3
              Select Case Mid(StatArray(1), 2, 1)
                Case "H"
                  Select Case Mid(StatArray(1), 1, 1)
                    Case 1
                      GetStat = "Peon"
                    Case 2
                      GetStat = "Rifleman"
                    Case 3
                      GetStat = "Sorceress"
                    Case 4
                      GetStat = "Spellbreaker"
                    Case 5
                      GetStat = "Blood Mage"
                    Case 6
                      GetStat = "Jaina"  
                  End Select
                Case "O"
                  Select Case Mid(StatArray(1), 1, 1)
                    Case 1
                      GetStat = "Peon"
                    Case 2
                      GetStat = "Troll headhunter"
                    Case 3
                      GetStat = "Shaman"
                    Case 4
                      GetStat = "Spirit Walker"
                    Case 5
                      GetStat = "Shadow hunter"
                    Case 6
                      GetStat = "Rexxar"
                  End Select
                Case "U"
                  Select Case Mid(StatArray(1), 1, 1)
                    Case 1
                      GetStat = "Peon"
                    Case 2
                      GetStat = "Crypt Fiend"
                    Case 3
                      GetStat = "Banshee"
                    Case 4
                      GetStat = "Destroyer"
                    Case 5
                      GetStat = "Crypt Lord"
                    Case 6
                      GetStat = "Sylvanas"
                  End Select
                Case "N"
                  Select Case Mid(StatArray(1), 1, 1)
                    Case 1
                      GetStat = "Peon"
                    Case 2
                      GetStat = "Huntress"
                    Case 3
                      GetStat = "Druid of the Talon"
                    Case 4
                      GetStat = "Dryad"
                    Case 5
                      GetStat = "Keeper of the Grove"
                    Case 6
                      GetStat = "Maiev"
                  End Select
                Case "R"
                  Select Case Mid(StatArray(1), 1, 1)
                    Case 1
                      GetStat = "Peon"
                    Case 2
                      GetStat = "Myrmidon"
                    Case 3
                      GetStat = "Siren"
                    Case 4
                      GetStat = "Dragon Turtle"
                    Case 5
                      GetStat = "Sea Witch"
                    Case 6
                      GetStat = "Illidan"
                  End Select
                Case "D"
                  Select Case Mid(StatArray(1), 1, 1)
                    Case 1
                      GetStat = "Peon"
                    Case 2
                      GetStat = "Felguard"
                    Case 3
                      GetStat = "infernal"
                    Case 4
                      GetStat = "Doomguard"
                    Case 5
                      GetStat = "Pit Lord"
                    Case 6
                      GetStat = "Archimonde"
                  End Select
              End Select
            Case 4
              If UBound(StatArray) > 2 Then
                GetStat = StrReverse(StatArray(3))
              End If
          End Select
        Case "LTRD", "RHSD"
          Select Case Value
            Case 0
              Select Case Product
                Case "LTRD"
                  GetStat = "Diablo"
                Case "RHSD"
                  GetStat = "Diablo: Shareware"
              End Select
            Case 1
               GetStat = StatArray(1)
            Case 2
               GetStat = StatArray(2)
            Case 3
              Select Case StatArray(2)
                Case 0
                  GetStat = "Warrior"
                Case 1
                  GetStat = "Rogue"
                Case 2
                  GetStat = "Sorceror"
              End Select
            Case 4
              GetStat = StatArray(4)
            Case 5
              GetStat = StatArray(5)
            Case 6
              GetStat = StatArray(6)
            Case 7
              GetStat = StatArray(7)
            Case 8
              GetStat = StatArray(8)
            Case 9
              If UBound(StatArray) <> 9 Then
                GetStat = True
              Else
                GetStat = False
              End If
          End Select
        Case "RATS", "PXES", "RTSJ", "NB2W"
          Select Case Value
            Case 0
              Select Case Product
                Case "RATS"
                  GetStat = "Starcraft"
                Case "PXES"
                  GetStat = "Starcraft: Brood War"
                Case "RTSJ"
                  GetStat = "Starcraft: Japanese"
                Case "NB2W"
                  GetStat = "Warcraft II: Battle.net Edition"
              End Select
            Case 1
              GetStat = StatArray(3)
            Case 2
              If StatArray(1) <> "0" Then
                GetStat = StatArray(1)
              End If
            Case 3
              If StatArray(5) <> "0" Then
                GetStat = StatArray(5)
              End If
            Case 4
              If StatArray(2) <> "0" Then
                GetStat = StatArray(2)
              End If
            Case 5
              If StatArray(4) = 1 Then
                GetStat = True
              Else
                GetStat = False
              End If
            Case 6
              If UBound(StatArray) <> 9 Then
                GetStat = "True"
              Else
                GetStat = "False"
              End If
          End Select
        Case "RHSS"
          If Value = 0 Then
            GetStat = "Starcraft: Shareware"
          End If
        Case "TAHC"
          If Value = 0 Then
            GetStat = "Chat Bot"
          End If
        Case "PX2D", "VD2D"
          Select Case Value
            Case 0
              Select Case Product
                Case "PX2D"
                  GetStat = "Diablo II: Lord of Destruction"
                Case "VD2D"
                  GetStat = "Diablo II"
              End Select
            Case 1
              If Len(Statstring) = 4 Then
                GetStat = True
              Else
                GetStat = False
              End If
            Case 2
              GetStat = Mid(statstring, 5, InStr(5, statstring, ",") - 5)
            Case 3
              GetStat = Mid(statstring, InStr(5, statstring, ",") + 1, InStr(InStr(5, statstring, ",") + 1, statstring, ",") - InStr(5, statstring, ",") - 1)
          End Select
        Case Else
          If Value = 0 Then
            GetStat = "Unknown"
          End If
      End Select
    End Function
    
    sub limpia()
        Peon = 0
        Footman  = 0
        Knight = 0
        Archmage = 0
        Medivh = 0
        Grunt = 0
        Tauren = 0
        Far_Seer = 0
        Thrall = 0
        Ghoul = 0
        Abomination = 0
        Lich = 0
        Tichondrius = 0
        Archer = 0
        Druid_of_the_Claw = 0
        Priestess_of_the_Moon = 0
        Furion_Stomrage = 0
        Green_Dragon_Whelp  = 0
        Blue_Dragon = 0
        Red_Dragon = 0
        Deathwing = 0
        Total = 0
        LevelSum = 0
        human = 0
        Orc = 0
        Undead  = 0
        Night_Elf  = 0
        Random  = 0
        StartTime  = ""
    end sub
    
    function gettipt()
    	
    	content=ScINet.OpenURL("http://roc.replayers.com/")	
    	Posx = Instr(Content, "C9B03B")
    	content = mid(content,posx,1000)
    	Posx = Instr(Content, "/CENTER")
    	content = mid(content,17,posx-18)
    	content = Replace(content,"</FONT>","")	
            MsG = "[w3TiPs] " &  rndCHannelPlayer() & ", " & GetTexTR(content)
    	Posx = Instr(MsG,"?")
    	t1 = mid(msg,1,posx)
            t2 = mid(msg,posx+6)
    
    	gettipt = t2 
    
    End function

  2. #2
    Samsunait's Avatar
    Samsunait is offline Member
    Array
    Join Date
    Aug 2007
    Posts
    48
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    11
    Reputation
    5
    I'm getting this kind of errors:

    [21.47.32] <Samsunait> .ichannel on
    [21.47.32] <TagS.Gnome ** Infochannel PLuG [On] ChanneL: Clan TagS>
    [21.47.58] Timer Call Error On Script: Prefix> infochannel TimerName> Timer2
    [21.47.58] Error Number: 6 Description: Overflow
    [21.48.08] <Samsunait> .ichannel1
    [21.48.08] UserTalk Call Error On File> C:\Programmi\StealthBot\Gnome\plugins\infochannel. txt
    [21.48.08] Error Number: 6 Description: Overflow
    [21.48.11] <Samsunait> .ichannel2
    [21.48.11] UserTalk Call Error On File> C:\Programmi\StealthBot\Gnome\plugins\infochannel. txt
    [21.48.11] Error Number: 6 Description: Overflow
    [21.48.28] Timer Call Error On Script: Prefix> infochannel TimerName> Timer1
    [21.48.28] Error Number: 6 Description: Overflow
    [21.48.48] Timer Call Error On Script: Prefix> infochannel TimerName> Timer2
    [21.48.48] Error Number: 6 Description: Overflow

    Do you got this?

  3. #3
    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
    no, and i dont know why there is it :o

  4. #4
    Samsunait's Avatar
    Samsunait is offline Member
    Array
    Join Date
    Aug 2007
    Posts
    48
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Rep Power
    11
    Reputation
    5
    Well, i tryed again in a clear bot without plugins, have a look:

    Code:
     [22.31.28] <Samsunait> .ichannel on
     [22.31.28] <TagS-Clan ** Infochannel PLuG [On] ChanneL: Clan TagS>
     [22.31.37] <Samsunait> .starttime
     [22.31.37] UserTalk Call Error On File> C:\Programmi\StealthBot\plugins\infochannel.txt
     [22.31.37] Error Number: 13   Description: Type mismatch
     [22.31.44] <Samsunait> .acctested
     [22.31.45] <TagS-Clan Acc. Tested: [0]>
     [22.32.08] <Samsunait> .icgreet off
     [22.32.08] <TagS-Clan ** Greet Users [OFF]>
     [22.32.18] Timer Call Error On Script: Prefix> infochannel TimerName> Timer2
     [22.32.18] Error Number: 6   Description: Overflow
     [22.32.28] Timer Call Error On Script: Prefix> infochannel TimerName> Timer1
     [22.32.28] Error Number: 6   Description: Overflow
     [22.33.08] <Samsunait> .ichannel1
     [22.33.08] UserTalk Call Error On File> C:\Programmi\StealthBot\plugins\infochannel.txt
     [22.33.08] Error Number: 6   Description: Overflow
     [22.33.08] Timer Call Error On Script: Prefix> infochannel TimerName> Timer2
     [22.33.08] Error Number: 6   Description: Overflow
     [22.33.13] <Samsunait> .ichannel2
     [22.33.13] UserTalk Call Error On File> C:\Programmi\StealthBot\plugins\infochannel.txt
     [22.33.13] Error Number: 6   Description: Overflow
     [22.33.19] <Samsunait> .starttime
     [22.33.19] UserTalk Call Error On File> C:\Programmi\StealthBot\plugins\infochannel.txt
     [22.33.19] Error Number: 13   Description: Type mismatch
     [22.33.23] <Samsunait> .ictimer on
     [22.33.23] <TagS-Clan ** Timer Idle InFoChannel [On] Showing Mode>
     [22.33.29] Timer Call Error On Script: Prefix> infochannel TimerName> Timer1
     [22.33.29] Error Number: 6   Description: Overflow
     [22.33.47] <Samsunait> .ichannel off
     [22.33.48] <TagS-Clan ** Infochannel PLuG [OFF]>
    are you sure that is working for you? can you post a log? i'll do a forecast: you play Reign of Chaos, this is the cause^^
    well, post a log to see if my forecast is right.

  5. #5
    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
    its a weird bug u should ask the real T[x]aS in w3roc.com ( droid3 )

  6. #6
    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
    it work well for me thx

Similar Threads

  1. 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
  •