newman wrote:
Дайте скрипт на фишинг без всяких рунбук и все такого.
Что бпросто у воды стоял и ловил.
Что бпросто у воды стоял и ловил.
фишинг бывает с рб ?
ого...
Code:
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