utility UtilityExample "البحرية" width:162 height:309
(
	label lbl2 "برمجة وتصميم : أحمد مراد" pos:[24,256] width:120 height:15
	label lbl3 "mourad3d@hotmail.com" pos:[22,273] width:119 height:14
	label lbl4 "www.geocities.com/mourad3d" pos:[6,286] width:145 height:15
	button btn1 "انشاء البحرية" pos:[88,216] width:68 height:25 enabled:true
	spinner spn8 "" pos:[88,64] width:39 height:16 range:[0,1e+018,0] type:#float
	spinner spn10 "" pos:[16,64] width:39 height:16 range:[0,1e+018,0]
	label lbl5 "مقتبس مياه البحرية" pos:[38,16] width:90 height:12
	label lbl6 "الطول" pos:[128,64] width:32 height:15
	label lbl7 "العرض" pos:[56,64] width:32 height:17
	spinner spn11 "" pos:[24,112] width:44 height:16 range:[0,1000,0] type:#float
	label lbl8 "سرعة المياه" pos:[94,112] width:56 height:16
	label lbl9 "زمن حركة المياه" pos:[80,136] width:72 height:16
	spinner spn12 "" pos:[24,136] width:44 height:16 range:[0,1e+018,0] scale:1
	GroupBox grp2 "" pos:[8,40] width:152 height:48
	label lbl10 "تجعيد المياه" pos:[88,184] width:56 height:16
	spinner spn13 "" pos:[24,184] width:44 height:16 enabled:true range:[0,1e+006,0]
	button btn24 "الوضع الافتراضى" pos:[4,216] width:81 height:25
	GroupBox grp25 "" pos:[0,248] width:160 height:57
	GroupBox grp30 "" pos:[8,88] width:152 height:72
	label lbl15 "مساحة المسطح المائى" pos:[40,40] width:104 height:13
	label lbl11 "سرعة حركة المياه" pos:[64,88] width:83 height:16
	GroupBox grp5 "" pos:[8,168] width:150 height:40
	label lbl13 "ملمس المياه" pos:[88,168] width:55 height:16
	on UtilityExample open do
	(
			spn8.value = 800
						spn10.value = 800
						spn11.value = 3
				        spn12.value = 100
						spn13.value = 5
		)
	on btn1 pressed do
	(
	Plane length:spn8.value width:spn10.value pos:[0,0,0] isSelected:on 
	
	$.material = meditMaterials[1]
	meditMaterials[1].shaderType = 5
	meditMaterials[1].adTextureLock = on
	---
	meditMaterials[1].Diffuse = color 0 0 0
	meditMaterials[1].ambient = color 0 0 0
	meditMaterials[1].Diffuse = color 0 0 0
	meditMaterials[1].ambient = color 0 0 0
	meditMaterials[1].specularLevel = 70
	meditMaterials[1].glossiness = 50
	-----------
	meditMaterials[1].bumpMap = Noise ()
	meditMaterials[1].bumpMap.size = spn13.value
	----------------
	sliderTime = spn12.value
	max tool animmode
	set animate on
	meditMaterials[1].bumpMap.phase = spn11.value
	max tool animmode
	set animate off
	meditMaterials[1].reflectionMap = Flat_Mirror ()
	meditMaterials[1].reflectionMap.distortionType = 1
	meditMaterials[1].reflectionMap.distortionAmount = 3
	environmentMap = sceneMaterials["Map #1"]
	)
	on btn24 pressed do
	(
			spn8.value = 800
						spn10.value = 800
						spn11.value = 3
				        spn12.value = 100
						spn13.value = 5
		)
)