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

Дайте кто нибуть скрипт на бс на DRW
http://forum.yoko.com.ua/viewtopic.php?f=20&t=5379		 Page 1 of 1
Author:  Patrol [ 2005-10-05 13:53:21 ]
Post subject:  Дайте кто нибуть скрипт на бс на DRW
Чтоб он брал слитки из сундука
Author:  Askaneli [ 2005-10-05 13:54:20 ]
Post subject:  Re: Дайте кто нибуть скрипт на бс на DRW
Patrol wrote:
Чтоб он брал слитки из сундука

viewtopic.php?t=2811
Author:  Patrol [ 2005-10-05 13:59:41 ]
Post subject: 
Он мне ошибку пишет и сразу викидавет я даже не успеваю ожибку посматреть :x
Author:  Askaneli [ 2005-10-05 14:36:11 ]
Post subject: 
Patrol wrote:
Он мне ошибку пишет и сразу викидавет я даже не успеваю ожибку посматреть :x

хм
сча

Кароч это группа скриптов которыми недавно качал БС соответственно для айрона, олдкупера, дулкупера, купера и бронзы.
Рихтовать нада в зависимости от скила менюшку и тип итема что будешь крафтать
УДАЧИ :D
Code:
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:
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:
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:
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:
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
Author:  Patrol [ 2005-10-05 14:38:48 ]
Post subject: 
а ты не може мне в асю написать 305-834-259
Author:  Askaneli [ 2005-10-06 06:16:10 ]
Post subject: 
Patrol wrote:
а ты не може мне в асю написать 305-834-259

А ты не можешь тут спросить ?
Author:  Patrol [ 2005-10-07 21:33:05 ]
Post subject: 
Нет там много чё хочю спросить :roll: :roll:
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/