BLACKman писал(а):Выложите еще плз макрос на фишинг буду очень рад
;==================================
; Script Name: Fishing
; Author: NeoN [EasyUO Club]
; Version: * âûðåçàíî öåíçóðîé *
; Client Tested with: 3.0.0c
; EUO version tested with: 1.42 (build 0088, 008A)
; Injection version tested with: Yokoinjection 40?.? (AoP maps2.)
; Shard: Age of Power only
; Revision Date: 22/11/2004
; Public Release: 22/11/2004
;==================================
IgnoreItem Reset
InitEvents
ContPos 750 330
Event Macro 8 7
wait 1s
Set %backpackID #ContID
Set %EatType HND
msg $'pc lang trans$
Ignores:
FindItem YFM
If #FindKind = -1
Goto Continue
IgnoreItem #FindID
Goto Ignores
Continue:
Gosub SetXY
UserOptions:
==================================
Set %MapLoc W \\ Áóêâà "n" - íàïðàâëåíèå áåðåãà!
==================================
Set %Stack_to_Unload_BlackPearl 300 \\ Êîëè÷åñòâî ÁÏ, ïðè êîòîðûì âûãðóæàòü âûëîâëåíîå
Set %Stack_to_Unload_Gold 3000 \\ Êîëè÷åñòâî Çîëîòà, ïðè êîòîðûì âûãðóæàòü âûëîâëåíîå
==================================
Set %CLX 1631 \\ X Êîîðäèíàòà Ñóíäóêà
Set %CLY 3512 \\ Y Êîîðäèíàòà Ñóíäóêà
==================================
Set %CID 0x64A047EC \\ ÈÄÈØÍÈÊ ÑÓÍÄÓÊÀ!!!!!
==================================
Gosub FishLocation 1633 3510 \\Òî÷êà áåðåãà 1
Gosub FishLocation 1627 3508 \\Òî÷êà áåðåãà 2
Gosub FishLocation 1637 3512 \\Òî÷êà áåðåãà 3
==================================
Goto UserOptions
Sub FishLocation
msg $,usetype HND $
Move %1 %2 0
Set %FishCount 0
Begin:
For %X %MinX %MaxX
{
For %Y %MinY %MaxY
{
Set %FishCount %FishCount + 1
Set #SysMsgCol 33
Event Sysmessage Fish - %FishCount
Set %EndTimer #Scnt + 25
msg $'pc fish %X %Y $
Set %Return 0
Set %Unloaded 0
HarvesT:
Gosub Check
If %Return = 1
Goto EndIf
If %Unloaded = 1
Goto EndIf
Goto HarvesT
EndIf:
}
}
Return
Sub Check
Gosub CheckForNPC
Gosub CheckForHits Wait
Gosub CheckForStam
Gosub CheckForStackToUnload
Gosub ScanJournal
Gosub Timer
wait 4s
Return
Sub Timer
If %Timer < #Scnt
Set %Return 1
Return
Sub ScanJournal
ScanJournal 1
If ZDESX_NET. in #Journal
Set %Return 1
If #SysMsg = N/A
Set %Return 1
deleteJournal
Return
Sub CheckForStackToUnload
UnloadCheckBP:
FindItem KUF
If #FindKind = -1
Goto UnloadCheckGold
If #FindKind = 1 2
Ignoreitem #Findid
Goto UnloadCheckBP
If #FindStack > %Stack_to_Unload_BlackPearl 3
Set %OldX #CharPosX
Set %OldY #CharPosY
Goto UnloadMax
UnloadCheckGold:
FindItem POF
IF #FindKind = -1
Return
If #FindKind = 1 2
Ignoreitem #Findid
Goto UnloadCheckBP
If #FindStack > %Stack_to_Unload_Gold 3
Set %OldX #CharPosX
Set %OldY #CharPosY
Goto UnloadMax
Return
ReturnToFish:
Set %Unloaded 1
EatType:
FindItem %EatType C_ , %backpackID
if #FindKind = -1
Goto GetEat
If #FindStack < 3
Goto GetEat
FP:
FindItem XHF C_ , %backpackID
If #FindKind = -1
Goto GetFP
Bandages:
FindItem ZLF C_ , %backpackID
If #FindKind = -1
Goto GetBandages
If #FindStack < 8
Goto GetBandages
ElseReturn:
Move %OldX %OldY 0
Return
GetBandages:
msg $,useobject %CID %
wait 1s
FindItem ZLF C_ , %CID
If #FindKind = -1
Goto ElseReturn
msg $,grab 20 #FindID $
Goto ElseReturn
GetFP:
msg $,useobject %CID $
wait 1s
GetFP2:
FindItem XHF C_ , %CID
If #FindKind = -1
{
Event sysmessage Fishing Pole not found
Stop
}
msg $,grab 0 #FindID $
wait 1s
Goto Bandages
GetEat:
msg $,useobject %CID $
wait 1s
GetEat2:
FindItem %EatType C_ , %CID
If #FindKind = -1
{
Event Sysmessage Eat Not Found...
Goto FP
}
msg $,grab 3 #FindID $
wait 1s
Goto FP
UnloadMax:
Move %CLX %CLY 0
FindItem KUF_POF_XVH
If #FindKind = -1
Goto ReturnToFish
If #FindKind = 1 2
Ignoreitem #FindID
Goto UnloadMax
msg $,moveitem #Findid 0 %CID $
IgnoreItem #FindID
wait 15
Goto UnloadMax
CheckForLoot:
FindItem YFM
If #FindKind = -1
{
Move %OldX %OldY 0
Return
}
Set %Corpse #FindID
Set %CPSX #FindX - 1
Set %CPSY #FindY - 1
Move %CPSX %CPSY 0 3s
FindItem %Corpse
If #FindDist > 2
{
Ignoreitem %Corpse
Goto CheckForLoot
}
Set #lObjectID #FindID
Event Macro 17 0
wait 1s
LootNPC:
FindItem POF C_ , #ContID
If #FindKind = -1 2
IgnoreItem %Corpse
Goto CheckForLoot
msg $,grab 0 #FindID $
wait 20
Goto LootNPC
Sub CheckForStam
If #Stamina < 10 2
Gosub Reset
msg $'pc quaf refresh $
Return
Sub CheckForNPC
CheckForNPC:
FindItem OD_BD_KI
If #FindKind = -1
Goto CheckForLoot
Set %OldX #CharPosX
Set %OldY #CharPosY
Set %Return 1
Set #lTargetID #FindID
Move #FindX #FindY 0 1s
Event Macro 27 0
If %HealTimer = N/A
Set %HealTimer 0
If %HealTimer < #ScnT
Gosub CheckForHits FastReturn
Goto CheckForNPC
Sub Reset
For %WarMoveCount 1 2
{
Event Macro 6 0
wait 10
}
Wait 2s
Return
Sub CheckForHits
If %1 = FastReturn
Goto WithFastReturn
IF %1 = Wait 2
Goto WithoutFastReturn
WithoutFastReturn:
If #hits < %MaxHits
Gosub Reset
Heal:
IF #Hits < %MaxHits
{
msg $'pc heal self $
wait 3s
If H notin #CharStatus
Event Macro 13 21
wait 5s
Goto Heal
}
Goto End
WithFastReturn:
IF #Hits < %MaxHits
{
msg $'pc heal self $
Set %HealTimer #SCNT + 8
}
Goto End
Sub SetXY
Set %MaxHits #MaxHits - 10
Goto SetLocation_ , %MapLoc
SetLocation_N:
Set %MinX -4
Set %MaxX 4
Set %MinY -4
Set %MaxY -1
Goto End
SetLocation_E:
Set %MinX 1
Set %MaxX 4
Set %MinY -4
Set %MaxY 4
Goto End
SetLocation_S:
Set %MinX -4
Set %MaxX 4
Set %MinY 1
Set %MaxY 4
Goto End
SetLocation_W:
Set %MinX -4
Set %MaxX -1
Set %MinY -4
Set %MaxY 4
End:
Return
