• Listen to a special audio message from Bill Roper to the Hive Workshop community (Bill is a former Vice President of Blizzard Entertainment, Producer, Designer, Musician, Voice Actor) 🔗Click here to hear his message!
  • Read Evilhog's interview with Gregory Alper, the original composer of the music for WarCraft: Orcs & Humans 🔗Click here to read the full interview.

Triggers

15 Slot Inventory v. 1.1.w3x
Variables
Test
test
Inventory System
Initialization
call inventory
switch to p1
switch to p2
switch to p3
Kartenspezifischen eigenen Skript-Code unten eingeben. Dieser Text wird in das Karten-Skript nach der Deklaration der Variablen und vor jeglichem Auslöser-Code eingefügt.
Name Type is_array initial_value
inv_doubleitem1 itemcode Yes
inv_doubleitem2 itemcode Yes
inv_group group No
inv_integerA integer No
inv_integerB integer No
inv_isdouble boolean No
inv_ispassiv boolean No
inv_itemcount integer Yes
inv_key integer No
inv_numberdouble integer No
inv_numberpassiv integer No
inv_passivitem itemcode Yes
inv_playergroup force No
inv_point location No
inv_storepoint location No
inv_table hashtable No
inv_target unit No
test
Events
Time - Elapsed game time is 1.00 seconds
Conditions
Actions
Set Variable Set inv_target = Paladin 0000 <gen>
Trigger - Run call_inventory <gen> (ignoring conditions)
Initialization
Events
Map initialization
Conditions
Actions
-------- create hashtable --------
Hashtable - Create a hashtable
Set Variable Set inv_table = (Last created hashtable)
-------- set the area, where the items are stored --------
Set Variable Set inv_storepoint = (Center of (Playable map area))
-------- set every item, that have a passiv effect --------
-------- !!!!! Do not set an useable item passiv !!!!! --------
Set Variable Set inv_passivitem[1] = "ofro"
Set Variable Set inv_passivitem[2] = "ratf"
Set Variable Set inv_passivitem[3] = "ckng"
Set Variable Set inv_passivitem[4] = "modt"
Set Variable Set inv_passivitem[5] = "rde4"
Set Variable Set inv_passivitem[6] = "cnhn"
Set Variable Set inv_passivitem[7] = "ankh"
Set Variable Set inv_passivitem[8] = "anfg"
Set Variable Set inv_passivitem[9] = "arsh"
Set Variable Set inv_passivitem[10] = "brag"
Set Variable Set inv_passivitem[11] = "asbl"
Set Variable Set inv_passivitem[12] = "kgal"
Set Variable Set inv_passivitem[13] = "olig"
Set Variable Set inv_passivitem[14] = "oli2"
Set Variable Set inv_passivitem[15] = "bfhr"
Set Variable Set inv_passivitem[16] = "drph"
Set Variable Set inv_passivitem[17] = "iwbr"
Set Variable Set inv_passivitem[18] = "frhg"
Set Variable Set inv_passivitem[19] = "ofir"
Set Variable Set inv_passivitem[20] = "fwss"
Set Variable Set inv_passivitem[21] = "frgd"
Set Variable Set inv_passivitem[22] = "mnsf"
Set Variable Set inv_passivitem[23] = "oven"
Set Variable Set inv_passivitem[24] = "tels"
Set Variable Set inv_passivitem[25] = "drph"
Set Variable Set inv_passivitem[26] = "horl"
Set Variable Set inv_passivitem[27] = "mlst"
Set Variable Set inv_passivitem[28] = "jdrn"
Set Variable Set inv_passivitem[29] = "btst"
Set Variable Set inv_passivitem[30] = "nspi"
Set Variable Set inv_passivitem[31] = "mlst"
Set Variable Set inv_passivitem[32] = "klmm"
Set Variable Set inv_passivitem[33] = "rat3"
Set Variable Set inv_passivitem[34] = "blba"
Set Variable Set inv_passivitem[35] = "gldo"
Set Variable Set inv_passivitem[36] = "oslo"
Set Variable Set inv_passivitem[37] = "lnrn"
Set Variable Set inv_passivitem[38] = "flag"
Set Variable Set inv_passivitem[39] = "nflg"
Set Variable Set inv_passivitem[40] = "oflg"
Set Variable Set inv_passivitem[41] = "ram4"
Set Variable Set inv_passivitem[42] = "ram2"
Set Variable Set inv_passivitem[43] = "ram3"
Set Variable Set inv_passivitem[44] = "ram1"
Set Variable Set inv_passivitem[45] = "rnsp"
Set Variable Set inv_passivitem[46] = "rde0"
Set Variable Set inv_passivitem[47] = "rump"
Set Variable Set inv_passivitem[48] = "rugt"
Set Variable Set inv_passivitem[49] = "shcw"
Set Variable Set inv_passivitem[50] = "sor1"
Set Variable Set inv_passivitem[51] = "sora"
Set Variable Set inv_passivitem[52] = "sor2"
Set Variable Set inv_passivitem[53] = "sor3"
Set Variable Set inv_passivitem[54] = "sor4"
Set Variable Set inv_passivitem[55] = "sor5"
Set Variable Set inv_passivitem[56] = "sor6"
Set Variable Set inv_passivitem[57] = "sor7"
Set Variable Set inv_passivitem[58] = "sor8"
Set Variable Set inv_passivitem[59] = "sor9"
Set Variable Set inv_passivitem[60] = "shhn"
Set Variable Set inv_passivitem[61] = "shdt"
Set Variable Set inv_passivitem[62] = "sksh"
Set Variable Set inv_passivitem[63] = "gsou"
Set Variable Set inv_passivitem[64] = "srbd"
Set Variable Set inv_passivitem[65] = "srtl"
Set Variable Set inv_passivitem[66] = "sprn"
Set Variable Set inv_passivitem[67] = "stwa"
Set Variable Set inv_passivitem[68] = "gemt"
Set Variable Set inv_passivitem[69] = "schl"
Set Variable Set inv_passivitem[70] = "tmmt"
Set Variable Set inv_passivitem[71] = "uflg"
Set Variable Set inv_passivitem[72] = "ocor"
Set Variable Set inv_passivitem[73] = "shen"
Set Variable Set inv_passivitem[74] = "vddl"
Set Variable Set inv_passivitem[75] = "afac"
Set Variable Set inv_passivitem[76] = "spsh"
Set Variable Set inv_passivitem[77] = "odef"
Set Variable Set inv_passivitem[78] = "penr"
Set Variable Set inv_passivitem[79] = "clfm"
Set Variable Set inv_passivitem[80] = "bgst"
Set Variable Set inv_passivitem[81] = "hval"
Set Variable Set inv_passivitem[82] = "hcun"
Set Variable Set inv_passivitem[83] = "kpin"
Set Variable Set inv_passivitem[84] = "rhth"
Set Variable Set inv_passivitem[85] = "ratc"
Set Variable Set inv_passivitem[86] = "rat6"
Set Variable Set inv_passivitem[87] = "rat9"
Set Variable Set inv_passivitem[88] = "sbch"
Set Variable Set inv_passivitem[89] = "lhst"
Set Variable Set inv_passivitem[90] = "pmna"
Set Variable Set inv_passivitem[91] = "rin1"
Set Variable Set inv_passivitem[92] = "mcou"
Set Variable Set inv_passivitem[93] = "rst1"
Set Variable Set inv_passivitem[94] = "cnob"
Set Variable Set inv_passivitem[95] = "rlif"
Set Variable Set inv_passivitem[96] = "rde1"
Set Variable Set inv_passivitem[97] = "rde2"
Set Variable Set inv_passivitem[98] = "rde3"
Set Variable Set inv_passivitem[99] = "ciri"
Set Variable Set inv_passivitem[100] = "brac"
Set Variable Set inv_passivitem[101] = "rag1"
Set Variable Set inv_passivitem[102] = "rwiz"
Set Variable Set inv_passivitem[103] = "bspd"
Set Variable Set inv_passivitem[104] = "belv"
Set Variable Set inv_passivitem[105] = "prvt"
Set Variable Set inv_passivitem[106] = "evtl"
Set Variable Set inv_passivitem[107] = "clsd"
Set Variable Set inv_passivitem[108] = "lgdh"
Set Variable Set inv_passivitem[109] = "ajen"
Set Variable Set inv_passivitem[110] = "ward"
-------- set this to the total amount of passiv items --------
Set Variable Set inv_numberpassiv = "110"
-------- if an item has an instant and an useale ability, you have to create an item, that has only the passiv ability and set it here --------
Set Variable Set inv_doubleitem1[1] = "hlst"
Set Variable Set inv_doubleitem2[1] = "I000"
Set Variable Set inv_doubleitem1[2] = "mnst"
Set Variable Set inv_doubleitem2[2] = "I001"
Set Variable Set inv_doubleitem1[3] = "axas"
Set Variable Set inv_doubleitem2[3] = "I002"
Set Variable Set inv_doubleitem1[4] = "dtsb"
Set Variable Set inv_doubleitem2[4] = "I003"
Set Variable Set inv_doubleitem1[5] = "tmsc"
Set Variable Set inv_doubleitem2[5] = "I004"
Set Variable Set inv_doubleitem1[6] = "gvsm"
Set Variable Set inv_doubleitem2[6] = "I005"
Set Variable Set inv_doubleitem1[7] = "hbth"
Set Variable Set inv_doubleitem2[7] = "I006"
Set Variable Set inv_doubleitem1[8] = "crdt"
Set Variable Set inv_doubleitem2[8] = "I007"
Set Variable Set inv_doubleitem1[9] = "schl"
Set Variable Set inv_doubleitem2[9] = "I008"
Set Variable Set inv_doubleitem1[10] = "rots"
Set Variable Set inv_doubleitem2[10] = "I009"
-------- set here the number of items with 2 abilitys --------
Set Variable Set inv_numberdouble = "10"
-------- Disable the spellbooks --------
Set Variable Set inv_playergroup = (All players)
Player Group - Pick every player in inv_playergroup and do (Actions)
Loop - Actions
Player - Disable Inventorybook 1 for (Picked player)
Player - Disable Inventorybook 2 for (Picked player)
Player - Disable Inventorybook 3 for (Picked player)
Player - Disable Inventorybook 4 for (Picked player)
Player - Disable Inventorybook 5 for (Picked player)
Custom script: call DestroyForce(udg_inv_playergroup)
call inventory
Events
Conditions
Actions
Set Variable Set inv_key = (Key (Random unit from (Units owned by (Owner of inv_target) matching ((Matching unit) Equal to inv_target).)).)
Hashtable - Save 1 as (Key (current page).) of inv_key in inv_table .
Unit - Remove Inventory (Hero) from inv_target
Unit - Add Inventory Hero to inv_target
Hero - Create Next Page and give it to inv_target
Unit Group - Add inv_target to inv_group
switch to p1
Events
Unit - A unit Uses an item
Conditions
(Item-type of (Item being manipulated)) Equal to Next Page
(Load (Key (current page).) of (Key (Triggering unit).) from inv_table.) Equal to 3
((Triggering unit) is in inv_group.) Equal to True
Actions
Item - Remove (Item being manipulated)
For each (Integer inv_integerA ) from 1 to 5 , do (Actions)
Loop - Actions
For each (Integer inv_integerA ) from 1 to 5 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Item carried by (Triggering unit) in slot (inv_integerA + 1)) Equal to No item
Then - Actions
Set Variable Set inv_point = (Position of (Triggering unit))
Item - Create No Item at inv_point
Custom script: call RemoveLocation( udg_inv_point)
Hashtable - Save Handle Of (Last created item) as (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table .
Else - Actions
Hashtable - Save Handle Of (Item carried by (Triggering unit) in slot (inv_integerA + 1)) as (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table .
Set Variable Set inv_point = (Position of (Triggering unit))
Item - Move (Item carried by (Triggering unit) in slot (inv_integerA + 1)) to inv_point
Custom script: call RemoveLocation( udg_inv_point)
For each (Integer inv_integerA ) from 1 to 5 , do (Actions)
Loop - Actions
For each (Integer inv_integerB ) from 1 to inv_numberdouble , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Item-type of (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_doubleitem1[inv_integerB]
Then - Actions
Item - Remove (Load (Key ((item + ((String((25 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)
Hashtable - Save Handle Of No item as (Key ((item + ((String((25 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table .
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Item-type of (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_doubleitem1[inv_integerB]
Then - Actions
Item - Remove (Load (Key ((item + ((String((15 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)
Hashtable - Save Handle Of No item as (Key ((item + ((String((15 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table .
Else - Actions
Unit - Remove Inventory Hero from (Triggering unit)
For each (Integer inv_integerA ) from 1 to 5 , do (Actions)
Loop - Actions
Set Variable Set inv_point = (Position of (Triggering unit))
Item - Move (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) to inv_point
Custom script: call RemoveLocation( udg_inv_point)
Item - Show (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)
Item - Make (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Transporting unit).) in inv_table.) Vulnerable
Set Variable Set inv_point = (Position of (Triggering unit))
Item - Move (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) to inv_point
Custom script: call RemoveLocation( udg_inv_point)
Item - Show (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)
Item - Make (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Transporting unit).) in inv_table.) Vulnerable
Unit - Remove Inventory 1.1 from (Triggering unit)
Unit - Remove Inventory 1.2 from (Triggering unit)
Unit - Remove Inventory 1.3 from (Triggering unit)
Unit - Remove Inventory 1.4 from (Triggering unit)
Unit - Remove Inventory 1.5 from (Triggering unit)
Unit - Remove Inventorybook 1 from (Triggering unit)
Unit - Remove Inventorybook 2 from (Triggering unit)
Unit - Remove Inventorybook 3 from (Triggering unit)
Unit - Remove Inventorybook 4 from (Triggering unit)
Unit - Remove Inventorybook 5 from (Triggering unit)
For each (Integer inv_integerA ) from 1 to 5 , do (Actions)
Loop - Actions
Set Variable Set inv_isdouble = "false"
Set Variable Set inv_ispassiv = "false"
For each (Integer inv_integerB ) from 1 to inv_numberdouble , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Item-type of (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_doubleitem1[inv_integerB]
Then - Actions
Set Variable Set inv_isdouble = "true"
Set Variable Set inv_ispassiv = "true"
Set Variable Set inv_itemcount[1] = (inv_itemcount[1] + 1)
Set Variable Set inv_itemcount[2] = (inv_itemcount[2] + 1)
Else - Actions
For each (Integer inv_integerB ) from 1 to inv_numberpassiv , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_isdouble Equal to False
(Item-type of (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_passivitem[inv_integerB]
Then - Actions
Set Variable Set inv_ispassiv = "true"
Set Variable Set inv_itemcount[1] = (inv_itemcount[1] + 1)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_ispassiv Equal to False
(Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) Not equal to No item
Then - Actions
Set Variable Set inv_itemcount[2] = (inv_itemcount[2] + 1)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 1
Then - Actions
Unit - Add Inventorybook 1 to (Triggering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 2
Then - Actions
Unit - Add Inventorybook 2 to (Triggering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 3
Then - Actions
Unit - Add Inventorybook 3 to (Triggering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 4
Then - Actions
Unit - Add Inventorybook 4 to (Triggering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 5
Then - Actions
Unit - Add Inventorybook 5 to (Triggering unit)
Else - Actions
For each (Integer inv_integerA ) from 1 to 5 , do (Actions)
Loop - Actions
Set Variable Set inv_isdouble = "false"
Set Variable Set inv_ispassiv = "false"
For each (Integer inv_integerB ) from 1 to inv_numberdouble , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Item-type of (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_doubleitem1[inv_integerB]
Then - Actions
Set Variable Set inv_isdouble = "true"
Set Variable Set inv_ispassiv = "true"
Item - Move (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) to inv_storepoint
Item - Hide (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)
Item - Make (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Transporting unit).) in inv_table.) Invulnerable
Hero - Create inv_doubleitem2[inv_integerB] and give it to (Triggering unit)
Hashtable - Save Handle Of (Last created item) as (Key ((item + ((String((35 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table .
Else - Actions
For each (Integer inv_integerB ) from 1 to inv_numberpassiv , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_isdouble Equal to False
(Item-type of (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_passivitem[inv_integerB]
Then - Actions
Hero - Give (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) to (Triggering unit)
Set Variable Set inv_ispassiv = "true"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_ispassiv Equal to False
(Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) Not equal to No item
Then - Actions
Item - Move (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) to inv_storepoint
Item - Hide (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)
Item - Make (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Transporting unit).) in inv_table.) Invulnerable
Else - Actions
Set Variable Set inv_itemcount[1] = "0"
Set Variable Set inv_itemcount[2] = "0"
For each (Integer inv_integerA ) from 1 to 5 , do (Actions)
Loop - Actions
Set Variable Set inv_isdouble = "false"
Set Variable Set inv_ispassiv = "false"
For each (Integer inv_integerB ) from 1 to inv_numberdouble , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Item-type of (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_doubleitem1[inv_integerB]
Then - Actions
Set Variable Set inv_isdouble = "true"
Set Variable Set inv_ispassiv = "true"
Set Variable Set inv_itemcount[1] = (inv_itemcount[1] + 1)
Set Variable Set inv_itemcount[2] = (inv_itemcount[2] + 1)
Else - Actions
For each (Integer inv_integerB ) from 1 to inv_numberpassiv , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_isdouble Equal to False
(Item-type of (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_passivitem[inv_integerB]
Then - Actions
Set Variable Set inv_ispassiv = "true"
Set Variable Set inv_itemcount[1] = (inv_itemcount[1] + 1)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_ispassiv Equal to False
(Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) Not equal to No item
Then - Actions
Set Variable Set inv_itemcount[2] = (inv_itemcount[2] + 1)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 1
Then - Actions
Unit - Add Inventory 1.1 to (Triggering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 2
Then - Actions
Unit - Add Inventory 1.2 to (Triggering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 3
Then - Actions
Unit - Add Inventory 1.3 to (Triggering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 4
Then - Actions
Unit - Add Inventory 1.4 to (Triggering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 5
Then - Actions
Unit - Add Inventory 1.5 to (Triggering unit)
Else - Actions
For each (Integer inv_integerA ) from 1 to 5 , do (Actions)
Loop - Actions
Set Variable Set inv_isdouble = "false"
Set Variable Set inv_ispassiv = "false"
For each (Integer inv_integerB ) from 1 to inv_numberdouble , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Item-type of (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_doubleitem1[inv_integerB]
Then - Actions
Set Variable Set inv_isdouble = "true"
Set Variable Set inv_ispassiv = "true"
Item - Move (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) to inv_storepoint
Item - Hide (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)
Item - Make (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Transporting unit).) in inv_table.) Invulnerable
Hero - Create inv_doubleitem2[inv_integerB] and give it to (Triggering unit)
Hashtable - Save Handle Of (Last created item) as (Key ((item + ((String((25 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table .
Else - Actions
For each (Integer inv_integerB ) from 1 to inv_numberpassiv , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_isdouble Equal to False
(Item-type of (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_passivitem[inv_integerB]
Then - Actions
Hero - Give (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) to (Triggering unit)
Set Variable Set inv_ispassiv = "true"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_ispassiv Equal to False
(Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) Not equal to No item
Then - Actions
Item - Move (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) to inv_storepoint
Item - Hide (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)
Item - Make (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Transporting unit).) in inv_table.) Invulnerable
Else - Actions
Set Variable Set inv_itemcount[1] = "0"
Set Variable Set inv_itemcount[2] = "0"
Unit - Add Inventory Hero to (Triggering unit)
Hero - Create Next Page and give it to (Triggering unit)
Item - Set charges remaining in (Last created item) to 1
Hashtable - Save 1 as (Key (current page).) of (Key (Triggering unit).) in inv_table .
For each (Integer inv_integerA ) from 1 to 5 , do (Actions)
Loop - Actions
Hero - Give (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) to (Triggering unit)
For each (Integer inv_integerA ) from 1 to 6 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Item-type of (Item carried by (Triggering unit) in slot inv_integerA)) Equal to No Item
Then - Actions
Item - Remove (Item carried by (Triggering unit) in slot inv_integerA)
Else - Actions
switch to p2
Events
Unit - A unit Uses an item
Conditions
(Item-type of (Item being manipulated)) Equal to Next Page
(Load (Key (current page).) of (Key (Triggering unit).) from inv_table.) Equal to 1
((Triggering unit) is in inv_group.) Equal to True
Actions
Item - Remove (Item being manipulated)
For each (Integer inv_integerA ) from 1 to 5 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Item carried by (Triggering unit) in slot (inv_integerA + 1)) Equal to No item
Then - Actions
Set Variable Set inv_point = (Position of (Triggering unit))
Item - Create No Item at inv_point
Custom script: call RemoveLocation( udg_inv_point)
Hashtable - Save Handle Of (Last created item) as (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table .
Else - Actions
Hashtable - Save Handle Of (Item carried by (Triggering unit) in slot (inv_integerA + 1)) as (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table .
Set Variable Set inv_point = (Position of (Triggering unit))
Item - Move (Item carried by (Triggering unit) in slot (inv_integerA + 1)) to inv_point
Custom script: call RemoveLocation( udg_inv_point)
For each (Integer inv_integerA ) from 1 to 5 , do (Actions)
Loop - Actions
For each (Integer inv_integerB ) from 1 to inv_numberdouble , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Item-type of (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_doubleitem1[inv_integerB]
Then - Actions
Item - Remove (Load (Key ((item + ((String((35 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)
Hashtable - Save Handle Of No item as (Key ((item + ((String((35 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table .
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Item-type of (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_doubleitem1[inv_integerB]
Then - Actions
Item - Remove (Load (Key ((item + ((String((25 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)
Hashtable - Save Handle Of No item as (Key ((item + ((String((25 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table .
Else - Actions
Unit - Remove Inventory Hero from (Triggering unit)
For each (Integer inv_integerA ) from 1 to 5 , do (Actions)
Loop - Actions
Set Variable Set inv_point = (Position of (Triggering unit))
Item - Move (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) to inv_point
Custom script: call RemoveLocation( udg_inv_point)
Item - Show (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)
Item - Make (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Transporting unit).) in inv_table.) Vulnerable
Set Variable Set inv_point = (Position of (Triggering unit))
Item - Move (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) to inv_point
Custom script: call RemoveLocation( udg_inv_point)
Item - Show (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)
Item - Make (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Transporting unit).) in inv_table.) Vulnerable
Unit - Remove Inventory 1.1 from (Triggering unit)
Unit - Remove Inventory 1.2 from (Triggering unit)
Unit - Remove Inventory 1.3 from (Triggering unit)
Unit - Remove Inventory 1.4 from (Triggering unit)
Unit - Remove Inventory 1.5 from (Triggering unit)
Unit - Remove Inventorybook 1 from (Triggering unit)
Unit - Remove Inventorybook 2 from (Triggering unit)
Unit - Remove Inventorybook 3 from (Triggering unit)
Unit - Remove Inventorybook 4 from (Triggering unit)
Unit - Remove Inventorybook 5 from (Triggering unit)
For each (Integer inv_integerA ) from 1 to 5 , do (Actions)
Loop - Actions
Set Variable Set inv_isdouble = "false"
Set Variable Set inv_ispassiv = "false"
For each (Integer inv_integerB ) from 1 to inv_numberdouble , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Item-type of (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_doubleitem1[inv_integerB]
Then - Actions
Set Variable Set inv_isdouble = "true"
Set Variable Set inv_ispassiv = "true"
Set Variable Set inv_itemcount[1] = (inv_itemcount[1] + 1)
Set Variable Set inv_itemcount[2] = (inv_itemcount[2] + 1)
Else - Actions
For each (Integer inv_integerB ) from 1 to inv_numberpassiv , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_isdouble Equal to False
(Item-type of (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_passivitem[inv_integerB]
Then - Actions
Set Variable Set inv_ispassiv = "true"
Set Variable Set inv_itemcount[1] = (inv_itemcount[1] + 1)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_ispassiv Equal to False
(Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) Not equal to No item
Then - Actions
Set Variable Set inv_itemcount[2] = (inv_itemcount[2] + 1)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 1
Then - Actions
Unit - Add Inventorybook 1 to (Triggering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 2
Then - Actions
Unit - Add Inventorybook 2 to (Triggering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 3
Then - Actions
Unit - Add Inventorybook 3 to (Triggering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 4
Then - Actions
Unit - Add Inventorybook 4 to (Triggering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 5
Then - Actions
Unit - Add Inventorybook 5 to (Triggering unit)
Else - Actions
For each (Integer inv_integerA ) from 1 to 5 , do (Actions)
Loop - Actions
Set Variable Set inv_isdouble = "false"
Set Variable Set inv_ispassiv = "false"
For each (Integer inv_integerB ) from 1 to inv_numberdouble , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Item-type of (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_doubleitem1[inv_integerB]
Then - Actions
Set Variable Set inv_isdouble = "true"
Set Variable Set inv_ispassiv = "true"
Item - Move (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) to inv_storepoint
Item - Hide (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)
Item - Make (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Transporting unit).) in inv_table.) Invulnerable
Hero - Create inv_doubleitem2[inv_integerB] and give it to (Triggering unit)
Hashtable - Save Handle Of (Last created item) as (Key ((item + ((String((15 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table .
Else - Actions
For each (Integer inv_integerB ) from 1 to inv_numberpassiv , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_isdouble Equal to False
(Item-type of (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_passivitem[inv_integerB]
Then - Actions
Hero - Give (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) to (Triggering unit)
Set Variable Set inv_ispassiv = "true"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_ispassiv Equal to False
(Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) Not equal to No item
Then - Actions
Item - Move (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) to inv_storepoint
Item - Hide (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)
Item - Make (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Transporting unit).) in inv_table.) Invulnerable
Else - Actions
Set Variable Set inv_itemcount[1] = "0"
Set Variable Set inv_itemcount[2] = "0"
For each (Integer inv_integerA ) from 1 to 5 , do (Actions)
Loop - Actions
Set Variable Set inv_isdouble = "false"
Set Variable Set inv_ispassiv = "false"
For each (Integer inv_integerB ) from 1 to inv_numberdouble , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Item-type of (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_doubleitem1[inv_integerB]
Then - Actions
Set Variable Set inv_isdouble = "true"
Set Variable Set inv_ispassiv = "true"
Set Variable Set inv_itemcount[1] = (inv_itemcount[1] + 1)
Set Variable Set inv_itemcount[2] = (inv_itemcount[2] + 1)
Else - Actions
For each (Integer inv_integerB ) from 1 to inv_numberpassiv , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_isdouble Equal to False
(Item-type of (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_passivitem[inv_integerB]
Then - Actions
Set Variable Set inv_ispassiv = "true"
Set Variable Set inv_itemcount[1] = (inv_itemcount[1] + 1)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_ispassiv Equal to False
(Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) Not equal to No item
Then - Actions
Set Variable Set inv_itemcount[2] = (inv_itemcount[2] + 1)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 1
Then - Actions
Unit - Add Inventory 1.1 to (Triggering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 2
Then - Actions
Unit - Add Inventory 1.2 to (Triggering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 3
Then - Actions
Unit - Add Inventory 1.3 to (Triggering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 4
Then - Actions
Unit - Add Inventory 1.4 to (Triggering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 5
Then - Actions
Unit - Add Inventory 1.5 to (Triggering unit)
Else - Actions
For each (Integer inv_integerA ) from 1 to 5 , do (Actions)
Loop - Actions
Set Variable Set inv_isdouble = "false"
Set Variable Set inv_ispassiv = "false"
For each (Integer inv_integerB ) from 1 to inv_numberdouble , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Item-type of (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_doubleitem1[inv_integerB]
Then - Actions
Set Variable Set inv_isdouble = "true"
Set Variable Set inv_ispassiv = "true"
Item - Move (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) to inv_storepoint
Item - Hide (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)
Item - Make (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Transporting unit).) in inv_table.) Invulnerable
Hero - Create inv_doubleitem2[inv_integerB] and give it to (Triggering unit)
Hashtable - Save Handle Of (Last created item) as (Key ((item + ((String((35 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table .
Else - Actions
For each (Integer inv_integerB ) from 1 to inv_numberpassiv , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_isdouble Equal to False
(Item-type of (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_passivitem[inv_integerB]
Then - Actions
Hero - Give (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) to (Triggering unit)
Set Variable Set inv_ispassiv = "true"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_ispassiv Equal to False
(Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) Not equal to No item
Then - Actions
Item - Move (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) to inv_storepoint
Item - Hide (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)
Item - Make (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Transporting unit).) in inv_table.) Invulnerable
Else - Actions
Set Variable Set inv_itemcount[1] = "0"
Set Variable Set inv_itemcount[2] = "0"
Unit - Add Inventory Hero to (Triggering unit)
Hero - Create Next Page and give it to (Triggering unit)
Item - Set charges remaining in (Last created item) to 2
Hashtable - Save 2 as (Key (current page).) of (Key (Triggering unit).) in inv_table .
For each (Integer inv_integerA ) from 1 to 5 , do (Actions)
Loop - Actions
Hero - Give (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) to (Triggering unit)
For each (Integer inv_integerA ) from 1 to 6 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Item-type of (Item carried by (Triggering unit) in slot inv_integerA)) Equal to No Item
Then - Actions
Item - Remove (Item carried by (Triggering unit) in slot inv_integerA)
Else - Actions
switch to p3
Events
Unit - A unit Uses an item
Conditions
(Item-type of (Item being manipulated)) Equal to Next Page
(Load (Key (current page).) of (Key (Triggering unit).) from inv_table.) Equal to 2
((Triggering unit) is in inv_group.) Equal to True
Actions
Item - Remove (Item being manipulated)
For each (Integer inv_integerA ) from 1 to 5 , do (Actions)
Loop - Actions
For each (Integer inv_integerA ) from 1 to 5 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Item carried by (Triggering unit) in slot (inv_integerA + 1)) Equal to No item
Then - Actions
Set Variable Set inv_point = (Position of (Triggering unit))
Item - Create No Item at inv_point
Custom script: call RemoveLocation( udg_inv_point)
Hashtable - Save Handle Of (Last created item) as (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table .
Else - Actions
Hashtable - Save Handle Of (Item carried by (Triggering unit) in slot (inv_integerA + 1)) as (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table .
Set Variable Set inv_point = (Position of (Triggering unit))
Item - Move (Item carried by (Triggering unit) in slot (inv_integerA + 1)) to inv_point
Custom script: call RemoveLocation( udg_inv_point)
For each (Integer inv_integerA ) from 1 to 5 , do (Actions)
Loop - Actions
For each (Integer inv_integerB ) from 1 to inv_numberdouble , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Item-type of (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_doubleitem1[inv_integerB]
Then - Actions
Item - Remove (Load (Key ((item + ((String((35 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)
Hashtable - Save Handle Of No item as (Key ((item + ((String((35 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table .
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Item-type of (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_doubleitem1[inv_integerB]
Then - Actions
Item - Remove (Load (Key ((item + ((String((15 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)
Hashtable - Save Handle Of No item as (Key ((item + ((String((15 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table .
Else - Actions
Unit - Remove Inventory Hero from (Triggering unit)
For each (Integer inv_integerA ) from 1 to 5 , do (Actions)
Loop - Actions
Set Variable Set inv_point = (Position of (Triggering unit))
Item - Move (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) to inv_point
Custom script: call RemoveLocation( udg_inv_point)
Item - Show (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)
Item - Make (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Transporting unit).) in inv_table.) Vulnerable
Set Variable Set inv_point = (Position of (Triggering unit))
Item - Move (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) to inv_point
Custom script: call RemoveLocation( udg_inv_point)
Item - Show (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)
Item - Make (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Transporting unit).) in inv_table.) Vulnerable
Unit - Remove Inventory 1.1 from (Triggering unit)
Unit - Remove Inventory 1.2 from (Triggering unit)
Unit - Remove Inventory 1.3 from (Triggering unit)
Unit - Remove Inventory 1.4 from (Triggering unit)
Unit - Remove Inventory 1.5 from (Triggering unit)
Unit - Remove Inventorybook 1 from (Triggering unit)
Unit - Remove Inventorybook 2 from (Triggering unit)
Unit - Remove Inventorybook 3 from (Triggering unit)
Unit - Remove Inventorybook 4 from (Triggering unit)
Unit - Remove Inventorybook 5 from (Triggering unit)
For each (Integer inv_integerA ) from 1 to 5 , do (Actions)
Loop - Actions
Set Variable Set inv_isdouble = "false"
Set Variable Set inv_ispassiv = "false"
For each (Integer inv_integerB ) from 1 to inv_numberdouble , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Item-type of (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_doubleitem1[inv_integerB]
Then - Actions
Set Variable Set inv_isdouble = "true"
Set Variable Set inv_ispassiv = "true"
Set Variable Set inv_itemcount[1] = (inv_itemcount[1] + 1)
Set Variable Set inv_itemcount[2] = (inv_itemcount[2] + 1)
Else - Actions
For each (Integer inv_integerB ) from 1 to inv_numberpassiv , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_isdouble Equal to False
(Item-type of (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_passivitem[inv_integerB]
Then - Actions
Set Variable Set inv_ispassiv = "true"
Set Variable Set inv_itemcount[1] = (inv_itemcount[1] + 1)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_ispassiv Equal to False
(Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) Not equal to No item
Then - Actions
Set Variable Set inv_itemcount[2] = (inv_itemcount[2] + 1)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 1
Then - Actions
Unit - Add Inventorybook 1 to (Triggering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 2
Then - Actions
Unit - Add Inventorybook 2 to (Triggering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 3
Then - Actions
Unit - Add Inventorybook 3 to (Triggering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 4
Then - Actions
Unit - Add Inventorybook 4 to (Triggering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 5
Then - Actions
Unit - Add Inventorybook 5 to (Triggering unit)
Else - Actions
For each (Integer inv_integerA ) from 1 to 5 , do (Actions)
Loop - Actions
Set Variable Set inv_isdouble = "false"
Set Variable Set inv_ispassiv = "false"
For each (Integer inv_integerB ) from 1 to inv_numberdouble , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Item-type of (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_doubleitem1[inv_integerB]
Then - Actions
Set Variable Set inv_isdouble = "true"
Set Variable Set inv_ispassiv = "true"
Item - Move (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) to inv_storepoint
Item - Hide (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)
Item - Make (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Transporting unit).) in inv_table.) Invulnerable
Hero - Create inv_doubleitem2[inv_integerB] and give it to (Triggering unit)
Hashtable - Save Handle Of (Last created item) as (Key ((item + ((String((25 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table .
Else - Actions
For each (Integer inv_integerB ) from 1 to inv_numberpassiv , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_isdouble Equal to False
(Item-type of (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_passivitem[inv_integerB]
Then - Actions
Hero - Give (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) to (Triggering unit)
Set Variable Set inv_ispassiv = "true"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_ispassiv Equal to False
(Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) Not equal to No item
Then - Actions
Item - Move (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) to inv_storepoint
Item - Hide (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)
Item - Make (Load (Key ((item + ((String((20 + inv_integerA))) + ))).) of (Key (Transporting unit).) in inv_table.) Invulnerable
Else - Actions
Set Variable Set inv_itemcount[1] = "0"
Set Variable Set inv_itemcount[2] = "0"
For each (Integer inv_integerA ) from 1 to 5 , do (Actions)
Loop - Actions
Set Variable Set inv_isdouble = "false"
Set Variable Set inv_ispassiv = "false"
For each (Integer inv_integerB ) from 1 to inv_numberdouble , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Item-type of (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_doubleitem1[inv_integerB]
Then - Actions
Set Variable Set inv_isdouble = "true"
Set Variable Set inv_ispassiv = "true"
Set Variable Set inv_itemcount[1] = (inv_itemcount[1] + 1)
Set Variable Set inv_itemcount[2] = (inv_itemcount[2] + 1)
Else - Actions
For each (Integer inv_integerB ) from 1 to inv_numberpassiv , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_isdouble Equal to False
(Item-type of (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_passivitem[inv_integerB]
Then - Actions
Set Variable Set inv_ispassiv = "true"
Set Variable Set inv_itemcount[1] = (inv_itemcount[1] + 1)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_ispassiv Equal to False
(Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) Not equal to No item
Then - Actions
Set Variable Set inv_itemcount[2] = (inv_itemcount[2] + 1)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 1
Then - Actions
Unit - Add Inventory 1.1 to (Triggering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 2
Then - Actions
Unit - Add Inventory 1.2 to (Triggering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 3
Then - Actions
Unit - Add Inventory 1.3 to (Triggering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 4
Then - Actions
Unit - Add Inventory 1.4 to (Triggering unit)
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_itemcount[1] Equal to 5
Then - Actions
Unit - Add Inventory 1.5 to (Triggering unit)
Else - Actions
For each (Integer inv_integerA ) from 1 to 5 , do (Actions)
Loop - Actions
Set Variable Set inv_isdouble = "false"
Set Variable Set inv_ispassiv = "false"
For each (Integer inv_integerB ) from 1 to inv_numberdouble , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Item-type of (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_doubleitem1[inv_integerB]
Then - Actions
Set Variable Set inv_isdouble = "true"
Set Variable Set inv_ispassiv = "true"
Item - Move (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) to inv_storepoint
Item - Hide (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)
Item - Make (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Transporting unit).) in inv_table.) Invulnerable
Hero - Create inv_doubleitem2[inv_integerB] and give it to (Triggering unit)
Hashtable - Save Handle Of (Last created item) as (Key ((item + ((String((15 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table .
Else - Actions
For each (Integer inv_integerB ) from 1 to inv_numberpassiv , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_isdouble Equal to False
(Item-type of (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)) Equal to inv_passivitem[inv_integerB]
Then - Actions
Hero - Give (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) to (Triggering unit)
Set Variable Set inv_ispassiv = "true"
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
inv_ispassiv Equal to False
(Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) Not equal to No item
Then - Actions
Item - Move (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) to inv_storepoint
Item - Hide (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.)
Item - Make (Load (Key ((item + ((String((10 + inv_integerA))) + ))).) of (Key (Transporting unit).) in inv_table.) Invulnerable
Else - Actions
Set Variable Set inv_itemcount[1] = "0"
Set Variable Set inv_itemcount[2] = "0"
Unit - Add Inventory Hero to (Triggering unit)
Hero - Create Next Page and give it to (Triggering unit)
Item - Set charges remaining in (Last created item) to 3
Hashtable - Save 3 as (Key (current page).) of (Key (Triggering unit).) in inv_table .
For each (Integer inv_integerA ) from 1 to 5 , do (Actions)
Loop - Actions
Hero - Give (Load (Key ((item + ((String((30 + inv_integerA))) + ))).) of (Key (Triggering unit).) in inv_table.) to (Triggering unit)
For each (Integer inv_integerA ) from 1 to 6 , do (Actions)
Loop - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Item-type of (Item carried by (Triggering unit) in slot inv_integerA)) Equal to No Item
Then - Actions
Item - Remove (Item carried by (Triggering unit) in slot inv_integerA)
Else - Actions
Top