[Defname sk]

s_1=5.0

s_2=10.0

s_3=25.0

s_4=50.0

s_5=100.0



[Function skilldusur]

sdialog d_skilldusur

return 1



[dialog d_skilldusur]

50,50

nomove



resizepic 250 10 2620 240 350

resizepic 257 20 3000 226 330



dcroppedtext 270 30 200 20 152 Skill Dusur



local.page = 1

local.skills = 0



PAGE 1

FOR 0 48

IF (<dlocal.skills> > 12)

local.skills = 0

button 435 325 2224 2117 0 <eval (<dlocal.page>)+1> 1

dtext 400 322 152 Ileri

local.page +=1

PAGE <dlocal.page>

button 290 325 2223 2117 0 <eval (<dlocal.page>)-1> 1

dtext 315 322 152 Geri

ENDIF

dtext 290 <eval (<dlocal.skills>*20)+60> 95 <serv.skill.<dlocal._for>.name>

button 270 <eval (<dlocal.skills>*20)+65> 2224 2117 1 0 <eval (<dlocal._for>)+1>

local.skills +=1

ENDFOR



[dialog d_skilldusur button]

ON=1 49

src.tag.hamit=<serv.skill.<eval (<dargn>)-1>.name>

sdialog d_kacdussun

return 1



[Dialog d_kacdussun]

50,50

nomove



resizepic 250 10 2620 310 200

resizepic 257 20 3000 296 180



dtext 270 30 152 <src.tag.hamit> ne kadar dusurulsun?



local.x 60

for 1 5

dtext 290 <dlocal.x> 95 <def.s_<dlocal._for>>

local.x +=20

endfor



local.y 65

for 1 5

button 270 <dlocal.y> 2224 2117 1 0 <dlocal._for>

local.y +=20

endfor



[Dialog d_kacdussun Button]

ON=1 5

if (<eval <src.<src.tag.hamit>>-<def.s_<dargn>>> > 0)

src.<src.tag.hamit> -=<def.s_<dargn>>

return 1

else

src.<src.tag.hamit>==00

src.tag.hamit 

return 1

endif