Sorry your browser is not supported!

remstart RAISE EVENT FUNCTION TEMPLATE
function RaiseEventID(ID as integer, <param list>)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, <param list>
    endif
endfunction
remend

type Event
    Handle as dword
    Name as string
endtype

function InitEvents()
    global dim Events(-1) as Event
endfunction

function CreateEvent(Name as string)
    array insert at bottom Events(0)
    ID = array count(Events(0))
    Events(ID).Name = Name
endfunction ID

function SetEventHandlerID(ID as integer, Handle as dword)
    Events(ID).Handle = Handle
endfunction

function SetEventHandler(Name as string, Handle as dword)
    Events(GetEventID(Name)).Handle = Handle
endfunction

function GetEventID(Name as string)
    Num = array count(Events(0))
    for i = 0 to Num
        if Events(i).Name = Name
            exitfunction i
        endif
    next i
endfunction -1

function DeleteEventID(ID as integer)
    array delete element Events(0),ID
endfunction

function DeleteEvent(Name as string)
    array delete element Events(0),GetEventID(Name)
endfunction

function RaiseEventID(ID as integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle
    endif
endfunction

function RaiseEventID_U32(ID as integer, Param1 as dword)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1
    endif
endfunction

function RaiseEventID_S32(ID as integer, Param1 as integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1
    endif
endfunction

function RaiseEventID_F32(ID as integer, Param1 as float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1
    endif
endfunction

function RaiseEventID_S64(ID as integer, Param1 as double integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1
    endif
endfunction

function RaiseEventID_F64(ID as integer, Param1 as double float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1
    endif
endfunction

function RaiseEventID_Str(ID as integer, Param1 as string)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1
    endif
endfunction

function RaiseEventID_U32U32(ID as integer, Param1 as dword, Param2 as dword)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_U32S32(ID as integer, Param1 as dword, Param2 as integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_U32F32(ID as integer, Param1 as dword, Param2 as float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_U32S64(ID as integer, Param1 as dword, Param2 as double integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_U32F64(ID as integer, Param1 as dword, Param2 as double float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_U32Str(ID as integer, Param1 as dword, Param2 as string)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_S32U32(ID as integer, Param1 as integer, Param2 as dword)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_S32S32(ID as integer, Param1 as integer, Param2 as integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_S32F32(ID as integer, Param1 as integer, Param2 as float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_S32S64(ID as integer, Param1 as integer, Param2 as double integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_S32F64(ID as integer, Param1 as integer, Param2 as double float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_S32Str(ID as integer, Param1 as integer, Param2 as string)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_F32U32(ID as integer, Param1 as float, Param2 as dword)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_F32S32(ID as integer, Param1 as float, Param2 as integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_F32F32(ID as integer, Param1 as float, Param2 as float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_F32S64(ID as integer, Param1 as float, Param2 as double integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_F32F64(ID as integer, Param1 as float, Param2 as double float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_F32Str(ID as integer, Param1 as float, Param2 as string)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_S64U32(ID as integer, Param1 as double integer, Param2 as dword)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_S64S32(ID as integer, Param1 as double integer, Param2 as integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_S64F32(ID as integer, Param1 as double integer, Param2 as float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_S64S64(ID as integer, Param1 as double integer, Param2 as double integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_S64F64(ID as integer, Param1 as double integer, Param2 as double float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_S64Str(ID as integer, Param1 as double integer, Param2 as string)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_F64U32(ID as integer, Param1 as double float, Param2 as dword)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_F64S32(ID as integer, Param1 as double float, Param2 as integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_F64F32(ID as integer, Param1 as double float, Param2 as float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_F64S64(ID as integer, Param1 as double float, Param2 as double integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_F64F64(ID as integer, Param1 as double float, Param2 as double float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_F64Str(ID as integer, Param1 as double float, Param2 as string)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_StrU32(ID as integer, Param1 as string, Param2 as dword)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_StrS32(ID as integer, Param1 as string, Param2 as integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_StrF32(ID as integer, Param1 as string, Param2 as float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_StrS64(ID as integer, Param1 as string, Param2 as double integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_StrF64(ID as integer, Param1 as string, Param2 as double float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_StrStr(ID as integer, Param1 as string, Param2 as string)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2
    endif
endfunction

function RaiseEventID_U32U32U32(ID as integer, Param1 as dword, Param2 as dword, Param3 as dword)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_U32U32S32(ID as integer, Param1 as dword, Param2 as dword, Param3 as integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_U32U32F32(ID as integer, Param1 as dword, Param2 as dword, Param3 as float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_U32U32Str(ID as integer, Param1 as dword, Param2 as dword, Param3 as string)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_U32S32U32(ID as integer, Param1 as dword, Param2 as integer, Param3 as dword)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_U32S32S32(ID as integer, Param1 as dword, Param2 as integer, Param3 as integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_U32S32F32(ID as integer, Param1 as dword, Param2 as integer, Param3 as float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_U32S32Str(ID as integer, Param1 as dword, Param2 as integer, Param3 as string)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_U32F32U32(ID as integer, Param1 as dword, Param2 as float, Param3 as dword)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_U32F32S32(ID as integer, Param1 as dword, Param2 as float, Param3 as integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_U32F32F32(ID as integer, Param1 as dword, Param2 as float, Param3 as float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_U32F32Str(ID as integer, Param1 as dword, Param2 as float, Param3 as string)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_U32StrU32(ID as integer, Param1 as dword, Param2 as string, Param3 as dword)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_U32StrS32(ID as integer, Param1 as dword, Param2 as string, Param3 as integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_U32StrF32(ID as integer, Param1 as dword, Param2 as string, Param3 as float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_U32StrStr(ID as integer, Param1 as dword, Param2 as string, Param3 as string)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_S32U32U32(ID as integer, Param1 as integer, Param2 as dword, Param3 as dword)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_S32U32S32(ID as integer, Param1 as integer, Param2 as dword, Param3 as integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_S32U32F32(ID as integer, Param1 as integer, Param2 as dword, Param3 as float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_S32U32Str(ID as integer, Param1 as integer, Param2 as dword, Param3 as string)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_S32S32U32(ID as integer, Param1 as integer, Param2 as integer, Param3 as dword)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_S32S32S32(ID as integer, Param1 as integer, Param2 as integer, Param3 as integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_S32S32F32(ID as integer, Param1 as integer, Param2 as integer, Param3 as float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_S32S32Str(ID as integer, Param1 as integer, Param2 as integer, Param3 as string)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_S32F32U32(ID as integer, Param1 as integer, Param2 as float, Param3 as dword)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_S32F32S32(ID as integer, Param1 as integer, Param2 as float, Param3 as integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_S32F32F32(ID as integer, Param1 as integer, Param2 as float, Param3 as float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_S32F32Str(ID as integer, Param1 as integer, Param2 as float, Param3 as string)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_S32StrU32(ID as integer, Param1 as integer, Param2 as string, Param3 as dword)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_S32StrS32(ID as integer, Param1 as integer, Param2 as string, Param3 as integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_S32StrF32(ID as integer, Param1 as integer, Param2 as string, Param3 as float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_S32StrStr(ID as integer, Param1 as integer, Param2 as string, Param3 as string)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_F32U32U32(ID as integer, Param1 as float, Param2 as dword, Param3 as dword)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_F32U32S32(ID as integer, Param1 as float, Param2 as dword, Param3 as integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_F32U32F32(ID as integer, Param1 as float, Param2 as dword, Param3 as float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_F32U32Str(ID as integer, Param1 as float, Param2 as dword, Param3 as string)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_F32S32U32(ID as integer, Param1 as float, Param2 as integer, Param3 as dword)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_F32S32S32(ID as integer, Param1 as float, Param2 as integer, Param3 as integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_F32S32F32(ID as integer, Param1 as float, Param2 as integer, Param3 as float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_F32S32Str(ID as integer, Param1 as float, Param2 as integer, Param3 as string)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_F32F32U32(ID as integer, Param1 as float, Param2 as float, Param3 as dword)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_F32F32S32(ID as integer, Param1 as float, Param2 as float, Param3 as integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_F32F32F32(ID as integer, Param1 as float, Param2 as float, Param3 as float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_F32F32Str(ID as integer, Param1 as float, Param2 as float, Param3 as string)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_F32StrU32(ID as integer, Param1 as float, Param2 as string, Param3 as dword)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_F32StrS32(ID as integer, Param1 as float, Param2 as string, Param3 as integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_F32StrF32(ID as integer, Param1 as float, Param2 as string, Param3 as float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_F32StrStr(ID as integer, Param1 as float, Param2 as string, Param3 as string)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_StrU32U32(ID as integer, Param1 as string, Param2 as dword, Param3 as dword)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_StrU32S32(ID as integer, Param1 as string, Param2 as dword, Param3 as integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_StrU32F32(ID as integer, Param1 as string, Param2 as dword, Param3 as float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_StrU32Str(ID as integer, Param1 as string, Param2 as dword, Param3 as string)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_StrS32U32(ID as integer, Param1 as string, Param2 as integer, Param3 as dword)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_StrS32S32(ID as integer, Param1 as string, Param2 as integer, Param3 as integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_StrS32F32(ID as integer, Param1 as string, Param2 as integer, Param3 as float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_StrS32Str(ID as integer, Param1 as string, Param2 as integer, Param3 as string)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_StrF32U32(ID as integer, Param1 as string, Param2 as float, Param3 as dword)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_StrF32S32(ID as integer, Param1 as string, Param2 as float, Param3 as integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_StrF32F32(ID as integer, Param1 as string, Param2 as float, Param3 as float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_StrF32Str(ID as integer, Param1 as string, Param2 as float, Param3 as string)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_StrStrU32(ID as integer, Param1 as string, Param2 as string, Param3 as dword)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_StrStrS32(ID as integer, Param1 as string, Param2 as string, Param3 as integer)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_StrStrF32(ID as integer, Param1 as string, Param2 as string, Param3 as float)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

function RaiseEventID_StrStrStr(ID as integer, Param1 as string, Param2 as string, Param3 as string)
    if function ptr is valid(Events(ID).Handle)
        call function ptr Events(ID).Handle, Param1, Param2, Param3
    endif
endfunction

sync on

global Player1X = 100
global Player2X = 300

InitEvents()
Right = CreateEvent("RightKey")
Left = CreateEvent("LeftKey")
SetEventHandler("RightKey", GetPtr1())
SetEventHandler("LeftKey", GetPtr2())

do
if rightkey()
    RaiseEventID(Right)
endif
if leftkey()
    RaiseEventID(Left)
endif
if spacekey()
    if pressed = 0
        pressed = 1
        if mode
            SetEventHandler("RightKey", GetPtr1())
            SetEventHandler("LeftKey", GetPtr2())
        else
            SetEventHandler("RightKey", GetPtr3())
            SetEventHandler("LeftKey", GetPtr4())
        endif
        mode = not mode
    endif
else
    pressed = 0
endif
ink rgb(255,0,0),0
circle Player1X,100,10
ink rgb(0,0,255),0
circle Player2X,100,10
sync
cls 0
loop

function Right1()
    inc Player1X
endfunction

function GetPtr1()
    ptr = get ptr to prev function()
endfunction ptr

function Left1()
    dec Player1X
endfunction

function GetPtr2()
    ptr = get ptr to prev function()
endfunction ptr

function Right2()
    inc Player2X
endfunction

function GetPtr3()
    ptr = get ptr to prev function()
endfunction ptr

function Left2()
    dec Player2X
endfunction

function GetPtr4()
    ptr = get ptr to prev function()
endfunction ptr