//////////////////////////////////////////////////////////////////////////////// // Drydock Ship Redeeding v1.2 - Mordaunt // // Redeed your ship with .drydock command (can be added to an event on the ship with a dialog or something.) // Any items in the ships hold(s) are sent to the owners bank & keys are removed. ///////////////////////////////////////////////////////////////////////////////// [PLEVEL 1] drydock [function drydock] SYSMESSAGE Target the tiller targetf dock [function dock] ref1 IF (==t_ship_tiller) IF (==) || () call chk_hold call rmv_keys serv.newitem i_deed_> new.bounce ref1.remove return 1 ELSE SYSMESSAGE Only the captain can dock this ship return 1 ENDIF ELSE SYSMESSAGE That's not a ship's tiller. ENDIF [function rmv_keys] ref1 FORINSTANCES i_key_copper if (==) remove endif ENDFOR [function chk_hold] ref1 local.1=>>> local.2=>>>> If ( > ) local.radius = else local.radius = endif foritems if ((==t_ship_hold_lock) || (==t_ship_hold)) && ==) ref2 forcont cont= endfor endif endfor