Realotbot

[klusbert]

Hello tpforum.

I've done a bot for realot which I am going to sell, I need at least one good moderator.(free license)

check out :
http://ladabot.com/index.html

[maozao]

Good luck with your project Klusbert, you deserve it!

[klusbert]

thank you :)

[kubat]

so, its for tibianic also?

[klusbert]

nop only realot

[Pro-grammer]

Hey can I ask what component did you used for the coding highlights?

[klusbert]

Hey can I ask what component did you used for the coding highlights?


http://www.codeproject.com/Articles/161871/Fast-Colored-TextBox-for-syntax-highlighting :)


Having some problems with my hoster, going they are working on it. Be patient xd

[Nevski]

Great work klusbert!

@all
If play on realots than you definitely should try this awsome bot!

[klusbert]

Great work klusbert!

@all
If play on realots than you definitely should try this awsome bot!



Ty Nevski!

I did a who isOnline function, I cant regex so good so I did it my way xD.
Works fast tho.


Dim Str As System.IO.Stream
Dim srRead As System.IO.StreamReader
Try
Dim req As System.Net.WebRequest = System.Net.WebRequest.Create("http://www.realots.net/online/")
Dim resp As System.Net.WebResponse = req.GetResponse
Str = resp.GetResponseStream
srRead = New System.IO.StreamReader(Str)
Return srRead.ReadToEnd
Catch ex As Exception
Return "Unable to download content"
Finally
' Close Stream and StreamReader when done
srRead.Close()
Str.Close()
End Try
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'a href="/character/
Dim text As String = getPage()
Dim count As Integer = 0
Dim Index As Integer
Dim str As String = ""
str += "a href="
str += """"
str += "/character/"
Do While True
Index = InStr(text, str)
If Index = 0 Then
Exit Do
End If
Index += 18
Dim lenght As Integer = GetNameLenght(text.Substring(Index))
Dim name As String = GetName(text.Substring(Index), lenght)
ListBox1.Items.Add(name)
Index += lenght
text = text.Substring(Index)
Loop
End Sub

Private Function GetNameLenght(ByVal str As String) As Integer
For i As Integer = 0 To str.Length
If str(i) = "/" Then
Return i
End If
Next
End Function
Private Function GetName(ByVal str As String, ByVal lenght As Integer)
Dim tmp As String = ""
For i As Integer = 0 To lenght - 1
tmp += str(i)
Next
Return tmp
End Function

[Blahhh]

another oldschool OT ruined :/

[klusbert]

Moving to another hosting, I having problem to reach the old site. Sorry about this.

[krille]

I went to the site and your saying your gonna sell it? but its able to download the bot? xDD

i dont play realots just wanted to check xdd

[Diego]

I can help you out with regex if you want to :)

[klusbert]

I went to the site and your saying your gonna sell it? but its able to download the bot? xDD

i dont play realots just wanted to check xdd

You will need to have a login to start it :)