--- deliantra/arch/ground/sea.arc	2007/01/21 21:24:30	1.4
+++ deliantra/arch/ground/sea.arc	2010/10/16 09:17:21	1.19
@@ -1,5 +1,4 @@
-Object sea
-face sea.x11
+object sea
 anim
 sea.x11
 sea.x12
@@ -8,23 +7,14 @@
 sea.x13
 sea.x12
 mina
-smoothface sea.x11 sea_S.x11
-smoothface sea.x12 sea_S.x12
-smoothface sea.x13 sea_S.x13
-smoothface sea.x14 sea_S.x14
-color_fg light_blue
-color_bg blue
-speed -0.2
-move_block all -boat
-no_pick 1
-is_water 1
-editable 8
-is_floor 1
+inherit sea_base
+face sea.x11
 smoothlevel 20
+smoothface sea.x11 sea_S.x11 sea.x12 sea_S.x12 sea.x13 sea_S.x13 sea.x14 sea_S.x14
+speed -0.12
 end
-Object sea1
-name sea
-face sea.x11
+
+object sea1
 anim
 sea.x11
 sea.x12
@@ -33,68 +23,40 @@
 sea.x13
 sea.x12
 mina
-smoothface sea.x11 sea_S.x11
-smoothface sea.x12 sea_S.x12
-smoothface sea.x13 sea_S.x13
-smoothface sea.x14 sea_S.x14
-color_fg light_blue
-color_bg blue
-speed -0.2
-no_pick 1
-is_water 1
-editable 8
-is_floor 1
-smoothlevel 20
-end
-Object sea_nw
+inherit sea_base
 name sea
-face sea_nw.x11
-color_fg light_blue
-color_bg blue
-speed 0.2
-no_pass 1
+face sea.x11
+speed -0.12
+end
+
+object sea_base
+move_block walk fly_low
 no_pick 1
-is_water 1
-editable 8
 is_floor 1
-smoothlevel 20
+is_water 1
 end
-Object sea_ne
+
+object sea_ne
+inherit sea_base
 name sea
 face sea_ne.x11
-color_fg light_blue
-color_bg blue
-speed 0.2
-no_pass 1
-no_pick 1
-is_water 1
-editable 8
-is_floor 1
-smoothlevel 20
 end
-Object sea_sw
+
+object sea_nw
+inherit sea_base
 name sea
-face sea_sw.x11
-color_fg light_blue
-color_bg blue
-speed 0.2
-no_pass 1
-no_pick 1
-is_water 1
-editable 8
-is_floor 1
-smoothlevel 20
+face sea_nw.x11
 end
-Object sea_se
+
+object sea_se
+inherit sea_base
 name sea
 face sea_se.x11
-color_fg light_blue
-color_bg blue
-speed 0.2
-no_pick 1
-no_pass 1
-is_water 1
-editable 8
-is_floor 1
-smoothlevel 20
 end
+
+object sea_sw
+inherit sea_base
+name sea
+face sea_sw.x11
+end
+