Yoko
http://forum.yoko.com.ua/

Скрипты от Askaneli
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2811		 Page 1 of 9
Author:  Askaneli [ 2005-01-26 09:47:38 ]
Post subject:  Скрипты от Askaneli
По мере возможности и отсутствия лени (а человек я от природы ленивый) буду выкладывать сюда свои скрипты и моды.
Скрипты тестированы для шарда ДРВ. Для других шардов после установки если не пашет, то слегка обработать напильником !!!

И ещё. Я в основном всегда пользуюсь наиболее последней версией инжи и поэтому некоторые скрипты могут быть не совместимы с более старыми версиями инжи. (Сфаги зануда, всё проверит и блин пальцем тыкнет)
Последняя версия всегда лежит по вот этому урлу

Спирит и Евалюшен ИНТ
Боукрафт
Магери
Тракинг
Детект Хиден
Хилинг
Стелс и Хидинг
Спаринг
Алхимия и пойзонинг
Хердинг
Пойзонинг
Беггинг
Снупинг и стеалинг
Писемакинг и Энтисемент
Тайлоринг
Кемпинг
Картография
Блаксмитинг
Инскрипт
Рунбука ДРВ
Кукинг
Анимал таминг
Forensic Evaluation
Author:  Askaneli [ 2005-01-26 09:50:52 ]
Post subject: 
Скрипт на прокачку Спирита и Евал для начала
В переменной obj какая нить живность, желательно в дом её затащить незатамленной, тада не подохнет.
Время от времени чар кушает жаренные рыбные котлетки.
Code:
var obj='0x002179AD'
sub Evaluate() 
var count=0,i=0
uo.useobject('backpack')
UO.Exec('terminate Reconnector')
wait(1000)
UO.Exec('exec Reconnector') 
wait(1000)
i=0
repeat
i=i+1
cheklag()
uo.print("Evaluating...")
UO.Useskill('Evaluating',obj)
wait(5500) 
if i==30 then
uo.usetype('0x097B')
wait(1000)
i=0
cheklag()
uo.print("Spirit Speak...")
uo.useskill ("Spirit Speak")
uo.deletejournal()
repeat 
wait(10)
until UO.InJournal("You establish a connection to the netherworld.") or UO.InJournal("You fail your attempt at contacting the netherworld.")
end if
until UO.Dead() 
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
repeat
wait(10)
until uo.InJournal("backpack")
end sub

sub Reconnector() 
var ReconnectTime, RFlag 
ReconnectTime = '0' 
RFlag = 1 
Repeat 
While (UO.ObjAtLayer('Bpack') == '') 
if RFlag Then 
ReconnectTime = MakeTime() 
RFlag = 0 
endif 
Wait(20000) # WorldSave Protection 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.LDblClick(357,164) 
UO.LClick(616,459) 
Wait(3000) 
WEnd 
Wait(3000) 
if (RFlag == 0) and (ReconnectTime <> '0') Then 
UO.Exec('terminate Evaluate')
wait(1000)
UO.Exec('exec Evaluate') 
wait(1000)
UO.TextOpen() 
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
RFlag = 1 
ReconnectTime = '0' 
endif 
Until false 
end sub 

sub MakeTime() 
VAR D, T, Ret, i 
Ret = STR(UO.Time()) 
T = "" 
For i = 0 To Len(Ret) 
T = Ret[Len(Ret)-i] + T 
If (I == 2) OR (I == 4) Then 
T = ":" + T 
EndIf 
Next 
Ret = STR(UO.Date()) 
D = "" 
For i = 0 To Len(Ret) 
D = Ret[Len(Ret)-i] + D 
If (I == 2) OR (I == 4) Then 
D = "." + D 
EndIf 
Next 
Ret = T + " @ " + D 
RETURN Ret 
end sub
Author:  Askaneli [ 2005-01-26 09:55:02 ]
Post subject: 
Ну и Боукрафт , до 50% качаем на шафтах, потом на торчках
в сундуке все логи какие не жалко.
Code:
VAR Sunduk='0x404A298D' ; ИД сундука где все логи 
VAR TDagger='0x0F51' ; Тип даггера 
VAR TLogs='0x1BDD' ; Тип логов 
VAR TTorch='0x0F64' ; Тип торчей 
VAR TShaft='0x1BD4' ; Тип шафтов

; В руке или паке даггер, в сундуке логи и запускаем !!! 

sub BowCraft_shaft()
uo.useobject(Sunduk)
wait(200)
while 1==1
UO.FindType(TLogs,'0x0000','backpack')
While UO.GetQuantity('finditem')==0
UO.FindType(TLogs,'0x0000',Sunduk) 
wait(200) 
UO.Grab('1','finditem') 
Wend
wait(200)
cheklag()

uo.WaittargetType(TLogs) 
uo.Usetype(TDagger) 
uo.WaitMenu('What do you want to carve the wood into?','shaft (1 log)') 
wait (1000) 
uo.DeleteJournal() 
while not (uo.InJournal("You put") or uo.InJournal("You fail")) 
wait(10) 
wend

if uo.weight > 200 then 
UO.SetReceivingContainer(Sunduk) 
wait(200)
UO.FindType(TShaft) 
if UO.GetQuantity('finditem')>0 then 
UO.Grab('0','finditem') 
wait(200)
end if
UO.UnSetReceivingContainer()
end if
wend
end sub

sub BowCraft_torch()
var teklog=1
dim ColLog[20]
ColLog[1]='0x047C' ; Oak Logs
ColLog[2]='0x0279' ; Red Tree Logs
ColLog[3]='0x096B' ; Dark Tree Logs
ColLog[4]='0x0237' ; Swamp Logs
ColLog[5]='0x0482' ; Silver Leaf Logs
ColLog[6]='0x010F' ; Keranit Logs
ColLog[7]='0x0014' ; Perit Logs
ColLog[8]='0x03C1' ; Petrified Logs
ColLog[9]='0x0085' ; Dragon Tree Logs
ColLog[10]='0x04C2' ; Vampire Tree Logs
ColLog[11]='0x0033' ; Eridan Logs
ColLog[12]='0x002B' ; Hellios Logs
ColLog[13]='0x0071' ; Illusions Tree Logs
ColLog[14]='0x09A4' ; Crystal Logs
ColLog[15]='0x0B82' ; Dead Tree Logs
ColLog[16]='0x00BE' ; Paradise Logs
ColLog[17]='0x0035' ; Titan Tree Logs
ColLog[18]='0x0BB6' ; Avalon Logs
ColLog[19]='0x0487' ; Elven Logs
ColLog[20]='0x0498' ; Asterxylon Logs 
UO.Exec('terminate Reconnector')
wait(100)
UO.Exec('exec Reconnector')
uo.useobject(Sunduk)
wait(200)
while 1==1
UO.FindType(TLogs,ColLog[teklog],'backpack')
While UO.GetQuantity('finditem')==0
ff:
UO.FindType(TLogs,ColLog[teklog],Sunduk)
wait(50)
if uo.FindCount()==0 then

UO.SetReceivingContainer(Sunduk) 
wait(100)
UO.FindType(TTorch)
wait(50)
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem') 
wait(200)
end if
UO.UnSetReceivingContainer()

teklog=teklog+1
if teklog>20 then
return
endif
goto ff
end if
wait(100) 
UO.Grab('1','finditem') 
Wend
wait(200)
cheklag()

uo.WaittargetType(TLogs)
uo.Usetype(TDagger) 
uo.WaitMenu('What do you want to carve the wood into?','Items','Items','torch')
wait (200) 
uo.DeleteJournal()
while not (uo.InJournal("You put") or uo.InJournal("You fail"))
wait(10) 
wend

if uo.weight > 100 then 
UO.SetReceivingContainer(Sunduk) 
wait(100)
UO.FindType(TTorch) 
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem') 
wait(200)
end if
UO.UnSetReceivingContainer()
end if
wend
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
Repeat
wait(100)
Until UO.InJournal("backpack")
end sub

sub Reconnector() 
var ReconnectTime, RFlag 
ReconnectTime = '0' 
RFlag = 1 
Repeat 
While (UO.ObjAtLayer('Bpack') == '') 
if RFlag Then 
ReconnectTime = MakeTime() 
RFlag = 0 
endif 
Wait(20000) # WorldSave Protection 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.LDblClick(357,164) 
UO.LClick(616,459) 
Wait(3000) 
WEnd 
Wait(3000) 
if (RFlag == 0) and (ReconnectTime <> '0') Then 
UO.Exec('terminate BowCraft_torch')
wait(1000)
UO.Exec('exec BowCraft_torch')
UO.TextOpen() 
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
RFlag = 1 
ReconnectTime = '0' 
endif 
Until false 
end sub 

sub MakeTime() 
VAR D, T, Ret, i 
Ret = STR(UO.Time()) 
T = "" 
For i = 0 To Len(Ret) 
T = Ret[Len(Ret)-i] + T 
If (I == 2) OR (I == 4) Then 
T = ":" + T 
EndIf 
Next 
Ret = STR(UO.Date()) 
D = "" 
For i = 0 To Len(Ret) 
D = Ret[Len(Ret)-i] + D 
If (I == 2) OR (I == 4) Then 
D = "." + D 
EndIf 
Next 
Ret = T + " @ " + D 
RETURN Ret 
end sub
Author:  Askaneli [ 2005-01-26 09:57:11 ]
Post subject: 
Магия она и в африке магия. На пойзоне качаем и качаем.
Code:
Var Sunduk='0x40226380'

sub main()
While uo.count('0x0F88','0x0000')>0

if uo.skillval('Magery',1)==1000 Then
return
end if

UO.FindType('0x0F88',-1,'backpack') 
While UO.GetQuantity('finditem')<5
UO.FindType('0x0F88','0x0000',Sunduk) 
wait(1000) 
UO.Grab('100','finditem')
wait(700) 
Wend

##while uo.mana>20
cheklag()
uo.cast('Poison','self')
wait(3000)
##wend


Repeat
uo.deletejournal() 
uo.useskill('Meditation')
Wait(3000)
Until UO.InJournal("You must wait to perform another action") or uo.mana >= uo.int 

While uo.mana < uo.int
Wait(100)
Wend
Wait(100)

Wend
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
Repeat
wait(100)
Until UO.InJournal("backpack")
end sub
Author:  Askaneli [ 2005-01-26 10:00:47 ]
Post subject: 
Code:
sub Tracking()
uo.CancelMenu() 
uo.AutoMenu("Track","Anything") 
repeat
uo.deletejournal()
uo.UseSkill('Tracking')
repeat 
wait(100) 
until UO.InJournal("Tracking Cancelled")
until uo.Dead() 
end sub
Author:  Askaneli [ 2005-01-26 10:10:43 ]
Post subject: 
Детект
Основному чару запускаем Detect_Hidden
Левачку соответственно Hiding
Основной до кучи качает Спирит (это уже параноя, как бы прокачать спирит)
Code:
sub Detect_Hidden()
Var i=0 
repeat
i=i+1
cheklag()
uo.UseSkill('Detect Hidden')
uo.deletejournal()
repeat
wait(10) 
until UO.InJournal("You can see nothing hidden there.") or UO.InJournal("You find")
if i==50 then
i=0
cheklag()
uo.useskill ("Spirit Speak")
uo.deletejournal()
repeat 
wait(10)
until UO.InJournal("You establish a connection to the netherworld.") or UO.InJournal("You fail your attempt at contacting the netherworld.")
uo.usetype('0x09BB')
wait(1000)
end if
until uo.Dead() 
end sub

sub Hiding()
repeat
while not UO.Hidden() 
UO.Warmode("0") 
uo.print("Hiding...") 
UO.UseSkill("Hiding")
UO.DeleteJournal()
Repeat
Wait(10)
Until UO.InJournal("You have hidden yourself well") or UO.InJournal("You can't seem to hide here.") 
wend
until uo.dead()
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
repeat
wait(10)
until uo.InJournal("backpack")
end sub
Author:  Askaneli [ 2005-01-26 10:12:45 ]
Post subject: 
Мод хилинга, опять же спирит
Code:
sub Train_Healing() 
var i,j,tekstr
uo.undress() 
wait(100)
repeat
   UO.FindType(0x0E21,"-1","my") 
   if UO.FindCount() then 
      tekstr=uo.str
      wait(100)
      cheklag()
      uo.usetype(0x1F00); Cursed Hat 
      uo.useskill ("Spirit Speak") 
      wait(2000)
      j=0
      repeat
      wait(10)
      j=j+1
      until (uo.life <= tekstr-1) or (j>1000)
      cheklag()
      uo.undress() 
      wait(100)
      cheklag()
      uo.exec('bandageself') 
      Wait(2000) 
   else 
      UO.FindType(0x0E20,"-1","my") 
      if UO.FindCount() then 
         cheklag()
         uo.waittargettype(0x1008)   # wash basin 
         uo.UseType(0x0E20)   #bloody bandages 
      else 
         cheklag()
         uo.print("You haven't bandages") 
         uo.exec("terminate Train_Healing") 
         Play_Sound(1) 
      endif 
   endif 
until uo.dead()
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
Repeat
wait(100)
Until UO.InJournal("backpack")
end sub
Author:  Askaneli [ 2005-01-26 10:15:41 ]
Post subject: 
Стелс и хидинг.
Code:
sub Stealth()
var i=1
repeat
for i=1 to 8 
uo.press(35) 
wait(200)
if not uo.hidden() then
UO.UseSkill("Hiding") 
UO.DeleteJournal() 
Repeat 
Wait(10) 
Until UO.InJournal("You have hidden yourself well") or UO.InJournal("You can't seem to hide here.")
end if
next 
for i=1 to 8 
uo.press(33) 
wait(200)
if not uo.hidden() then
UO.UseSkill("Hiding") 
UO.DeleteJournal() 
Repeat 
Wait(10) 
Until UO.InJournal("You have hidden yourself well") or UO.InJournal("You can't seem to hide here.")
end if
next 
Wait(100) 
until UO.Dead() 
end sub
Author:  Askaneli [ 2005-01-26 10:23:18 ]
Post subject: 
Спаринг, суть проста, в сундуке ГХ, на руке брас жизни регенерирующий, на чаре броня. Просто когда совсем плохо чар пьёт бутылочку ГХ. Если бутылочек в паке мало берёт из сундука. Пустые бутылки выкладывает в тот же сундук. Временами кушает рыбные котлетки что лежат в паке.
Code:
Var Sunduk='0x402E9CD2'

sub sparing()
uo.useobject(Sunduk)
uo.useobject('backpack')
UO.SayU(".detail 0")
uo.warmode(1)
while not UO.Dead()
if UO.Life < 60 then
UO.FindType('0x0F0E','0x09BB','backpack')
if UO.GetQuantity('finditem')<10 then
UO.FindType('0x0F0E','0x09BB',Sunduk) 
wait(200) 
UO.Grab('10','finditem') 
end if
UO.UseType('0x097B','0x0000')
wait(1000)
UO.UseType('0x0F0E','0x09BB')
wait(1000)
end if
wait(1000)
UO.FindType('0x0F0E','0x0000','backpack')
if UO.GetQuantity('finditem')>0 then
uo.MoveItem('finditem','-1',Sunduk) 
end if
wait(1000)
wend
end sub
Author:  Askaneli [ 2005-01-29 19:04:42 ]
Post subject: 
Тинкер бутылок и алхимия на пойзоне, плюс пойзонинг до кучи.
Со спиритом и реконектором.
Code:
VAR Sunduk='0x402B3F94'
VAR dagger='0x402F0E97'
VAR LastTimer

sub Tinkering()
var i=0
uo.useobject('backpack')
uo.cancelmenu()
uo.automenu('Tinkering','Tools')
uo.automenu('Tools','empty bottle (3 iron ingot)')
uo.useobject(Sunduk)
wait(1000)
while uo.count('0x1BEF')>0

i=i+1
if i==50 then
uo.usetype('0x097B')
wait(1000)
i=0
if uo.skillval("Spirit Speak",1)<1000 then
cheklag()
uo.print("Spirit Speak...")
LastTimer=UO.Timer() 
uo.useskill ("Spirit Speak")
uo.deletejournal()
repeat 
wait(10)
until UO.InJournal("You establish a connection to the netherworld.") or UO.InJournal("You fail your attempt at contacting the netherworld.") OR (UO.Timer()>LastTimer+200) 
end if
end if

UO.FindType('0x1BEF',-1,'backpack')
While UO.GetQuantity('finditem')<10
UO.FindType('0x1BEF','0x0000',Sunduk) 
wait(200) 
UO.Grab('100','finditem')
wait(200) 
Wend

uo.deletejournal()
LastTimer=UO.Timer()
uo.usetype('0x1EBC')
repeat
Wait(10)
until UO.InJournal("You put the") OR UO.InJournal("Tinkering failed") OR (UO.Timer()>LastTimer+200) 

if uo.weight > 300 then 
UO.SetReceivingContainer(Sunduk) 
wait(200)
UO.FindType('0x0F0E') 
if UO.GetQuantity('finditem')>0 then 
UO.Grab('0','finditem') 
wait(200)
end if
UO.UnSetReceivingContainer()
end if

wend
end sub

sub Alchemy()
var i=0
uo.useobject('backpack')
uo.cancelmenu()
uo.automenu('What sort of potion do you want to','(last)')

uo.useobject(Sunduk)
wait(1000)
while 1==1

i=i+1
if i==50 then
uo.usetype('0x097B')
wait(1000)
i=0
if uo.skillval("Spirit Speak",1)<1000 then
cheklag()
uo.print("Spirit Speak...")
LastTimer=UO.Timer()
uo.useskill ("Spirit Speak")
uo.deletejournal()
repeat 
wait(10)
until UO.InJournal("You establish a connection to the netherworld.") or UO.InJournal("You fail your attempt at contacting the netherworld.") OR (UO.Timer()>LastTimer+200) 
end if
end if

UO.FindType('0x0F0E','0x0000','backpack')
While UO.GetQuantity('finditem')<20
UO.FindType('0x0F0E','0x0000',Sunduk) 
wait(200) 
UO.Grab('100','finditem')
wait(200) 
Wend

UO.FindType('0x0F88','0x0000','backpack')
While UO.GetQuantity('finditem')<20
UO.FindType('0x0F88','0x0000',Sunduk) 
wait(200) 
UO.Grab('100','finditem')
wait(200) 
Wend

uo.deletejournal()
LastTimer=UO.Timer()
uo.usetype('0x0F88','0x0000')
repeat
Wait(10)
until UO.InJournal("You put the") OR UO.InJournal("You toss the failed") OR (UO.Timer()>LastTimer+200) 


UO.FindType('0x0F0E','0x0998') 
if UO.GetQuantity('finditem')>0 then
if uo.skillval("Poisoning",1)<1000 then
uo.deletejournal()
LastTimer=UO.Timer()
uo.waittargetobject(dagger,'finditem')
uo.useskill('Poisoning')
repeat
wait(10)
until UO.InJournal("You fail to apply") OR UO.InJournal("You apply the poison") OR (UO.Timer()>LastTimer+200) 
else
if uo.weight > 200 then
UO.SetReceivingContainer(Sunduk) 
wait(200)
UO.Grab('0','finditem') 
wait(200)
UO.UnSetReceivingContainer()
end if
end if
end if

wend
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
repeat
wait(10)
until uo.InJournal("backpack")
end sub

sub Reconnector() 
var ReconnectTime, RFlag 
ReconnectTime = '0' 
RFlag = 1 
Repeat 
While (UO.ObjAtLayer('Bpack') == '') 
if RFlag Then 
ReconnectTime = MakeTime() 
RFlag = 0 
endif 
Wait(20000) # WorldSave Protection 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.LDblClick(357,164) 
UO.LClick(616,459) 
Wait(3000) 
WEnd 
Wait(3000) 
if (RFlag == 0) and (ReconnectTime <> '0') Then 
UO.Exec('terminate Alchemy')
wait(1000)
UO.Exec('exec Alchemy')
UO.TextOpen() 
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
RFlag = 1 
ReconnectTime = '0' 
endif 
Until false 
end sub 

sub MakeTime() 
VAR D, T, Ret, i 
Ret = STR(UO.Time()) 
T = "" 
For i = 0 To Len(Ret) 
T = Ret[Len(Ret)-i] + T 
If (I == 2) OR (I == 4) Then 
T = ":" + T 
EndIf 
Next 
Ret = STR(UO.Date()) 
D = "" 
For i = 0 To Len(Ret) 
D = Ret[Len(Ret)-i] + D 
If (I == 2) OR (I == 4) Then 
D = "." + D 
EndIf 
Next 
Ret = T + " @ " + D 
RETURN Ret 
end sub
Author:  Savage [ 2005-01-30 00:02:41 ]
Post subject:  Re: Скрипты от Askaneli
Askaneli wrote:
По мере возможности и отсутствия лени (а человек я от природы ленивый) буду выкладывать сюда свои скрипты и моды.
Скрипты тестированы для шарда ДРВ. Для других шардов после установки если не пашет, то слегка обработать напильником !!!

Только очень ленивый человек может стать классным программистом :)
Author:  Askaneli [ 2005-01-30 20:41:50 ]
Post subject:  Re: Скрипты от Askaneli
Savage wrote:
Askaneli wrote:
По мере возможности и отсутствия лени (а человек я от природы ленивый) буду выкладывать сюда свои скрипты и моды.
Скрипты тестированы для шарда ДРВ. Для других шардов после установки если не пашет, то слегка обработать напильником !!!

Только очень ленивый человек может стать классным программистом :)

Есть такая тема !!!
Author:  Goggy [ 2005-01-31 00:59:23 ]
Post subject:  Re: Скрипты от Askaneli
Savage wrote:
Askaneli wrote:
По мере возможности и отсутствия лени (а человек я от природы ленивый) буду выкладывать сюда свои скрипты и моды.
Скрипты тестированы для шарда ДРВ. Для других шардов после установки если не пашет, то слегка обработать напильником !!!

Только очень ленивый человек может стать классным программистом :)


а какже.....
по другому я имбы и нестал :)
Author:  Askaneli [ 2005-02-01 07:44:34 ]
Post subject:  Re: Скрипты от Askaneli
Goggy wrote:
Savage wrote:
Askaneli wrote:
По мере возможности и отсутствия лени (а человек я от природы ленивый) буду выкладывать сюда свои скрипты и моды.
Скрипты тестированы для шарда ДРВ. Для других шардов после установки если не пашет, то слегка обработать напильником !!!

Только очень ленивый человек может стать классным программистом :)


а какже.....
по другому я имбы и нестал :)

Я стал программистом немного по другой причине, но всё же природная лень не даёт мне теперь заниматся чем-то другим !!! :mrgreen:
Author:  Askaneli [ 2005-02-08 06:03:19 ]
Post subject: 
Herding (пастушество). Всё как обычно, незатамленная живность, посох пастуха, еда. Чар пытается отогнать животное к сундуку какому-нить в зоне видимости.
Code:
Var Animal='0x002179AD'
Var Crook='0x4036287E'
Var Sunduk='0x40226380'

sub Herding()
var i=0,LastTimer=0 
UO.Exec('terminate Reconnector')
wait(100)
UO.Exec('exec Reconnector')
uo.useobject('backpack')
wait(1000)
while 1==1
i=i+1
if i==50 then
i=1
uo.usetype('0x097B')
wait(1000)
endif
uo.DeleteJournal()
LastTimer=UO.Timer()
uo.waittargetobject(Animal,Sunduk)
wait(10)
uo.useobject(Crook)
wait(10)
repeat
wait(10)
until UO.InJournal('The animal goes') or UO.InJournal('You don') or (UO.Timer()>LastTimer+200)
wend
end sub

sub Reconnector() 
var ReconnectTime, RFlag 
ReconnectTime = '0' 
RFlag = 1 
Repeat 
While (UO.ObjAtLayer('Bpack') == '') 
if RFlag Then 
ReconnectTime = MakeTime() 
RFlag = 0 
endif 
Wait(20000) # WorldSave Protection 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.LDblClick(357,164) 
UO.LClick(616,459) 
Wait(3000) 
WEnd 
Wait(3000) 
if (RFlag == 0) and (ReconnectTime <> '0') Then 
UO.Exec('terminate Herding')
wait(1000)
UO.Exec('exec Herding')
UO.TextOpen() 
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
RFlag = 1 
ReconnectTime = '0' 
endif 
Until false 
end sub 

sub MakeTime() 
VAR D, T, Ret, i 
Ret = STR(UO.Time()) 
T = "" 
For i = 0 To Len(Ret) 
T = Ret[Len(Ret)-i] + T 
If (I == 2) OR (I == 4) Then 
T = ":" + T 
EndIf 
Next 
Ret = STR(UO.Date()) 
D = "" 
For i = 0 To Len(Ret) 
D = Ret[Len(Ret)-i] + D 
If (I == 2) OR (I == 4) Then 
D = "." + D 
EndIf 
Next 
Ret = T + " @ " + D 
RETURN Ret 
end sub
Author:  autopilot [ 2005-02-08 06:13:30 ]
Post subject: 
Ты мне лучше скажи будет ли в этом топике твой мининг с ходилкой ? :P
Author:  Askaneli [ 2005-02-08 07:16:15 ]
Post subject: 
autopilot wrote:
Ты мне лучше скажи будет ли в этом топике твой мининг с ходилкой ? :P

Он уже есть в свободном скачивании, просто искать надо !!!
Author:  autopilot [ 2005-02-08 07:33:54 ]
Post subject: 
205480956. Скажи мне где в асю пожалуйста если тут не хочешь.
Author:  Askaneli [ 2005-02-08 07:44:11 ]
Post subject: 
autopilot wrote:
205480956. Скажи мне где в асю пожалуйста если тут не хочешь.

Тут на форуме.
Author:  Askaneli [ 2005-02-08 09:23:36 ]
Post subject: 
Просто пойзонинг. Должен работать по идее !!!
Code:
VAR Sunduk='0x402B3F94' 
VAR LastTimer 
var dagger='0x402F0E97' 

sub Poisoning() 
uo.useobject('backpack') 
wait(1000) 
uo.useobject(Sunduk) 
wait(1000) 
while 1==1 

UO.FindType('0x0F0E','0x0998','backpack') 
While UO.GetQuantity('finditem')<20 
UO.FindType('0x0F0E','0x0998',Sunduk) 
wait(200) 
UO.Grab('100','finditem') 
wait(200) 
Wend 

UO.FindType('0x0F0E','0x0998') 
if UO.GetQuantity('finditem')>0 then 
if uo.skillval("Poisoning",1)<1000 then 
uo.deletejournal() 
LastTimer=UO.Timer() 
uo.waittargetobject(dagger,'finditem') 
uo.useskill('Poisoning') 
repeat 
wait(10) 
until UO.InJournal("You fail to apply") OR UO.InJournal("You apply the poison") OR (UO.Timer()>LastTimer+200) 
else 
if uo.weight > 200 then 
UO.SetReceivingContainer(Sunduk) 
wait(200) 
UO.Grab('0','finditem') 
wait(200) 
UO.UnSetReceivingContainer() 
uo.closeuo() 
end if 
end if 
end if 

wend 
end sub
Page 1 of 9 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/