maybe this will help a little
Code:
#Region All
Func donatefaction($afaction)
If StringLeft($afaction, 1) = "k" Then
Return sendpacket(16, $DonateFactionHeader, 0, 0, 5000)
Else
Return sendpacket(16, $DonateFactionHeader, 0, 1, 5000)
EndIf
EndFunc
#EndRegion
#Region Kurzick
Func getkurzickfaction()
Local $loffset[4] = [0, 24, 44, 1864]
Local $lreturn = memoryreadptr($mbasepointer, $loffset)
Return $lreturn[1]
EndFunc
Func getmaxkurzickfaction()
Local $loffset[4] = [0, 24, 44, 1976]
Local $lreturn = memoryreadptr($mbasepointer, $loffset)
Return $lreturn[1]
EndFunc
#EndRegion
#Region Luxon
Func getluxonfaction()
Local $loffset[4] = [0, 24, 44, 1880]
Local $lreturn = memoryreadptr($mbasepointer, $loffset)
Return $lreturn[1]
EndFunc
Func getmaxluxonfaction()
Local $loffset[4] = [0, 24, 44, 1980]
Local $lreturn = memoryreadptr($mbasepointer, $loffset)
Return $lreturn[1]
EndFunc
#EndRegion
#Region Imperial
Func getimperialfaction()
Local $loffset[4] = [0, 24, 44, 1800]
Local $lreturn = memoryreadptr($mbasepointer, $loffset)
Return $lreturn[1]
EndFunc
Func getmaximperialfaction()
Local $loffset[4] = [0, 24, 44, 1888]
Local $lreturn = memoryreadptr($mbasepointer, $loffset)
Return $lreturn[1]
EndFunc
#EndRegion
#Region Balth
Func getbalthazarfaction()
Local $loffset[4] = [0, 24, 44, 1844]
Local $lreturn = memoryreadptr($mbasepointer, $loffset)
Return $lreturn[1]
EndFunc
Func getmaxbalthazarfaction()
Local $loffset[4] = [0, 24, 44, 1884]
Local $lreturn = memoryreadptr($mbasepointer, $loffset)
Return $lreturn[1]
EndFunc
#EndRegion
and this
Code:
Func goluxons($xlocation, $ylocation, $ame = getagentptr(-2))
If getluxonfaction() > 12000 Then
update("Need to donate Luxon Faction")
rndsleep(Random(1000, 10000, 1))
update("Talking to Luxon Scavenger")
gotonpc(getnearestagentptrtocoords($xlocation, $ylocation), $ame)
Sleep(1000)
Do
update("Donating Faction")
donatefaction(1)
rndsleep(500)
Until getluxonfaction() < 5000
rndsleep(5000)
EndIf
EndFunc
Func gokurzick($xlocation, $ylocation, $ame = getagentptr(-2))
If getkurzickfaction() > 5000 Then
rndsleep(Random(1000, 10000, 1))
update("Talking to Kurzick Scavenger")
moveto(21386, 6547, 200, $ame)
gotonpc(getnearestagentptrtocoords($xlocation, $ylocation), $ame)
Sleep(1000)
Do
update("Donating Faction")
donatefaction("k")
rndsleep(500)
Until getkurzickfaction() < 5000
rndsleep(2000)
EndIf
EndFunc
further more .. i think i speak for a lot of people in here. if only people would use Loadskilltemplate (*) more. or something like this (for general pve farms)
Code:
Func manageinventory()
LoadSkilltemplate("?????")
Local $lmapid_hall
out("Checking Inventory")
If getgoldcharacter() > 90000 Then depositgold()
If countslots() < 5 Then
_travelgh()
$lmapid_hall = getmapid()
gotonpc(getplayerptrbyplayernumber(getmerchant($lmapid_hall)))
_inventory()
EndIf
EndFunc