Difference between revisions of "DropAllItems"
Jump to navigation
Jump to search
imported>Qazaaq (added to useful code category) |
imported>Qazaaq m (functions won't accept anything but a number or a variable as argument) |
||
Line 6: | Line 6: | ||
ref CurObj | ref CurObj | ||
short CurObjNum | short CurObjNum | ||
short LastObj | |||
float fquestdelaytime | float fquestdelaytime | ||
Line 15: | Line 16: | ||
if ActorRef | if ActorRef | ||
if ActorRef.GetNumItems > 0 | if ActorRef.GetNumItems > 0 | ||
set | set LastObj to ActorRef.GetNumItems - 1 | ||
set CurObj to ActorRef.GetInventoryObject LastObj | |||
set CurObjNum to ActorRef.GetItemCount CurObj | set CurObjNum to ActorRef.GetItemCount CurObj | ||
ActorRef.Drop CurObj CurObjNum | ActorRef.Drop CurObj CurObjNum |
Revision as of 10:31, 7 March 2008
Make a quest called DropAllItems, and attach this script to it
scn DropAllItemsQuestScript short DropAllItems ref ActorRef ref CurObj short CurObjNum short LastObj float fquestdelaytime begin GameMode set fquestdelaytime to 0.001 if DropAllItems if ActorRef if ActorRef.GetNumItems > 0 set LastObj to ActorRef.GetNumItems - 1 set CurObj to ActorRef.GetInventoryObject LastObj set CurObjNum to ActorRef.GetItemCount CurObj ActorRef.Drop CurObj CurObjNum else set DropAllItems to 0 endif endif endif end
Whenever you want an actor to drop all of their items, use these lines in the calling script
set DropAllItems.ActorRef to Actor set DropAllItems.DropAllItems to 1
Note that using OBSE's loop functions may result in a crash. See this link for more information.
Also, dropping quest items from the player will probably be bad, so here's a more complex script to ensure that doesn't happen
scn DropAllItemsQuestScript short DropAllItems ref ActorRef ref CurObj short CurObjNum float fquestdelaytime short InvPosition begin GameMode set fquestdelaytime to 0.001 if (DropAllItems == 1) set DropAllItems to 2 set InvPosition to 0 elseif (DropAllItems == 2) if ActorRef set CurObj to (ActorRef.GetInventoryObject InvPosition) if CurObj if (IsQuestItem CurObj == 0) || (ActorRef != player) set CurObjNum to (ActorRef.GetItemCount CurObj) ActorRef.Drop CurObj CurObjNum endif set InvPosition to (InvPosition + 1) else set DropAllItems to 0 endif endif endif end