Func StoreGoldsEx()
Out("Storing Golds")
Local $aItem, $lItem, $m, $Q, $r, $lbag, $Slot, $Full, $NSlot
For $i = 1 To 4
$lbag = GetBag($i)
For $j = 1 To DllStructGetData($lbag, 'Slots')
$aItem = GetItemBySlot($lbag, $j)
If DllStructGetData($aItem, "ID") = 0 Then ContinueLoop
$m = DllStructGetData($aItem, "ModelID")
$r = GetRarity($lItem)
If CanStoreGoldsEx($aItem) Then
Do
For $Bag = 8 To 12
$Slot = FindEmptySlotEx($Bag)
$Slot = @
[Only registered and activated users can see links. Click Here To Register...]
If $Slot <> 0 Then
$Full = False
$NSlot = $Slot
ExitLoop 2
Else
$Full = True
EndIf
Sleep(400)
Next
Until $Full = True
If $Full = False Then
MoveItem($aItem, $Bag, $NSlot)
Sleep(GetPing() + 500)
EndIf
EndIf
Next
Next
EndFunc ;==>StoreGolds
Func CanStoreGoldsEx($aItem)
Local $m = DllStructGetData($aItem, "ModelID")
Local $r = GetRarity($aItem)
Switch $r
Case $Rarity_Gold
If $m = 22280 Then
Return False
Else
Return True
EndIf
EndSwitch
EndFunc ;==>CanStoreGolds