Sry hab den Fehler gefuden. Update ist da...
Nimm für events besser Syc0n's Vaettire Non Ident+Drop Bot :DQuote:
event bot :D
auch ein o steht.Quote:
; target: item next
IXtgtkey = o
...weil einmalig eine Zufallszahl zu ermitteln, in die Variable $wdelay zu schreiben und dann "-resign" in gleichkurzen Abständen zu senden ist Quatsch und randomized mal gar nix... wenn schon, dann nach JEDEM Buchstaben eine NEUE Zufallszahl ermitteln und verwenden.Quote:
;$wdelay = Random(50,150,1)
Do
keysend("-")
Sleep(Random(50,150,1))
keysend("r")
Sleep(Random(50,150,1))
keysend("e")
Sleep(Random(50,150,1))
keysend("s")
Sleep(Random(50,150,1))
keysend("i")
Sleep(Random(50,150,1))
keysend("g")
Sleep(Random(50,150,1))
keysend("n")
Sleep(Random(50,150,1))
keysend("RETURN")
RndSleep(5500)
$cnt +=1
Until (_memoryread($memdeath,$hprocess) = 1) Or $cnt >0
...also max. 8 Items sollen gesammelt werden, aber zu zählst dann pauschal fest die Itemmenge + 5... das Zählen muß in CollectLoot() rein in den Bereich, wo wirklich ein Item aufgenommen wird... ich denke mal z.B. an diese Stelle:Quote:
CollectLoot(8, true,200, 2)
$Items +=5
...vorausgesetzt, $Items ist global gesetzt.Quote:
WEnd
$Items += 1
;select next item
...da du die Items zwischen 101 bis 200 nicht identifizierst und damit dann direkt verkaufst.Quote:
If $Items <=100 Then identitems(0,4,0,8)
If $Items > 200 Then identitems(0,4,1,8)
if $Items > 300 Then identitems(0,4,2,8)
If $Items > 400 Then identitems(0,4,3,8)
Da die Taschenpositionen der IdentKits fest ist, wäre es allerdings das Optimalste, den ItemStackCount des jeweiligen IdentKits zu ermitteln und wenn der 0 ist, wird zum nächsten IdentKit gewechselt. Damit könnte man sich dann gleich das Zählen der aufgehobenen Items komplett sparen und ist 100% sauber beim IdentKit verbrauchen ^^Quote:
If $Items <=100 Then identitems(0,4,0,8)
If $Items > 100 Then identitems(0,4,1,8)
if $Items > 200 Then identitems(0,4,2,8)
If $Items > 300 Then identitems(0,4,3,8)
Ich hoffe, daß ich noch paar Anregungen geben konnte =)Quote:
When killing a foe that gives experience, your character shouts one of the following quotes:
(20%) "Knowledge is Power!", gives you 50 health.
=> juhu, Lebenspunkte... bei der Brutmutter sehr nützlich...
(20%) "You are no match for my brains!", gives you 5 energy.
=> Energie ist immer willkommen... umso besser zum SF-Aufrechthalten...
(20%) "Kneel before your master!", gives you double XP.
(10%) "Is there anything I can't do?", recharges all skills except for Ursan Blessing, Volfen Blessing, Raven Blessing, and those that require a Morale boost (e.g. Resurrection Signet).
(30%) "Buwahaha!", removes all conditions.
=>würde Bluten und Tiefe Wunde abstellen... sehr geil bei der Brutmutter
Func goout() ; In das Gebiet "Zerrissene Erde" gehen
rndslp(2000)
hm()
Prepmoveto()
If CheckArea(14468,14841) Then
moveto(1,15200,15396)
moveto(1,15823,15565)
moveto(1,17029,15704)
moveto(1,17417,15927)
moveto(1,17712,16197)
moveto(1,18086,16617)
moveto(1,18602,16828)
moveto(1,19278,16858)
moveto(1,19930,16875)
ElseIf CheckArea(16359,19525) Then
moveto(1,16873,19022)
moveto(1,17958,18393)
moveto(1,19001,18032)
moveto(1,19384,17783)
moveto(1,19501,17581)
moveto(1,19625,17343)
moveto(1,19778,17191)
moveto(1,19931,17097)
ElseIf CheckArea(17774,14413) Then
moveto(1,18213,15024)
moveto(1,18685,15359)
moveto(1,19294,15776)
moveto(1,19523,16170)
moveto(1,19722,16412)
moveto(1,19913,16570)
ElseIf CheckArea(19410, 16773) Then
Keysend("x")
slp(300)
moveto(1,19989,16858)
Else
TransferGH()
TransferGH()
goout()
EndIf
KeepMoveTo()
loadout()
Endfunc
Func gosell() ; verkaufen in Rata Sum
rndslp(2000)
Prepmoveto()
If CheckArea(14468,14841) Then
moveto(1,15035,15299)
moveto(1,15515,15586)
moveto(1,16314,15528)
moveto(1,17275,15187)
moveto(1,18325,14632)
moveto(1,19012,14499)
moveto(1,19475,14721)
ElseIf CheckArea(16359,19525) Then
moveto(1,17004,18782)
moveto(1,17609,17690)
moveto(1,18054,16376)
moveto(1,18513,15635)
moveto(1,18929,15434)
moveto(1,19216,15244)
moveto(1,19472,14824)
ElseIf CheckArea(17774,14413) Then
moveto(1,18124,14459)
moveto(1,18751,14436)
moveto(1,19480,14734)
ElseIf CheckArea(19410, 16773) Then
moveto(1, 19461, 16139)
moveto(1, 19542, 15235)
moveto(1, 19576, 14829)
Else
TransferGH()
TransferGH()
gosell()
EndIf
stopmoveto()
rndsleep(200)
keysend("v")
rndsleep(500)
keysend("space")
sell(25)
Endfunc
Func rezone()
PrepMoveTo()
Keysend("x")
slp(300)
moveto(1,-26195,-4105)
KeepMoveTo()
loadin()
PrepMoveTo()
Keysend("x")
slp(300)
moveto(1,19989,16858)
KeepMoveTo()
loadout()
EndFunc
Func Bot ()
Select
case $Runden = 1
goout()
rezone()
goto()
Fight()
Fight2()
case $Runden <= 3
goout()
goto()
Fight()
Fight2()
case $Runden > 3
If $Items <=100 Then identitems(0,4,0,8)
If $Items > 200 Then identitems(0,4,1,8)
if $Items > 300 Then identitems(0,4,2,8)
If $Items > 400 Then identitems(0,4,3,8)
gosell()
$Runden = 1
goout()
rezone()
goto()
Fight()
Fight2()
EndSelect
EndFunc