Дайте кто нибуть скрипт на бс на DRW

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Patrol
Posts: 5
Joined: 2005-10-04 19:45:23

Дайте кто нибуть скрипт на бс на DRW

Post by Patrol »

Чтоб он брал слитки из сундука
Top
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Re: Дайте кто нибуть скрипт на бс на DRW

Post by Askaneli »

Patrol wrote:Чтоб он брал слитки из сундука
https://yoko.uokit.com/viewtopic.php?t=2811
Сделал дело - флуди смело !!!
Top
Patrol
Posts: 5
Joined: 2005-10-04 19:45:23

Post by Patrol »

Он мне ошибку пишет и сразу викидавет я даже не успеваю ожибку посматреть :x
Top
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Post by Askaneli »

Patrol wrote:Он мне ошибку пишет и сразу викидавет я даже не успеваю ожибку посматреть :x
хм
сча

Кароч это группа скриптов которыми недавно качал БС соответственно для айрона, олдкупера, дулкупера, купера и бронзы.
Рихтовать нада в зависимости от скила менюшку и тип итема что будешь крафтать
УДАЧИ :D

Code: Select all

VAR Sunduk='0x402A52BB'
VAR Forge='0x40272606'
VAR LastTimer,p

sub Blacksmithing()
uo.Exec("filterspeech clear")
uo.Exec("filterspeech off")
UO.Exec('terminate Reconnector')
wait(1000)
UO.Exec('exec Reconnector')
wait(1000)
uo.useobject('backpack')
uo.cancelmenu()

uo.automenu('Blacksmithing','Shields')
uo.automenu('Shields','buckler')


uo.useobject(Sunduk)
wait(1000)
LastTimer=UO.Timer()
while not uo.dead()
	ToHide()
	if UO.Timer()>(LastTimer+3000) then
		if uo.skillval("Spirit Speak",1)<1000 then
			uo.print("Spirit Speak...")
			f=1
			p=0
			repeat
				p=p+1
				uo.useskill ("Spirit Speak")
				uo.deletejournal()
				repeat 
					wait(10)
				until UO.InJournal("netherworld") or UO.InJournal("You must wait to perform another action") or uo.dead()
			until (UO.InJournal("You establish a connection to the netherworld.")) or (p>=10) or uo.dead()
		end if
		uo.usetype('0x097B','0x0000')
		wait(1000)
		LastTimer=UO.Timer()
	end if
	
	if uo.count('0x1BEF','0x0000')<25 then
		UO.FindType('0x1BEF','0x0000',Sunduk)
		wait(100)
		cheklag()
		uo.moveitem('finditem','1000','backpack')
		wait(1000)
	end if
	
	if uo.count('0x1BEF','0x0000')<25 then
		uo.closeuo()
	end if
	
	uo.deletejournal()
	uo.usetype('0x1BEF','0x0000')
	repeat
		Wait(10)
	until UO.InJournal("You put the") OR UO.InJournal("You have failed")
	
	if uo.count('0x1B73','0x0000')>0 then
		uo.waittargettype('0x1B73','0x0000')
		wait(50)
		uo.deletejournal()
		uo.useobject(Forge)
		repeat
			wait(10)
		until uo.InJournal("You put the") OR UO.InJournal("It is consumed in fire.")
	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(70000) # WorldSave Protection 
		uo.Say('') 
		Wait(5000) 
		uo.Say('') 
		Wait(5000) 
		uo.Say('') 
		Wait(5000) 
		uo.LDblClick(357,164) 
		uo.LClick(616,459) 
		Wait(5000) 
	WEnd 
	Wait(3000) 
	if (RFlag == 0) and (ReconnectTime <> '0') Then
		uo.TextOpen() 
		uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
		uo.RClick(196,193)
		wait(2000) 
		uo.RClick(196,193)
		wait(2000)
		uo.useobject('self')
		wait(2000)
		uo.useobject('backpack')
		wait(2000)
		uo.Exec('terminate Blacksmithing')
		wait(5000)
		uo.Exec('exec Blacksmithing')
		wait(5000) 
		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 

Sub ToHide()
while not uo.hidden()
	UO.DeleteJournal()
	uo.useskill("Hiding")
	repeat
		wait(10)
	until UO.InJournal("You have hidden yourself well") or UO.InJournal("You can't seem to hide here.") or UO.InJournal("You are preoccupied with thoughts of battle.")
	if UO.InJournal("You are preoccupied with thoughts of battle.") then
		uo.exec("warmode 1")
		wait(100)
		uo.exec("warmode 0")
		wait(100)
	end if
wend
end sub

Code: Select all

VAR Sunduk='0x402A52BB'
VAR Forge='0x40272606'
VAR LastTimer,p

sub Blacksmithing()
uo.Exec("filterspeech clear")
uo.Exec("filterspeech off")
UO.Exec('terminate Reconnector')
wait(1000)
UO.Exec('exec Reconnector')
wait(1000)
uo.useobject('backpack')
uo.cancelmenu()

uo.automenu('Blacksmithing','Colored Armor & Weapons')
uo.automenu('Colored Armor & Weapons','Weapons')
uo.automenu('Weapons','Spears & Forks')
uo.automenu('Spears & Forks','War Fork')


uo.useobject(Sunduk)
wait(1000)
LastTimer=UO.Timer()
while not uo.dead()
	ToHide()
	if UO.Timer()>(LastTimer+3000) then
		if uo.skillval("Spirit Speak",1)<1000 then
			uo.print("Spirit Speak...")
			f=1
			p=0
			repeat
				p=p+1
				uo.useskill ("Spirit Speak")
				uo.deletejournal()
				repeat 
					wait(10)
				until UO.InJournal("netherworld") or UO.InJournal("You must wait to perform another action") or uo.dead()
			until (UO.InJournal("You establish a connection to the netherworld.")) or (p>=10) or uo.dead()
		end if
		uo.usetype('0x097B','0x0000')
		wait(1000)
		LastTimer=UO.Timer()
	end if
	
	if uo.count('0x1BEF','0x0590')<8 then
		UO.FindType('0x1BEF','0x0590',Sunduk)
		wait(100)
		cheklag()
		uo.moveitem('finditem','1000','backpack')
		wait(1000)
		cheklag()
	end if
	
	uo.print("Скил прокачен -> "+STR(uo.skillval("Blacksmithing",1)/10))
	
	if (uo.count('0x1BEF','0x0590')<8) or uo.skillval("Blacksmithing",1)>=1000 then
		uo.closeuo()
	end if
	
	uo.deletejournal()
	uo.usetype('0x1BEF','0x0590')
	repeat
		Wait(10)
	until UO.InJournal("You put the") OR UO.InJournal("You have failed")
	
	if uo.count('0x1404','0x0590')>0 then
		uo.waittargettype('0x1404','0x0590')
		wait(50)
		uo.deletejournal()
		uo.useobject(Forge)
		repeat
			wait(10)
		until uo.InJournal("You put the") OR UO.InJournal("It is consumed in fire.")
	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(70000) # WorldSave Protection 
		uo.Say('') 
		Wait(5000) 
		uo.Say('') 
		Wait(5000) 
		uo.Say('') 
		Wait(5000) 
		uo.LDblClick(357,164) 
		uo.LClick(616,459) 
		Wait(5000) 
	WEnd 
	Wait(3000) 
	if (RFlag == 0) and (ReconnectTime <> '0') Then
		uo.TextOpen() 
		uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
		uo.RClick(196,193)
		wait(2000) 
		uo.RClick(196,193)
		wait(2000)
		uo.useobject('self')
		wait(2000)
		uo.useobject('backpack')
		wait(2000)
		uo.Exec('terminate Blacksmithing')
		wait(5000)
		uo.Exec('exec Blacksmithing')
		wait(5000) 
		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 

Sub ToHide()
while not uo.hidden()
	UO.DeleteJournal()
	uo.useskill("Hiding")
	repeat
		wait(10)
	until UO.InJournal("You have hidden yourself well") or UO.InJournal("You can't seem to hide here.") or UO.InJournal("You are preoccupied with thoughts of battle.")
	if UO.InJournal("You are preoccupied with thoughts of battle.") then
		uo.exec("warmode 1")
		wait(100)
		uo.exec("warmode 0")
		wait(100)
	end if
wend
end sub

Code: Select all

VAR Sunduk='0x402A52BB'
VAR Forge='0x40272606'
VAR LastTimer,p

sub Blacksmithing()
uo.Exec("filterspeech clear")
uo.Exec("filterspeech off")
UO.Exec('terminate Reconnector')
wait(1000)
UO.Exec('exec Reconnector')
wait(1000)
uo.useobject('backpack')
uo.cancelmenu()

uo.automenu('Blacksmithing','Colored Armor & Weapons')
uo.automenu('Colored Armor & Weapons','Weapons')
uo.automenu('Weapons','Spears & Forks')
uo.automenu('Spears & Forks','War Fork')


uo.useobject(Sunduk)
wait(1000)
LastTimer=UO.Timer()
while not uo.dead()
	ToHide()
	if UO.Timer()>(LastTimer+3000) then
		if uo.skillval("Spirit Speak",1)<1000 then
			uo.print("Spirit Speak...")
			f=1
			p=0
			repeat
				p=p+1
				uo.useskill ("Spirit Speak")
				uo.deletejournal()
				repeat 
					wait(10)
				until UO.InJournal("netherworld") or UO.InJournal("You must wait to perform another action") or uo.dead()
			until (UO.InJournal("You establish a connection to the netherworld.")) or (p>=10) or uo.dead()
		end if
		uo.usetype('0x097B','0x0000')
		wait(1000)
		LastTimer=UO.Timer()
	end if
	
	if uo.count('0x1BEF','0x060A')<8 then
		UO.FindType('0x1BEF','0x060A',Sunduk)
		wait(100)
		cheklag()
		uo.moveitem('finditem','1000','backpack')
		wait(1000)
		cheklag()
	end if
	
	uo.print("Скил прокачен -> "+STR(uo.skillval("Blacksmithing",1)/10))
	
	if (uo.count('0x1BEF','0x060A')<8) or uo.skillval("Blacksmithing",1)>=1000 then
		uo.closeuo()
	end if
	
	uo.deletejournal()
	uo.usetype('0x1BEF','0x060A')
	repeat
		Wait(10)
	until UO.InJournal("You put the") OR UO.InJournal("You have failed")
	
	if uo.count('0x1404','0x060A')>0 then
		uo.waittargettype('0x1404','0x060A')
		wait(50)
		uo.deletejournal()
		uo.useobject(Forge)
		repeat
			wait(10)
		until uo.InJournal("You put the") OR UO.InJournal("It is consumed in fire.")
	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(70000) # WorldSave Protection 
		uo.Say('') 
		Wait(5000) 
		uo.Say('') 
		Wait(5000) 
		uo.Say('') 
		Wait(5000) 
		uo.LDblClick(357,164) 
		uo.LClick(616,459) 
		Wait(5000) 
	WEnd 
	Wait(3000) 
	if (RFlag == 0) and (ReconnectTime <> '0') Then
		uo.TextOpen() 
		uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
		uo.RClick(196,193)
		wait(2000) 
		uo.RClick(196,193)
		wait(2000)
		uo.useobject('self')
		wait(2000)
		uo.useobject('backpack')
		wait(2000)
		uo.Exec('terminate Blacksmithing')
		wait(5000)
		uo.Exec('exec Blacksmithing')
		wait(5000) 
		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 

Sub ToHide()
while not uo.hidden()
	UO.DeleteJournal()
	uo.useskill("Hiding")
	repeat
		wait(10)
	until UO.InJournal("You have hidden yourself well") or UO.InJournal("You can't seem to hide here.") or UO.InJournal("You are preoccupied with thoughts of battle.")
	if UO.InJournal("You are preoccupied with thoughts of battle.") then
		uo.exec("warmode 1")
		wait(100)
		uo.exec("warmode 0")
		wait(100)
	end if
wend
end sub

Code: Select all

VAR Sunduk='0x402A52BB'
VAR Forge='0x40272606'
VAR LastTimer,p

sub Blacksmithing()
uo.Exec("filterspeech clear")
uo.Exec("filterspeech off")
UO.Exec('terminate Reconnector')
wait(1000)
UO.Exec('exec Reconnector')
wait(1000)
uo.useobject('backpack')
uo.cancelmenu()

uo.automenu('Blacksmithing','Colored Armor & Weapons')
uo.automenu('Colored Armor & Weapons','Weapons')
uo.automenu('Weapons','Spears & Forks')
uo.automenu('Spears & Forks','War Fork')


uo.useobject(Sunduk)
wait(1000)
LastTimer=UO.Timer()
while not uo.dead()
	ToHide()
	if UO.Timer()>(LastTimer+3000) then
		if uo.skillval("Spirit Speak",1)<1000 then
			uo.print("Spirit Speak...")
			f=1
			p=0
			repeat
				p=p+1
				uo.useskill ("Spirit Speak")
				uo.deletejournal()
				repeat 
					wait(10)
				until UO.InJournal("netherworld") or UO.InJournal("You must wait to perform another action") or uo.dead()
			until (UO.InJournal("You establish a connection to the netherworld.")) or (p>=10) or uo.dead()
		end if
		uo.usetype('0x097B','0x0000')
		wait(1000)
		LastTimer=UO.Timer()
	end if
	
	if uo.count('0x1BE3','0x0000')<20 then
		UO.FindType('0x1BE3','0x0000',Sunduk)
		wait(100)
		cheklag()
		uo.moveitem('finditem','1000','backpack')
		wait(1000)
		cheklag()
	end if
	
	uo.print("Скил прокачен -> "+STR(uo.skillval("Blacksmithing",1)/10))
	
	if (uo.count('0x1BE3','0x0000')<20) or uo.skillval("Blacksmithing",1)>=1000 then
		uo.closeuo()
	end if
	
	uo.deletejournal()
	uo.usetype('0x1BE3','0x0000')
	repeat
		Wait(10)
	until UO.InJournal("You put the") OR UO.InJournal("You have failed")
	
	if uo.count('0x1404','0x0088')>0 then
		uo.waittargettype('0x1404','0x0088')
		wait(50)
		uo.deletejournal()
		uo.useobject(Forge)
		repeat
			wait(10)
		until uo.InJournal("You put the") OR UO.InJournal("It is consumed in fire.")
	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(70000) # WorldSave Protection 
		uo.Say('') 
		Wait(5000) 
		uo.Say('') 
		Wait(5000) 
		uo.Say('') 
		Wait(5000) 
		uo.LDblClick(357,164) 
		uo.LClick(616,459) 
		Wait(5000) 
	WEnd 
	Wait(3000) 
	if (RFlag == 0) and (ReconnectTime <> '0') Then
		uo.TextOpen() 
		uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
		uo.RClick(196,193)
		wait(2000) 
		uo.RClick(196,193)
		wait(2000)
		uo.useobject('self')
		wait(2000)
		uo.useobject('backpack')
		wait(2000)
		uo.Exec('terminate Blacksmithing')
		wait(5000)
		uo.Exec('exec Blacksmithing')
		wait(5000) 
		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 

Sub ToHide()
while not uo.hidden()
	UO.DeleteJournal()
	uo.useskill("Hiding")
	repeat
		wait(10)
	until UO.InJournal("You have hidden yourself well") or UO.InJournal("You can't seem to hide here.") or UO.InJournal("You are preoccupied with thoughts of battle.")
	if UO.InJournal("You are preoccupied with thoughts of battle.") then
		uo.exec("warmode 1")
		wait(100)
		uo.exec("warmode 0")
		wait(100)
	end if
wend
end sub

Code: Select all

VAR Sunduk='0x402A52BB'
VAR Forge='0x40272606'
VAR LastTimer,p

sub Blacksmithing()
uo.Exec("filterspeech clear")
uo.Exec("filterspeech off")
UO.Exec('terminate Reconnector')
wait(1000)
UO.Exec('exec Reconnector')
wait(1000)
uo.useobject('backpack')
uo.cancelmenu()

uo.automenu('Blacksmithing','Colored Armor & Weapons')
uo.automenu('Colored Armor & Weapons','Weapons')
uo.automenu('Weapons','Spears & Forks')
uo.automenu('Spears & Forks','War Fork')


uo.useobject(Sunduk)
wait(1000)
LastTimer=UO.Timer()
while not uo.dead()
	ToHide()
	if UO.Timer()>(LastTimer+3000) then
		if uo.skillval("Spirit Speak",1)<1000 then
			uo.print("Spirit Speak...")
			f=1
			p=0
			repeat
				p=p+1
				uo.useskill ("Spirit Speak")
				uo.deletejournal()
				repeat 
					wait(10)
				until UO.InJournal("netherworld") or UO.InJournal("You must wait to perform another action") or uo.dead()
			until (UO.InJournal("You establish a connection to the netherworld.")) or (p>=10) or uo.dead()
		end if
		uo.usetype('0x097B','0x0000')
		wait(1000)
		LastTimer=UO.Timer()
	end if
	
	if uo.count('0x1BEF','0x0488')<20 then
		UO.FindType('0x1BEF','0x0488',Sunduk)
		wait(100)
		cheklag()
		uo.moveitem('finditem','1000','backpack')
		wait(1000)
		cheklag()
	end if
	
	uo.print("Скил прокачен -> "+STR(uo.skillval("Blacksmithing",1)/10))
	
	if (uo.count('0x1BEF','0x0488')<20) or uo.skillval("Blacksmithing",1)>=1000 then
		uo.closeuo()
	end if
	
	uo.deletejournal()
	uo.usetype('0x1BEF','0x0488')
	repeat
		Wait(10)
	until UO.InJournal("You put the") OR UO.InJournal("You have failed")
	
	if uo.count('0x1404','0x0488')>0 then
		uo.waittargettype('0x1404','0x0488')
		wait(50)
		uo.deletejournal()
		uo.useobject(Forge)
		repeat
			wait(10)
		until uo.InJournal("You put the") OR UO.InJournal("It is consumed in fire.")
	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(70000) # WorldSave Protection 
		uo.Say('') 
		Wait(5000) 
		uo.Say('') 
		Wait(5000) 
		uo.Say('') 
		Wait(5000) 
		uo.LDblClick(357,164) 
		uo.LClick(616,459) 
		Wait(5000) 
	WEnd 
	Wait(3000) 
	if (RFlag == 0) and (ReconnectTime <> '0') Then
		uo.TextOpen() 
		uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
		uo.RClick(196,193)
		wait(2000) 
		uo.RClick(196,193)
		wait(2000)
		uo.useobject('self')
		wait(2000)
		uo.useobject('backpack')
		wait(2000)
		uo.Exec('terminate Blacksmithing')
		wait(5000)
		uo.Exec('exec Blacksmithing')
		wait(5000) 
		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 

Sub ToHide()
while not uo.hidden()
	UO.DeleteJournal()
	uo.useskill("Hiding")
	repeat
		wait(10)
	until UO.InJournal("You have hidden yourself well") or UO.InJournal("You can't seem to hide here.") or UO.InJournal("You are preoccupied with thoughts of battle.")
	if UO.InJournal("You are preoccupied with thoughts of battle.") then
		uo.exec("warmode 1")
		wait(100)
		uo.exec("warmode 0")
		wait(100)
	end if
wend
end sub
Сделал дело - флуди смело !!!
Top
Patrol
Posts: 5
Joined: 2005-10-04 19:45:23

Post by Patrol »

а ты не може мне в асю написать 305-834-259
Top
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Post by Askaneli »

Patrol wrote:а ты не може мне в асю написать 305-834-259
А ты не можешь тут спросить ?
Сделал дело - флуди смело !!!
Top
Patrol
Posts: 5
Joined: 2005-10-04 19:45:23

Post by Patrol »

Нет там много чё хочю спросить :roll: :roll:
Top
Post Reply

Return to “Scripting Ore”