Inskript

Nikolia · Post by **Nikolia** » 17.05.2006 4:03

Рисует скролы ресурект, ID spell buki еда под чаром, spell book также на полу

Program Inscription;
var
i: Integer;
t: Integer;
a: Integer;
b: Integer;
c: Integer;
blanku:  cardinal;
knura:  cardinal;
regs : Array[1..3] of word;
stime :TDateTime;

{$Include 'all.inc'}

procedure checkregs;
begin
If Connected then begin
for i:= 1 to 3 do
begin
FindDistance:=1;
waitconnection(3000);
Findtype (regs[i],backpack);
If (FindCount=0) then begin
Findtype(regs[i],ground);
If (FindCount>0) then begin Grab(finditem,30);
wait(700)
CheckSave;
end
else
begin
AddToSystemJournal('Не нашел регов, перезаходим!');
Disconnect;
waitconnection(3000);
wait(7000);
end;
end
end
end
end;

procedure pucovka;
begin
{==================================}
blanku:=$692E9AA7;
knura:=$6BA66622;
{==================================}
If (Mana>=50) then begin
stime := Now;
CheckTargetError(2, 2);
WaitTargetObject(blanku);
AutoMenu('circle','8');
AutoMenu('spell','Resurrection'); 
CheckSave;
UseSkill('Inscription');
repeat
CheckSave;
a := InJournalBetweenTimes('spellbook', stime, Now);
b := InJournalBetweenTimes('already|perform|You can''t inscribe', stime, Now);
c := InJournalBetweenTimes('you do not have all of this spell''s reagents', stime, Now);
wait(100);
until (a >= 0) or (b >= 0) or (c >= 0) or (Now > stime + (1.0/1440));
if (b >= 0) or (c >= 0) then Exit;
stime := Now;
CheckTargetError(2, 2);
WaitTargetObject(knura);
repeat
CheckSave;
InJournalBetweenTimes('create|fail|reach|already|perform', stime, Now);
wait(100);
until (LineCount > 0) or (Now > stime + (1.0/1440));
end
end;

Begin
ClearJournal;
SetARStatus(true);
regs[1]:=$0F7B;
regs[2]:=$0F85;
regs[3]:=$0F84;
FindDistance:=1;
While not Dead do
begin
//waitconnection(3000);
If Connected then begin
For t:= 1 to 5 do begin
checkregs;
wait(200);
stime:=Now;
pucovka;
begin
If (Mana<=43) then begin
wait(1000);
While (Mana<Int) do begin
Useskill('Meditation');
repeat 
InJournalBetweenTimes('Your mana is full|You lose|You cant focus', stime, Now); 
wait(500); 
until (LineCount >= 1) or (Now > stime + (1.0/1440)); 
Hungry(1,ground);
stack($1F67,$0000);
end
If (InJournalBetweenTimes('Your mana is full',stime,now)>=0) then
pucovka; end
else
begin
pucovka;
end
end
end
Hungry(1,ground);
t:=1;
end
wait(2000);
end
End.

Sydiva · Post by **Sydiva** » 01.06.2006 18:22

эмм , что то он после медитации сразу начинает юзать чтото и пишет

You must wait to perform another action.

некак немогу найти куда и как правильно вставить задержку

Alex · Post by **Alex** » 01.06.2006 19:37

Code: Select all

stime:=Now;

поставь перед

Code: Select all

begin
If (Mana<=43) then begin

Sydiva · Post by **Sydiva** » 01.06.2006 22:29

уф, переставил , непомогло

но методом проб и ошибок нашол где нуна задержка

получило вот так

Code: Select all

Program Inscription; 
var 
i: Integer; 
t: Integer; 
a: Integer; 
b: Integer; 
c: Integer; 
blanku: cardinal; 
knura: cardinal; 
regs : Array[1..3] of word; 
stime :TDateTime; 

{$Include 'all.inc'} 

procedure checkregs; 
begin 
If Connected then begin 
for i:= 1 to 3 do 
begin 
FindDistance:=1; 
waitconnection(3000); 
Findtype (regs[i],backpack); 
If (FindCount=0) then begin 
Findtype(regs[i],ground); 
If (FindCount>0) then begin Grab(finditem,30); 
wait(700) 
CheckSave; 
end 
else 
begin 
AddToSystemJournal('Не нашел регов, перезаходим!'); 
Disconnect; 
waitconnection(3000); 
wait(7000); 
end; 
end 
end 
end 
end; 

procedure pucovka; 
begin 
{==================================} 
blanku:=$4CC0569F; 
knura:=$62AA3FF1; 
{==================================} 
If (Mana>=50) then begin 
stime := Now; 
CheckTargetError(2, 2); 
WaitTargetObject(blanku); 
AutoMenu('circle','8'); 
AutoMenu('spell','Resurrection'); 
CheckSave; 
UseSkill('Inscription'); 
repeat 
CheckSave; 
a := InJournalBetweenTimes('spellbook', stime, Now); 
b := InJournalBetweenTimes('already|perform|You can''t inscribe', stime, Now); 
c := InJournalBetweenTimes('you do not have all of this spell''s reagents', stime, Now); 
wait(100); 
until (a >= 0) or (b >= 0) or (c >= 0) or (Now > stime + (1.0/1440)); 
if (b >= 0) or (c >= 0) then Exit; 
stime := Now; 
CheckTargetError(2, 2); 
WaitTargetObject(knura); 
repeat 
CheckSave; 
InJournalBetweenTimes('create|fail|reach|already|perform', stime, Now); 
wait(100); 
until (LineCount > 0) or (Now > stime + (1.0/1440)); 
end 
end; 

Begin 
ClearJournal; 
SetARStatus(true); 
regs[1]:=$0F7B; 
regs[2]:=$0F85; 
regs[3]:=$0F84; 
FindDistance:=1; 
While not Dead do 
begin 
//waitconnection(3000); 
If Connected then begin 
For t:= 1 to 5 do begin 
checkregs; 
wait(200); 
pucovka;
stime:=Now; 
begin 
If (Mana<=50) then begin 
While (Mana<Int) do begin 
Useskill('Meditation'); 
repeat 
InJournalBetweenTimes('Your mana is full|You lose|You cant focus', stime, Now); 
wait(500); 
until (LineCount >= 1) or (Now > stime + (1.0/1440)); 
end 
wait(5000); 
Hungry(1,ground); 
stack($1F67,$0000); 
If (InJournalBetweenTimes('Your mana is full',stime,now)>=0) then 
pucovka;
end 
else 
begin 
pucovka; 
end 
end 
end 
t:=1; 
end 
wait(2000); 
end 
End.

dE niCE · Post by **dE niCE** » 06.09.2006 23:25

А у меня он чего то не работает ,пишится НЕ нашол реги ,дисконект...
Помогите пожалуйста...

Miralex · Post by **Miralex** » 07.09.2006 10:59

Реги должны быть не дальше 1-й клетки от тебя.

Dr.Assassin · Post by **Dr.Assassin** » 15.09.2006 2:02

приятно что вы написали этот скрипт - но есть несколько замечаний:

1) юзать скролы по ид? извольте!

2) скил Медитация (на FoF) растет только когда удачно начинаеш медитировать с минимально возможного уровня маны, поэтому восстанавливать всю ману - щитаю напрасной тратой времени/регов/денег (ну разве что вам этот скил безразличен и вы просто качаете инскрипт) - именно поэтому хотелось бы замутить макар прерывания медитации - как только она удачно началась - для всё тойже экономии текущего состояния (с малым количеством маны) - для более производительной прокачки скила медитация

3) собственно эти соображеня уже реализованы в скрипте для инжекта (медитация растёт на равне с инскриптом!!!!) - завтра (тоесть уже сегодня ) переделаю для стелза.

Tomers · Post by **Tomers** » 06.08.2009 12:53

Да неработает этот скрипт.
В часности меня интересует этот кусок:

Code: Select all

WaitTargetObject(blanku);
AutoMenu('circle','8');
AutoMenu('spell','Resurrection');
CheckSave;
UseSkill('Inscription');

Что-то при юзании скила инскрипт и при тыкании прицелом на бланкскролы ничего не происходит.
Нельзя ли переписать этот скрипт типа:

Code: Select all

UseType(scribe`s_pen,$ffff);
WaitMenu('circle','8');
WaitMenu('spell','Resurrection');

вот только не разобрался с работой WaitMenu и по этому скрипту не рисует ничего.
Подскажите плиз, что тут вписать?
Реги лежат в багпаке по 50 всех видов, бланков 50, спелбука полная тоже в сумке. scribe`s pen тоже несколько штук в багпаке.
Как нарисовать хоть какой-то спел? Дальше уже разберусь.

Sfairat · Post by **Sfairat** » 22.10.2009 17:14

Присоединяюсь к посту выше

WladL · Post by **WladL** » 22.10.2009 23:09

На некоторых шардах инскрипт на гампах сделан...у вас не гампы часом?

Sfairat · Post by **Sfairat** » 23.10.2009 4:54

У нас весь крафт:
Дабл клик на инструмент
Выпадет большое меню
Слева разделы
Справа список итемов

ЗЫ у меня при вейтгампе ваше почему то дисконектит

WladL · Post by **WladL** » 23.10.2009 9:20

Шард?
ВейтГамп всего лишь установка ловушки на пришедший от сервера гамп, по идее с коннектом ничего общего быть не должно.
1) http://stealth.od.ua/forum/viewtopic.php?t=1004
2)состав гампа в студию (после запуска скрипта он будет в файле GumpLines.txt )

Code: Select all

var
SL:TStringList;
i,a:Integer;
begin
for i := GetGumpsCount-1 downto 0 do CloseSimpleGump(i);

//==============
...Тут код открывающий нужный гамп
например: 
UseObject(AnyObject); 
while (not isGump) AND (a < 60) do begin 
	a:=a+1; 
	wait(500); 
end;
if (a=60) then begin
	AddToSystemJournal('За последние 30 сек гамп от сервера не пришел.');
	exit;
end;
//=============

if (isGump) then begin
	SL:=TStringList.Create;
	try
		GetGumpFullLines(0,SL);
		if (SL.Count > 0) then
			SL.SaveToFile('GumpLines.txt');
	finally
		SL.free;
	end;
end;

end;

3) на какую кнопку нужно жамкать?