Yoko

проблема в том что на дрв отключили прокачку пойзоно так может есть у когонибуть такой скрипт чтоб чар зделал например 50 бутылок пойзона и полажил обратно в сундук !!!! плиз плиз плиз спасите очень нужно

alex86alex wrote:проблема в том что на дрв отключили прокачку пойзоно так может есть у когонибуть такой скрипт чтоб чар зделал например 50 бутылок пойзона и полажил обратно в сундук !!!! плиз плиз плиз спасите очень нужно

Телепаты в отпуске, кинь свой скрипт

Cooper wrote:

alex86alex wrote:проблема в том что на дрв отключили прокачку пойзоно так может есть у когонибуть такой скрипт чтоб чар зделал например 50 бутылок пойзона и полажил обратно в сундук !!!! плиз плиз плиз спасите очень нужно

Телепаты в отпуске, кинь свой скрипт

VAR Sunduk='0x404AC189'
VAR dagger='0x40190570'
VAR LastTimer

sub Tinkering()
var i=0
uo.useobject('backpack')
uo.cancelmenu()
uo.automenu('Tinkering','Tools')
uo.automenu('Tools','emptu 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','0x0F0E',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('0x104F')
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


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

alex86alex wrote:

Cooper wrote:

alex86alex wrote:проблема в том что на дрв отключили прокачку пойзоно так может есть у когонибуть такой скрипт чтоб чар зделал например 50 бутылок пойзона и полажил обратно в сундук !!!! плиз плиз плиз спасите очень нужно

Телепаты в отпуске, кинь свой скрипт

Вот пробуй:

alex86alex wrote:проблема в том что на дрв отключили прокачку пойзоно

да лан
и когда ж?

Sfagnum wrote:

alex86alex wrote:проблема в том что на дрв отключили прокачку пойзоно

да лан
и когда ж?

ХЗ насчет отключили, но на сайте написали что пофиксили, в чем это выражается... загадка

Cooper wrote:ХЗ насчет отключили, но на сайте написали что пофиксили, в чем это выражается... загадка

от 17 марта 2006 Года? - так это про каст
и после этого точно качалась - качал леваку.