Code
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
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
Wenn man diesen mit einem Gewissen anderen Programm in verbindung bringt Funktionukelt dieser noch auf nahezu jedem server
dazu brauch man ein paar programmier kenntnisse (man muss Reflecten* können)
*Reflecten = Source aus einem Programm ziehen können dies geht mit dem Reflector (ganz simpel wa )
Ein bisschen nachdenken dann dürfte das "Programm" Gefunden sein.
Ich werde absichtlich nicht tiefer in meine Aussagen gehen um Leecher fern zu halten.
Ausserdem kann man je nach Erweckungs-Raten für den Gewünschten Server alles modifizieren (Erklärt im code) (WICHTIG DIE ERKLÄRUNG GEHÖRT NICHT ZUM EIGENTLICHEN CODE NICHT MIT KOPIEREN!!!)
Credits : 99% YanickMAMA, 1% Ich für die Idee + Umsetzung