Фишинг

[newman]

Дайте скрипт на фишинг без всяких рунбук и все такого.
Что бпросто у воды стоял и ловил.

[GrandMaster Ranger]

Дайте скрипт на фишинг без всяких рунбук и все такого.
Что бпросто у воды стоял и ловил.

фишинг бывает с рб ? ого...

Code: Select all

var tkill=4 
var SOSBP = "ground"
var MapBP = "ground"
sub var()
UO.exec('findtype 0x0dbf  -1 ground')
if UO.findcount()<>0 then
UO.SetGlobal('fishing pole','1')
else
UO.exec('findtype 0x0dbf -1 backpack')
if UO.findcount()==0 then
UO.Print(' áýêïàêå óäî÷åê íåò')
UO.exec('terminate main')
endif
endif
endsub

sub main()
DIM FishingStuff[6]
FishingStuff[0] = "0x09CC" # Grey Fish
FishingStuff[1] = "0x09CD" # Green Fish
FishingStuff[2] = "0x09CE" # Blue Fish
FishingStuff[3] = "0x09CF" # Yellow Fish
FishingStuff[4] = "0x099F" # SOS bottle
FishingStuff[5] = "0x14ED" # old tattered map
var()
UO.exec('warmode 0')
var a
UO.exec('terminate reconnector')
UO.exec('exec reconnector')
dim targ[35]
targ[1]="6039 4425 2530 223" 
targ[2]="0 4425 2529 223"
targ[3]="6040 4431 2531 223"
targ[4]="6042 4430 2531 223"
targ[5]="6042 4430 2531 223"
targ[6]="6039 4428 2531 223"
targ[7]="6044 4427 2531 223"
targ[8]="6041 4426 2530 223"
targ[9]="0 4427 2529 223"
targ[10]="6039 4428 2530 223"
targ[11]="6039 4428 2530 223"
targ[12]="6041 4429 2530 223"
targ[13]="6044 4430 2530 223"
targ[14]="6044 4431 2530 223"
targ[15]="0 4427 2523 223"
targ[16]="0 4428 2523 223"
targ[17]="0 4429 2523 223"
targ[18]="0 4429 2522 223"
targ[19]="0 4430 2522 223"
targ[20]="0 4431 2522 223"
targ[21]="0 4432 2523 223"
targ[22]="0 4431 2523 223"
targ[23]="0 4430 2523 223"
targ[24]="0 4429 2523 223"
targ[25]="0 4429 2523 223"
targ[26]="0 4428 2523 223"
targ[27]="0 4427 2523 223"
targ[28]="0 4426 2523 223"
targ[29]="0 4426 2524 223"
targ[30]="0 4427 2524 223"
targ[31]="0 4428 2524 223"
targ[32]="0 4429 2524 223"
targ[33]="6042 4430 2531 223"
targ[34]="6042 4430 2531 223"
targ[35]="6044 4430 2530 223"
UO.deletejournal()
while not UO.dead()
for a=1 to 35
UO.deletejournal()
If (UO.Weight > 370) Then
DropIt(FishingStuff)
EndIf
UO.Print('Nova9 To4ka! #'+str(a))
UO.Print('-------------------------')
save()
while not (uo.injournal("There doesn't seem to be any fish here")) or (uo.injournal("That is too far away")) or (uo.injournal("That location is not in your line of sight!"))
UO.Exec("waittargettile "+targ[a])
if NOT UO.ObjAtLayer("Lhand") then
UO.usefromground('0x0dbf')
else
UO.usetype('0x0dbf')
endif
else
UO.useobject(UO.ObjAtLayer("Lhand"))
endif
WFM("You catch a nice fish!","They don't seem to be biting today","There doesn't seem to be any fish here","You find","You catch some soggy footwear!","Oops, that's not a fish!")
wait(100)
wend
hungry()
next
wend
deathchk()
end sub

sub save()
if UO.injournal('Saving World State') then
UO.print('Çàäåðæêà ñêðèïòà íà 30 ñåê.')
UO.Print('-------------------------')
Wait(5000)
UO.deletejournal()
endif
deathchk()
end sub

sub deathchk()
if UO.dead() then
uo.print('Òû óìåð!')
UO.Print('-------------------------')
UO.Snap()
UO.exec('terminate all')
endif
end sub

sub redtest()
var f=0
var k=tkill
var nick=UO.getname('self')
repeat
repeat
if (uo.isnpc(uo.journalserial(f)) == 1) and (uo.getnotoriety(uo.journalserial(f)) == k) and (uo.getname(uo.journalserial(f))<>nick) then
def(uo.journalserial(f))
k=7
f=21
endif
k=k+1
until (k>6)
f=f+1
until (f>20)
end sub

sub def(h)
var tr=0
UO.serverprint('Òâîé íèê: '+uo.getname(h)+', ó òåáÿ åñòü 1 ñåê. ÷òîáû îòîéòè!')
uo.print('Èìÿ êðàñíîãî: '+uo.getname(h))
UO.snap()
UO.serverprint('.guards')
wait(3000)

UO.exec('warmode 0')
deathchk()
end sub

sub hungry()
uo.deletejournal()
var i
var k=0
var l=0
dim hungry[11]
hungry[0]="You are absolutely stuffed!"
hungry[1]="You are stuffed"
hungry[2]="You aren't hungry at all"
hungry[3]="You are a little hungry"
hungry[4]="You are somewhat hungry"
hungry[5]="You are REALLY hungry"
hungry[6]="Your stomash hurts"
hungry[7]="Your stomash hurts and you feel dizzy"
hungry[8]="You are starving"
hungry[9]="You are almost dying of hunger"
hungry[10]="You are DYING of hunger..."
uo.serverprint('.hungry')
proverka:
for i=0 to 10
if UO.injournal(hungry[i]) then
k=i
else
l=l+1
endif
next
if l==11 then
wait(1000)
goto proverka
endif
if (k<>0) and (k<>1) then
for i=1 to k-1
wait(500)
uo.usetype('0x097b')
wait(500)
next
endif
uo.deletejournal()
end sub

sub WFM(message,message2,message3,message4,message5,message6) 
UO.deletejournal()
var k=0
while not (uo.injournal(message)) and (k<200)
if uo.injournal(message2) then
k=200
endif
if uo.injournal(message3) then
k=200
endif
if uo.injournal(message4) then
k=200
endif
if uo.injournal(message5) then
k=200
endif
if uo.injournal(message6) then
k=200
endif
wait(100)
redtest()
save()
k=k+1
wend 
end sub

sub Reconnector()
var RFlag
RFlag = 1
Repeat
While (UO.ObjAtLayer('Bpack') == '')
if RFlag Then
RFlag = 0
endif
Wait(20000) # WorldSave Protection
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.LClick(616,459)
Wait(3000) 
WEnd
Wait(3000)
if (RFlag == 0) Then

RFlag = 1
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 Stack(StackType)
var GroundItem, PackItem
PackItem = ''
GroundItem = ''
if UO.Count(StackType) then
PackItem = '^'+StackType
endif
if UO.CountGround(StackType) then
GroundItem = '~'+StackType
endif
if ((PackItem <> '') and (GroundItem <> '')) then
UO.MoveItem(PackItem,STR(UO.GetQuantity(PackItem)),GroundItem,'0','0','0')
else
UO.DropHere('^'+StackType)
Endif
end sub

sub DropIt(WTF)
var DropCnt
For DropCnt = 0 to 3
if UO.Count(WTF[DropCnt]) Then
Stack(WTF[DropCnt])
EndIf
Next
While (UO.Count(WTF[4]) > 0)
UO.MoveItem('^'+WTF[4],'1',SOSBP)
Wait(400)
WEnd
While (UO.Count(WTF[5]) > 0)
UO.MoveItem('^'+WTF[5],'1',MapBP)
Wait(400)
WEnd
end sub

[omi4]

Code: Select all

sub Fishing()
	var MaxRange = 4, TrTime
	for var Y = MaxRange - ( MaxRange * 2 ) to MaxRange
		for var X = MaxRange - ( MaxRange * 2 ) to MaxRange
			if IsWater(UO.GetX()+X, UO.GetY()+Y) then
				repeat
					if UO.Weight >= 40 + UO.STR * 3.5 then
						return 1
					endif
					if UO.Dead() then
						return 1
					endif
					UO.WarMode(0)
					while not UO.Hidden()
						UO.UseSkill('Hiding')
						repeat
							wait(100)
						until UO.InJournal("You have|You can`t")
						UO.DeleteJournal()
					wend
					UO.WaitTargetTile(IsWater(UO.GetX()+X, UO.GetY()+Y), UO.GetX()+X, UO.GetY()+Y, -5)
					UO.UseObject('_0x0DC0')
					TrTime = UO.Timer()
					repeat
						wait(100)
					until UO.InJournal("no fish here|You fish a while|location|far away|in water|You pull|elsewhere|found|perform") || UO.Timer() > TrTime+120
					if UO.InJournal("You pull") then
						UO.MoveItem("~0x09CC")
						UO.MoveItem("~0x09CF")
						UO.MoveItem("~0x09CE")
					endif
				until UO.InJournal("no fish here|location|far away|in water|elsewhere") || UO.Timer() > TrTime+120
			endif
		next
	next
	end sub

	sub IsWater(X,Y) 
	if UO.PrivateGetTile(X, Y, -1, 6039, 6065) then 
		for var i=6039 to 6065 
			if UO.PrivateGetTile(X, Y, -1, i, i) then
				if i<>6047 && i<>6051 && i<>6052 && i<>6053 && i<>6054 && i<>6057 && i<>6060 && i<>6063 then
					return i
				endif
			end if 
		next 
	end if 
	return 0 
end sub  

[CONDOMchick]

Ловля рыбы со складыванием в сундук. (лучше для прокачки).

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 

Ловля только карт. (лучше для заработка)

Code: Select all

sub Maps_only()  
var mx, my, mz, i, j  
mx = UO.GetX('self')  
my = UO.GetY('self')  
mz = UO.GetZ('self')  
UO.DeleteJournal()  
while true  
for i = mx-6 to mx+6  
for j = my -6 to my+6  
UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j))  
while not UO.InJournal("no fish here") and not UO.InJournal("fishing in water")  
UO.DeleteJournal()  
UO.Waittargettile("6043", str(i), str(j), str(mz))  
UO.Usetype('0x0DBF')  
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  
if UO.InJournal("You pull") then  
#UO.WaitTargetGround('0x09CC') ; fish1  
#wait(500)  
#UO.Grab()  
 
#UO.WaitTargetGround('0x09CD') ; fish2  
#wait(500)  
#UO.Grab()  
 
#UO.WaitTargetGround('0x09CE') ; fish3  
#wait(500)  
#UO.Grab()  
 
#UO.WaitTargetGround('0x09CF') ; fish4  
#wait(500)  
#UO.Grab()  
 
#UO.WaitTargetGround('0x0DD6') ; small fish  
#wait(500)  
#UO.Grab()  
 
UO.WaitTargetGround('0x14EB') ; maps  
wait(500)  
UO.Grab() 
next 
next 
endif 
 
wend  
UO.DeleteJournal()  
next  
next  
endif 
wend  
Endsub