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

help со цкриптом на фишинг
http://forum.yoko.com.ua/viewtopic.php?f=3&t=1186		 Page 1 of 1
Author:  moon1 [ 2004-08-22 05:00:06 ]
Post subject:  help со цкриптом на фишинг
######################×òî íóæíî ïîìåíÿòü, ÷òîáû ðàáîòàëî?#######################
### 0. Ðóííáóêà: 1-3 ðóíêè â ìåñòà ëîâëè, 4àÿ-äîìîé ### ###
### 1. Ïîìåíÿòü íèæå ïðåâåäåííûå ïåðåìåííûå ###
### 2. Ñêà÷àòü ïîñëåäíèé injection.dll(íå îáÿçàòåëüíî, íî íå ïîìåøàåò) ###
################################################################################
VAR Cont1 = '0x401BE833' ;ñåéô, ãäå áóäóò êàðòû(id)
VAR Runebook = '0x401B5D8B';ðóííáóêà(id)
VAR Rune = '0x4010BE40' ;ðóíêà ê áåçîïàñìíîìó ìåñòó(id)
VAR dagger = '0x0F51' ;äàããåð(type)
VAR pole = '0x0DBF' ;óäî÷êà(type)
VAR foodT = '0x160A' ;åäà, êîòîðóþ áóäåì êóøàòü(type)
var i, time, k=0, where=1, fizl=0, control=8
Var OLDX, OLDY
sub main()
var x, y, z=UO.GetZ("self")
DIM text[7]
text[1] = 'You pull out a'
text[2] = 'You fish a while'
text[3] = 'That is too far away'
text[4] = 'Try fishing in water'
text[5] = 'There are no fish here'
text[6] = 'location'
While True
for x=-6 to 6
for y=-6 to 6
Repeat
UO.DeleteJournal()
if UO.Weight>UO.STR*4 then
Razgruz(1)
endif
GoHome(0)
Careful()
ToHide()
UO.WaitTargetTile("1341",STR(UO.GetX()+x),STR(UO.GetY()+Y),z)
UO.UseType(pole)
time=UO.Timer()
Repeat
wait(500)
Until UO.InJournal(text[1]) OR UO.InJournal(text[2]) OR UO.InJournal(text[3]) OR UO.InJournal(text[4]) OR UO.InJournal(text[5]) OR UO.InJournal(text[6]) OR UO.Timer()>time+250
if UO.InJournal(Text[1]) then
Razgruz(2)
fizl=0
endif
if UO.InJournal(text[2]) then
fizl=fizl+1
endif
if fizl==control then
wait(8000)
fizl=0
endif
Food()
Until UO.InJournal(text[3]) OR UO.InJournal(text[4]) OR UO.InJournal(text[5]) OR UO.InJournal(text[6])
next
next
Wend
end sub

sub ToHide()
while NOT UO.Hidden()
UO.DeleteJournal()
UO.Exec('warmode 0')
UO.UseSkill('Stealth')
wait(2000)
time=UO.Timer()
repeat
wait(500)
until UO.InJournal('You have hidden') OR UO.InJournal('seem to') OR UO.InJournal('preoccupied') OR time+200<UO.Timer()
Careful()
wend
end sub

sub Careful()
var count=0
UO.Set('finddistance','20')
UO.IgnoreReset()
UO.Ignore('self')
UO.FindType('0x0190',-1,1)
count=UO.FindCount()
UO.FindType('0x0191',-1,1)
count=count+UO.FindCount()
if count>0 then
RuneRecall()
if where==3 then
where=1
else
where=where+1
endif
Razgruz(1)
GoHome(1)
endif
end sub

sub Razgruz(id)
DIM find[7]
find[1] = '0x09CC'
find[2] = '0x09CD'
find[3] = '0x09CE'
find[4] = '0x09CF'
find[5] = '0x14EB' ;tattered map
find[6] = '0x0DD6' ;Truly rare fish and Prize fish
if id==1 then
for i=1 to 4
While UO.Count(find[i])>0
UO.WaitTargetType(find[i])
UO.UseType(dagger)
FastLootCheck()
Wend
next
else
UO.Set('finddistance','2')
for i=1 to 6
UO.Findtype(find[i],-1,1)
if UO.FindCount()>0 then
UO.MoveItem('finditem',0,'backpack')
return
endif
next
endif
end sub

sub GoHome(level)
DIM razg[4]
razg[1] = '0x14EB' ;tattered map
razg[2] = '0x0DD6' ;Truly rare fish and Prize fish
razg[3] = '0x097A' ;fish stake
if (UO.Count(razg[1])>10 OR UO.Count(razg[3])>UO.STR*3*10 OR level==1) then
RunebookRecall(4)
for i=1 to 3
While UO.Count(razg[i])>0
UO.FindType(razg[i],-1,-1)
UO.MoveItem('finditem',0,Cont1)
FastLootCheck()
Wend
next
RunebookRecall(where)
endif
end sub

sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
Repeat
wait(200)
Until UO.InJournal('backpack')
end sub

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

sub Food()
if k==100 then
UO.DeleteJournal()
repeat
UO.UseType(foodT)
wait(500)
until UO.InJournal('simply too full')
k=1
else
k=k+1
endif
end sub

sub RuneRecall()
oldX=UO.GetX()
oldY=UO.GetY()
Repeat
UO.DeleteJournal()
UO.WaitTargetObject(Rune)
UO.UseType('0x1F4C')
time=UO.Timer()
Repeat
wait(500)
Until oldX<>UO.GetX() OR oldY<>UO.GetY() OR UO.InJournal('The spell fizzles') OR time+200<UO.Timer()
Until oldX<>UO.GetX() and oldY<>UO.GetY()
end sub

sub RunebookRecall(n)
oldX=UO.GetX()
oldY=UO.GetY()
NoTarget()
UO.UseObject(Runebook)
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 NoTarget()
if UO.Waiting() then
UO.CancelTarget()
endif
end sub
извини за ероглифи но ето не так вазно.
у мена проблема с етим скриптом: он ловит рибу потом,когда обловил одну то4ку кудатро идет, не понатно куда.
2 вопроса: 1 куда он идет
2 помогите убрат ето хоздение вообсе или поправить его.
извините за кривои язик т.к. нет русскои клави.

ЗАРАНЕЕ БЛАГОДАРЕН
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/