Проверка заточки

[Kpah23]

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

var
  weaponID: integer;
  scrollID: integer;
  enchantLevel: integer;

  function getItemById(id: integer): TL2Item;
var
	tmpItem: TL2Item;
	i: integer;
begin
	Result := nil;
	if Inventory.User.ByID(id, tmpItem) then
		Result := tmpItem;
end;

  function isEnchanted(id: integer; enchantLevel: integer): boolean;
begin
	Result := true;
	if (Assigned(getItemById(id))) then
		Result := getItemById(id).EnchantLevel = enchantLevel;
end;

  function itemCount(ID: integer): integer;
var
 tmpItem: TL2Item;
begin
	Result := 0;
	if (Inventory.User.ByID(Id, tmpItem)) then
		Result := tmpItem.Count;	
end;

begin
while 1<>2 do begin
delay(1000);
if getItemById(АЙДИ ПРЕДМЕТА).EnchantLevel>=10 then begin
 PlaySound(ExePath +'/Sounds/Good.wav');
 engine.restart;
 exit;
 end;
delay(1000);
if itemcount(АЙДИ ТОЧКИ)<=1 then begin
 PlaySound(ExePath +'/Sounds/Good.wav');
 engine.restart;
 exit;
 end;
end;
end.

 

[SoundShocking]

ну и где тут заточка? проверка только кол-ва точек в инвентаре и уровень заточки, какой смысл с этих скриптов если они уже не работают на новых защитах так тут еще и кликер надо искать, который будет точить?

 

[Kpah23]

@SoundShocking, в каком месте скрипт нерабочий? а в теме так четко и написано, что скирпт просто проверяет заточку, не более, недалекий ты человек Kappa

 

[SoundShocking]

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

var
weaponID: integer;
scrollID: integer;
enchantLevel: integer;

function getItemById(id: integer): TL2Item;
var
tmpItem: TL2Item;
i: integer;
begin
Result := nil;
if Inventory.User.ByID(id, tmpItem) then
Result := tmpItem;
end;

function isEnchanted(id: integer; enchantLevel: integer): boolean;
begin
Result := true;
if (Assigned(getItemById(id))) then
Result := getItemById(id).EnchantLevel = enchantLevel;
end;

function itemCount(ID: integer): integer;
var
tmpItem: TL2Item;
begin
Result := 0;
if (Inventory.User.ByID(Id, tmpItem)) then
Result := tmpItem.Count;
end;

begin
while 1<>2 do begin
delay(1000);
if getItemById(АЙДИ ПРЕДМЕТА).EnchantLevel>=10 then begin
PlaySound(ExePath +'/Sounds/Good.wav');
engine.restart;
exit;
end;
delay(1000);
if itemcount(АЙДИ ТОЧКИ)<=1 then begin
PlaySound(ExePath +'/Sounds/Good.wav');
engine.restart;
exit;
end;
end;
end.

ага, хоть название темы додумался поменять) зачем тогда при проверке на сколько заточен итем проверять кол-во точек и когда итем будет заточек на 10+ релогаться? чет селфовн, чао-какао.

 

[CEBEP]

Скрипты на ломаном работают?

 

[bloodsterva]

Огромное спасибо на самом деле. Вот еще бы он дотачивал предмет до уровня и начинал точить следующий. Но это уже из серии фантастики наверное.

 

[SoundShocking]

Огромное спасибо на самом деле. Вот еще бы он дотачивал предмет до уровня и начинал точить следующий. Но это уже из серии фантастики наверное.

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