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

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
alex86alex
Posts: 35
Joined: 2006-03-11 15:01:10

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

Post by alex86alex »

проблема в том что на дрв отключили прокачку пойзоно так может есть у когонибуть такой скрипт чтоб чар зделал например 50 бутылок пойзона и полажил обратно в сундук !!!! плиз плиз плиз спасите очень нужно
Top
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:
Contact Kynep

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

Post by Kynep »

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


Телепаты в отпуске, кинь свой скрипт
Top
alex86alex
Posts: 35
Joined: 2006-03-11 15:01:10

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

Post by alex86alex »

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
Top
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:
Contact Kynep

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

Post by Kynep »

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
Top
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:
Contact Sfagnum

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

Post by Sfagnum »

alex86alex wrote:проблема в том что на дрв отключили прокачку пойзоно
да лан :shock:
и когда ж? :roll:
Top
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:
Contact Kynep

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

Post by Kynep »

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


ХЗ насчет отключили, но на сайте написали что пофиксили, в чем это выражается... загадка :(
Top
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:
Contact Sfagnum

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

Post by Sfagnum »

Cooper wrote:ХЗ насчет отключили, но на сайте написали что пофиксили, в чем это выражается... загадка :(
от 17 марта 2006 Года? - так это про каст ;)
и после этого точно качалась - качал леваку.
Top
Post Reply

Return to “Scripting Ore”