Fishing skript + reconnector

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
CHYVAKs
Posts: 46
Joined: 2005-03-16 10:14:15

Fishing skript + reconnector

Post by CHYVAKs »

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") 
while not uo.dead() 
UO.DeleteJournal() 
for i = mx-6 to mx+6 
for j = my -6 to my+6 
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('0x09CC','0x0445','ground') ;golden fish 
UO.grab ('3','finditem') 
wait (200) 
UO.findtype('0x14EB','0x09B1','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

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 all') 
;UO.Exec('exec autoload') 
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


Ubediteljnaja prosjba dobavitj v skript chtobi on posle reconnecta prodolzil lovitj ribu... :!:
Top
Destruction
Junior Expert
Posts: 3221
Joined: 2004-06-24 22:08:56

Post by Destruction »

Code: Select all

UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)

Нарисовать после:

Code: Select all

uo.exec("exec Fishing")


Прочти прикреплённый топик с правилами, там описано куда надо пихать коды !!!
Top
dagmatik
Posts: 7
Joined: 2006-02-16 22:34:23
Contact:
Contact dagmatik

Re: Fishing skript + reconnector

Post by dagmatik »

CHYVAKs wrote:

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") 
while not uo.dead() 
UO.DeleteJournal() 
for i = mx-6 to mx+6 
for j = my -6 to my+6 
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('0x09CC','0x0445','ground') ;golden fish 
UO.grab ('3','finditem') 
wait (200) 
UO.findtype('0x14EB','0x09B1','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

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 all') 
;UO.Exec('exec autoload') 
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


Ubediteljnaja prosjba dobavitj v skript chtobi on posle reconnecta prodolzil lovitj ribu... :!:


я хотелбы следующий скрипт чтоб чар ловил рыбу потом если попадаеться рыба переходил к другой отметки оставляя рыбу на полу а ежели карту выловил то подбирал её ежели физл то он продолжал ловить до тех пор пока чтонибуть не выловил я даже понятие не имею как зделать такой скрипт )) спосибо заранее!
Top
RiFeX aka Maybek
Posts: 56
Joined: 2005-02-27 19:47:55
Contact:
Contact RiFeX aka Maybek

Post by RiFeX aka Maybek »

М?
Сие чудо именно это и делает :roll: :wink:
Nostalgia...
Top
dagmatik
Posts: 7
Joined: 2006-02-16 22:34:23
Contact:
Contact dagmatik

Post by dagmatik »

мне не надо чтоб он продолжал ловить в томже мести если выловил рыбу а приступал к следующему месту !
Top
RiFeX aka Maybek
Posts: 56
Joined: 2005-02-27 19:47:55
Contact:
Contact RiFeX aka Maybek

Post by RiFeX aka Maybek »

dagmatik wrote:мне не надо чтоб он продолжал ловить в томже мести если выловил рыбу а приступал к следующему месту !
Глухо как в танке? Линк, который я тебе дал не ловит рыбу :roll:
Nostalgia...
Top
dagmatik
Posts: 7
Joined: 2006-02-16 22:34:23
Contact:
Contact dagmatik

Post by dagmatik »

RiFeX aka Maybek wrote:
dagmatik wrote:мне не надо чтоб он продолжал ловить в томже мести если выловил рыбу а приступал к следующему месту !
Глухо как в танке? Линк, который я тебе дал не ловит рыбу :roll:
а чтож он по твоему делает у меня всё подряд ловит а карты ложет в мешёк мне такойже надо но чтоб токо рыбу пропускал (выловил рыбу в другом месте попробывал а не ловил рыбу а карты в мешёк ложил у меня так покрайне мере !)
Top
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:
Contact GimFlex

Post by GimFlex »

Code: Select all

### 
#Описание и настройка 
### 
#Скрипт настроен под дрв а точнее рунбука =) 
# 
#у чара в паке 3 рунбуки, 1 и 2 рунбуки забиты полностью 
#рунами к местам ловли, в 3 рунбуке 1 руна домой к сейфам. 
#Чар реколится по всем рункам в 1 рунбуке и рыбачет затем 
#портится к сейфам по 3 рунбуке выкладывает карты в первый 
#сэйф перезаряжает рунбук с помощью реколов которые лежат 
#во 2 сэйфе потом проверяет если в первом сэйфе >200 карт 
#берет из него мешок кидает туда 200 карт и перекладывает во 
#2 сэйф портится по 2 рунбуке и опять рыбачет портится назад 
#потом теже проверки, речардж, кушает фиш стэйками и опять 
#реколится по первой рунбуке и так циклично 
## 
#для правильной работы укажите все переменные ниже 
#!!! в первом сэйфе у вас лежат пустые мешки одного типа и 
#выловленные карты 
#!!! во втором сэйфе лежат реколы еда и наполненные картами 
#мешки 
## 
#проверки на пк нет так как сам скоко ловил пк не видел да 
#и существует много место в гз где можно ловить. 
#удачи  
#from Question with smile 
#ЛОВЯТСЯ ТОЛЬКО КАРТЫ!!! 

var book1='0x4018DB5A' #рунбука 1 
var book2='0x4018DB59' # 2-ая 
var book3='0x40127980' # 3 яя 
var seifformap1='0x4030491C' # 1 сэйф 
var seifformap2='0x40347406' # 2-ой 
var recall='0x1F4C' # тип рекола 
var meshok='0x0E75' # тип пустых мешков 
var mapa='0x14EB' # тип мапы нерасшифрованной 
var ydochka='0x0DBF' # тип удочки 
var time 
var tEat='0x097B' # тип еды(фишстэйки) 

sub main() 
var i 
while not uo.dead() 
for i=1 to 9 
repeat 
port(i,book1) 
fish() 
next 
port(1,book3) 
unload() 
recharg(seifformap2,book1) 
kolmap() 
for i=1 to 9 
repeat 
port(i,book2) 
fish() 
next 
port(1,book3) 
unload() 
recharg(seifformap2,book2) 
kolmap() 
ToEat() 
wend 
endsub 

sub port(n,book) 
var oldX=UO.GetX() 
var oldY=UO.GetY() 
NoTarget() 
UO.UseObject(book) 
FastLootCheck() 
CheckLag() 
UO.LClick(135, n*15+55) 
time=UO.Timer() 
Repeat 
wait(500) 
Until oldX<>UO.GetX() OR oldY<>UO.GetY() OR time+200<UO.Timer() 
end sub 

sub FastLootCheck() 
UO.DeleteJournal() 
wait(600) 
if UO.InJournal("FastLoot") OR UO.InJournal("World save") then 
CheckLag() 
endif 
end sub 

sub NoTarget() 
if UO.Waiting() then 
UO.CancelTarget() 
endif 
end sub 

sub fish() 
hiding() 
var i,j, isfishing 
var mx = UO.GetX('self') 
var my = UO.GetY('self') 
var mz = UO.GetZ('self') 
UO.DeleteJournal() 
repeat 
for i = mx-6 to mx+6 
for j = my-6 to my+6 
isfishing = 1 
while not UO.InJournal("no fish here") and not UO.InJournal("fishing in water") and isfishing 
UO.DeleteJournal() 
UO.Waittargettile("1341", str(i), str(j), str(251)) 
UO.Usetype(ydochka) 
while not UO.InJournal('You pull out') and not UO.InJournal('fail') and not UO.InJournal('no fish') and not UO.InJournal("fishing in water") 
wait(100) 
wend 
proverka() 
if not UO.Hidden('self') then 
hiding() 
end if 
proverka() 
if UO.InJournal("treasure") then 
UO.findtype(mapa,'0x0000','ground') 
UO.moveitem('finditem','-1','backpack') 
end if 
if UO.InJournal("out a fish") then 
isfishing = 0 
end if 
wend 
UO.DeleteJournal() 
next 
next 
until 1 
end sub 


sub CheckLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(50) 
until UO.InJournal('backpack') 
endsub 

sub hiding() 
UO.Warmode("0") 
while not UO.Hidden() 
UO.DeleteJournal() 
UO.UseSkill("Hiding") 
while NOT UO.InJournal("You") 
wait(1000) 
wend 
wend 
end sub 

sub unload() 
hiding() 
UO.FindType(mapa, '-1', 'backpack') 
while UO.GetQuantity('finditem') > 0 
UO.MoveItem('finditem','-1',seifformap1) 
CheckLag() 
Wait(700) 
UO.FindType(mapa,'-1','backpack') 
wend 
endsub 

sub proverka() 
if uo.injournal("attacking") and uo.injournal("you") then 
uo.say("guards") 
endif 
if UO.Life<150 then 
uo.say("guards") 
endif 
endsub 

sub recharg(syndyk,kniga) 
uo.useobject(syndyk) 
uo.findtype(recall,'-1',syndyk) 
wait(3000) 
uo.moveitem('finditem','9','backpack') 
wait(3000) 
uo.UseObject(kniga) 
wait(3000) 
uo.Lclick(296,91) 
endsub 

sub kolmap() 
var k 
var meshochek 
uo.useobject(seifformap1) 
uo.findtype(mapa,'-1',seifformap1) 
if uo.findcount()>=200 then 
uo.findtype(meshok,'-1',seifformap1) 
meshochek=uo.getserial('finditem') 
uo.moveitem('finditem','1','backpack') 
k=0 
while k<>200 
UO.FindType(mapa,'0x0000',seifformap1) 
UO.MoveItem('finditem','1',meshochek) 
CheckLag() 
wait(600) 
k=k+1 
wend 
uo.findtype(meshok,'-1','backpack') 
uo.moveitem('finditem','1',seifformap2) 
endif 
endsub 

sub ToEat() 
UO.UseObject(seifformap2) 
UO.FindType(tEat,'0x0000',seifformap2) 
if UO.FindCount() > 0 then 
UO.MoveItem('finditem','20','backpack') 
end if 
repeat 
CheckLag() 
uo.UseType(tEat) 
while not uo.InJournal("can't") and not uo.InJournal('full') and not uo.InJournal('stuffed') and not uo.InJournal('hungry') and not uo.InJournal('satiated') and not UO.Dead() 
wait(100) 
wend 
until uo.InJournal('too full') or UO.Dead() 
UO.FindType(tEat, '0x0000','backpack') 
if UO.FindCount() > 0 then 
UO.MoveItem('finditem','20',seifformap2) 
end if 
end sub
Last edited by GimFlex on 2006-05-04 06:07:01, edited 1 time in total.
Top
dagmatik
Posts: 7
Joined: 2006-02-16 22:34:23
Contact:
Contact dagmatik

Post by dagmatik »

###
#Описание и настройка
###
#Скрипт настроен под дрв а точнее рунбука =)
#
#у чара в паке 3 рунбуки, 1 и 2 рунбуки забиты полностью
#рунами к местам ловли, в 3 рунбуке 1 руна домой к сейфам.
#Чар реколится по всем рункам в 1 рунбуке и рыбачет затем
#портится к сейфам по 3 рунбуке выкладывает карты в первый
#сэйф перезаряжает рунбук с помощью реколов которые лежат
#во 2 сэйфе потом проверяет если в первом сэйфе >200 карт
#берет из него мешок кидает туда 200 карт и перекладывает во
#2 сэйф портится по 2 рунбуке и опять рыбачет портится назад
#потом теже проверки, речардж, кушает фиш стэйками и опять
#реколится по первой рунбуке и так циклично
##
#для правильной работы укажите все переменные ниже
#!!! в первом сэйфе у вас лежат пустые мешки одного типа и
#выловленные карты
#!!! во втором сэйфе лежат реколы еда и наполненные картами
#мешки
##
#проверки на пк нет так как сам скоко ловил пк не видел да
#и существует много место в гз где можно ловить.
#удачи 8)
#from Gim with smile
#ЛОВЯТСЯ ТОЛЬКО КАРТЫ!!!

var book1='0x4018DB5A' #рунбука 1
var book2='0x4018DB59' # 2-ая
var book3='0x40127980' # 3 яя
var seifformap1='0x4030491C' # 1 сэйф
var seifformap2='0x40347406' # 2-ой
var recall='0x1F4C' # тип рекола
var meshok='0x0E75' # тип пустых мешков
var mapa='0x14EB' # тип мапы нерасшифрованной
var ydochka='0x0DBF' # тип удочки
var time
var tEat='0x097B' # тип еды(фишстэйки)

sub main()
var i
while not uo.dead()
for i=1 to 9
repeat
port(i,book1)
fish()
next
port(1,book3)
unload()
recharg(seifformap2,book1)
kolmap()
for i=1 to 9
repeat
port(i,book2)
fish()
next
port(1,book3)
unload()
recharg(seifformap2,book2)
kolmap()
ToEat()
wend
endsub

sub port(n,book)
var oldX=UO.GetX()
var oldY=UO.GetY()
NoTarget()
UO.UseObject(book)
FastLootCheck()
CheckLag()
UO.LClick(135, n*15+55)
time=UO.Timer()
Repeat
wait(500)
Until oldX<>UO.GetX() OR oldY<>UO.GetY() OR time+200<UO.Timer()
end sub

sub FastLootCheck()
UO.DeleteJournal()
wait(600)
if UO.InJournal("FastLoot") OR UO.InJournal("World save") then
CheckLag()
endif
end sub

sub NoTarget()
if UO.Waiting() then
UO.CancelTarget()
endif
end sub

sub fish()
hiding()
var i,j, isfishing
var mx = UO.GetX('self')
var my = UO.GetY('self')
var mz = UO.GetZ('self')
UO.DeleteJournal()
repeat
for i = mx-6 to mx+6
for j = my-6 to my+6
isfishing = 1
while not UO.InJournal("no fish here") and not UO.InJournal("fishing in water") and isfishing
UO.DeleteJournal()
UO.Waittargettile("1341", str(i), str(j), str(251))
UO.Usetype(ydochka)
while not UO.InJournal('You pull out') and not UO.InJournal('fail') and not UO.InJournal('no fish') and not UO.InJournal("fishing in water")
wait(100)
wend
proverka()
if not UO.Hidden('self') then
hiding()
end if
proverka()
if UO.InJournal("treasure") then
UO.findtype(mapa,'0x0000','ground')
UO.moveitem('finditem','-1','backpack')
end if
if UO.InJournal("out a fish") then
isfishing = 0
end if
wend
UO.DeleteJournal()
next
next
until 1
end sub


sub CheckLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
endsub

sub hiding()
UO.Warmode("0")
while not UO.Hidden()
UO.DeleteJournal()
UO.UseSkill("Hiding")
while NOT UO.InJournal("You")
wait(1000)
wend
wend
end sub

sub unload()
hiding()
UO.FindType(mapa, '-1', 'backpack')
while UO.GetQuantity('finditem') > 0
UO.MoveItem('finditem','-1',seifformap1)
CheckLag()
Wait(700)
UO.FindType(mapa,'-1','backpack')
wend
endsub

sub proverka()
if uo.injournal("attacking") and uo.injournal("you") then
uo.say("guards")
endif
if UO.Life<150 then
uo.say("guards")
endif
endsub

sub recharg(syndyk,kniga)
uo.useobject(syndyk)
uo.findtype(recall,'-1',syndyk)
wait(3000)
uo.moveitem('finditem','9','backpack')
wait(3000)
uo.UseObject(kniga)
wait(3000)
uo.Lclick(296,91)
endsub

sub kolmap()
var k
var meshochek
uo.useobject(seifformap1)
uo.findtype(mapa,'-1',seifformap1)
if uo.findcount()>=200 then
uo.findtype(meshok,'-1',seifformap1)
meshochek=uo.getserial('finditem')
uo.moveitem('finditem','1','backpack')
k=0
while k<>200
UO.FindType(mapa,'0x0000',seifformap1)
UO.MoveItem('finditem','1',meshochek)
CheckLag()
wait(600)
k=k+1
wend
uo.findtype(meshok,'-1','backpack')
uo.moveitem('finditem','1',seifformap2)
endif
endsub

sub ToEat()
UO.UseObject(seifformap2)
UO.FindType(tEat,'0x0000',seifformap2)
if UO.FindCount() > 0 then
UO.MoveItem('finditem','20','backpack')
end if
repeat
CheckLag()
uo.UseType(tEat)
while not uo.InJournal("can't") and not uo.InJournal('full') and not uo.InJournal('stuffed') and not uo.InJournal('hungry') and not uo.InJournal('satiated') and not UO.Dead()
wait(100)
wend
until uo.InJournal('too full') or UO.Dead()
UO.FindType(tEat, '0x0000','backpack')
if UO.FindCount() > 0 then
UO.MoveItem('finditem','20',seifformap2)
end if
end sub

описание тамже я про это имею ввиду искать карты называеться вот он родимы доделал я его ! )))
Top
Post Reply

Return to “Scripting Ore”