///////////////////////////////////////////////////////////////////////
// *Scripter Name : Raskol Serna
// *Shard Name : The Rosario Game
// *Shard Address : www.rosario.gen.tr
// *Personal Address : www.raskolserna.com
// *Messenger and E-Mail : raskolserna@msn.com
// *Sphere Version : Specially 0.56b and maybe other releases
//
// *Bu kodlar TheRaskol tarafından yazılmış veya editlenmiştir.
// *The codes are written or were edited by TheRaskol (Raskol Serna).
///////////////////////////////////////////////////////////////////////

[function tiller]
if (<src.region.flags> == 010d2)
dorand 2
say @38 Yes sir!
say @38 Buyrun!
enddo
elseif (<link.more> == <src.uid>)
dialog d_ship_dock
dorand 3
say @38 Yes sir!
say @38 Merhaba <src.name>
say @38 Emrindeyim

enddo
endif

[dialog d_ship_dock]
150,200
page 0
resizepic 100 10 3600 175 100
button 120 60 247 248 1 0 1
button 190 60 242 243 1 0 0
text 125 30 38 0

[dialog d_ship_dock text]                       
Gemiyi Kaldır?

[dialog d_ship_dock button]
On=1
obj <link>
forchars 30
if (strmatch('<region.uid>','<obj>'))
src.sysmessage @0845,1,1 Gemide birisi varken kaldıramazsınız!
return 1
endif
endfor

link.remove
if ((<link.baseid> == i_multi_ship_small_n) || (<link.baseid> == i_multi_ship_small_s) || (<link.baseid> == i_multi_ship_small_e) || (<link.baseid> == i_multi_ship_small_w))
if !(<src.findid.i_shipredeeder>
src.newitem i_shipredeeder
src.act.more2 i_deed_ship_small_n
src.act.equip
endif
elseif ((<link.baseid> == i_multi_ship_medium_n) || (<link.baseid> == i_multi_ship_medium_s) || (<link.baseid> == i_multi_ship_medium_e) || (<link.baseid> == i_multi_ship_medium_w))
if !(<src.findid.i_shipredeeder>
src.newitem i_shipredeeder
src.act.more2 i_deed_ship_medium_n
src.act.equip
endif
elseif ((<link.baseid> == i_multi_ship_long_n) || (<link.baseid> == i_multi_ship_long_s) || (<link.baseid> == i_multi_ship_long_e) || (<link.baseid> == i_multi_ship_long_w))
if !(<src.findid.i_shipredeeder>
src.newitem i_shipredeeder
src.act.more2 i_deed_ship_long_n
src.act.equip
endif
elseif ((<link.baseid> == i_multi_ship_dragon_small_n) || (<link.baseid> == i_multi_ship_dragon_small_s) || (<link.baseid> == i_multi_ship_dragon_small_e) || (<link.baseid> == i_multi_ship_dragon_small_w))
if !(<src.findid.i_shipredeeder>
src.newitem i_shipredeeder
src.act.more2 i_deed_ship_dragon_small_n
src.act.equip
endif
elseif ((<link.baseid> == i_multi_ship_dragon_medium_n) || (<link.baseid> == i_multi_ship_dragon_medium_s) || (<link.baseid> == i_multi_ship_dragon_medium_e) || (<link.baseid> == i_multi_ship_dragon_medium_w))
if !(<src.findid.i_shipredeeder>
src.newitem i_shipredeeder
src.act.more2 i_deed_ship_dragon_medium_n
src.act.equip
endif
elseif ((<link.baseid> == i_multi_ship_dragon_long_n) || (<link.baseid> == i_multi_ship_dragon_long_s) || (<link.baseid> == i_multi_ship_dragon_long_e) || (<link.baseid> == i_multi_ship_dragon_long_w))
if !(<src.findid.i_shipredeeder>
src.newitem i_shipredeeder
src.act.more2 i_deed_ship_dragon_long_n
src.act.equip
endif
endif

[itemdef i_shipredeeder]
id=i_memory
weight=0
layer=layer_special
type t_eq_script

On=@Equip
cont.sysmessage @666,1,1 Geminiz kaldırılıyor, lütfen bekleyiniz.
timer 3

On=@UnEquip
cont.newitem <more2>
cont.act.attr 04
cont.act.bounce

On=@Timer
remove
return 1

[ITEMDEF 03e4a]
//tiller man
DEFNAME=i_ship_tillerman
TYPE=t_sign_gump

On=@DClick
tiller

CATEGORY=Ship Parts
SUBSECTION=Tillerman
DESCRIPTION=Tiller man

[ITEMDEF 03e4b]
//tiller man
TYPE=t_sign_gump
//DUPEITEM=03e4a

On=@DClick
tiller

[ITEMDEF 03e4c]
//tiller man
TYPE=t_sign_gump
//DUPEITEM=03e4a

On=@DClick
tiller

[ITEMDEF 03e4d]
//tiller man
TYPE=t_sign_gump
//DUPEITEM=03e4a

On=@DClick
tiller

[ITEMDEF 03e4e]
//tiller man
TYPE=t_sign_gump
//DUPEITEM=03e4a

On=@DClick
tiller

[ITEMDEF 03e4f]
//tiller man
TYPE=t_sign_gump
//DUPEITEM=03e4a

On=@DClick
tiller

[ITEMDEF 03e50]
//tiller man
TYPE=t_sign_gump
//DUPEITEM=03e4a

On=@DClick
tiller

[ITEMDEF 03e51]
//tiller man
TYPE=t_sign_gump
//DUPEITEM=03e4a

On=@DClick
tiller

[ITEMDEF 03e52]
//tiller man
TYPE=t_sign_gump
//DUPEITEM=03e4a

On=@DClick
tiller

[ITEMDEF 03e53]
//tiller man
TYPE=t_sign_gump
//DUPEITEM=03e4a

On=@DClick
tiller

[ITEMDEF 03e54]
//tiller man
TYPE=t_sign_gump
//DUPEITEM=03e4a

On=@DClick
tiller

[ITEMDEF 03e55]
//tiller man
TYPE=t_sign_gump
//DUPEITEM=03e4a

On=@DClick
tiller

[EOF]