Valhalla Legends Archive

classic VB is done... all about .net.... man I used to suck... I was like 14 tho...

Last login was in 2003 lol, I forgot all about this....

I know this is very old but was there ever a follow up to Groks tutorial?
http://botdev.valhallalegends.com/documents/vbwinsockhlp.html

Thanks

Hows this? =P

well, i can fix the time stamp... i just never noticed it =P.... ummm well does anyone know why the ping does that. It seems to stump a lot of people =P

Alright, you can see the problem in the screen shot, it doubles up the ping, on add username. And it also doesnt add the ops ping, maybe u can see the problem.



Heres the code also. and also the get plugin code isent working eiether in this code:

[Get ping code]

Public Function GetLagIcon(ByVal Ping As Long, Optional ByVal flag As Long) As Integer
Dim IconCode As Integer

If flag = 16 Or 32 Then
           GetLagIcon = 21
           Exit Function
End If

If (Ping >= 5) And (Ping <= 199) Then
   GetLagIcon = 15
End If
If (Ping >= 200) And (Ping <= 300) Then
   GetLagIcon = 16
End If
If (Ping >= 301) And (Ping <= 400) Then
   GetLagIcon = 17
End If
If (Ping >= 401) And (Ping <= 600) Then
   GetLagIcon = 18
End If
If (Ping >= 601) And (Ping <= 1200) Then
  GetLagIcon = 19
End If
If Ping > 1201 Then
   GetLagIcon = 20
End If
If (Ping < 0) Then
   GetLagIcon = 15
End If

         
End Function



And heres the "Here" event code.


flag = Form1.MakeLong(Mid$(Data, 9, 4))
Ping = Form1.MakeLong(Mid$(Data, 13, 4))
UserName = Decode.KillNull(Mid$(Data, 29))
Message = Decode.KillNull(Mid$(Data, Len(UserName) + 30))
Client = Left(Message, 4)
lagicoN = GetLagIcon(Ping)
   Select Case MakeLong(Mid$(Data, 5, 4))
       Case &H1 ' HERE

If flag = 2 Or flag = 18 Then
       Form1.Channel.ListItems.Add 1, , UserName, , 1
       Form1.Channel.ListItems.Item(Form1.Channel.ListItems.Count).ListSubItems.Add 1, , , lagicoN
         ElseIf Client = "PXES" Then
       Form1.Channel.ListItems.Add , , UserName, , 9
       Form1.Channel.ListItems.Item(Form1.Channel.ListItems.Count).ListSubItems.Add 1, , , lagicoN
               ElseIf Client = "RATS" Then
       Form1.Channel.ListItems.Add , , UserName, , 6
       Form1.Channel.ListItems.Item(Form1.Channel.ListItems.Count).ListSubItems.Add 1, , , lagicoN
               ElseIf Client = "VD2D" Then
       Form1.Channel.ListItems.Add , , UserName, , 5
       Form1.Channel.ListItems.Item(Form1.Channel.ListItems.Count).ListSubItems.Add 1, , , lagicoN
               ElseIf Client = "NB2W" Then
       Form1.Channel.ListItems.Add , , UserName, , 10
       Form1.Channel.ListItems.Item(Form1.Channel.ListItems.Count).ListSubItems.Add 1, , , lagicoN
               ElseIf Client = "PX2D" Then
       Form1.Channel.ListItems.Add , , UserName, , 13
       Form1.Channel.ListItems.Item(Form1.Channel.ListItems.Count).ListSubItems.Add 1, , , lagicoN
               ElseIf Client = "3RAW" Then
       Form1.Channel.ListItems.Add , , UserName, , 61
       Form1.Channel.ListItems.Item(Form1.Channel.ListItems.Count).ListSubItems.Add 1, , , lagicoN
         ElseIf Client = "PX3W" Then
       Form1.Channel.ListItems.Add , , UserName, , 65
       Form1.Channel.ListItems.Item(Form1.Channel.ListItems.Count).ListSubItems.Add 1, , , lagicoN
            ElseIf Client = "TAHC" Then
       Form1.Channel.ListItems.Add , , UserName, , 2
       Form1.Channel.ListItems.Item(Form1.Channel.ListItems.Count).ListSubItems.Add 1, , , lagicoN
           Else
       Form1.Channel.ListItems.Add , , UserName, , 12
       Form1.Channel.ListItems.Item(Form1.Channel.ListItems.Count).ListSubItems.Add 1, , , lagicoN
       
       
  thx, let me know

Everyone chnage their icons to the Super man 1!!!!!! gogogo lol

its not really an offical downloading site, other then stuff i made. Just to have a place to put my projects, thats why there is like an about page, witch is about me teeheiman. And the forum is because everyone who can use sql, php, has one on their site. =P. And since im into thos topics. Thats why they are there.  Any problems with posting a site that has my bot that i made, witched i learned to do here.

o ya and peofeoknight, so many people got this avater because superman is cool! lol

thx, ima check out unreal with all the mods, cuase i played battle field with lots of mods and it was awsome.

thanks for the game tips.

 Lil somethin here! =O SeXy











 

just goto goodle and type in Flash MX tutorials, or the subject on what u wanna do on it.

damn i can never get into vL channel, so i cant get any

nice what u use? Photoshop?

listen to Styx -- Renegate While u play games its GREAT!!

Hes just a super turtle! lol cause what about all his little minions, most of them are turtles.