Помогите пожалуйсто со скриптом!

Anything and all.

Moderators: Murderator+, Murderator

Andrei
Posts: 2
Joined: 2004-04-13 22:59:41

Помогите пожалуйсто со скриптом!

Post by Andrei »

Нужен скрипт на картографию:)
С обьяснением что и где надо поменять(это моя первая встреча с Injection)
Заранние благодарен!
Biga
Posts: 76
Joined: 2004-04-04 21:04:43
Contact:

Post by Biga »

Скажи шард. И расскажи, как на твоем шарде качается картография.
Andrei
Posts: 2
Joined: 2004-04-13 22:59:41

Post by Andrei »

DRW!а качаеться она как мне кажеться визде одинаково
AGRS
Expert!
Posts: 1007
Joined: 2004-04-04 21:40:09
Contact:

Post by AGRS »

Code: Select all

var CurTime
var OutTime = 5000
UO.CancelMenu()
UO.AutoMenu("картопИсанье", "название карты")
Repeat
  CheckLag()
  UO.FindType("тип карты", "0", "-1")
  Repeat
     CheckLag()
     UO.UseObject("finditem")
     CurTime=0
     Repeat
        Wait(200)
        CurTime=CurTime+200
     Until InJournal("фффсе зашибись") or InJournal("обломчикссс") or CurTime>OutTime
     Wait(300)
  Until InJournal("фффсе зашибись")
  UO.Ignore("finditem")
Until UO.FindCount()<2
UO.CancelMenu()

Вот таким макаром. Я это только что написал, поэтому разумно будет вставить реальные фразы и типы. Оттестить на малых количествах карт. Ну и не возбраняется пришить авто закупки и продажу... :roll:
mike
Posts: 82
Joined: 2004-04-06 19:53:41

Post by mike »

AGRS wrote:

Code: Select all

var CurTime
var OutTime = 5000
UO.CancelMenu()
UO.AutoMenu("картопИсанье", "название карты")
Repeat
  CheckLag()
  UO.FindType("тип карты", "0", "-1")
  Repeat
     CheckLag()
     UO.UseObject("finditem")
     CurTime=0
     Repeat
        Wait(200)
        CurTime=CurTime+200
     Until InJournal("фффсе зашибись") or InJournal("обломчикссс") or CurTime>OutTime
     Wait(300)
  Until InJournal("фффсе зашибись")
  UO.Ignore("finditem")
Until UO.FindCount()<2
UO.CancelMenu()

Вот таким макаром. Я это только что написал, поэтому разумно будет вставить реальные фразы и типы. Оттестить на малых количествах карт. Ну и не возбраняется пришить авто закупки и продажу... :roll:

а зачем их искать? не проще ли использовать скил картографи в уо по умолчанию? он автоматом карты находит?
AGRS
Expert!
Posts: 1007
Joined: 2004-04-04 21:40:09
Contact:

Post by AGRS »

mike wrote:а зачем их искать? не проще ли использовать скил картографи в уо по умолчанию? он автоматом карты находит?


Не везде работает, но на дрв конечно можно скиллом.
WhiteDemon
Posts: 16
Joined: 2004-04-09 19:07:00

Post by WhiteDemon »

Млин объясните что тут надо сделать?
И что надо нормальное написать место "фффффссссеее заепись" и так далее?
WhiteDemon
Posts: 16
Joined: 2004-04-09 19:07:00

Post by WhiteDemon »

И еще! Он пишет про какую то ошибку в 6 строчке! Что то про чек лаг!
WhiteDemon
Posts: 16
Joined: 2004-04-09 19:07:00

Post by WhiteDemon »

Up
AGRS
Expert!
Posts: 1007
Joined: 2004-04-04 21:40:09
Contact:

Post by AGRS »

WhiteDemon wrote:Млин объясните что тут надо сделать?
И что надо нормальное написать место "фффффссссеее заепись" и так далее?


Вместо "фффффссссеее заепись" должно быть сообщение (или его уникальная часть) об успешном написании карты.
AGRS
Expert!
Posts: 1007
Joined: 2004-04-04 21:40:09
Contact:

Post by AGRS »

WhiteDemon wrote:И еще! Он пишет про какую то ошибку в 6 строчке! Что то про чек лаг!


Видимо ты забыл включть в скрипт стандартную процедурку CheckLag() ;)
AGRS
Expert!
Posts: 1007
Joined: 2004-04-04 21:40:09
Contact:

Post by AGRS »

WhiteDemon wrote:Up

Down
necron
Posts: 14
Joined: 2004-04-19 18:43:26
Contact:

Post by necron »

AGRS wrote:
WhiteDemon wrote:И еще! Он пишет про какую то ошибку в 6 строчке! Что то про чек лаг!


Видимо ты забыл включть в скрипт стандартную процедурку CheckLag() ;)

чеклаг помойму отдельный скрипт -) и он не стандартный =)
его помойму савагев начал использовать, а потом все за ним -)
lol
Dzen
Posts: 29
Joined: 2004-04-08 16:06:21
Contact:

Post by Dzen »

кстати, некрон прав -) А суть функции в том, что чар щелкает два раза по бакпаку.. Так же есть интересная команда resend %)
Psimorph
Posts: 118
Joined: 2004-04-06 12:27:32
Contact:

Post by Psimorph »

не, он кликает 1 раз по бекпаку, проверяет наличие надписи 'backpack' в журнале, а когда находит её там ,сам саб заканчиваеться.
Dzen
Posts: 29
Joined: 2004-04-08 16:06:21
Contact:

Post by Dzen »

фишка как раз в этом, не щамечал, если кликнуть даблкликом на бакпак, то его содержание обновляется. Ну так вот, он кликает, а потом ждет, когда появится сообщение, что ему удалось кликнуть -) и идет дальше, я просто сам код не помню %) Но суть в этом .. Мой друг просто этим заморачивался, он когда алхимию качал, то у него содержание пака не обновлялось, так он кликал. Вообщем тут у всех свои методы -)
Psimorph
Posts: 118
Joined: 2004-04-06 12:27:32
Contact:

Post by Psimorph »

Это да, но у саваджа скрипт вот такой

Code: Select all

#==============================================================
#  CheckLag() - click on backpack and awaiting "backpack"
#               message in journal.
#
#  Journal has been deleted!!!
#--------------------------------------------------------------
sub CheckLag()
   UO.DeleteJournal()
   UO.Click('backpack')

   repeat
      wait(500)
   until UO.InJournal('0x9A12') ; backpack
   UO.Print('Checking done.')
end sub


как мы видим, идёт UO.Click('backpack'). Но у каждого и правда свои методы, но в данном примере просто одиночный клик.
Dzen
Posts: 29
Joined: 2004-04-08 16:06:21
Contact:

Post by Dzen »

надо будет попробовать потестить, посмотреть
WhiteDemon
Posts: 16
Joined: 2004-04-09 19:07:00

Post by WhiteDemon »

Посмотрите правильно ли я переделал скрипт?
а то чу меня выдает ошибку: Function not found - INJOURNAL



var CurTime
var OutTime = 5000
UO.CancelMenu()
UO.AutoMenu("Cartography", "a Blank Map")
Repeat
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')

repeat
wait(500)
until UO.InJournal('0x9A12') ; backpack
UO.Print('Checking done.')
end sub
UO.FindType("Regional Map", "0", "-1")
Repeat
UO.UseObject("finditem")
CurTime=0
Repeat
Wait(200)
Until InJournal("You put") or InJournal("Thy trembling") or CurTime>OutTime
Wait(300)
Until InJournal("You put")
UO.Ignore("finditem")
Until UO.FindCount()<2
UO.CancelMenu()
WhiteDemon
Posts: 16
Joined: 2004-04-09 19:07:00

Post by WhiteDemon »

ТАк с тем что я спрашивал я разобрался!
Post Reply