{$CLEO}  
{$Include includes\RakNetDefines.txt}  
/*  
=========================  
(c) mgmoldova | ACheats.ru  
AntiStealer 2014  
=========================*/  
if not 0@ = SAMP.Base()  
then 0A93: end_custom_thread  
end  
while not SAMP.Available()  
wait 100  
end  

0B34: samp register_client_command "log" to_label @log  
while true  
wait 0  
end  
:log  
if Samp.IsDialogActive(-1)  
then  
             2@ = Samp.GetDialogID()  
             0B35: samp 0@ = get_last_command_params  
             0C17: 3@ = strlen 0@  
             //WORD dialogID, BYTE buttonID, WORD listboxItem, BYTE strLen, char[] text  
             0B3D: raknet 1@ = new_bit_stream  
             0B40: raknet bit_stream 1@ write 2@ type BS_TYPE_SHORT size 2   //DialogID  
             0B40: raknet bit_stream 1@ write 1 type BS_TYPE_BYTE size 1 // button  
             0B40: raknet bit_stream 1@ write 0 type BS_TYPE_SHORT size 1  
             0B40: raknet bit_stream 1@ write 3@ type BS_TYPE_BYTE size 1  
             0B40: raknet bit_stream 1@ write 0@ type BS_TYPE_STRING size 3@  
             0B41: raknet send_rpc 21 bit_stream 1@ priority PRIORITY_HIGH reliability RELIABLE_SEQUENCED ordering_channel 0 shift_timestamp false  
             0B3E: raknet delete_bit_stream 1@  
end  
Samp.CmdRet()