- Joined
- Jul 10, 2013
- Messages
- 13
-
SystemToolsCryptKeyInit
- Events
- Conditions
-
Actions
-
For each (Integer A) from 0 to (keybuffer_size - 1), do (Actions)
-
Loop - Actions
- Set keybuffer[(Integer A)] = keybuffer_default[(Integer A)]
-
Loop - Actions
-
For each (Integer A) from 0 to ((Length of s) - 1), do (Actions)
-
Loop - Actions
- Custom script: set udg_keybuffer[ModuloInteger(GetForLoopIndexA(), udg_keybuffer_size)] = bxor( udg_keybuffer[ModuloInteger(GetForLoopIndexA(), udg_keybuffer_size)], B642I(SubStringBJ(udg_s, GetForLoopIndexA() + 1, GetForLoopIndexA() + 1)), 6 )
-
Loop - Actions
-
For each (Integer A) from 0 to (keybuffer_size - 1), do (Actions)
-
SystemToolsCrypt
- Events
- Conditions
-
Actions
-
For each (Integer A) from 0 to (Size - 1), do (Actions)
-
Loop - Actions
- Custom script: set udg_buf[GetForLoopIndexA()] = bxor( udg_buf[GetForLoopIndexA()], udg_keybuffer[ModuloInteger(GetForLoopIndexA(), udg_keybuffer_size)], 6 )
-
Loop - Actions
-
For each (Integer A) from 0 to (Size - 1), do (Actions)
-
SystemToolsDecrypt
- Events
- Conditions
-
Actions
-
For each (Integer A) from 0 to (Size - 1), do (Actions)
-
Loop - Actions
- Custom script: set udg_buf[GetForLoopIndexA()] = bxor( udg_buf[GetForLoopIndexA()], udg_keybuffer[ModuloInteger(GetForLoopIndexA(), udg_keybuffer_size)], 6 )
-
Loop - Actions
-
For each (Integer A) from 0 to (Size - 1), do (Actions)
-
Save
-
Events
- Player - Player 1 (Red) types a chat message containing -save 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
- Player - Player 9 (Gray) types a chat message containing -save as An exact match
- Player - Player 10 (Light Blue) types a chat message containing -save as An exact match
- Player - Player 11 (Dark Green) types a chat message containing -save as An exact match
- Player - Player 12 (Brown) types a chat message containing -save as An exact match
- Conditions
-
Actions
- Set Unit = (Random unit from (Units currently selected by (Triggering player)))
- Trigger - Run CustomBufferFuncInit (checking conditions)
- Set buf_size = 0
- Set idx_hi = 0
- Set idx_lo = 5
-
For each (Integer A) from 0 to 63, do (Actions)
-
Loop - Actions
- Set buf[(Integer A)] = 0
-
Loop - Actions
- Set a_idx = 0
- Custom script: loop
- Custom script: exitwhen udg_a_idx > udg_CustomBufferCount - 1
- Set Size = 0
- Trigger - Run CustomBufferFuncSaveValue[a_idx] (checking conditions)
- Set Value = (Min(Value, (power2[Size] - 1)))
- Set Value = (Max(0, Value))
- Set a = (Size - 1)
- Custom script: loop
- Custom script: exitwhen udg_a < 0
-
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
-
If - Conditions
- idx_lo Equal to -1
-
Then - Actions
- Set idx_lo = 5
- Set idx_hi = (idx_hi + 1)
- Else - Actions
-
If - Conditions
- Set b = (Value / power2[a])
-
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
-
If - Conditions
- b Not equal to 0
-
Then - Actions
- Set buf[idx_hi] = (buf[idx_hi] + power2[idx_lo])
- Set Value = (Value - power2[a])
- Else - Actions
-
If - Conditions
- Set idx_lo = (idx_lo - 1)
- Set a = (a - 1)
- Custom script: endloop
- Set a_idx = (a_idx + 1)
- Custom script: endloop
- Set Size = (idx_hi + 1)
- Custom script: set udg_Size = udg_Size + CodeAddChecksum(udg_Size, udg_keycrc_size6, udg_keycrc)
- Set s = CryptInitKey
-
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
-
If - Conditions
- ((Length of (Name of (Triggering player))) mod 2) Equal to 0
-
Then - Actions
-
For each (Integer A) from 1 to 2, do (Actions)
-
Loop - Actions
- Set s = (s + ((Name of (Triggering player)) + w))
-
Loop - Actions
-
For each (Integer A) from 1 to 2, do (Actions)
-
Else - Actions
-
For each (Integer A) from 1 to 2, do (Actions)
-
Loop - Actions
- Set s = (s + (Name of (Triggering player)))
-
Loop - Actions
-
For each (Integer A) from 1 to 2, do (Actions)
-
If - Conditions
- Trigger - Run SystemToolsCryptKeyInit <gen> (checking conditions)
- Trigger - Run SystemToolsCrypt <gen> (checking conditions)
- Set s = <Empty String>
-
For each (Integer A) from 0 to (Size - 1), do (Actions)
-
Loop - Actions
- Set s = (s + basearr[buf[(Integer A)]])
-
Loop - Actions
- Game - Display to (All players) for 30.00 seconds the text: (|cffffcc00Code: |r + s)
-
Events
-
Load
-
Events
- Player - Player 1 (Red) types a chat message containing -load as A substring
- Player - Player 2 (Blue) types a chat message containing -load as A substring
- Player - Player 3 (Teal) types a chat message containing -load as A substring
- Player - Player 4 (Purple) types a chat message containing -load as A substring
- Player - Player 5 (Yellow) types a chat message containing -load as A substring
- Player - Player 6 (Orange) types a chat message containing -load as A substring
- Player - Player 7 (Green) types a chat message containing -load as A substring
- Player - Player 8 (Pink) types a chat message containing -load as A substring
- Player - Player 9 (Gray) types a chat message containing -load as A substring
- Player - Player 10 (Light Blue) types a chat message containing -load as A substring
- Player - Player 11 (Dark Green) types a chat message containing -load as A substring
- Player - Player 12 (Brown) types a chat message containing -load as A substring
- Conditions
-
Actions
- Trigger - Run CustomBufferFuncInit (checking conditions)
- Set s = (Substring((Entered chat string), 7, (Length of (Entered chat string))))
- Custom script: call CodeParseString(udg_s)
- Set Size = (Length of s)
- Set s = CryptInitKey
-
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
-
If - Conditions
- ((Length of (Name of (Triggering player))) mod 2) Equal to 0
-
Then - Actions
-
For each (Integer A) from 1 to 2, do (Actions)
-
Loop - Actions
- Set s = (s + ((Name of (Triggering player)) + w))
-
Loop - Actions
-
For each (Integer A) from 1 to 2, do (Actions)
-
Else - Actions
-
For each (Integer A) from 1 to 2, do (Actions)
-
Loop - Actions
- Set s = (s + (Name of (Triggering player)))
-
Loop - Actions
-
For each (Integer A) from 1 to 2, do (Actions)
-
If - Conditions
- Trigger - Run SystemToolsCryptKeyInit <gen> (checking conditions)
- Trigger - Run SystemToolsDecrypt <gen> (checking conditions)
- Custom script: set udg_i = CodeGetChecksum(udg_Size, udg_keycrc_size6, udg_keycrc)
-
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
-
If - Conditions
- i Equal to 0
-
Then - Actions
- Set buf_size = 0
- Set idx_hi = 0
- Set idx_lo = 5
- Set a_idx = 0
- Custom script: loop
- Custom script: exitwhen udg_a_idx > udg_CustomBufferCount - 1
- Set Size = 0
- Set firstpass = True
- Trigger - Run CustomBufferFuncLoadValue[a_idx] (checking conditions)
- Set Value = 0
- Set a = (Size - 1)
- Custom script: loop
- Custom script: exitwhen udg_a < 0
-
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
-
If - Conditions
- idx_lo Equal to -1
-
Then - Actions
- Set idx_lo = 5
- Set idx_hi = (idx_hi + 1)
- Else - Actions
-
If - Conditions
- Set b = (buf[idx_hi] / power2[idx_lo])
-
If (All Conditions are True) then do (Then Actions) else do (Else Actions)
-
If - Conditions
- b Not equal to 0
-
Then - Actions
- Set buf[idx_hi] = (buf[idx_hi] - power2[idx_lo])
- Set Value = (Value + power2[a])
- Else - Actions
-
If - Conditions
- Set idx_lo = (idx_lo - 1)
- Set a = (a - 1)
- Custom script: endloop
- Set firstpass = False
- Trigger - Run CustomBufferFuncLoadValue[a_idx] (checking conditions)
- Set a_idx = (a_idx + 1)
- Custom script: endloop
-
Else - Actions
- Game - Display to (Player group((Triggering player))) the text: |cffffcc00Checksum ...
-
If - Conditions
-
Events
-
Check
-
Events
- Player - Player 1 (Red) types a chat message containing -check as A substring
- Conditions
-
Actions
- Set s = (Substring((Entered chat string), 8, (Length of (Entered chat string))))
- Custom script: set udg_s = GetStringChecksum (udg_s, udg_keycrc_size6, udg_keycrc)
- Game - Display to (All players) the text: (|cffffcc00Checksum: |r + s)
-
Events
Last edited: