Trigger:
- SaveLoad Initialization Hero
- SaveLoad Initialization Hero
- Events
- Map initialization
- Conditions
- Actions
- -------- Inventory Player 1 --------
- Set SaveLoad_Inventory_Player1[1] = Inventory 0029 <gen>
- Set SaveLoad_Inventory_Player1[2] = Inventory 0032 <gen>
- Set SaveLoad_Inventory_Player1[3] = Inventory 0030 <gen>
- Set SaveLoad_Inventory_Player1[4] = Inventory 0031 <gen>
- -------- Inventory Player 2 --------
- Set SaveLoad_Inventory_Player2[1] = Inventory 0033 <gen>
- Set SaveLoad_Inventory_Player2[2] = Inventory 0036 <gen>
- Set SaveLoad_Inventory_Player2[3] = Inventory 0034 <gen>
- Set SaveLoad_Inventory_Player2[4] = Inventory 0035 <gen>
- -------- List of Heroes --------
- Set SaveLoad_Heroes[1] = Paladin
- Set SaveLoad_Heroes[2] = Priest
- Set SaveLoad_Heroes[3] = Hunter
- Set SaveLoad_Heroes[4] = Mage
- Set SaveLoad_Heroes[5] = Rogue
- Set SaveLoad_Heroes[6] = Warrior
- Set SaveLoad_Heroes[7] = Druid
- Set SaveLoad_Heroes[8] = Warlock
- -------- Number of Heroes --------
- Set SaveLoad_Heroes_LastIndex = 4
- -------- These three lines may be changed if needed --------
- Set SaveLoad_Alphabet = ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789
- Set SaveLoad_CaseSensitive = False
- Set SaveLoad_UsePlayername = True
- -------- Required: false --------
- Set SaveLoad_Initialized = False
- -------- Leave as is. Used to autocreate variables when copy & pasting to a new map --------
- Set Save[1] = 0
- Set SaveCount = 1
- Set Validate = False
- Set SaveLoad_Compress[1] = 0
- Set SaveLoad_Uncompress[1] = 0
- Events
- SaveLoad Initialization Hero
Trigger:
- Save Inventory Player 1
- Events
- Player - Player 1 (Red) types a chat message containing -save2 as An exact match
- Player - Player 2 (Blue) types a chat message containing -save as An exact match
- Player - Player 3 (Teal) types a chat message containing -save as An exact match
- Player - Player 4 (Purple) types a chat message containing -save as An exact match
- Player - Player 5 (Yellow) types a chat message containing -save as An exact match
- Player - Player 6 (Orange) types a chat message containing -save as An exact match
- Player - Player 7 (Green) types a chat message containing -save as An exact match
- Player - Player 8 (Pink) types a chat message containing -save as An exact match
- Conditions
- Actions
- Wait 1.00 seconds
- Set SaveCount = 6
- Unit Group - Pick every unit in (Units of type (Unit-type of SaveLoad_Inventory_Player1[1])) and do (Actions)
- Loop - Actions
- For each (Integer A) from 1 to 6, do (Actions)
- Loop - Actions
- If (All Conditions are True) then do (Then Actions) else do (Else Actions)
- If - Conditions
- ((Item carried by (Picked unit) in slot (Integer A)) is owned) Equal to True
- Then - Actions
- -------- The actual item --------
- Set SaveCount = (SaveCount + 1)
- Set TempItem = (Item carried by (Picked unit) in slot (Integer A))
- Custom script: set udg_Save[udg_SaveCount] = SaveLoad_Item2Integer( udg_TempItem )
- -------- The number of charges it has --------
- Set SaveCount = (SaveCount + 1)
- Set Save[SaveCount] = (Charges remaining in (Item carried by (Picked unit) in slot (Integer A)))
- Else - Actions
- If - Conditions
- If (All Conditions are True) then do (Then Actions) else do (Else Actions)
- Loop - Actions
- For each (Integer A) from 1 to 6, do (Actions)
- Loop - Actions
- Unit Group - Pick every unit in (Units of type (Unit-type of SaveLoad_Inventory_Player1[2])) and do (Actions)
- Loop - Actions
- For each (Integer A) from 1 to 6, do (Actions)
- Loop - Actions
- If (All Conditions are True) then do (Then Actions) else do (Else Actions)
- If - Conditions
- ((Item carried by (Picked unit) in slot (Integer A)) is owned) Equal to True
- Then - Actions
- -------- The actual item --------
- Set SaveCount = (SaveCount + 1)
- Set TempItem = (Item carried by (Picked unit) in slot (Integer A))
- Custom script: set udg_Save[udg_SaveCount] = SaveLoad_Item2Integer( udg_TempItem )
- -------- The number of charges it has --------
- Set SaveCount = (SaveCount + 1)
- Set Save[SaveCount] = (Charges remaining in (Item carried by (Picked unit) in slot (Integer A)))
- Else - Actions
- If - Conditions
- If (All Conditions are True) then do (Then Actions) else do (Else Actions)
- Loop - Actions
- For each (Integer A) from 1 to 6, do (Actions)
- Loop - Actions
- Unit Group - Pick every unit in (Units of type (Unit-type of SaveLoad_Inventory_Player1[3])) and do (Actions)
- Loop - Actions
- For each (Integer A) from 1 to 6, do (Actions)
- Loop - Actions
- If (All Conditions are True) then do (Then Actions) else do (Else Actions)
- If - Conditions
- ((Item carried by (Picked unit) in slot (Integer A)) is owned) Equal to True
- Then - Actions
- -------- The actual item --------
- Set SaveCount = (SaveCount + 1)
- Set TempItem = (Item carried by (Picked unit) in slot (Integer A))
- Custom script: set udg_Save[udg_SaveCount] = SaveLoad_Item2Integer( udg_TempItem )
- -------- The number of charges it has --------
- Set SaveCount = (SaveCount + 1)
- Set Save[SaveCount] = (Charges remaining in (Item carried by (Picked unit) in slot (Integer A)))
- Else - Actions
- If - Conditions
- If (All Conditions are True) then do (Then Actions) else do (Else Actions)
- Loop - Actions
- For each (Integer A) from 1 to 6, do (Actions)
- Loop - Actions
- Unit Group - Pick every unit in (Units of type (Unit-type of SaveLoad_Inventory_Player1[4])) and do (Actions)
- Loop - Actions
- For each (Integer A) from 1 to 6, do (Actions)
- Loop - Actions
- If (All Conditions are True) then do (Then Actions) else do (Else Actions)
- If - Conditions
- ((Item carried by (Picked unit) in slot (Integer A)) is owned) Equal to True
- Then - Actions
- -------- The actual item --------
- Set SaveCount = (SaveCount + 1)
- Set TempItem = (Item carried by (Picked unit) in slot (Integer A))
- Custom script: set udg_Save[udg_SaveCount] = SaveLoad_Item2Integer( udg_TempItem )
- -------- The number of charges it has --------
- Set SaveCount = (SaveCount + 1)
- Set Save[SaveCount] = (Charges remaining in (Item carried by (Picked unit) in slot (Integer A)))
- Else - Actions
- If - Conditions
- If (All Conditions are True) then do (Then Actions) else do (Else Actions)
- Loop - Actions
- For each (Integer A) from 1 to 6, do (Actions)
- Loop - Actions
- -------- Turn values into code --------
- Custom script: set udg_Code = SaveLoad_Encode()
- -------- Show code to player --------
- Quest - Display to (Player group((Triggering player))) the Secret message: [Inventory] Your co...
- Game - Display to (Player group((Triggering player))) for 300.00 seconds the text: Code
- Events
Trigger:
- Load Inventory Player 1
- Events
- Player - Player 1 (Red) types a chat message containing -load2 as A substring
- Conditions
- (Substring((Entered chat string), 1, 7)) Equal to (Matched chat string)
- (Length of (Entered chat string)) Greater than 7
- Actions
- Trigger - Turn off (This trigger)
- -------- Try to decode what was typed --------
- Set Code = (Substring((Entered chat string), 8, (Length of (Entered chat string))))
- Custom script: set udg_Validate = SaveLoad_Decode( udg_Code )
- If (All Conditions are True) then do (Then Actions) else do (Else Actions)
- If - Conditions
- Validate Equal to False
- Then - Actions
- -------- Invalid code --------
- Trigger - Turn on (This trigger)
- Skip remaining actions
- Else - Actions
- If - Conditions
- -------- It worked, let's do something with it --------
- For each (Integer A) from 1 to 6, do (Actions)
- Loop - Actions
- Hero - Drop the item from slot 6 of SaveLoad_Inventory_Player1[(Integer A)]
- Item - Remove (Last dropped item)
- Loop - Actions
- Set SaveCount = 6
- For each (Integer A) from 1 to Save[SaveCount], do (Actions)
- Loop - Actions
- Set SaveCount = (SaveCount + 1)
- Custom script: set udg_TempItemType = SaveLoad_Integer2Item(udg_Save[udg_SaveCount])
- Hero - Create TempItemType and give it to SaveLoad_Inventory_Player1[1]
- Set SaveCount = (SaveCount + 1)
- Item - Set charges remaining in (Last created item) to Save[SaveCount]
- Loop - Actions
- Events
Please help me!
Im are noob =/