2 cleos

GoodMan

Well-Known Member
Joined
Jun 4, 2014
Messages
139
Likes
0
Points
66
#2
Use this and let me know if worked properly.

This is my time/weather changer, its better than hhnnssy one's since there are less lines and less russian language in there.

Here is the code.
PHP:
{$CLEO}

thread "timechanger"

repeat
wait 500
until SAMP.Available()

0B34: "setw" @weather
0B34: "sett" @time


WHILE TRUE
WAIT 0
IF
Player.Defined($PLAYER_CHAR)
THEN
Player.InfiniteRun($PLAYER_CHAR) = True
END
END

:weather
SAMP.IsCommandTyped([email protected])
0C1A: [email protected] = [email protected]
IF AND
    [email protected] <= 100
    [email protected] >= 0
THEN
    SAMP.WriteSAMPMemory(0xC430, 0xC390, 2)
    01B6: setWeather [email protected]
ELSE
    0AF8: "Use: /setw <0-100>" 0xC0FF01
END
cmdret

:time
SAMP.IsCommandTyped([email protected])
0C1A: [email protected] = [email protected]
IF AND
    [email protected] <= 23
    [email protected] >= 0
THEN
    SAMP.WriteSAMPMemory(0xBFB0, 0xC390, 2)
    SAMP.WriteSAMPMemory(0xC4E0, 0xC390, 2)
    [email protected] = SAMP.Base()
    [email protected] += 0x21A0F8
    0A8D: readMem [email protected] = [email protected] sz 4 vp 1
    [email protected] += 0x3C5
    0A8D: readMem [email protected] = [email protected] sz 4 vp 1
    [email protected] += 0x2C
    0A8C: writeMem [email protected] sz 1 val [email protected] vp 1
    0A8C: writeMem 0x00B70153 sz 1 val [email protected] vp 0
ELSE
    0AF8: "Use: /sett <0-23>" 0xC0FF01
END
cmdret
i am not the autor of the scrpit.i just have it for years and idk whos the owner. and yes, inifniterun.cs is added to it. but i haven't tested. test it and let m e know
 

Attachments

OP
OP
J

Jacop

New Member
Joined
Jul 6, 2017
Messages
3
Likes
0
Points
1
1
#3
GoodMan said:
Use this and let me know if worked properly.

This is my time/weather changer, its better than hhnnssy one's since there are less lines and less russian language in there.

Here is the code.
PHP:
{$CLEO}

thread "timechanger"

repeat
wait 500
until SAMP.Available()

0B34: "setw" @weather
0B34: "sett" @time


WHILE TRUE
WAIT 0
IF
Player.Defined($PLAYER_CHAR)
THEN
Player.InfiniteRun($PLAYER_CHAR) = True
END
END

:weather
SAMP.IsCommandTyped([email protected])
0C1A: [email protected] = [email protected]
IF AND
    [email protected] <= 100
    [email protected] >= 0
THEN
    SAMP.WriteSAMPMemory(0xC430, 0xC390, 2)
    01B6: setWeather [email protected]
ELSE
    0AF8: "Use: /setw <0-100>" 0xC0FF01
END
cmdret

:time
SAMP.IsCommandTyped([email protected])
0C1A: [email protected] = [email protected]
IF AND
    [email protected] <= 23
    [email protected] >= 0
THEN
    SAMP.WriteSAMPMemory(0xBFB0, 0xC390, 2)
    SAMP.WriteSAMPMemory(0xC4E0, 0xC390, 2)
    [email protected] = SAMP.Base()
    [email protected] += 0x21A0F8
    0A8D: readMem [email protected] = [email protected] sz 4 vp 1
    [email protected] += 0x3C5
    0A8D: readMem [email protected] = [email protected] sz 4 vp 1
    [email protected] += 0x2C
    0A8C: writeMem [email protected] sz 1 val [email protected] vp 1
    0A8C: writeMem 0x00B70153 sz 1 val [email protected] vp 0
ELSE
    0AF8: "Use: /sett <0-23>" 0xC0FF01
END
cmdret
i am not the autor of the scrpit.i just have it for years and idk whos the owner. and yes, inifniterun.cs is added to it. but i haven't tested. test it and let m e know
Ty everything works fine
 
Top