How can i store shields into the chest?

[Backxtar]

Func _store()
Local $lbag, $litem, $lslot, $litemtype
For $j = 1 To 4
Out("Storing bag:" & $j)
$lbag = GetBag($j)
If IsChestFull() Then Return
For $i = 1 To MemoryRead($lbag + 32, "long")
$litem = GetItemBySlot($lbag, $i)
If $litem = 0 Then ContinueLoop
$litemtype = MemoryRead($litem + 32, "byte")
Switch $litemtype
Case 11, 30
If MemoryRead($litem + 75, "byte") <> 250 Then ContinueLoop
Case 24
Case Else
ContinueLoop
EndSwitch
$lslot = OpenStorageSlot()
If IsArray($lslot) Then
MoveItem($litem, $lslot[0], $lslot[1])
Sleep(GetPing() + Random(500, 750, 1))
EndIf
Next
Next
EndFunc