помоги со скриптом на мининг на форготтен ворлд....
Moderators: Murderator+, Murderator
помоги со скриптом на мининг на форготтен ворлд....
Ребят перепробовал все скрипты...единственное что работает это exec minamine///)))) вопрос такой...может кто помоежт со скриптом на мининг и чтоб антимакрос вводил.я бы расцеловал автора даже если он будет против...ммммм)))) жду спс..
Last edited by mamik7 on 2009-07-28 21:57:22, edited 1 time in total.
mamik7 wrote:сутки почти тишина.Ап
А что ты хочешь на вопрос ПОМОГИТЕ С КОПАЛКОЙ? Тебя всего скорее пошлют на поиск. Тут скриптов мининга завались. И с антимакросом есть. Чем тебя они не устраивают? Какой шард (лучше версия клиента)? какая шахта?
ссылку на пример скрипта пость и говори что у тебя в нем не работает.
смотри вот скрипт
sub OneClick()
dim reindex[8]
reindex[0] = 11
reindex[1] = 12
reindex[2] = 13
reindex[3] = 10
reindex[4] = 16
reindex[5] = 14
reindex[6] = 17
reindex[7] = 15
var GumpID = 0
var ButtonID = 0
var ButtonText
var i = 18
if uo.LastGump('text', 4) <> "0" then
i = 19
end if
GumpID = val(Mid(uo.LastGump('command', i), 16, 4))
ButtonID = reindex[GumpID-2225]
ButtonText = uo.LastGump('command', ButtonID)
uo.LClick(Val(Mid(ButtonText, 7, 3)), Val(Mid(ButtonText, 11, 3)))
wait(300)
end sub
sub AntiMacro()
while not uo.Dead()
if not uo.LastGump('replyed') then
if uo.LastGump('text', 0) == 'Antimacros System' then
OneClick()
end if
endif
wait(500)
wend
end sub
в хоткейс прописываю exec AntiMacro
нажимаю exec minamine потом exec AntiMacro в хоткейс уже вбитые...он вводит цифры и дальше не копает...
sub OneClick()
dim reindex[8]
reindex[0] = 11
reindex[1] = 12
reindex[2] = 13
reindex[3] = 10
reindex[4] = 16
reindex[5] = 14
reindex[6] = 17
reindex[7] = 15
var GumpID = 0
var ButtonID = 0
var ButtonText
var i = 18
if uo.LastGump('text', 4) <> "0" then
i = 19
end if
GumpID = val(Mid(uo.LastGump('command', i), 16, 4))
ButtonID = reindex[GumpID-2225]
ButtonText = uo.LastGump('command', ButtonID)
uo.LClick(Val(Mid(ButtonText, 7, 3)), Val(Mid(ButtonText, 11, 3)))
wait(300)
end sub
sub AntiMacro()
while not uo.Dead()
if not uo.LastGump('replyed') then
if uo.LastGump('text', 0) == 'Antimacros System' then
OneClick()
end if
endif
wait(500)
wend
end sub
в хоткейс прописываю exec AntiMacro
нажимаю exec minamine потом exec AntiMacro в хоткейс уже вбитые...он вводит цифры и дальше не копает...
Last edited by mamik7 on 2009-07-29 23:48:16, edited 2 times in total.
Mirage wrote:mamik7 wrote:сутки почти тишина.Ап
А что ты хочешь на вопрос ПОМОГИТЕ С КОПАЛКОЙ? Тебя всего скорее пошлют на поиск. Тут скриптов мининга завались. И с антимакросом есть. Чем тебя они не устраивают? Какой шард (лучше версия клиента)? какая шахта?
ссылку на пример скрипта пость и говори что у тебя в нем не работает.
Ultima Online Forgotten World
Code: Select all
if uo.waiting() then
uo.usetype('0x0E85')
wait(5000)
end if
5вмз отредактирую весь скрипт.
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net
Re: помоги со скриптом на мининг на форготтен ворлд....
Настройте мне или дайте асю номер заплачу больше чем 5 вмз такойже скрипт только чутка переделанный под мой шард !