//*************************************
// YAZAR: xwerswoodx
// YAPIM: Hamit Devecioğlu (c)2003-2012
// TARİH: 23.01.2012
// SAAT : 14:48
// KONU : Regs Function & Dialog
//*************************************
VERSION=0.56b

[Plevel 1]
regs

[function f_moonsep]
if <argv[0]> == 0
return <eval <argv> - 1>
else
return <argv[<argv[0]>]>
endif

[Defname regs]
regs=0f7a,0f7b,0f84,0f85,0f86,0f88,0f8c,0f8d

[Function regs]
sdialog d_regs

[Dialog d_regs]
-10,-50
nomove
for 1 <f_moonsep 0,<def.regs>>
resizepic 190 165 2620 250 <eval <f_moonsep 0,<def.regs>>*43,75>
resizepic 197 175 3000 237 <eval (<eval <f_moonsep 0,<def.regs>>*43,75>)-20>
endfor

local.a 178
for 1 <f_moonsep 0,<def.regs>>
resizepic 200 <dlocal.a> 3500 230 43
local.a +=40
endfor

local.z 188
for 1 <f_moonsep 0,<def.regs>>
gumppic 355 <dlocal.z> 2443
local.z +=40
endfor

local.g 190
for 1 <f_moonsep 0,<def.regs>>
dtext 220 <dlocal.g> 0480 <serv.itemdef.<f_moonsep <dlocal._for>,<def.regs>>.name>
dtext 362 <dlocal.g> 00 <eval <rescount <f_moonsep <dlocal._for>,<def.regs>>>>
tilepic 318 <dlocal.g> <f_moonsep <dlocal._for>,<def.regs>>
local.g +=40
endfor

[EOF]