6@ = 0
While 6@ <> 3
wait 0
0B4F: samp 6@ = get_gamestate
end
wait 500
    0AC8: 1@ = 24
    0B2B: 2@ = $PLAYER_ACTOR
    0B36: samp 1@ = get_player_nickname 2@
    alloc 4@ = 86
    0B3A: samp 4@ = get_current_server_name
    0AC8: 7@ = 15
    0B39: samp get_current_server_address 7@ port 8@
    alloc 10@ = 156
    alloc 12@ = 24
    format 10@ = "%s </I>[%s:%d]" 4@ 7@ 8@
    6@ = 1
    for 0@ = 0 to 999
        if 0B23: samp is_player_connected 0@
            then 6@ += 1
            end
        end
    rint 7@ = "CLEO\PH_func.cfg" "Stat_Setting" "Nick"
    if 7@ == 0
        then format 12@ = "Confidentially"
        else format 12@ = "%s" 1@
        end
    rint 7@ = "CLEO\PH_func.cfg" "Stat_Setting" "Server"
    if 7@ == 0
        then format 10@ = "Confidentially"
        end
    alloc 11@ = 256
    rstring 11@ = "CLEO\PH_func.cfg" "Stat_Setting" "Contacts"
    0C17: 7@ = strlen 11@
    if or
    7@ > 60
    7@ < 1
        then format 11@ "Error. Maximum strlen <B>60</B> symbols, minimum <B>1</B>."
        end
    0AC8: 8@ = 700
    0AD3: 8@ = format "http:%c%cPrime-Hack.ru%cPH_Func%cadd.php?nick=%s&hdd=%d&game=%s&ver=%d&onl=%d&con=%s" params 47 47 47 47 12@ 5@ 10@ 3@ 6@ 11@
    0AA2: 9@ = load_library "urlmon.dll" // IF and SET
    0AA4: 7@ = get_proc_address "URLDownloadToFileA" library 9@ // IF and SET
    0AA5: call 7@ num_params 5 pop 0 params lpfnCB 0 dwReserved 0 szFileName "%TEMP%\2352sfe.tmp" szUrl 8@ caller 0
    free 11@
    free 10@
    free 12@
    0AA3: 9@
    0AC9: 8@
    free 4@
    free 1@