Code: Select all
sub FoulToScreen()
var i, name, nc_msg, msg = '', words_count = 1
DIM foul[1]
foul[0] = "attacking";
repeat
if not msg == uo.lastmessage() then
msg = uo.lastmessage()
nc_msg = strtolower( msg )
name = uo.getname( uo.journalserial( 0 ) )
for i=0 to words_count-1
if FindEntry( foul[ i ], nc_msg, false ) > -1 then
uo.print( "Матерное слово обнаружено, в строке:");
wait(1000)
uo.snap("BMP", "D:\Mining\["+name+' - '+UO.asmGetTime("h.n.s") +"].bmp")
i = words_count-1
endif
next
endif
wait( 500 )
until false
endsub
Sub inArray( str, arr, nocase, arr_len )
var i
if nocase then
str = StrToLower( str )
endif
for i=0 to arr_len-1
if nocase then
if StrToLower( arr[i] ) == str then
return i
endif
else
if arr[i] == str then
return i
endif
endif
next
return -1
endsub
sub StrToLower( str )
var num, i, j
DIM lower[59]
lower = LowerWords( lower )
DIM upper[59]
upper = UpperWords( upper )
for i=0 to strlen( str )-1
num = inArray( str[i], upper, 0, 59)
if num > -1 then
str = left( str, i ) + lower[ num ] + right( str, strlen( str ) -i -1 )
endif
next
return str
endsub
sub StrToUpper( str )
var num, i, j
DIM lower[59]
lower = LowerWords( lower )
DIM upper[59]
upper = UpperWords( upper )
for i=0 to strlen( str )-1
num = inArray( str[i], lower, 0, 59)
if num > -1 then
str = left( str, i ) + upper[ num ] + right( str, strlen( str ) -i -1 )
endif
next
return str
endsub
Sub FindEntry( entry, str, nocase )
var i
if nocase then
entry = strtolower( entry )
str = strotolower( str )
endif
for i=0 to strlen( str ) -strlen( entry )
if MID( str, i, strlen( entry ) ) == entry then
return i
endif
next
return -1
endsub
Sub LowerWords(words)
words[0] = "q"
words[1] = "w"
words[2] = "e"
words[3] = "r"
words[4] = "t"
words[5] = "y"
words[6] = "u"
words[7] = "i"
words[8] = "o"
words[9] = "p"
words[10] = "a"
words[11] = "s"
words[12] = "d"
words[13] = "f"
words[14] = "g"
words[15] = "h"
words[16] = "j"
words[17] = "k"
words[18] = "l"
words[19] = "z"
words[20] = "x"
words[21] = "c"
words[22] = "v"
words[23] = "b"
words[24] = "n"
words[25] = "m"
words[26] = "й"
words[27] = "ц"
words[28] = "у"
words[29] = "к"
words[30] = "е"
words[31] = "н"
words[32] = "г"
words[33] = "ш"
words[34] = "щ"
words[35] = "з"
words[36] = "х"
words[37] = "ъ"
words[38] = "ф"
words[39] = "ы"
words[40] = "в"
words[41] = "а"
words[42] = "п"
words[43] = "р"
words[44] = "о"
words[45] = "л"
words[46] = "д"
words[47] = "ж"
words[48] = "э"
words[49] = "я"
words[50] = "ч"
words[51] = "с"
words[52] = "м"
words[53] = "и"
words[54] = "т"
words[55] = "ь"
words[56] = "б"
words[57] = "ю"
words[58] = "ё"
return words
endsub
Sub UpperWords(words)
words[0] = "Q"
words[1] = "W"
words[2] = "E"
words[3] = "R"
words[4] = "T"
words[5] = "Y"
words[6] = "U"
words[7] = "I"
words[8] = "O"
words[9] = "P"
words[10] = "A"
words[11] = "S"
words[12] = "D"
words[13] = "F"
words[14] = "G"
words[15] = "H"
words[16] = "J"
words[17] = "K"
words[18] = "L"
words[19] = "Z"
words[20] = "X"
words[21] = "C"
words[22] = "V"
words[23] = "B"
words[24] = "N"
words[25] = "M"
words[26] = "Й"
words[27] = "Ц"
words[28] = "У"
words[29] = "К"
words[30] = "Е"
words[31] = "Н"
words[32] = "Г"
words[33] = "Ш"
words[34] = "Щ"
words[35] = "З"
words[36] = "Х"
words[37] = "Ъ"
words[38] = "Ф"
words[39] = "Ы"
words[40] = "В"
words[41] = "А"
words[42] = "П"
words[43] = "Р"
words[44] = "О"
words[45] = "Л"
words[46] = "Д"
words[47] = "Ж"
words[48] = "Э"
words[49] = "Я"
words[50] = "Ч"
words[51] = "С"
words[52] = "М"
words[53] = "И"
words[54] = "Т"
words[55] = "Ь"
words[56] = "Б"
words[57] = "Ю"
words[58] = "Ё"
return words
endsubВот с нимто и проблема....... Когда его без какого либо скрипта запускаю... то супер... Если конить начинает драться он сразу скриншотит....
Но вот беда... когда я его exec'ю из скрипта на майнинг то он вообще перестаёт реагировать на надпись attacking....
Помогите пожалуйста... Очень уж нужна подобная фенька =)))
Либо конечно же порекомендуйте чего другого... но это единственное что мне подошло.
