МининГ-Проблемка- (Прошу помощи Опытных)

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
MorZE21
Posts: 8
Joined: 2009-10-02 12:14:45

МининГ-Проблемка- (Прошу помощи Опытных)

Post by MorZE21 »

Проблема в том что Скрип почему то выключается сам по себе, через минут 10-15 копания прошу помогите кто разбирается.

Code: Select all

sub mining() 
VAR x,y,z='0',TileNum='1339' 
VAR Last=0,LastTimer 
For x=-2 to 2 
For y=-2 to 2 
Repeat 
CheckLag() 
ToHide() 
UO.WaitTargetTile(TileNum,STR(UO.GetX()+x),STR(UO.GetY()+Y),z) 
UO.usetype('0x0E85') 
LastTimer=UO.Timer() 
repeat 
wait(2000) 
until UO.InJournal("Try mining") OR UO.InJournal("You put") OR UO.InJournal("You loosen") OR UO.InJournal("There is no") OR UO.InJournal("That is too") OR UO.InJournal("OOPS") OR UO.InJournal("attacking you") OR LastTimer+150<UO.Timer() 
if UO.InJournal('You loosen') then 
repeat 
wait (500) 
until UO.InJournal("You put") OR LastTimer+105<UO.Timer() 
endif 
until UO.InJournal("There is no") OR UO.InJournal("That is too") OR UO.InJournal("Try mining") 
Next 
Next 
end sub 

sub tohide() 
while NOT UO.Hidden() 
UO.DeleteJournal() 
UO.FindType('0x0F0E','0x0631','my') 
if UO.Life<UO.STR/2 AND UO.GetQuantity('finditem')>0 then 
UO.UseType('0x0E86','0x0E86') 
UO.Exec('warmode 0') 
wait(2000) 
else 
UO.Exec('warmode 0') 
UO.UseSkill('Stealth') 
repeat 
wait(50) 
until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preoccupied') 
endif 
wend 
end sub 
  
sub CheckLag() 
UO.DeleteJournal() 
UO.Click('backpack') 
repeat 
wait(500) 
until UO.InJournal('backpack') 
end sub

sub Reconnect() 
var ReconnectTime,rflag 
ReconnectTime='0' 
rflag=1 
repeat 
while (uo.ObjAtLayer('Bpack')=='') 
if rflag then 
ReconnectTime=Time() 
rflag=0 
end if 
wait(20000) 
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.TextOpen() 
uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
rflag=1 
ReconnectTime='0' 
end if 
until false 
end sub 

sub Time() 
var Date,nTime,uTime,i 
uTime=str(uo.Time()) 
nTime='' 
for i=0 to Len(uTime) 
nTime=uTime[Len(uTime)-i]+nTime 
if (i==2) or (i==4) then 
nTime=':'+nTime 
end if 
next 
uTime=str(uo.Date()) 
Date='' 
for i=0 to Len(uTime) 
Date=uTime[Len(uTime)-i]+Date 
if (i==2) or (i==4) then 
Date='.'+Date 
end if 
next 
uTime=nTime+' @ '+Date 
return uTime 
end sub



Если кому не тяжко можете добавить сюда реконнект. Пожалуйста. ЗА Ранее Спасибо большое :roll: :?:
Top
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:
Contact Scripts Writer

Post by Scripts Writer »

Зациклить надо
Top
MorZE21
Posts: 8
Joined: 2009-10-02 12:14:45

Post by MorZE21 »

Scripts Writer wrote:Зациклить надо




Пожалуйста если можеш исправь и выложи сюда, а то Я дуб в этом (( и если не тяжко сможешь прилипить сюда реконнект. Спасиб за ответ ! :oops: :roll:
Top
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:
Contact Scripts Writer

Post by Scripts Writer »

Смотри подпись.
Top
MorZE21
Posts: 8
Joined: 2009-10-02 12:14:45

Post by MorZE21 »

Scripts Writer wrote:Смотри подпись.


Да у меня сейчас нету времени изучать создание скриптов. Прошу переправить те кто могут это сделать !
Top
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

Code: Select all

sub mining() 
VAR x,y,z='0',TileNum='1339' 
VAR Last=0,LastTimer 
while 1 #зациклен на всегда
For x=-2 to 2 
For y=-2 to 2 
Repeat 
CheckLag() 
ToHide() 
UO.WaitTargetTile(TileNum,STR(UO.GetX()+x),STR(UO.GetY()+Y),z) 
UO.usetype('0x0E85') 
LastTimer=UO.Timer() 
repeat 
wait(2000) 
until UO.InJournal("Try mining") OR UO.InJournal("You put") OR UO.InJournal("You loosen") OR UO.InJournal("There is no") OR UO.InJournal("That is too") OR UO.InJournal("OOPS") OR UO.InJournal("attacking you") OR LastTimer+150<UO.Timer() 
if UO.InJournal('You loosen') then 
repeat 
wait (500) 
until UO.InJournal("You put") OR LastTimer+105<UO.Timer() 
endif 
until UO.InJournal("There is no") OR UO.InJournal("That is too") OR UO.InJournal("Try mining") 
Next 
Next 
wend # конец цикла
end sub
Top
MorZE21
Posts: 8
Joined: 2009-10-02 12:14:45

Post by MorZE21 »

Nmy wrote:

Code: Select all

sub mining() 
VAR x,y,z='0',TileNum='1339' 
VAR Last=0,LastTimer 
while 1 #зациклен на всегда
For x=-2 to 2 
For y=-2 to 2 
Repeat 
CheckLag() 
ToHide() 
UO.WaitTargetTile(TileNum,STR(UO.GetX()+x),STR(UO.GetY()+Y),z) 
UO.usetype('0x0E85') 
LastTimer=UO.Timer() 
repeat 
wait(2000) 
until UO.InJournal("Try mining") OR UO.InJournal("You put") OR UO.InJournal("You loosen") OR UO.InJournal("There is no") OR UO.InJournal("That is too") OR UO.InJournal("OOPS") OR UO.InJournal("attacking you") OR LastTimer+150<UO.Timer() 
if UO.InJournal('You loosen') then 
repeat 
wait (500) 
until UO.InJournal("You put") OR LastTimer+105<UO.Timer() 
endif 
until UO.InJournal("There is no") OR UO.InJournal("That is too") OR UO.InJournal("Try mining") 
Next 
Next 
wend # конец цикла
end sub





Спасибки ДРВ Руль )!!!
Top
MorZE21
Posts: 8
Joined: 2009-10-02 12:14:45

Post by MorZE21 »

Code: Select all

sub fishing()
var mx, my, mz, i, j
uo.print('А где ведро?')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend

mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
for i = mx-4 to mx+4
for j = my -4 to my+4
if UO.dead() then
return
endif
while not UO.Hidden()
UO.Warmode("0")
uo.print("hiding...")
UO.UseSkill("Hiding")
wait(4000)
wend

UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no fish here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in water")
UO.DeleteJournal()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype("0x0DBF") ;FishingPole
if UO.dead() then
return
endif
if UO.Weight>660 then
return
endif
while not UO.InJournal("You pull") and not UO.InJournal("location") and not UO.InJournal("no fish") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in water")
wait (100)
if UO.InJournal("You pull") then
UO.SetReceivingContainer('Bag')
UO.findtype('0x09CC','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (200)
UO.findtype('0x09CD','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (200)
UO.findtype('0x09CE','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (200)
UO.findtype('0x09CF','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (200)
UO.findtype('0x14EB','0x0000','ground') ;tattered map
UO.grab ('1','finditem')
wait (200)
UO.findtype('0x0DD6','0x05F6','ground') ;Truly rare fish
UO.grab ('1','finditem')
wait (200)
UO.findtype('0x0DD6','0x01BB','ground') ;Prize fish
UO.grab ('1','finditem')
wait (200)
UO.UnSetReceivingContainer()
end if
wend
wend
UO.DeleteJournal()
next
next
end sub



Помогите с этим скриптом тут таже феня он остановку делает (( или когда весь проходит или когда рыбу не находит, хотя он ловит но потом скрипт выключается без ошибок. Я пробывал как и в мининге сделать но тут что то не пашет или я что то не правильно делаю ( Как сделать чтоб он повторялся или чтоб просто не выключался )
Top
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

Code: Select all

sub fishing() 
var mx, my, mz, i, j 
uo.print('А где ведро?') 
uo.exec('addobject Bag') 
while uo.targeting() 
wait(100) 
wend 

mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
UO.DeleteJournal() 
while 1 # <----------------- безконечный цыкл
for i = mx-4 to mx+4 
for j = my -4 to my+4 
if UO.dead() then 
return 
endif 
while not UO.Hidden() 
UO.Warmode("0") 
uo.print("hiding...") 
UO.UseSkill("Hiding") 
wait(4000) 
wend 

UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j)) 
while not UO.InJournal("no fish here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in water") 
UO.DeleteJournal() 
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
UO.Usetype("0x0DBF") ;FishingPole 
if UO.dead() then 
return 
endif 
if UO.Weight>660 then 
return 
endif 
while not UO.InJournal("You pull") and not UO.InJournal("location") and not UO.InJournal("no fish") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in water") 
wait (100) 
if UO.InJournal("You pull") then 
UO.SetReceivingContainer('Bag') 
UO.findtype('0x09CC','0x0000','ground') ;fish 
UO.grab ('3','finditem') 
wait (200) 
UO.findtype('0x09CD','0x0000','ground') ;fish 
UO.grab ('3','finditem') 
wait (200) 
UO.findtype('0x09CE','0x0000','ground') ;fish 
UO.grab ('3','finditem') 
wait (200) 
UO.findtype('0x09CF','0x0000','ground') ;fish 
UO.grab ('3','finditem') 
wait (200) 
UO.findtype('0x14EB','0x0000','ground') ;tattered map 
UO.grab ('1','finditem') 
wait (200) 
UO.findtype('0x0DD6','0x05F6','ground') ;Truly rare fish 
UO.grab ('1','finditem') 
wait (200) 
UO.findtype('0x0DD6','0x01BB','ground') ;Prize fish 
UO.grab ('1','finditem') 
wait (200) 
UO.UnSetReceivingContainer() 
end if 
wend 
wend 
UO.DeleteJournal() 
next 
next 
wend <-------------------------- цыкл
end sub
Top
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:
Contact Scripts Writer

Post by Scripts Writer »

Цикл
Top
CuHTpoH
Posts: 287
Joined: 2007-11-01 19:09:30
Location: Moscow
Contact:
Contact CuHTpoH

Post by CuHTpoH »

а чо спецально без отступов пишете?))))
**Выставляем отступы в скриптах*** ©Destruction
Feel the Power of Dark Side
Top
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

Scripts Writer wrote:Цикл


простите за то что я криво пишу
спасибо опере 10 за спел чек
только вот в ноутпаде нету его =(
Top
Post Reply

Return to “Scripting Ore”