- 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)]
-
-
-
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 )
-
-
-
-
-
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 )
-
-
-
-
-
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 )
-
-
-
-
-
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
-
-
-
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
-
-
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
-
-
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))
-
-
-
-
Else - Actions
-
For each (Integer A) from 1 to 2, do (Actions)
-
Loop - Actions
-
Set s = (s + (Name of (Triggering player)))
-
-
-
-
-
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)]])
-
-
-
Game - Display to (All players) for 30.00 seconds the text: (|cffffcc00Code: |r + s)
-
-
-
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))
-
-
-
-
Else - Actions
-
For each (Integer A) from 1 to 2, do (Actions)
-
Loop - Actions
-
Set s = (s + (Name of (Triggering player)))
-
-
-
-
-
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
-
-
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
-
-
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 ...
-
-
-
-
-
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)
-
-
Last edited: