//Auto-drydock script, 1.0
//By Rudenid
//This script will not work without my boat speedup script
//Installation instructions:
//Replace the i_shiphaste block in my speedup with this one.
//Copy the function into the same script as well.
//Resync and you're done.

[FUNCTION countclients]
VAR.CLIENTCOUNT=<EVAL <VAR.CLIENTCOUNT> + 1>

[ITEMDEF i_shiphaste]
ID=01ea7
TYPE=t_eq_script
NAME=Ship Speed Control

ON=@Timer
TAG.OLDLINK=<LINK>
TAG.LINKID=<LINK.ID>
TAG.LINKNAME=<LINK.NAME>
TAG.LINKMORE=<LINK.MORE>
TAG.LINKMORE1=<LINK.MORE1>
LINK=<MORE1>
IF !(<LINK.REGION.FLAGS>&region_flag_ship) //Don't do anything unless they're actually on board

LINK.NEWITEM i_model_ship
LINK.ACT.TYPE=t_deed
LINK.ACT.NAME=<TAG.LINKNAME>
LINK.ACT.MORE=<eval <TAG.LINKID>>
LINK.ACT.MORE2=<eval <TAG.LINKMORE1>>
LINK.ACT.CONT=<LINK.ACT.MORE2>
LINK.ACT.MORE2=0

TAG.LINKMORE1=

REGION.ALLCLIENTS GO <LINK.P>

LINK=<eval <TAG.OLDLINK>>
TAG.OLDLINK=
LINK.TAG.HASTEUID=
REMOVE
LINK.REMOVE
RETURN 1
ELSE
LINK=<eval <TAG.OLDLINK>>
TAG.OLDLINK=

VAR.CLIENTCOUNT=0
REGION.ALLCLIENTS countclients

VAR.TIMERCOUNT=<EVAL <EVAL <VAR.CLIENTCOUNT> / 3> + 1>
TIMERd=<EVAL <VAR.TIMERCOUNT> + 1>
LINK.TIMERd=<EVAL <VAR.TIMERCOUNT>>

RETURN 1
ENDIF