[defname exptablo]
level1 150 //1
level2 300 //2
level3 500 //3
level4 900 //4
level5 1100 //5
level6 1250 //6
level7 1600 //7
level8 2000 //8
level9 2100 //9
level10 2550 //10
level11 2900 //11
level12 3050 //12
level13 3500 //13
level14 3650 //14
level15 3800 //15
level16 4000  //16
level17 4200 //17
level18 4500 //18
level19 4700 //19
level20 5000 //20
level21 5050 //21
level22 5300 //22
level23 5500 //23
level24 5900 //24
level25 6100 //25
level26 6250 //26
level27 6600 //27
level28 7000 //28
level29 7100 //29
level30 7550 //30
level31 7900 //31
level32 8050 //32
level33 8500 //33
level34 8650 //34
level35 8800 //35
level36 9000  //36
level37 9200 //37
level38 9500 //38
level39 9700 //39
level40 9900 //40
level41 10150 //41
level42 10300 //42
level43 10500 //43
level44 10900 //44
level45 11100 //45
level46 11250 //46
level47 11600 //47
level48 12000 //48
level49 12100 //49
level50 12550 //50
level51 12900 //51
level52 13050 //52
level53 13500 //53
level54 13650 //54
level55 13800 //55
level56 14000  //56
level57 14200 //57
level58 14500 //58
level59 14700 //59
level60 15000 //60
level61 16150 //61
level62 16300 //62
level63 16500 //63
level64 16900 //64
level65 17000 //65
level66 17050 //66
level67 17200 //67
level68 17400 //68
level69 17500 //69
level70 17850 //70
level71 18000 //71
level72 18050 //72
level73 18500 //73
level74 18650 //74
level75 18800 //75
level76 19000  //76
level77 19200 //77
level78 19500 //78
level79 19700 //79
level80 20000 //80
level81 20150 //81
level82 20300 //82
level83 20500 //83
level84 20900 //84
level85 21100 //85
level86 21250 //86
level87 21600 //87
level88 22000 //88
level89 22100 //89
level90 22550 //90
level91 22900 //91
level92 23050 //92
level93 23500 //93
level94 23650 //94
level95 23800 //95
level96 24000  //96
level97 24200 //97
level98 24500 //98
level99 24700 //99
level100 25000 //100

[Dialog d_level]
-20,-20
nomove
noclose

resizepic 20 20 3500 800 40
resizepic 30 30 9300 780 20

if <eval <tag.exp>> < <eval <def.level<eval <tag.level>+1>>> 
resizepic 700 30 3000 <eval <eval <tag.exp>*100> / <eval <def.level<eval <tag.level>+1>>>> 20
else
resizepic 700 30 3000 100 20
endif

dhtmlgump 45 30 450 40 0 0 <def.bfont_black><def.bfont_size3> Level <eval <tag.level>>  ||  Experience <eval <tag.exp>>  ||
if <eval <tag.exp>> < <eval <def.level<eval <tag.level>+1>>>       
dhtmlgump 230 30 450 40 0 0 <def.bfont_black><def.bfont_size3> Gereken Experience <eval <eval <def.level<eval <tag.level>+1>>>-<eval <tag.exp>>> / <eval <def.level<eval <tag.level>+1>>>  ||
else
dhtmlgump 230 30 450 40 0 0 <def.bfont_black><def.bfont_size3> Gereken Experience    0 / <eval <def.level<eval <tag.level>+1>>>  ||
endif
dhtmlgump 473 30 120 40 0 0 <qval (<eval <tag.exp>> < <eval <def.level<eval <tag.level>+1>>>)? <def.bfont_red> Level Atla : <def.bfont_green> Level Atla><def.bfont_black>  ||
dhtmlgump 685 30 150 40 0 0 <def.bfont_black><def.bfont_size3> ||     <eval <eval <tag.exp>*100> / <eval <def.level<eval <tag.level>+1>>>>%     ||     

button 458 31 00000037 00000037 1 0 1

[Dialog d_level button]

on 1
if <eval <tag.exp>> < <eval <def.level<eval <tag.level>+1>>>
sysmessage @1153 Yeterli expe sahip degilsiniz.
dialogclose d_level
dialog d_level
return 1
else
levelup
dialogclose d_level
dialog d_level
sysmessage @1153 Tebrikler level atladiniz.
return 1
endif

[function expgain]
tag.exp +=<args>
dialogclose d_level
dialog d_level

[events e_level]
ON=@Click
message @07a1 Level: <eval <tag.level>>

ON=@Kill
if !<act.isplayer>
expgain <eval <act.str>/10>
sysmessage @1153 Sayin <name>, <act.name> isimli canavardan <eval <act.str>/10> exp kazandiniz.
return 1
endif

[function levelup]
effect 3,i_fire_column,15,15,1 0,7
sound snd_spell_flamestrike
sound snd_spell_lightning
tag.exp -=<eval <def.level<eval <tag.level>+1>>>
tag.level +=1
tag.statpoint +=5
say @91,0 [ Level atlar ]
dialogclose d_level
dialog d_level
return 1

resizepic 700 30 3000

resizepic 700 30 3500

button 458 31 00000037 00000037 1 0 1

[Dialog d_level]
-20,-20
nomove
noclose

resizepic 20 20 3500 800 40
resizepic 30 30 9300 780 20

if <eval <tag.exp>> < <eval <def.level<eval <tag.level>+1>>> 
resizepic 700 30 3000 <eval <eval <tag.exp>*100> / <eval <def.level<eval <tag.level>+1>>>> 20
else
resizepic 700 30 3000 100 20
endif

[Dialog d_level]
-20,-20
nomove
noclose

resizepic 20 20 3500 800 40
resizepic 30 30 9300 780 20
if <eval <tag.exp>> < <eval <def.level<eval <tag.level>+1>>>
else
endif