Quote:
Originally Posted by sly611
[Only registered and activated users can see links. Click Here To Register...]
I don't understand why ppl send : Don't work.... for me 100% for 20 aaccounts.. thanks u so much for Calypso :)
|
Just because you didn't get affected doesn't mean that other People can't!
@
[Only registered and activated users can see links. Click Here To Register...]: Your Code has 2 little Bugs:
Code:
Func Ident()
if FindIDKitExplorable(0) = 0 Then Return ;No more ID Kit
For $bag = 1 to 4 ; inventory only
$lBagPtr = GetBagPtr($bag)
If $lBagPtr = 0 Then ContinueLoop
For $slot = 1 to MemoryRead($lBagPtr + 32, 'long')
$lItemPtr = GetItemPtrBySlot($lBagPtr, $slot)
If $lItemPtr = 0 Then ContinueLoop
If GetIsUnIDed($lItemPtr) Then
Update("Identify: " & $bag & ", " & $slot)
IdentifyItem($lItemPtr)
EndIf
Next
Next
EndFunc ;==>Ident
You check for an "IDKitExplorable" when the Function is called ... but :p ...
Code:
Func IdentifyItem($aItem, $aIDKit = 0)
will be called with
Code:
Func FindIDKit($aStart = 1, $aFinish = 16)
and yeah ... if "FindIDKit" finds an IDKit within your Storage with lesser uses left than any ID-Kit in your Inventory than SendPacket fails and will crash your Client :)
The same can/will happen when your uses of the ID-Kit in your Inventory ran out while youre in the Loop (For $bag = 1 to 4)
For the Salvage-Part (ONLY when you use the cheap Salvage Kits):
If the Item has the Rarity white or blue you ONLY need to call StartSalvage().
Only if the Item has the Rarity purple or gold you need to call StartSalvage() followed by SalvageMaterials().