
покупка вещей.
Moderators: Murderator+, Murderator
покупка вещей.
вобщем есть такая мысля, значит стою я рядом с нпц и все время покупаю один и тот же товар( через некоторое время) как только вес становиться максимальный я реколюсь домой и выкладываю все в сундук и опять реколюсь к нпц и начинаю скупку. сколько будет стоить такой скрипт? 

maxim viktorovich
I'm wrote:Нисколько если напишеш его сам![]()
А вообще у меня кажется такой был если найду то обязательно выложу
найди мне тоже надо посматреть и ответь пожалуйста они покупка и продажа похожи?
и заглини сюда плиз http://yoko.netroof.net/forum/viewtopic ... sc&start=0
Re: покупка вещей.
парни скажите сколько будет стоить этот скрипт на дрв?maximka4 wrote:вобщем есть такая мысля, значит стою я рядом с нпц и все время покупаю один и тот же товар( через некоторое время) как только вес становиться максимальный я реколюсь домой и выкладываю все в сундук и опять реколюсь к нпц и начинаю скупку. сколько будет стоить такой скрипт?
maxim viktorovich
-
- Expert!
- Posts: 1205
- Joined: 2004-04-04 11:13:54
- Location: Балаково, Саратовская обл.
- Contact:
Ну примерно так будет:
вес так и не сказал...
Code: Select all
sub max()
UO.Set('buydelay','2000')
While 1==1
UO.Buy('tt2')
Repeat
UO.DeleteJournal()
UO.Exec('warmode 0')
UO.Exec('warmode 0')
; UO.UseSkill('Stealth')
UO.UseSkill('Hiding')
wait(4000)
Until UO.Hidden()
wait(60000) ; 1 min
Wend
end sub
вес так и не сказал...
-
- Expert!
- Posts: 1205
- Joined: 2004-04-04 11:13:54
- Location: Балаково, Саратовская обл.
- Contact:
Вот так это выглядит пока без разгрузки....
Кстати можно наверное прикалывать скупщиков на скрипте - в месте появления перед ихним приходом бросать сундук или забор
Кстати можно наверное прикалывать скупщиков на скрипте - в месте появления перед ихним приходом бросать сундук или забор

Code: Select all
sub max()
VAR VesPrirost=120
VAR RespDelay=1140000 ;19 min resp 20
UO.Set('buydelay','1000') ; 1000 - zaderjka na pokupku
UO.Set('injectecho','1')
While 1==1
UO.DeleteJournal()
UO.Buy('tt2') ; tt2 - buylist s tkaniyu
Repeat
UO.Exec('warmode 0')
UO.Exec('warmode 0')
; UO.UseSkill('Stealth')
UO.UseSkill('Hiding')
wait(4000)
Until UO.Hidden()
IF UO.InJournal("No item") Then
UO.Print("OOpS!")
wait(20000) ; 20 sec
Else
wait(RespDelay)
EndIf
Wend
end sub
круто, спасибо, приспасибо, приогромное спасибоSavage wrote:Вот так это выглядит пока без разгрузки....
Кстати можно наверное прикалывать скупщиков на скрипте - в месте появления перед ихним приходом бросать сундук или заборCode: Select all
sub max()
VAR VesPrirost=120
VAR RespDelay=1140000 ;19 min resp 20
UO.Set('buydelay','1000') ; 1000 - zaderjka na pokupku
UO.Set('injectecho','1')
While 1==1
UO.DeleteJournal()
UO.Buy('tt2') ; tt2 - buylist s tkaniyu
Repeat
UO.Exec('warmode 0')
UO.Exec('warmode 0')
; UO.UseSkill('Stealth')
UO.UseSkill('Hiding')
wait(4000)
Until UO.Hidden()
IF UO.InJournal("No item") Then
UO.Print("OOpS!")
wait(20000) ; 20 sec
Else
wait(RespDelay)
EndIf
Wend
end sub




maxim viktorovich
-
- Expert!
- Posts: 1205
- Joined: 2004-04-04 11:13:54
- Location: Балаково, Саратовская обл.
- Contact:
Неее, это уже в трэшь
Вот так надо:

Вот так надо:
Code: Select all
sub max()
VAR VesPrirost=120
VAR i
UO.Set('buydelay','1000') ; 1000 - zaderjka na pokupku
UO.Set('injectecho','1')
While 1==1
UO.DeleteJournal()
UO.Buy('tt2') ; tt2 - buylist s tkaniyu
HideMax()
IF UO.InJournal("No item") Then
UO.Print("OOpS!")
wait(20000) ; 20 sec
Else
wait(900000) ;15 min
EndIf
Wend
end sub
sub HideMax()
While NOT UO.Hidden()
UO.Exec('warmode 0')
UO.Exec('warmode 0')
; UO.UseSkill('Stealth')
UO.UseSkill('Hiding')
wait(4000)
Wend
end Sub