| View previous topic :: View next topic |
| Author |
Message |
-=JoKeR=-
Novice
Joined: 10 Feb 2008
Posts: 145
Location: [X-TEAM Group] Ode$$a
|
 Posted: Wed Apr 16, 2008 15:04 Post subject: Stealing |
 |
|
Немогу понять как зделать, всё перепробовал. мои знания в стэлсе не позволяют доделать дальше алгоритм.
Чар юзает перчатки и таргетом на чара.
Если фэйл, то пишется You failed to snoop "Charname"
Если удачно, то ничего не пишется, а просто открывается пак.
Дальше юзаем перчатки и тыкаем на предмет, который воруем.
Если своровал, то следовательно сообщение You put...
Если не своровал, то failed.
Дальше по кругу.
Кто-то сможет перевести на стэлс ? =)
А дальше я сам.
Last edited by -=JoKeR=- on Sun Apr 20, 2008 13:41; edited 1 time in total |
|
| Back to top |
|
 |
Edred
Moderator
Joined: 28 Mar 2006
Posts: 555
|
| Posted: Thu Apr 17, 2008 2:02 Post subject: |
|
|
OFFTOPIC ON
Кстати, что там на форест варз? Вайп-то был?
OFFTOPIC OFF |
|
| Back to top |
|
|
-=JoKeR=-
Novice
Joined: 10 Feb 2008
Posts: 145
Location: [X-TEAM Group] Ode$$a
|
| Posted: Thu Apr 17, 2008 11:56 Post subject: |
|
|
Можешь зайти на сайт или форум и увидеть таймер, который ведёт отсчёт до вайпа. ШД скриптит в поте лица, я по карте помогаю. Осталось меньше месяца 
Помоги со скриптом пожалуста, ты же наверняка качал стилинг у нас |
|
| Back to top |
|
|
Edred
Moderator
Joined: 28 Mar 2006
Posts: 555
|
| Posted: Fri Apr 18, 2008 14:16 Post subject: |
|
|
| Не, до стилинга я так и не добрался... Поэтому и не разбирался как он качается и как под него скрипты писать. А на стелсе я только на Форест Варз играл. |
|
| Back to top |
|
|
-=JoKeR=-
Novice
Joined: 10 Feb 2008
Posts: 145
Location: [X-TEAM Group] Ode$$a
|
| Posted: Fri Apr 18, 2008 15:37 Post subject: |
|
|
Понятно, тогда буду ждать пока кто-то поможет или пока сам додумаюсь, или пока ты вернёшься на ФВ, будешь качать стилинг, напишешь скриптик и поделишься им   |
|
| Back to top |
|
|
Edred
Moderator
Joined: 28 Mar 2006
Posts: 555
|
| Posted: Sat Apr 19, 2008 0:22 Post subject: |
|
|
| На последнее особо не рассчитывай. Не насчет поделиться, а на счет моего возвращения куда-либо в УО. Вероятность того, что я снова начну играть в УО - примерно 0,0000000000000000000000001% |
|
| Back to top |
|
|
-=JoKeR=-
Novice
Joined: 10 Feb 2008
Posts: 145
Location: [X-TEAM Group] Ode$$a
|
| Posted: Sat Apr 19, 2008 12:24 Post subject: |
|
|
| А зачем интересуешься шардом тогда ? =) |
|
| Back to top |
|
|
grundick
Developer
Joined: 31 Jan 2008
Posts: 179
|
| Posted: Sat Apr 19, 2008 15:32 Post subject: |
|
|
Попробуй.Ошибки могуть быть, сам исправишь | Code: |
Program Stealing;
// made by -=JoKeR=- ©
// for Forest Wars Shard
{$Include 'all.inc'}
Const
Doll = $00085882; // ID чара, у которого воруем
Gloves = $400C3CB8; // ID перчаток
Deelz = $0F7A; // тип предмета, который воруем
Var
STime: TDateTime;
procedure Snoop;
Begin
repeat
If Not Connected OR Dead then Exit;
checksave;
if TargetPresent then CancelTarget;
STime:=Now;
UseObject(Gloves);
WaitTargetObject(Doll);
WaitJournalLine(STime,'You failed to snoop',5000);
until (InJournalBetweenTimes('You failed to snoop',STime,Now)=-1);
End;
procedure Stealing;
Var
TargetBackPack: cardinal;
Begin
checksave;
TargetbackPack:=ObjAtLayerEx(BpackLayer,Doll);
repeat
If Not Connected OR Dead then Exit;
FindType(Deelz,TargetBackPack);
If FindCount>0 then
begin
if TargetPresent then CancelTarget;
STime:=Now;
UseObject(Gloves);
WaitTargetObject(FindItem);
WaitJournalLine(STime,'You put|failed.',5000);
end
Else Exit;
until (InJournalBetweenTimes('failed.',STime,Now)=-1);
End;
BEGIN
WaitConnection(5000);
SetARStatus(true);
while not Dead do
begin
If Connected then
begin
Snoop;
Stealing;
end
Else
Wait(5000);
end;
END. |
|
|
| Back to top |
|
|
-=JoKeR=-
Novice
Joined: 10 Feb 2008
Posts: 145
Location: [X-TEAM Group] Ode$$a
|
| Posted: Sat Apr 19, 2008 23:35 Post subject: |
|
|
Ок, спасибо, попробую, только не под пивом)))
отпишусь завтра)) |
|
| Back to top |
|
|
-=JoKeR=-
Novice
Joined: 10 Feb 2008
Posts: 145
Location: [X-TEAM Group] Ode$$a
|
| Posted: Sun Apr 20, 2008 13:34 Post subject: |
|
|
grundick, ОГРОМНОЕ спасибо за помощь, сидел бы рядом я бы тебя расцеловал 
Скрипт - конфетка =)
Есть один вопрос ещё.
Когда запускаю ниже указанный скрипт, то проц загружается на все 100%. Почему так ?
Last edited by -=JoKeR=- on Thu May 29, 2008 18:31; edited 1 time in total |
|
| Back to top |
|
|
grundick
Developer
Joined: 31 Jan 2008
Posts: 179
|
| Posted: Sun Apr 20, 2008 14:06 Post subject: |
|
|
repeat
if Count(Deelz) = 0 then
until;
Если Count(Deelz)<>0 скрипт гоняет пустой цикл.
| Code: | Program PodborDeelzForStealing;
{$Include 'all.inc'}
const
Deelz = $0F7A;
CountDeelz = 2;
Begin
repeat
checksave;
if Count(Deelz) = 0 then
begin
waitconnection(3000);
findtype(Deelz,ground);
if GetQuantity(Finditem) < CountDeelz then
begin
repeat
AddToSystemJournal('-= Ждём пока чар сворует и выкинет на пол Deelz =-');
wait(10000);
findtype(Deelz,ground);
until GetQuantity(Finditem) = CountDeelz;
end;
Grab(FindItem,CountDeelz);
AddToSystemJournal('-= Подобрал Deelz =-');
wait(1000);
end
Else Wait(500);
until Dead;
End. |
|
|
| Back to top |
|
|
-=JoKeR=-
Novice
Joined: 10 Feb 2008
Posts: 145
Location: [X-TEAM Group] Ode$$a
|
| Posted: Sun Apr 20, 2008 14:08 Post subject: |
|
|
Ага, вижу ошибку =)
|
|
| Back to top |
|
|
-=JoKeR=-
Novice
Joined: 10 Feb 2008
Posts: 145
Location: [X-TEAM Group] Ode$$a
|
| Posted: Sun Apr 20, 2008 14:47 Post subject: |
|
|
| грюндик, прочитай лс |
|
| Back to top |
|
|
grundick
Developer
Joined: 31 Jan 2008
Posts: 179
|
| Posted: Sun Apr 20, 2008 16:36 Post subject: |
|
|
| -=JoKeR=- wrote: | Ага, вижу ошибку =)
|
Это не ошибка, это как раз исправление ошибки |
|
| Back to top |
|
|
-=JoKeR=-
Novice
Joined: 10 Feb 2008
Posts: 145
Location: [X-TEAM Group] Ode$$a
|
| Posted: Sun Apr 20, 2008 17:07 Post subject: |
|
|
| Ну я не так выразился =) |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
