Page 1 of 1

помоги со скриптом на мининг на форготтен ворлд....

Posted: 2009-07-28 09:54:51
by mamik7
Ребят перепробовал все скрипты...единственное что работает это exec minamine///)))) вопрос такой...может кто помоежт со скриптом на мининг и чтоб антимакрос вводил.я бы расцеловал автора даже если он будет против...ммммм)))) жду спс..

Posted: 2009-07-28 10:01:06
by Kynep
Что нужно обьяснить-то? Ну есть скрипты, ну работают, что нужно, телепаты в отпуске, изьясняйтесь понятней.

Posted: 2009-07-28 10:15:12
by mamik7
Kynep wrote:Что нужно обьяснить-то? Ну есть скрипты, ну работают, что нужно, телепаты в отпуске, изьясняйтесь понятней.


хотелось бы чтоб он копал и антимакрос систему вводил...прости что я делаю то что на твоей картинке. Мой первый топик....

Posted: 2009-07-28 17:20:20
by mamik7
сутки почти тишина.Ап

Posted: 2009-07-29 11:38:02
by Mirage
mamik7 wrote:сутки почти тишина.Ап

А что ты хочешь на вопрос ПОМОГИТЕ С КОПАЛКОЙ? Тебя всего скорее пошлют на поиск. Тут скриптов мининга завались. И с антимакросом есть. Чем тебя они не устраивают? Какой шард (лучше версия клиента)? какая шахта?
ссылку на пример скрипта пость и говори что у тебя в нем не работает.

Posted: 2009-07-29 13:36:49
by mamik7
смотри вот скрипт
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 в хоткейс уже вбитые...он вводит цифры и дальше не копает...

Posted: 2009-07-29 13:38:30
by mamik7
Mirage wrote:
mamik7 wrote:сутки почти тишина.Ап

А что ты хочешь на вопрос ПОМОГИТЕ С КОПАЛКОЙ? Тебя всего скорее пошлют на поиск. Тут скриптов мининга завались. И с антимакросом есть. Чем тебя они не устраивают? Какой шард (лучше версия клиента)? какая шахта?
ссылку на пример скрипта пость и говори что у тебя в нем не работает.

Ultima Online Forgotten World

Posted: 2009-07-30 13:45:38
by CoS

Code: Select all

if uo.waiting() then
uo.usetype('0x0E85')
wait(5000)
end if

Posted: 2009-07-30 22:35:32
by mamik7
куда это вставлять

Posted: 2009-08-02 16:48:41
by mamik7
куда это вставить???

Posted: 2009-08-02 23:19:10
by mamik7
mamik7 wrote:куда это вставить???

я вот не понимаю почему никто не помогает хоть киньте ссылку или ещё чем нибудь...все говорят на еко задавай вопросы...а толку если никто уже 6 дней не отвечает.......причем что на шарде человек 100 играет на инжекте....вот и думай поему же никто не помогает...

Posted: 2009-08-03 12:41:12
by Mirage
Извини я там не играю :roll:
Посмотри тут

Posted: 2009-08-09 01:37:18
by mamik7
Mirage wrote:Извини я там не играю :roll:
Посмотри тут

жду помощи....

Posted: 2009-08-11 18:38:38
by mamik7
mamik7 wrote:
Mirage wrote:Извини я там не играю :roll:
Посмотри тут

жду помощи....
ап

Posted: 2009-08-12 01:02:42
by Nmy
5вмз отредактирую весь скрипт.

Posted: 2009-08-13 23:50:06
by CoS
5 вмз с убиванием гвардов и тд ) полный фарш )

Re: помоги со скриптом на мининг на форготтен ворлд....

Posted: 2010-11-09 19:40:21
by HoffMaN
Настройте мне или дайте асю номер заплачу больше чем 5 вмз такойже скрипт только чутка переделанный под мой шард !