My question is how I would possibly add this to my game, or how I would add this to the private server that I play on.
Orginial Thread:
I'd greatly appreciate it if someone would be able to help me with this, thanks
Code:
Quote:
Module AwakBot
Public Function OptionLevel(ByVal id As String, ByVal amount As String, ByVal positive As String)
Select Case id
Case 80, 52, 22, 66
Select Case amount
Case 1 <---------- 1Str,Int,Dex,Sta
OptionLevel = 1
Case 3 <--------- 3Str,Int,Dex,Sta
OptionLevel = 2
Case 5 <--------- Ditto mit 5 usw.
OptionLevel = 3
Case 7
OptionLevel = 4
Case 9
OptionLevel = 5
Case 10
OptionLevel = 6
Case 11
OptionLevel = 7
Case 12
OptionLevel = 8
Case 13
OptionLevel = 9
Case 14
OptionLevel = 10
Case 16
OptionLevel = 10
End Select
Case 1, 2, 3, 4
Select Case amount
Case 1
OptionLevel = 1
Case 4
OptionLevel = 2
Case 7
OptionLevel = 3
Case 10
OptionLevel = 4
Case 13
OptionLevel = 5
Case 16
OptionLevel = 6
Case 19
OptionLevel = 7
Case 22
OptionLevel = 8
Case 25
OptionLevel = 9
Case 28
OptionLevel = 10
End Select
Case 9, 11, 75
Select Case amount
Case 1
OptionLevel = 1
Case 2
OptionLevel = 2
Case 3
OptionLevel = 3
Case 4
OptionLevel = 4
Case 5
OptionLevel = 5
Case 6
OptionLevel = 6
Case 7
OptionLevel = 7
Case 8
OptionLevel = 8
Case 9
OptionLevel = 9
Case 10
OptionLevel = 10
End Select
Case 42, 77
Select Case amount
Case 1 <-------------- Kritischer Schaden 1%
OptionLevel = 1
Case 3 <-------------- Kritischer Schaden 2%
OptionLevel = 2
Case 5 <-------------- 5% usw.
OptionLevel = 3
Case 7
OptionLevel = 4
Case 9
OptionLevel = 5
Case 11
OptionLevel = 6
Case 13
OptionLevel = 7
Case 15
OptionLevel = 8
Case 17
OptionLevel = 9
Case 19
OptionLevel = 10
End Select
Case 83
Select Case amount
Case 5 <------------- 5ATK
OptionLevel = 1
Case 20 <----------------- 20ATK
OptionLevel = 2
Case 35 <--------------------- 35ATK Usw.
OptionLevel = 3
Case 50
OptionLevel = 4
Case 65
OptionLevel = 5
Case 80
OptionLevel = 6
Case 95
OptionLevel = 7
Case 110
OptionLevel = 8
Case 125
OptionLevel = 9
Case 140
OptionLevel = 10
End Select
Case 26
Select Case amount
Case 4 <-------------------- 4Def
OptionLevel = 1
Case 16 <------------------- 16Def
OptionLevel = 2
Case 28 <------------------- 28Def Usw.
OptionLevel = 3
Case 40
OptionLevel = 4
Case 52
OptionLevel = 5
Case 64
OptionLevel = 6
Case 76
OptionLevel = 7
Case 88
OptionLevel = 8
Case 100
OptionLevel = 9
Case 112
OptionLevel = 10
End Select
Case 35, 36, 37
Select Case amount
Case 50 <------------------ 50Mp,FP
OptionLevel = 1
Case 100 <------------------ 100Mp,FP
OptionLevel = 2
Case 150 <-------------------- 150Mp,Fp Usw.
OptionLevel = 3
Case 200
OptionLevel = 4
Case 250
OptionLevel = 5
Case 300
OptionLevel = 6
Case 350
OptionLevel = 7
Case 400
OptionLevel = 8
Case 450
OptionLevel = 9
Case 500
OptionLevel = 10
End Select
End Select
If positive = "-" Then OptionLevel = -OptionLevel
Return OptionLevel
End Function
Public Function Getsbd(ByVal Hexcount As String)
Dim hexTemp As String = vbNullString
Dim i As Integer
Dim nDec As Double
Dim id As String = vbNullString
Dim amount As String = vbNullString
Dim positive As String = vbNullString
Dim ID2 As String = vbNullString
Dim Amount2 As String = vbNullString
Dim Positive2 As String = vbNullString
Dim ID3 As String = vbNullString
Dim Amount3 As String = vbNullString
Dim Positive3 As String = vbNullString
Dim AwakCount As Integer
For i = 1 To Len(Hexcount) / 2
hexTemp = Right(Left(Hexcount, i * 2), 2) & hexTemp
Next i
nDec = CDbl("&H" + hexTemp)
If nDec <= "3000000000" Then
'Awaking mit 1 Slot
'Awaking mit 1 Slot
id = Fix(nDec / 262144)
If nDec Mod 262144 >= 131072 Then
amount = Fix(((nDec Mod 262144) - 131072) / 256)
positive = "-"
Else
amount = Fix((nDec Mod 262144) / 256)
positive = "+"
End If
Getsbd = "ID: " & id & " Amount: " & positive & amount
AwakCount = 1
'Awaking mit 1 Slot
'Awaking mit 1 Slot
Else
Dim bc As String
If nDec <= "10000000000000000" Then
'Awaking mit 2 Slot
'Awaking mit 2 Slot
ID2 = Fix((nDec / 262144) / 262144)
If (nDec / 262144) Mod 262144 >= 131072 Then
Amount2 = Fix((((nDec / 262144) Mod 262144) - 131072) / 256)
Positive2 = "-"
Else
Amount2 = Fix(((nDec / 262144) Mod 262144) / 256)
Positive2 = "+"
End If
bc = nDec - (ID2 * 262144 * 262144)
If Positive2 = "-" Then
bc = bc - ((131072 + (Amount2 * 256)) * 262144)
Else
bc = bc - ((Amount2 * 256) * 262144)
End If
nDec = bc
id = Fix(nDec / 262144)
If nDec Mod 262144 >= 131072 Then
amount = Fix(((nDec Mod 262144) - 131072) / 256)
positive = "-"
Else
amount = Fix((nDec Mod 262144) / 256)
positive = "+"
End If
Getsbd = "ID: " & id & " Amount: " & positive & amount & "ID2: " & ID2 & " Amount2: " & Positive2 & Amount2
AwakCount = 2
'Awaking mit 2 Slot
'Awaking mit 2 Slot
Else
'Awaking mit 3 Slot
'Awaking mit 3 Slot
ID3 = Fix(((nDec / 262144) / 262144) / 262144)
If ((nDec / 262144) / 262144) Mod 262144 >= 131072 Then
Amount3 = Fix(((((nDec / 262144) / 262144) Mod 262144) - 131072) / 256)
Positive3 = "-"
Else
Amount3 = Fix((((nDec / 262144) / 262144) Mod 262144) / 256)
Positive3 = "+"
End If
bc = 0
bc = nDec - (ID3 * 262144 * 262144 * 262144)
If Positive3 = "-" Then
bc = bc - (((131072 + (Amount3 * 256)) * 262144) * 262144)
Else
bc = bc - (((Amount3 * 256) * 262144) * 262144)
End If
nDec = bc
ID2 = Fix((nDec / 262144) / 262144)
If (nDec / 262144) Mod 262144 >= 131072 Then
Amount2 = Fix((((nDec / 262144) Mod 262144) - 131072) / 256)
Positive2 = "-"
Else
Amount2 = Fix(((nDec / 262144) Mod 262144) / 256)
Positive2 = "+"
End If
bc = nDec - (ID2 * 262144 * 262144)
If Positive2 = "-" Then
bc = bc - ((131072 + (Amount2 * 256)) * 262144)
Else
bc = bc - ((Amount2 * 256) * 262144)
End If
nDec = bc
id = Fix(nDec / 262144)
If nDec Mod 262144 >= 131072 Then
amount = Fix(((nDec Mod 262144) - 131072) / 256)
positive = "-"
Else
amount = Fix((nDec Mod 262144) / 256)
positive = "+"
End If
Getsbd = "ID: " & id & " Amount: " & positive & amount & " ID2: " & ID2 & " Amount2: " & Positive2 & Amount2 & " ID3: " & ID3 & " Amount: " & Positive3 & Amount3
AwakCount = 3
'Awaking mit 3 Slot
'Awaking mit 3 Slot
End If
End If
Dim Level As Integer
Dim AwakOption() As String
Dim LogInhalt As String = vbNullString
AwakOption = Split(main.txtAwakBotOptionID.Text, vbNewLine)
If Not id = "" Then
For i = 0 To UBound(AwakOption)
If id = AwakOption(i) Then
Dim teiler1 As Integer
teiler1 = 1
If id = 24 Then teiler1 = 20
Level = Level + OptionLevel(id / teiler1, amount, positive)
End If
Next i
'LogInhalt = GetOptionName(id) & positive & amount
End If
If Not ID2 = "" Then
For i = 0 To UBound(AwakOption)
If ID2 = AwakOption(i) Then
Dim teiler2 As Integer
teiler2 = 1
If id = 24 Then teiler2 = 20
Level = Level + OptionLevel(ID2 / teiler2, Amount2, Positive2)
End If
Next i
'LogInhalt = GetOptionName(ID3) & Positive3 & Amount3
End If
If Not ID3 = "" Then
For i = 0 To UBound(AwakOption)
If ID3 = AwakOption(i) Then
Dim teiler3 As Integer
teiler3 = 1
If id = 24 Then teiler3 = 20
Level = Level + OptionLevel(ID3 / teiler3, Amount3, Positive3)
End If
Next i
'LogInhalt = GetOptionName(ID3) & Positive3 & Amount3
End If
'WriteLog (LogInhalt)
If main.cmdAwakBotStart.Enabled = False Then
If Level < main.txtAwakBotOptionLevel.Text Then
main.SendCancel()
main.SendAwak()
Else
main.cmdAwakBotStart.Enabled = True
main.cmdAwakBotStop.Enabled = False
main.txtAwakBotOptionID.Enabled = True
main.txtAwakBotOptionLevel.Enabled = True
End If
End If
End Function
End Module
