[comment teachskill]
bu sistem aldarson[emre] tarafından yazılmıstır
versiyon 0.56b +
client +2x

[function teach]
sdialog d_skill_teach

[dialog d_skill_teach]
0,150
nomove
noclose

resizepic 50 50 3500 710 500
resizepic 50 0 3500 250 50

dtext 80 10 1153 <serv.name> Teach Menusu
local.x 70
for 0 20
button 80 <dlocal.x> 2714 2715 1 0 <dlocal._for>
local.x +=20
endfor

local.y 70
for 21 41
button 330 <dlocal.y> 2714 2715 1 0 <dlocal._for>
local.y +=20
endfor

local.z 70
for 42 48
button 580 <dlocal.z> 2714 2715 1 0 <dlocal._for>
local.z +=20
endfor

local.a 70
for 0 20
dtext 100 <dlocal.a> 0481 <serv.skill.<dlocal._for>.name>
local.a +=20
endfor

local.b 70
for 21 41
dtext 350 <dlocal.b> 0481 <serv.skill.<dlocal._for>.name>
local.b +=20
endfor

local.c 70
for 42 48
dtext 600 <dlocal.c> 0481 <serv.skill.<dlocal._for>.name>
local.c +=20
endfor

dtext 615 470 1153 Menüyü Kapat
button 580 470 4017 4018 1 0 999

[dialog d_skill_teach button]
on 999
return 1

on 0 48
if (<src.restest 300 i_gold>) && (<src.<serv.skill.<dargn>.name>> <30.0)
src.<serv.skill.<dargn>.name> 30.0
src.consume 300 i_gold
elseif (<src.skilltotal> >670.0)
src.sysmessage @038a,0,1 Skill totaliniz dolmus 670.0'dan küçük olmalıdır.
return 1
else
src.sysmessage @038a,0,1 <serv.skill.<dargn>.name> 30.0 dan büyük veya 300 goldunuz yok.
return 1
endif