Перейти к публикации
smitan

Скрипт алхимия

Рекомендованные сообщения

Моя первая проба скрипта над стелс He судите строго Скрипт на все виды зелий Все необходимое должно лежать в основном паке program alchemy;// скрипт Smit'ana{$Include 'all.inc'}constmortal = $0E9B;mr = $0F86;ns = $0F88;gi = $0F85;sa = $0F8C;Procedure alx_str;BeginCancelMenu;WaitMenu('a', 'Strength');if TargetPresent then CancelTarget;WaitTargetType(mr);usetype(mortal,$ffff);end;Procedure alx_pois;BeginCancelMenu;WaitMenu('a', '(2)');if TargetPresent then CancelTarget;WaitTargetType(ns);usetype(mortal,$ffff);end;Procedure alx_heal;BeginCancelMenu;WaitMenu('a', '(2)');if TargetPresent then CancelTarget;WaitTargetType(gi);usetype(mortal,$ffff);end;Procedure alx_exp;BeginCancelMenu;WaitMenu('a', 'Exploison');if TargetPresent then CancelTarget;WaitTargetType(sa);usetype(mortal,$ffff);end;Procedure alx_gh;BeginCancelMenu;WaitMenu('a', 'Greater');if TargetPresent then CancelTarget;WaitTargetType(gi);usetype(mortal,$ffff);end;Procedure alx_gp;BeginCancelMenu;WaitMenu('a', 'Greater');if TargetPresent then CancelTarget;WaitTargetType(ns);usetype(mortal,$ffff);end;Procedure alx_dp;BeginCancelMenu;WaitMenu('a', 'Deadly');if TargetPresent then CancelTarget;WaitTargetType(ns);usetype(mortal,$ffff);end;Beginwhile not Dead do beginif Connected thenbeginif TargetPresent then CancelTarget; CheckSave;// убрать "//" в нужной строке при определеном значении алхимия // alx_str; // алхимия< 52 // alx_pois; // алхимия< 62 // alx_heal; // алхимия< 72 // alx_exp; // алхимия< 87 // alx_gh; // алхимия< 92 // alx_gp; // алхимия< 102 // alx_dp; // алхимия< 122 wait(6000); end; end;END.

Изменено пользователем smitan

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

Небольшой Адд-ин

program alchemy;

// скрипт Smit'ana

{$Include 'all.inc'}

const
mortal  =  $0E9B;
mr	=  $0F86;
ns	=  $0F88;
gi	=  $0F85;
sa	=  $0F8C;
Procedure alx_str;
Begin
CancelMenu;
WaitMenu('a', 'Strength');
if TargetPresent then CancelTarget;
WaitTargetType(mr);
usetype(mortal,$ffff);
end;

Procedure alx_pois;
Begin
CancelMenu;
WaitMenu('a', '(2)');
if TargetPresent then CancelTarget;
WaitTargetType(ns);
usetype(mortal,$ffff);
end;

Procedure alx_heal;
Begin
CancelMenu;
WaitMenu('a', '(2)');
if TargetPresent then CancelTarget;
WaitTargetType(gi);
usetype(mortal,$ffff);
end;

Procedure alx_exp;
Begin
CancelMenu;
WaitMenu('a', 'Exploison');
if TargetPresent then CancelTarget;
WaitTargetType(sa);
usetype(mortal,$ffff);
end;

Procedure alx_gh;
Begin
CancelMenu;
WaitMenu('a', 'Greater');
if TargetPresent then CancelTarget;
WaitTargetType(gi);
usetype(mortal,$ffff);
end;

Procedure alx_gp;
Begin
CancelMenu;
WaitMenu('a', 'Greater');
if TargetPresent then CancelTarget;
WaitTargetType(ns);
usetype(mortal,$ffff);
end;

Procedure alx_dp;
Begin
CancelMenu;
WaitMenu('a', 'Deadly');
if TargetPresent then CancelTarget;
WaitTargetType(ns);
usetype(mortal,$ffff);
end;

Begin
while not Dead do
 begin
if Connected then
begin
if TargetPresent then CancelTarget;
		CheckSave;

	if (GetSkillValue('Alchemy') < 52.0) then alx_str;	// алмиимии < 52
	if (GetSkillValue('Alchemy') < 62.0) and (GetSkillValue('Alchemy') > 51.9) then alx_pois;
	if (GetSkillValue('Alchemy') < 72.0) and (GetSkillValue('Alchemy') > 61.9) then alx_heal;
	if (GetSkillValue('Alchemy') < 87.0) and (GetSkillValue('Alchemy') > 71.9) then alx_exp;
	if (GetSkillValue('Alchemy') < 92.0) and (GetSkillValue('Alchemy') > 86.9) then alx_gh;
	if (GetSkillValue('Alchemy') < 102.0) and (GetSkillValue('Alchemy') > 91.9) then alx_gp;
	if (GetSkillValue('Alchemy') < 122.0) and (GetSkillValue('Alchemy') > 101.9) then alx_dp;
	if (GetSkillValue('Alchemy') > 121.9) then
	 begin
	  AddToSystemJournal('Алхимии теперь 122');
	  setarstatus(false);
	  disconnect;
	 end;
	wait(6000);
  end;
  end;

END.
Изменено пользователем ASDu

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

ооооо... да это вобще шикарный скриптик получается!

огромное спасибо от мага =)

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

ооооо... да это вобще шикарный скриптик получается!

огромное спасибо от мага =)

 

как протестишь скажи на каких моментах затыкается (если будет затыкаться) - я поправлю.

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

оки

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

как протестишь скажи на каких моментах затыкается (если будет затыкаться) - я поправлю.

 

норм ))))

 

на тот момент у меня была проблема с распознанием значения скила !!!!

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

хммм... а тут как лучше, баз автолупа делать? чтоб переключался дальше?

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

вприницпе могу модифицировать, чтобы брал из под себя (или из сундука, если удобней) реги для алхимии штук по 100 и делал...

с имеющимся скриптом луче без автолупа... дабы не засирать топик если надо - стукни в аську, аська в профиле.

Изменено пользователем ASDu

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

протестировать сложно, по одной простой причине, скилл уже 100, и ресы заканчиваются раньше смены потиона

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

Затыкается скрипт на названиях но переправляешь на номера в таблице и всё норм идет.

Единственное что я поправил это где то с 77% поставил грейт эспложены расходует больше качает быстрее.

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

Присоединяйтесь к обсуждению

Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже. Если у вас есть аккаунт, войдите в него для написания от своего имени.

Гость
Ответить в тему...

×   Вставлено в виде отформатированного текста.   Вставить в виде обычного текста

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

Загрузка...

×
×
  • Создать...