CLEO Help autoaccept license

CLEO related

aymanbest

New member
Joined
Mar 5, 2020
Messages
3
Reaction score
0
Location
Hong Kong
* Name of the mod (if the mod doesn't exist, you don't have to tell one): Auto accept licence
* Where you saw it (not the server, we mean if you saw any videos/screenshots about it or not): * What do you want (the most important part, explain this carefully) I play on a server and i have faction( school instructors) and I give licences like gun,fly,boat and they type /needlicence and I need to type /accept needlicence id but there are others typing faster. So i tought about a mod that autoaccepts without me writing his id and that command
* Details (add more details to your request) : * On/off key (specify it): JOB cheat code

Code:
{$CLEO}
{$INCLUDE SF}

0000:

repeat
wait 0
until SAMP.Available()

alloc 29@ 256
0BE3: raknet setup_incoming_rpc_hook @auto_chat

while true
wait 0

if and
    8B21: samp is_chat_opened
    8C7E:    is_console_active
    then
   
        if
        0ADC:   test_cheat "JOB"
        THEN
            if
            2@ == 0
            then
                0ACD: show_text_highpriority "AutoJob ~g~ON" time 1000
                018C: play_sound 1083 at 0.0 0.0 0.0
                2@ = 1
                wait 250
            else
                0ACD: show_text_highpriority "AutoJob ~r~OFF" time 1000
                018C: play_sound 1084 at 0.0 0.0 0.0
                2@ = 0
                wait 250
            end
        end
    END
   
END

:looperulee
wait 0
jump @looperulee

:auto_chat
0BE5: raknet 31@ = get_hook_param PARAM_PACKETID
if 31@ == RPC_ScrClientMessage
then
    0C11: memset destination 29@ value 0 size 256
   
    0BE5: raknet 31@ = get_hook_param PARAM_BITSTREAM
    0BE7: raknet 30@ = bit_stream_read 31@ type BS_TYPE_INT //color
    0BE7: raknet 30@ = bit_stream_read 31@ type BS_TYPE_INT //lenght
    0BE8: raknet bit_stream 31@ read_array 29@ size 30@ //string
    0C0D: struct 29@ offset 30@ size 1 = 0

    if or
    0C29: $NULL_STIRNG = stristr string1 29@ string2 "requested an instructor (EN). To accept his request use (/accept needlicense %d)."
    0C29: $NULL_STIRNG = stristr string1 29@ string2 "requested an instructor (RO). To accept his request use (/accept needlicense %d)."
    then
    wait 3000
        if 2@ == 1
        then
            say "/accept needlicense %d"
        end
    end
end
0BE0: raknet hook_ret true
 
Last edited:
Top