Qualcuno ha qualche bel script per far salire fishing????
tnx
tnx
;==================================
; Script Name: Auto Fisher
; Author: Goldfish
; Version: 2.00
; Client Tested with: 4.0.0.p
; EUO version tested with: 1.40 (0058)
; Shard OSI / FS: OSI
; Revision Date: October 30, 2003
; Public Release: October 13, 2003
; Purpose: A script that will fish and fish and fish and...
; Oh yeah it also chops up those fishes into steaks.
;==================================
initevents
set %nowater no
; === SETUP ===
display ok This script is designed to be run on a boat. Make sure you also have a
+ fishing pole and a dagger. If you are not ready please stop the script and do the above.
event Macro 8 1
wait 1s
set #contPosX 10
set #contPosY 10
wait 1s
event Macro 8 7
wait 1s
set %packID #contID
findItem KDF C
if #findKind = -1
{
display ok You do not have a fishing pole, the script will now halt.
halt
}
set %pole #findID
findItem KDF C
if #findKind = -1
{
display ok You do not have a dagger, the script will now halt.
halt
}
set %dagger #findID
click 243 279
set #lTargetID null
display ok Please target the tillerman.
set #targCurs 1
charloop:
if #lTargetID = null
{
goto charloop
}
set %clickX #cursorX - 52
set %clickY #cursorY + 78
display ok Please make sure your character is standing next to the tillerman. Also
+ make sure your character is not riding a mount.$
+ You have 5 seconds to do so.
wait 5s
display ok Setup complete. Please enjoy.
msg raise anchor$
; === END SETUP ===
fish:
set #lObjectID %pole
event Macro 17 0
target
click:
click %clickX %clickY d
for %checkClick 1 10
{
if #targCurs = 0
{
set %checkClick 10
goto success
}
}
goto click
success:
if %nowater = yes
{
display ok You have not targeted water, not next to water, or the script has failed and is now halting.
halt
}
scanjournal 1
if fish_while_riding in #journal
{
deleteJournal
display ok You cannot fish while riding a mount. Please get off your mount. $
+ The script will now halt.
halt
}
scanjournal 1
if but_fail_to_catch_anything in #journal
{
deleteJournal
wait 1
set %nowater no
event SysMessage Failed to catch anything, Fishing Again...
goto fish
}
scanjournal 1
if you_pull_out_an_item in #journal
{
deleteJournal
wait 1
event SysMessage Fish Caught, Re-fishing Area
set %nowater no
goto fish
}
scanjournal 1
if closer_to_the_water_to_fish in #journal
{
deleteJournal
if %nowater = pending
{
set %nowater yes
goto fish
}
wait 1
event SysMessage Not close to the water please move closer...
set %nowater pending
wait 3s
goto fish
}
scanjournal 1
if you_need_water_to_fish_in in #journal
{
deleteJournal
if %nowater = pending
{
set %nowater yes
goto fish
}
wait 1
event SysMessage No Water on target re-attempting fishing
set %nowater pending
wait 3s
goto fish
}
scanjournal 1
if seem_to_be_biting_here in #journal
{
deleteJournal
wait 1
event SysMessage No more fish, moving on...
msg slow forward$
wait 5s
msg stop$
set %nowater no
goto fish
}
scanjournal 1
if sea_serpent in #journal
{
deletejournal
msg slow forward$
wait 15s
msg stop$
set %nowater no
}
scanjournal 1
if water_elemental in #journal
{
deletejournal
msg forward$
wait 15s
msg stop$
set %nowater no
}
if #WEIGHT > #MAXWEIGHT - 10
{
gosub cut
}
goto success
sub cut
wait 5s
FQD:
finditem FQD C
if #findKind = -1
{
goto DQD
}
set %fishies #findType
set #lObjectID %dagger
event Macro 17 0
set #findMod 30_15
target
click #findX #findY
wait 1s
DQD:
finditem DQD C
if #findKind = -1
{
goto EQD
}
set %fishies #findType
set #lObjectID %dagger
event Macro 17 0
set #findMod 24_17
target
click #findX #findY
wait 1s
EQD:
finditem EQD C
if #findKind = -1
{
goto GQD
}
set %fishies #findType
set #lObjectID %dagger
event Macro 17 0
set #findMod 13_11
target
click #findX #findY
wait 1s
GQD:
finditem GQD C
if #findKind = -1
{
goto end
}
set %fishies #findType
set #lObjectID %dagger
event Macro 17 0
set #findMod 25_29
target
click #findX #findY
wait 1s
end:
set #findMod 0_0
if #WEIGHT > #MAXWEIGHT - 5
{
display ok You are too heavy to continue. The script will now halt.
halt
}

Commenta