Ally Trig
Events
Conditions
(Substring((Entered chat string), 1, 6)) Equal to -ally
Actions
For each (Integer A) from 1 to 4, do (Actions)
Loop - Actions
Game - Display to (All players) the text: (Is the player ? + ( Player : + ((String((Integer A))) + ?)))
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Substring((Entered chat string), 7, (Length of (Entered chat string)))) Equal to Player_Colour[(Integer A)]
(Integer A) Not equal to (Player number of (Triggering player))
Then - Actions
Player - Make (Triggering player) treat (Player((Integer A))) as an Ally
Game - Display to (All players) for 10.00 seconds the text: ((Name of (Triggering player)) + ( just allied + (Name of (Player((Integer A))))))
Skip remaining actions
Else - Actions
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
If - Conditions
(Substring((Entered chat string), 7, (Length of (Entered chat string)))) Equal to Player_Colour[(Player number of (Triggering player))]
Then - Actions
Game - Display to (All players) for 10.00 seconds the text: ((Name of (Triggering player)) + tried to ally himself LOL.)
Skip remaining actions
Else - Actions