Post Reply 
 
Thread Rating:
  • 2 Vote(s) - 4 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Скрипт на заточку.
Author Message
megadrom Offline
Elpy
*

Posts: 2
Joined: Feb 2014
Reputation: 0
Version: 1.4.3.143
Post: #11
RE: Скрипт на заточку.

Поменял все Name на Id в скрипте. Пишет "Out of Items, enchants scripts finished"
Вот айди предметов из recstart 1:

UseItem(15907); -- Клинок Печати
UseItem(6577); -- Благословенный Свиток: Модифицировать Оружие (S)

Вот сам скрипт:

-- SCRIPT CONFIGURATION!

item_id = "15907"
enchant_id = "6577"
blessed_enchant_id = "6577"
max_enchant = 25
max_safe_enchant = 25
delay = 0
-- END OF SCRIPT CONFIGURATION

-- HELPER FUNCTIONS
function enchantResult()
return GetEnchantManager():getLastResult()
end

function getItemById(id, maxenchant)
invList = GetInventory();
for item in invList.list do
if item.id == id and item.Enchanted < maxenchant then
return item
end
end
end

stats = {}

function registerSuccess(base)
if stats[base] == nil then
stats[base] = { success = 0, failure = 0 }
end
stats[base].success = stats[base].success + 1
end

function registerFailure(base)
if stats[base] == nil then
stats[base] = { success = 0, failure = 0 }
end
stats[base].failure = stats[base].failure + 1
end

function printStatistics()
for i,v in ipairs(stats) do
ShowToClient("Enchant", "[" .. i - 1 .. "->" .. i .. "] Rate: success: " .. v.success .. " / fail: " .. v.failure .." (" .. ( v.success * 100 )/ ( v.success + v.failure ) .. "%)")
end
end

-- MAIN LOOP!

while true do
-- find item for enchanting
item = getItemById(item_id, max_enchant)
if ( item == nil ) then
ShowToClient("Enchant", "Out of items" )
break
end
-- find proper enchant scroll
enchant = nil
if ( item.Enchanted >= max_safe_enchant ) then
enchant = getItemById(blessed_enchant_name, 20)
else
enchant = getItemById(enchant_name, 20)
end

if ( enchant == nil ) then
ShowToClient("Enchant", "Out of enchants")
break
end

GetEnchantManager():setDelay(delay)
GetEnchantManager():setEnchantId(enchant.objectId)
GetEnchantManager():setItemId(item.objectId)
GetEnchantManager():Enchant()

while ( enchantResult() == Enchant.ENCHANT_PENDING ) do
Sleep(200)
end

if ( enchantResult() == Enchant.ENCHANT_SUCCESS ) then
Sleep ( 500 ) -- sleep so item data is updated
item = GetInventory():FindById(item.objectId)
ShowToClient("Enchant", item.Id .. " is now +" .. item.Enchanted);
registerSuccess ( item.Enchanted )
elseif ( enchantResult() == Enchant.ENCHANT_FAILURE ) then
ShowToClient("Enchant", item.Id .. " failed on " .. item.Enchanted .. " -> " .. item.Enchanted+1)
Sleep ( 500 ) -- sleep so item data is updated
registerFailure ( item.Enchanted + 1)
end
printStatistics()
end
ShowToClient("Enchant", "Enchant script finished")
printStatistics()
03-10-2014 08:41 AM
Find all posts by this user Quote this message in a reply
cotiopenco Offline
Expired VIP Member
**

Posts: 7
Joined: Feb 2014
Reputation: 0
Version: 1.4.3.143
Post: #12
RE: Скрипт на заточку.

во первых вот эта строчка enchant_id = "6577" смени id дальше max_safe_enchant = 25 поставь 0 тут delay = 0 значение лучше не ставить меньше 1000 .

P.S если пушек с точками можно много купить то к примеру покупаеш 10 пушек и ставиш макс енчант 10 он точит их все по очереди до 10 потом по немногу повышаеш планку пока не добьешся нужного результата )

Надеюсь помог ) Если не поможет напиши в личку название сервера заиду посмотрю отпишусь )
03-12-2014 00:10 AM
Find all posts by this user Quote this message in a reply
SannyMind Offline
Elpy
*

Posts: 2
Joined: Jun 2014
Reputation: 0
Version: 1.4.1.121
Post: #13
RE: Скрипт на заточку.

Привет, тоже пытаюсь настроить скрипт на заточку на сервере rpg-club.com x7 и не фига не выходит. Пишет: Enchant: Out of items Enchant: Enchant script finished
Играю на рус. Пробовал по ид, так и не понял куда их вставлять.
07-04-2014 01:07 AM
Find all posts by this user Quote this message in a reply
drenod Offline
Porta
*

Posts: 43
Joined: Feb 2013
Reputation: 0
Version: 1.4.1.99
Post: #14
RE: Скрипт на заточку.

Полностью не рабочие скрипты. Устанавливал англ клиент покупал таки шмотки как в скриптах запускал толку нет, всеравно они не видят вещи.

(03-12-2014 00:10 AM)cotiopenco Wrote:  во первых вот эта строчка enchant_id = "6577" смени id дальше max_safe_enchant = 25 поставь 0 тут delay = 0 значение лучше не ставить меньше 1000 .

P.S если пушек с точками можно много купить то к примеру покупаеш 10 пушек и ставиш макс енчант 10 он точит их все по очереди до 10 потом по немногу повышаеш планку пока не добьешся нужного результата )

Надеюсь помог ) Если не поможет напиши в личку название сервера заиду посмотрю отпишусь )

Вот ты написал смени ид но на какой если он и так правильный такой в базе , такой в макросе. Не засоряй чят если не знаеш как помочь!

(03-12-2014 00:10 AM)cotiopenco Wrote:  во первых вот эта строчка enchant_id = "6577" смени id дальше max_safe_enchant = 25 поставь 0 тут delay = 0 значение лучше не ставить меньше 1000 .

P.S если пушек с точками можно много купить то к примеру покупаеш 10 пушек и ставиш макс енчант 10 он точит их все по очереди до 10 потом по немногу повышаеш планку пока не добьешся нужного результата )

Надеюсь помог ) Если не поможет напиши в личку название сервера заиду посмотрю отпишусь )

Вот ты написал смени ид но на какой если он и так правильный такой в базе , такой в макросе. Не засоряй чят если не знаеш как помочь!
(This post was last modified: 09-06-2014 22:14 PM by drenod.)
09-06-2014 22:12 PM
Find all posts by this user Quote this message in a reply
6aPmaJIei Offline
Elpy
*

Posts: 1
Joined: Sep 2014
Reputation: 0
Version: 1.4.2.138
Post: #15
RE: Скрипт на заточку.

(04-28-2013 09:24 AM)Psychofaint Wrote:  Пользуюсь этим...

Спасибо,твой скрип работает замечательно

(04-28-2013 09:24 AM)Psychofaint Wrote:  Пользуюсь этим...

Спасибо,твой скрип работает замечательно
(This post was last modified: 09-25-2014 14:17 PM by 6aPmaJIei.)
09-25-2014 14:17 PM
Find all posts by this user Quote this message in a reply
pl17kv23 Offline
Gremlin
*

Posts: 7
Joined: Jan 2015
Reputation: 0
Version: 1.4.2.142
Post: #16
RE: Скрипт на заточку.

У меня все работает,но только точит один раз.Нету цикла,что делать?
01-17-2015 09:49 AM
Find all posts by this user Quote this message in a reply
Shanathas Offline
Elpy
*

Posts: 2
Joined: Jun 2015
Reputation: 0
Version: 1.4.1.121
Post: #17
RE: Скрипт на заточку.

Друзья, а у меня проблема следующего характера.
Пытаюсь использовать скрипт с ID, который выше в этой теме находится (Posted by megadrom - 03-10-2014 07:41 AM). Постоянно выдает ошибку Out of items. Проверил IDшники и в файле "text" бота, и через /recstart-stop в игре - совпадают. Пока пробовал точить только броню, с оружием не пробовал, но, сдается мне, разницы не должно быть никакой.
Клиент Interlude слегка модифицированный, но названия предметов на английском. Не работает и первоначальный скрипт на заточку, где используются названия предметов, а не id. Но там скрипт не видит заточки (Out of enchants).
Подскажите, пожалуйста, как побороть эту беду?
07-14-2015 12:00 PM
Find all posts by this user Quote this message in a reply
littlesmile Offline
Gremlin
*

Posts: 7
Joined: Sep 2012
Reputation: 0
Version: 1.4.2.133
Post: #18
RE: Скрипт на заточку.

плагины же лучше скилов?


Attached File(s)
.lua  iEnchant.lua (Size: 16.73 KB / Downloads: 21)
08-02-2015 10:06 AM
Find all posts by this user Quote this message in a reply
TheQQmaster Offline
Trolling the Trolls
*****

Posts: 1,532
Joined: Jun 2012
Reputation: 629
Version: 1.4.2.133
Post: #19
RE: Скрипт на заточку.

i use this for h5

    LUA Programming
--item_name = "Elegia Breastplate {PvP} "
--item_name = "Domination Stinger"
--item_name = "Vorpal Leather Breastplate {PvP} "
--item_name = "Tattoo of Mage"
 
 
--item_name = "Shadow Eternal Circlet {PvP}"
--item_name = "Shadow Eternal Tunic {PvP}"
--item_name = "Shadow Eternal Shoes {PvP}"
--item_name = "Shadow Eternal Hose {PvP}"
--item_name = "Shadow Eternal Gloves {PvP}"
--item_name = "Eternal Core Dual Sword {PvP}"
 
--item_name = "Shadow Eternal Leather Helmet {PvP}"
--item_name = "Shadow Eternal Hauberk {PvP}"
--item_name = "Shadow Eternal Leather Leggins {PvP}"
--item_name = "Shadow Eternal Leather Gloves {PvP}"
--item_name = "Shadow Eternal Leather Boots {PvP}"
 
 
 
--item_name = "Low-grade Magic Ornament Mithril Belt"
--item_name = "Striped Mithril Shirt"
--item_name = "Mithril Shirt"
 
--item_name = "Mamba Edge Dual Daggers"
item_name = "Eternal Core Dual Sword"
 
--item_name = "Tattoo of Fighter"
--item_name = "Ring of Queen Ant"
--item_name = "Improved Ring of Queen Ant"
--item_name = "Ring of Baium"
--item_name = "Improved Ring of Baium"
--item_name = "Blessed Earring of Zaken"
--item_name = "Improved Blessed Earring of Zaken"
--item_name = "Earring of Antharas"
--item_name = "Necklace of Valakas"
--item_name = "Zaken's Earring"
 
--enchant_name = "Scroll: Enchant Weapon (D-grade)"
enchant_name = "Scroll: Enchant Weapon (S)"
--enchant_name = "Scroll: Enchant Armor (S)"
--enchant_name = "Scroll: Enchant Armor (B-Grade)"
--enchant_name = "Blessed Scroll: Enchant Armor (S-Grade)"
--enchant_name = "Blessed Scroll: Enchant Weapon (S-Grade)"
 
blessed_enchant_name = "Blessed Scroll: Enchant Weapon (S)"
--blessed_enchant_name = "Blessed Scroll: Enchant Armor (S)"
--blessed_enchant_name = "Divine Armor Enchant Crystal (S-Grade)"
--blessed_enchant_name = "Blessed Scroll: Enchant Armor (B-Grade)"
--blessed_enchant_name = "Divine Weapon Enchant Crystal (S-Grade)"
 
 
 
ShowToClient("ENCHANT", "H5 MODE ON",3)
 
 
max_safe_enchant = 3
max_enchant = 16
delay = 2500
 
	function enchantResult()
		return GetEnchantManager():getLastResult()
	end
 
	function getItemByName(name, maxenchant)
		invList = GetInventory();
		for item in invList.list do
			if item.Name == name and item.Enchanted < maxenchant then
				return item
			end
		end
	end
 
stats = {}
 
	function registerSuccess(base)
		if stats[base] == nil then
			stats[base] = { success = 0, failure = 0 }
		end
		stats[base].success = stats[base].success + 1
	end
 
	function registerFailure(base)
		if stats[base] == nil then
			stats[base] = { success = 0, failure = 0 }
		end
		stats[base].failure = stats[base].failure + 1
	end
 
 
 
while true do
	item = getItemByName(item_name, max_enchant)
	if ( item == nil ) then
		ShowToClient("BOTS", "no items" )
		break
	end
	-- find proper enchant scroll
	enchant = nil
	if ( item.Enchanted >= max_safe_enchant ) then
		enchant = getItemByName(blessed_enchant_name, 20)
	else
		enchant = getItemByName(enchant_name, 20)
	end
 
	if ( enchant == nil ) then
		ShowToClient("BOTS", "no enchants")
		break
	end
 
 	GetEnchantManager():setDelay(delay)
	GetEnchantManager():setEnchantId(enchant.objectId)
	GetEnchantManager():setItemId(item.objectId)
	GetEnchantManager():Enchant()
 
	while ( enchantResult() == Enchant.ENCHANT_PENDING ) do
		Sleep(200)
	end
 
	if ( enchantResult() == Enchant.ENCHANT_SUCCESS ) then	
		Sleep ( 500 ) -- sleep so item data is updated
		item = GetInventory():FindById(item.objectId)
--		ShowToClient("BOTS",  item.Name .. " tagad ir +" .. item.Enchanted);
		registerSuccess ( item.Enchanted )
	elseif ( enchantResult() == Enchant.ENCHANT_FAILURE ) then
--		ShowToClient("BOTS",  item.Name .. " sadega celjot " .. item.Enchanted .. " -> " .. item.Enchanted+1)
		Sleep ( 500 ) -- sleep so item data is updated
		registerFailure ( item.Enchanted + 1)
	end
 
end
ShowToClient("BOTS", "Enchantosanas skripts pabeigts!")


PUSH [Image: knUu53] IF HELPED
08-02-2015 21:17 PM
Visit this user's website Find all posts by this user Quote this message in a reply
Post Reply 


Possibly Related Threads...
Thread: Author Replies: Views: Last Post
  Скрипт на квест A Special Order DeSilvia 0 1,309 01-13-2017 22:31 PM
Last Post: DeSilvia
  Помогите составить скрипт AloneMODE 2 1,632 12-16-2015 22:01 PM
Last Post: TheQQmaster
  Проблема со скриптом. Останавливается скрипт после скила. immortal89 0 746 06-25-2015 03:13 AM
Last Post: immortal89
  Скрипт на ТТ set899ful 8 6,941 06-22-2015 20:04 PM
Last Post: adterorist1
  помогите найти скрипт или разобраться adterorist1 0 988 06-12-2015 00:41 AM
Last Post: adterorist1
  Скрипт для Хилера. Yoxo 0 877 04-19-2015 18:20 PM
Last Post: Yoxo
  Объясните плз как работает этот скрипт. Yoxo 1 1,731 03-14-2015 12:21 PM
Last Post: TheQQmaster
  скрипт на аргументацию atazoid 3 2,489 01-29-2015 09:26 AM
Last Post: aezez
  Скрипт на Energy Stone Satellizer2000 0 1,061 01-17-2015 13:54 PM
Last Post: Satellizer2000
Exclamation Скрипт на точку (помогите) kertis 0 1,039 01-13-2015 18:09 PM
Last Post: kertis



User(s) browsing this thread: 1 Guest(s)