Difference between revisions of "DropAllItems"

95 bytes removed ,  10:59, 7 March 2008
Fixed the bottom script
imported>Haama
(Cleared some things up)
imported>Haama
(Fixed the bottom script)
 
(4 intermediate revisions by 2 users not shown)
Line 14: Line 14:
   if DropAllItems
   if DropAllItems
     if ActorRef
     if ActorRef
       if ActorRef.GetNumItems > 0
       set CurObj to ActorRef.GetInventoryObject 0
        set CurObj to ActorRef.GetInventoryObject (ActorRef.GetNumItems - 1)
      if CurObj
         set CurObjNum to ActorRef.GetItemCount CurObj
         set CurObjNum to ActorRef.GetItemCount CurObj
         ActorRef.Drop CurObj CurObjNum
         ActorRef.Drop CurObj CurObjNum
        ActorRef.RemoveItem CurObj CurObjNum
       else
       else
         set DropAllItems to 0
         set DropAllItems to 0
Line 55: Line 54:
           set CurObjNum to (ActorRef.GetItemCount CurObj)
           set CurObjNum to (ActorRef.GetItemCount CurObj)
           ActorRef.Drop CurObj CurObjNum
           ActorRef.Drop CurObj CurObjNum
           ActorRef.RemoveItem CurObj CurObjNum
        else
           set InvPosition to (InvPosition + 1)
         endif
         endif
        set InvPosition to (InvPosition + 1)
       else
       else
         set DropAllItems to 0
         set DropAllItems to 0
Line 64: Line 63:
   endif
   endif
end</pre>
end</pre>
[[Category: Useful Code]]
Anonymous user