0.3.DL
PHP:
{$CLEO .cs}
0000:
REPEAT
IF 8AA2: $NOT_USED = "samp.dll"
THEN 0A93: end_custom_thread
END
WAIT 1500
UNTIL 0AA2: $NOT_USED = "samp.dll"
while true
wait 0
if 0256: player $PLAYER_CHAR defined
then
0AC8: 0@ = allocate_memory_size 1024
0AC8: 1@ = allocate_memory_size 1024
0AB1: @getChatString 1 ChatID 99 _Returned: Text 0@ PrefixText 1@ Color 2@ PrefixColor 3@
0AC8: 4@ = allocate_memory_size 1024
0AB1: @changeString param_count 4 text 0@ FirstCharacter 123 SecondCharacter 125 memory_to_store_characters_as_text 4@
0AC8: 5@ = allocate_memory_size 1024
0AD3: 5@ = format "/hello"
if 0AB1: @IfTextContains 2 String1 4@ String2 5@ _Returned: Text 6@
then
0AC8: 7@ = allocate_memory_size 1024
0AB1: @get_digits_to_print 2 text 4@ memory_to_store_digits_as_text 7@
0AB1: @ProcessChatInput 1 InputText 7@
wait 1500
end
end
end
:getChatString
{
0AC8: 0@ = allocate_memory_size 260
0AC8: 1@ = allocate_memory_size 260
0AB1: @getChatString 1 ChatID 99 _Returned: Text 0@ PrefixText 1@ Color 2@ PrefixColor 3@
0.3.DL
}
IF 0AA2: 31@ = "samp.dll"
THEN
31@ += 0x2ACA10 // SAMP_CHAT_INFO_OFFSET
0A8D: 31@ readMem 31@ sz 4 vp 0
31@ += 0x132
0@ *= 0xFC
005A: 31@ += 0@
0A8E: 30@ = 31@ + 0x20 // CHAT_TEXT_OFFSET
0A8E: 29@ = 31@ + 0x4 // CHAT_PREFIX_TEXT_OFFSET
0A8E: 28@ = 31@ + 0xF4 // CHAT_COLOR_OFFSET
0A8D: 27@ readMem 28@ sz 4 vp 0 // HEX Color
0A8E: 26@ = 31@ + 0xF8 // CHAT_PREFIX_COLOR_OFFSET
0A8D: 25@ readMem 26@ sz 1 vp 0
IF NOT 25@ > 0
THEN 24@ = 0
ELSE 0A8D: 24@ readMem 26@ sz 4 vp 0
END
0AA3: 31@
END
0AB2: ret 4 30@ 29@ 27@ 24@
:changeString
{
0AB1: call_scm_func @changeString param_count 4 text 0@ FirstCharacter 91 SecondCharacter 93 memory_to_store_characters_as_text 1@
In: 0@ = text , FirstCharacter , SecondCharacter
Out: 1@ = pointer to memory where characters will be stored as text
}
5@ = FALSE // inbracket
0AB1: @strlen 1 string 0@ _returned: length 31@
for 30@ = 0 to 31@
0085: 29@ = 0@ // copy pointer
005A: 29@ += 30@ // add offset make loop
0A8D: 28@ = read_memory 29@ size 1 virtual_protect 1 // 28@ is the ascii number representing character
if
003B: 28@ == 1@ // (int)
then
5@ = TRUE // inbracket
end
if
5@ == FALSE // inbracket
THEN
0A8C: write_memory 3@ size 1 value 28@ virtual_protect 1
3@ += 1 // move to next address
END
if
003B: 28@ == 2@ // (int)
then
5@ = FALSE // inbracket
end
end
0A8C: write_memory 3@ size 1 value 0 virtual_protect 1 // null-termination
0AB2: ret 0
:IfTextContains
/*
0AC8: 1@ = allocate_memory_size 1024
0AD3: 1@ = format "my string to compare"
IF 0AB1: @IfTextContains 2 String1 0@ String2 1@ _Returned: Text 2@
*/
0AB1: @strlen 1 string 0@ _returned: length 31@
0AB1: @strlen 1 string 1@ _returned: length 30@
//initial length check (the phrase can't be longer than the main text)
IF 001D: 30@ > 31@ // (int)
THEN
059A: return_false
0AB2: ret 1 0
END
31@ -= 1
26@ = 0 // counter of the same chars in a row
FOR 29@ = 0 TO 31@ // for each char of the main text (29@ = index)
0085: 24@ = 0@ // (int)
005A: 24@ += 29@ // (int)
0A8D: 28@ = readMem 24@ sz 1 vp 0
0085: 23@ = 1@ // (int)
005A: 23@ += 26@ // (int)
0A8D: 27@ = readMem 23@ sz 1 vp 0
IF AND
28@ >= 65 // From A
28@ >= 90 // Till Z
THEN 28@ += 32 // convert to lowercase
END
IF AND
27@ >= 65 // From A
27@ >= 90 // Till Z
THEN 27@ += 32 // convert to lowercase
END
IF 003B: 28@ == 27@ // (int)
THEN
26@++
IF 002D: 26@ >= 30@ // (int)
THEN
0485: return_true
0062: 24@ -= 30@ // (int)
24@ += 1
0AB2: ret 1 24@
END
ELSE
IF 26@ > 0
THEN 29@-- //check the same char again and assume it's the begining of the string but only if there was matching parts before (otherwise it would go back all the time and make infinite loop)
END
26@ = 0
END
END
059A: return_false
0AB2: ret 1 0
:strlen
// 0AB1: @strlen 1 string 1@ _returned: length 3@
FOR 1@ = 0 TO 1024
0A8D: 2@ = readMem 0@ sz 1 vp 0
IF NOT 2@ == 0
JF break
0@ += 1
END
0AB2: ret 1 1@
:get_digits_to_print
{
0@ = text
1@ = pointer to memory where digits will be stored as text
}
0AB1: @strlen 1 string 0@ _returned: length 31@
for 30@ = 0 to 31@
0085: 29@ = 0@ // copy pointer
005A: 29@ += 30@ // add offset (as the loop progresses it becomes pointers to first-last character)
0A8D: 28@ = read_memory 29@ size 1 virtual_protect 1 // 28@ is the ascii number representing character
if and
28@ >= 0x30 // '0'
28@ <= 0x39 // '9'
then
0A8C: write_memory 1@ size 1 value 28@ virtual_protect 1
1@ += 1 // move to next address
end
end
0A8C: write_memory 1@ size 1 value 0 virtual_protect 1 // null-termination
0AB2: ret 0
:ProcessChatInput
{
0AB1: @ProcessChatInput 1 InputText 0@
}
IF 0AA2: 20@ = "samp.dll"
THEN
0A8E: 21@ = 20@ + 0x2ACA14 // SAMP_CHAT_INPUT_INFO_OFFSET
0A8D: 22@ = readMem 21@ sz 4 vp 0 // pChatInput;
0A8E: 26@ = 22@ + 0x8 // pChatInput->pEditBox;
0A8D: 27@ = readMem 26@ sz 4 vp 0 // pEditBox;
0A8E: 24@ = 20@ + 0x85000 // CDXUTEditBox::SetText
0A8E: 25@ = 20@ + 0x69410 // PROCESS_INPUT
0AA8: call_function_method 24@ struct 27@ num_params 2 pop 0 _bSelected 0 _pszText 0@ _retVal 6@
0AA8: call_function_method 25@ struct 22@ num_params 0 pop 0 _retVal 7@
END
0AB2: 0
