- Joined
- Dec 20, 2007
- Messages
- 128
-
* SaveLoad Save All
-
o Events
-
+ Unit - A unit Sells a unit
-
-
o Conditions
-
+ (Unit-type of (Sold unit)) Equal to Save
-
-
o Actions
-
+ Set Saveing_Player = (Owner of (Sold unit))
-
+ Unit - Kill (Sold unit)
-
+ -------- Prepare the save array with this player's Hero --------
-
+ Set SaveCount = 0
-
+ -------- Player's Gold --------
-
+ Set SaveCount = (SaveCount + 1)
-
+ Set Save[SaveCount] = (Saveing_Player Current gold)
-
+ -------- Take all Heroes --------
-
+ Set UnitGroup = (Units owned by Saveing_Player matching (((Matching unit) is A Hero) Equal to True))
-
+ Set SaveCount = (SaveCount + 1)
-
+ Set Save[SaveCount] = (Number of units in UnitGroup)
-
+ Unit Group - Pick every unit in UnitGroup and do (Actions)
-
# Loop - Actions
-
* -------- Save the Hero --------
-
* Set SaveCount = (SaveCount + 1)
-
* Set TempUnit = (Picked unit)
-
* Custom script: set udg_Save[udg_SaveCount] = SaveLoad_Unit2Integer( udg_TempUnit )
-
* -------- Hero Experience --------
-
* Set SaveCount = (SaveCount + 1)
-
* Set Save[SaveCount] = (Hero experience of (Picked unit))
-
* -------- Hero Position X --------
-
* Set SaveCount = (SaveCount + 1)
-
* Set Save[SaveCount] = (Integer((X of (Position of (Picked unit)))))
-
* -------- Hero Position Y --------
-
* Set SaveCount = (SaveCount + 1)
-
* Set Save[SaveCount] = (Integer((Y of (Position of (Picked unit)))))
-
* -------- How many items does he carry --------
-
* Set SaveCount = (SaveCount + 1)
-
* Set Save[SaveCount] = (Number of items carried by (Picked unit))
-
* -------- Add all items --------
-
* For each (Integer A) from 1 to 6, do (Actions)
-
o 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
-
-
-
-
-
-
+ -------- 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: Your code:
-
+ Game - Display to (Player group((Triggering player))) for 60.00 seconds the text: Code
-
-