Ping

[Hidden]

I've added a handle error, i did all i could understand from what u guys said. Can someone plz gimme a similar function that would make me realise my mistake or should I just give up and ask for it? :/
I tried, and still not working

[EviL_MarinE]

Hm, well you can get it to give ping for when a user joins right?


Now all you have to do is swap some things around and make it say it when you talk, i would have it like this

Code Select Expand


Dim Username as String

Username = PublicModule.KillNull(Mid(Data, 29))


If Username = EviL_MarinE And Mid(strtext,1 ,5) = frmConfig.trigger.text & "ping " then


If you dont see how i got Mid(Strtext,1, 5) then msg me

Maybe your bot isnt agreeing with whar you have said for your username or "ping" bit. go over and check it

Code Select Expand

ElseIf intAccess >= 60 And Left((LCase(Message)), 6) = Form2.txttrigger.Text & "ping " Then
That part

Make sure its telling the right thing for the bot to see

[Hidden]

The bot agrees since i don't get an error, i just get told that my ping is 0. which it isn't. I've tried to get around using the normal Ping function to get it, but i was unsuccessful. Now what u did marine, was redo my condition a bit differently.

[Arta]

Makes sense, but would you be reloading the data from the array into the list everytime it was restored from the task bar & remove it when the list isn't showing?...is that really efficent?

I doubt it very much - not unless VB sucks even more than I think it does. You shouldn't ever have to entirely reload the list, unless you're clearing and repopulating it - like you would if you were moving channels. Normally, you'd just be reloading a single element, which would happen when a user joined your channel.

[Arta]

Making assumptions like that is unwise.

[Zakath]

Besides which, it's using it for a purpose for which it was not designed. While it may work in specific instances, as a principle that is not a good idea.

[Hidden]

And throughout the 21 posts I have yet to get my answer or bot working :/

[Adron]

So why wouldn't it be acceptable (if storing JUST ping & username) to use the channellist as a sotrage device?  This is assuming that you will not add things later on.

It's much slower to access than any other list. If you make a loop through the users, checking their names against some kind of pattern match, that loop will be slower if the list is stored in a listbox than if it's in a collection or an array.

[Blaze]

I just "/w *USERNAME* Ping!" to find out their ping, that way it can be done in other channels also. The ping is returned to you after whispering someone, it's so PIMP like that.

The ping is also sent to you when you join, or they join a channel. It would save a message if you just stored it into an array then.

[MyndFyre]

That is why I mentioned the whole thing about other channels, that way I didn't look dumb like someone who doesn't read my whole post.

If they don't join your channel, or visa versa, then you don't know their ping...therefore "/w " them.

The utility of such a function is questionable, though.  If you have a bot specifically for pinging other users, then great; however, if you have one bot that's responsible for maintaining order in a channel, you can pretty quickly overload its queue by having a dozen users "ping" someone all at once.

[CrAz3D]

The same can happen when using the "say" command.

BTW, where did my post go to & why is it where ever it is?

[Hidden]

Problem is that Ping cannot specify! Thats why u need the Tping. I can get the ping but I can't get who evers ping i want. So the bot doesn't read the username that i type like it does when someone joins a channel when i used the command.

[CrAz3D]

This is my ping  command

Code Select Expand

Case "ping"
        'SendW pA(1) & "'s last reported ping was " & Form1.RoomList.FindItem(pA(1)).ListSubItems(2).text, strAccount
        Queue.AddQueue "/w " & pA(1) & " Ping!"
        Pinging = True


This is my WhisperTo event code

Code Select Expand

Private Sub OnWhisperTo(ByVal Username As String, ByVal Flags As Long, ByVal Message As String, ByVal Ping As Integer)
    Chat True, True, WhispNLn, "«To: " & Username & "» "
    Chat False, False, WhispLn, Message
If Pinging = True Then
    SendW Username & "'s ping is " & Ping, CommandName
    Pinging = False
End If
Form1.VBScript.Run "OnWhisperTo", Username, Flags, Message, Ping
PL.PlugEvent "whisperto", Username, Message, Flags, Ping
End Sub

Pinging is a Public Boolean I have declared, CommandName is just something I use so I can have a whisperback command....instead of the

Code Select Expand

SendW Username &... You could just do

Code Select Expand

SEND Username & "'s ping is " & ping (Send would change depending upon how you send chat to bnet)

I really REALLy hope this helps.  This way lets you see other people's ping that are in other channels, & it will give you the correct ping for whomever.  Just make sure that you use the boolean thing too.

[Kp]

Perhaps this is an obvious question, but why're you trying so hard to incorporate a remotely queryable feature into the bot?  Just modify your client to display the info natively, save you lots of trouble.

Crazed: assuming your posts were the ones screwing up the tables, that's why they vanished.  People were complaining about the table mislayout you caused.

[CrAz3D]

Word, that's why I changed it...started to bug me too.  Now my name has spaces so it isn't a continuous name.