;==================================
; Script Name: Dilbert''s Corsair
; Author: Dilbert
; Version: 1.12f
; Client Tested with: 4.07b
; EUO version tested with: 1.42.009b
; Shard OSI / FS: OSI
; Revision Date: 16 Jan 2005
; Public Release: 27 Nov 2003
; Purpose: menu driven 8x8 boat tool, keeps channel, unblocks, dynamic training delay
; premade subs for training magery, chiv, necro, spirit, hiding
;==================================
;?COPYRIGHT Dilbert 2003
;You MAY NOT PUBLISH any script that uses this code, OR any derivative work without written permission from Dilbert.
;You may only use this for private, unpublished work.
;You may NOT DISTRIBUTE this script, its available to everyone at http://www.easyuo.com/forum/viewtopic.php?p=14827#14827
;==================================
SET %debug #false
SET %version 1.12f
;*************************************************
;********* I N I T I A L I S A T I O N **********
;************************************************* 
initevents 
SET %sound #true
;active medi decision
chooseskill meditation
IF #skill > 50
SET %medi yes 
SET %traindelay 1 
;open status gump
event macro 8 7 
SET %instruments _LQF_MQF_QRF_OQF_KRF_PRF_RGP_NRF
SET %speed normal
SET %oldcharposY #charposY
SET %skilltimeout #time
SET %progress #time
SET %unblock on
SET %dodge on
SET %sailstatus sailing
SET %gainchainretry 0
SET %maxgainchainretry 5
SET %BestGainCnt 0
SET %speed slow
SET %trainsub N/A
SET %tillermantype ENX_HNX_JNX_ONX
;tillernorth is a tillerman on a ship FACING north
SET %tillernorth ENX
SET %tillersouth HNX
SET %tillerwest JNX
SET %tillereast ONX
;hatchnorth is a hatch on a ship FACING north
SET %hatchnorth UVX
SET %hatchsouth LWX
SET %hatchwest ZUX
SET %hatcheast ZNX
SET %tillermantype ENX_HNX_JNX_ONX
SET %masttype PSX_ETX_YNX_IOX
SET %plankNStype GWX_DWX_ISX_HSX
SET %plankWEtype SUX_DUX_EUX_PUX
SET %shipkeytypes _SEG_REG_CFG_DFG
SET %MageryPenalty #false
SET %MageryPenaltyActive #false
SET %mageweapon mage , #spc , weapon
SET #menubutton n/a
SET %WpTL OSF_LSF_MSF_BSF_ISF_NSF_CSF_ZRF_ASF_FSF_SMH_RMH_MPH_LPH_KSF_
+HSF_ZTO_LPO_NPO_XPO_YTH_XTH_EDP_GUO_KPO_BUO_VPO_FDP_ZCP_CUO_WPO_
+AQF_PPF_HDP_YRH_XRH_LTF_MTF_LDP_GFF_FFF_PMH_QMH_IDP_CQF_ZPF_EMH_DMH_
+DDP_ADP_QPO_SPO_PPO_RPO_XCP_
SET %WpTR KDP_FUO_JPO_ZSF_ATF_FMH_GMH_INF_HNF_KPH_JPH_OMH_NMH_
+KTF_JTF__CPH_NPF_QPF_POH_SOH_BNF_CNF_EPH_BPH_YCP_TSF_WSF_WRH_
+VRH_OPO_YPO_SRH_RRH_QOH_VOH_WTH_VTH_XSF_YSF_HFF_CFF_IFF_BFF_CUH_BUH_
+AUO_MPO_TLH_OLH_GBG_FBG_UOH_JOH_URH_TRH_TOH_WOH_USF_JSF_MMH_LMH_AUH_ZTH_
SET %WpT %WpTR , %WpTL

GOSUB initmenu
GOSUB initship
ignoreitem %tillerman 1
GOSUB RefreshShip
GOSUB CheckKey
GOSUB drawship
GOSUB stop
GOSUB shard
WAIT 20
;loop:
;GOSUB SailToCell 635 205
;goto loop:
;halt
GOSUB status Orders_Captain?
INITLOOP:
GOSUB MenuAction
GOSUB drawship
GOSUB channelcheck
IF %trainsub = N/a
GOTO initloop