помагите с алхимией плиз

alex86alex · Post by **alex86alex** » 2006-04-03 19:52:50

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

Kynep · Post by **Kynep** » 2006-04-03 20:28:25

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

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

alex86alex · Post by **alex86alex** » 2006-04-03 20:33:59

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

Kynep · Post by **Kynep** » 2006-04-04 07:32:10

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

Вот пробуй:

Code: Select all


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.weight > 200 then 
UO.SetReceivingContainer(Sunduk) 
wait(200) 
UO.Grab('0','finditem') 
wait(200) 
UO.UnSetReceivingContainer() 
else
wait(100)
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

Sfagnum · Post by **Sfagnum** » 2006-04-04 20:18:11

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

да лан

и когда ж?

Kynep · Post by **Kynep** » 2006-04-04 20:26:47

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

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

Sfagnum · Post by **Sfagnum** » 2006-04-04 23:21:48

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

от 17 марта 2006 Года? - так это про каст

и после этого точно качалась - качал леваку.

Yoko

помагите с алхимией плиз

помагите с алхимией плиз

Re: помагите с алхимией плиз

Re: помагите с алхимией плиз

Re: помагите с алхимией плиз

Re: помагите с алхимией плиз

Re: помагите с алхимией плиз

Re: помагите с алхимией плиз