Help Cleo expired??

Status
Not open for further replies.

Parazitas

God
Joined
Jan 2, 2017
Messages
3,112
Solutions
5
Reaction score
878
Location
Lithuania
Joined
Mar 30, 2023
Messages
24
Reaction score
0
Google search???

I didn't understand.
Can you write a simple code for me so that the file will expire in 1 month?
 

dphome

Well-known member
Joined
Mar 21, 2020
Messages
456
Solutions
9
Reaction score
165
Location
Poland
PHP:
{$CLEO .cs}
{$USE bitwise}
0000:

WHILE TRUE
WAIT 0
   
IF 0ADC:   test_cheat "5"
THEN
    0AC8: 0@ = allocate_memory_size 256
    0AC8: 1@ = allocate_memory_size 256
    0AB1: @GetLocalTime 0 wYear 0@ wMonth 1@ wDayOfWeek $NOT_USED wDay $NOT_USED wHour $NOT_USED wMinute $NOT_USED wSeconds $NOT_USED wMiliseconds $NOT_USED
    IF AND
    0@ == 2024 // year
    1@ == 1  // month
    THEN
        0B12: 30@ = 30@ XOR 1       
        IF 0039:   30@ == TRUE
        THEN 0AD1: show_formatted_text_highpriority "on" time 500
        ELSE 0AD1: show_formatted_text_highpriority "off" time 500
        END          
    ELSE
        0AD1: "~r~CLEO EXPIRED" 5000
        0A93: terminate_this_custom_script
    END
    0AC9: free_allocated_memory 0@
    0AC9: free_allocated_memory 1@
END
   
IF 30@ == TRUE
THEN
    WAIT 1000
    0AD1: "~g~SUCCESS" 1000                 
END

END
0A93: terminate_this_custom_script


 :GetLocalTime
{
Params:
In: None
Out: wYear 3@ wMonth 4@ wDayOfWeek 5@ wDay 6@ wHour 7@ wMinute 8@ wSeconds 9@ wMiliseconds 10@
Example:
0AB1: Call @GetLocalTime 0 wYear 3@ wMonth 4@ wDayOfWeek 5@ wDay 6@ wHour 7@ wMinute 8@ wSeconds 9@ wMiliseconds 10@
}
0AA2: 0@ = load_library "kernel32.dll"
0AA4: 1@ = get_proc_address "GetLocalTime" library 0@
0AC8: 2@ = alloc mem 32
0AA5: call 1@ params 1 pop 0 2@
0A8D: 3@ = read mem 2@ size 2 vp 0
2@ += 2
0A8D: 4@ = read mem 2@ size 2 vp 0
2@ += 2
0A8D: 5@ = read mem 2@ size 2 vp 0
2@ += 2
0A8D: 6@ = read mem 2@ size 2 vp 0
2@ += 2
0A8D: 7@ = read mem 2@ size 2 vp 0
2@ += 2
0A8D: 8@ = read mem 2@ size 2 vp 0
2@ += 2
0A8D: 9@ = read mem 2@ size 2 vp 0
2@ += 2
0A8D: 10@ = read mem 2@ size 2 vp 0
2@ -= 30
0AB2: ret 8 3@ 4@ 5@ 6@ 7@ 8@ 9@ 10@
 
Status
Not open for further replies.
Top