globals
 integer offset=0x00

 integer array msg
 integer array xxx
endglobals

function S2Ix takes string s returns integer
 return s
 return 0x00
endfunction

function I2Sx takes integer i returns string
 return i
 return null
endfunction

function Str takes string s returns string
 return s
endfunction

function Get takes string s, integer row returns string
 return Str(I2Sx(msg[S2Ix(s)]*xxx[row]/0x04000000+offset))
endfunction

//   0000 0000 0000 0000 0000 0000 0000 0000
//   -XXX XXsX XXXX sXXX XXsX XXXX sXXX XX--

// a -000 00-0 0001 -000 10-0 0011 -000 01__
// b -001 00-0 0101 -000 00-0 0001 -000 00__

function Init takes nothing returns nothing
 local string s

 set s=" HHHH"
 set offset=S2Ix(s)
 set s=" HOOH"
 set s=" HHOH"
 set s=" HOHH"
 set s=" HHHO"
 set s=" HOHO"

 set msg[S2Ix("a")]=0x00108304
 set msg[S2Ix("b")]=0x10500100

 set xxx[0x00]=0x00000001
 set xxx[0x01]=0x00000040
 set xxx[0x02]=0x00001000
 set xxx[0x03]=0x00040000
 set xxx[0x04]=0x01000000
endfunction

//:::::::::::::::::::::::::::::::::::::::::::::::::::::::

function Trig_test_Actions takes nothing returns nothing
 call BJDebugMsg(Get("b", 0x00)+Get("a", 0x00))
 call BJDebugMsg(Get("b", 0x01)+Get("a", 0x01))
 call BJDebugMsg(Get("b", 0x02)+Get("a", 0x02))
 call BJDebugMsg(Get("b", 0x03)+Get("a", 0x03))
 call BJDebugMsg(Get("b", 0x04)+Get("a", 0x04))
endfunction

//===================================================

function InitTrig_test takes nothing returns nothing
 call Init()
    set gg_trg_test = CreateTrigger(  )
    call TriggerRegisterPlayerChatEvent( gg_trg_test, Player(0), "-a", true )
    call TriggerAddAction( gg_trg_test, function Trig_test_Actions )
endfunction