Stealth Client Forum

Code: Select all

program emo;
var 
   FBegin:TDateTime; 
Begin
 
  wait(1000)
AddToSystemJournal(GetCliloc(Findtype($1111,backpack)));  // $11111111
UOSay(GetCliloc(Findtype($1111,backpack))) // хочу чтобы данные с гетклилок только я или скрипт мог читать
wait(1000)
if (InJournalBetweenTimes('rex', FBegin, Now) <> -1) then
begin 
uosay('ыфывфыв') // uosay- для проверки
end

End.

Code: Select all

если слово барк есть, то делаем ам
если слово стоунс есть, то делаем бемс

Code: Select all

program emo; 
var 
   aa : String;

Begin //main begin
aa := GetCliloc(Findtype($1111,backpack)));  // $11111111 
//а тут начинается кусок работы со строками. например:
if (BMSearch(1,aa,'Bark') > 0) then 
begin 
//какое-то действие
end 

End.

Code: Select all

{алгоритм Бойера-Мура
ф-ия возвращает первое вхождение подстроки в строку
работает быстро
Например:
BMSearch(1, 'dsade', 'de')
в данном примере ф-ия возвратит число 4
1 - это позиция с которой ищем подстроку в строке}