##
## Script  : LEVEL SYSTEM
## Version : 1.0
## Coder   : CRUE
## Date    : 02.06.2010
##
#############################
#############################
##
##   ÖZELLİKLER
##
## * Oyuncular için level sınırı 20, NPCler için level sınırı 10'dur.
## * Level 10 üzeri oyuncular Level 5 altındaki NPClerden exp. kazanamazlar.
## * Oyuncu her hitde verdiği hasara ve NPC'nin gücüyle orantılı experience kazanır.
## * .mylevel komutuyla oyuncu mevcut exp. ve bir sonraki level için gerekli olan exp. miktarını görebilir.
## * Level 20'ye ulaşam oyuncu "Champion" ünvanı kazanır.
##
#############################
#############################
##
##   KURULUM
##  1. Oyunculara "e_level_p" ve NPClere "e_level_npc" eventlerini veriniz.
##  2. Level-Exp değerlerini sphere a okutmak için oyunda yetkili karakter ile ".levelsys" komutunu giriniz.
##
#############################
#############################

[function levelsys] //// Experience Ayarlari (değerleri güncellerken ve scripti kurarken admin karakterle .levelsys yazınız.)

//// Oyuncu Level-Exp Değerleri

var.lvl_2_min 2000       //// Level 2 için gerekli experience
var.lvl_3_min 5000       //// Level 3 için gerekli experience
var.lvl_4_min 8000       //// Level 4 için gerekli experience
var.lvl_5_min 12000      //// ...
var.lvl_6_min 16000      //// ..
var.lvl_7_min 23000      //// .
var.lvl_8_min 30000
var.lvl_9_min 35000
var.lvl_10_min 42000
var.lvl_11_min 50000
var.lvl_12_min 60000
var.lvl_13_min 72000
var.lvl_14_min 85000
var.lvl_15_min 100000
var.lvl_16_min 115000
var.lvl_17_min 140000
var.lvl_18_min 180000
var.lvl_19_min 230000
var.lvl_20_min 300000    //// Champion olabilmek icin gerekli experience

//// NPC Level Değerleri

var.lvl_2_npc 80        //// Bilmiyorsaniz kurcalamaniz onerilmez.
var.lvl_3_npc 110
var.lvl_4_npc 130
var.lvl_5_npc 150
var.lvl_6_npc 170
var.lvl_7_npc 190
var.lvl_8_npc 210
var.lvl_9_npc 230
var.lvl_10_npc 270


[events e_level_npc] //// NPC Eventi

on=@click

if (<eval <tag0.level>> =0)
checklevel_npc
endif
message @07ea,, Level <eval <tag0.level>>

on=@gethit

if ((<eval <tag0.level>> > 10) && (<eval <tag0.level>> <5))
src.sysmessage @021,,1 Experience kazanamadiniz.
else
tag.calc1 <eval <tag0.exp_give>/<argn1>>
tag.calc2 <eval <str>/<eval <tag0.calc1>>>
src.givexp <eval <tag0.calc2>>
endif

[events e_level_p] //// Player Eventi

on=@click

if (<eval <tag0.level>> = 20)
message @07ea,, [Champion]
endif
message @07ea,, Level <eval <tag0.level>>

[function levelcheck]

if (<eval <src.tag0.exp>> < <var.lvl_2_min>)
<qval !(<src.tag0.level> = 1) ? src.sysmessage @07ea Level 1 ! : src.no_error>
src.tag.level 1
src.tag.require <var.lvl_2_min>-<eval <src.tag0.exp>>
elif (<eval <src.tag0.exp>> >= <var.lvl_2_min>) && (<eval <src.tag0.exp>> < <var.lvl_3_min>)
<qval !(<src.tag0.level> = 2) ? src.sysmessage @07ea Level 2 !: src.no_error>
src.tag.level 2
src.tag.require <var.lvl_3_min>-<eval <src.tag0.exp>>
elif (<eval <src.tag.exp>> >= <var.lvl_3_min>) && (<eval <src.tag0.exp>> < <var.lvl_4_min>)
<qval !(<src.tag0.level> = 3) ? src.sysmessage @07ea Level 3 ! : src.no_error>
src.tag.level 3
src.tag.require <var.lvl_4_min>-<eval <src.tag0.exp>>
elif (<eval <src.tag.exp>> >= <var.lvl_4_min>) && (<eval <src.tag0.exp>> < <var.lvl_5_min>)
<qval !(<src.tag0.level> = 4) ? src.sysmessage @07ea Level 4 ! : src.no_error>
src.tag.level 4
src.tag.require <var.lvl_5_min>-<eval <src.tag0.exp>>
elif (<eval <src.tag.exp>> >= <var.lvl_5_min>) && (<eval <src.tag0.exp>> < <var.lvl_6_min>)
<qval !(<src.tag0.level> = 5) ? src.sysmessage @07ea Level 5 ! : src.no_error>
src.tag.level 5
src.tag.require <var.lvl_6_min>-<eval <src.tag0.exp>>
elif (<eval <src.tag.exp>> >= <var.lvl_6_min>) && (<eval <src.tag0.exp>> < <var.lvl_7_min>)
<qval !(<src.tag0.level> = 6) ? src.sysmessage @07ea Level 6 ! : src.no_error>
src.tag.level 6
src.tag.require <var.lvl_7_min>-<eval <src.tag0.exp>>
elif (<eval <src.tag.exp>> >= <var.lvl_7_min>) && (<eval <src.tag0.exp>> < <var.lvl_8_min>)
<qval !(<src.tag0.level> = 7) ? src.sysmessage @07ea Level 7 ! : src.no_error>
src.tag.level 7
src.tag.require <var.lvl_8_min>-<eval <src.tag0.exp>>
elif (<eval <src.tag.exp>> >= <var.lvl_8_min>) && (<eval <src.tag0.exp>> < <var.lvl_9_min>)
<qval !(<src.tag0.level> = 8) ? src.sysmessage @07ea Level 8 ! : src.no_error>
src.tag.level 8
src.tag.require <var.lvl_9_min>-<eval <src.tag0.exp>>
elif (<eval <src.tag.exp>> >= <var.lvl_9_min>) && (<eval <src.tag0.exp>> < <var.lvl_10_min>)
<qval !(<src.tag0.level> = 9) ? src.sysmessage @07ea Level 9 ! : src.no_error>
src.tag.level 9
src.tag.require <var.lvl_10_min>-<eval <src.tag0.exp>>
elif (<eval <src.tag.exp>> >= <var.lvl_10_min>) && (<eval <src.tag0.exp>> < <var.lvl_11_min>)
<qval !(<src.tag0.level> = 10) ? src.sysmessage @07ea Level 10 ! : src.no_error>
src.tag.level 10
src.tag.require <var.lvl_11_min>-<eval <src.tag0.exp>>
elif (<eval <src.tag.exp>> >= <var.lvl_11_min>) && (<eval <src.tag0.exp>> < <var.lvl_12_min>)
<qval !(<src.tag0.level> = 11) ? src.sysmessage @07ea Level 11 ! : src.no_error>
src.tag.level 11
src.tag.require <var.lvl_12_min>-<eval <src.tag0.exp>>
elif (<eval <src.tag.exp>> >= <var.lvl_12_min>) && (<eval <src.tag0.exp>> < <var.lvl_13_min>)
<qval !(<src.tag0.level> = 12) ? src.sysmessage @07ea Level 12 ! : src.no_error>
src.tag.level 12
src.tag.require <var.lvl_13_min>-<eval <src.tag0.exp>>
elif (<eval <src.tag.exp>> >= <var.lvl_13_min>) && (<eval <src.tag0.exp>> < <var.lvl_14_min>)
<qval !(<src.tag0.level> = 13) ? src.sysmessage @07ea Level 13 ! : src.no_error>
src.tag.level 13
src.tag.require <var.lvl_14_min>-<eval <src.tag0.exp>>
elif (<eval <src.tag.exp>> >= <var.lvl_14_min>) && (<eval <src.tag0.exp>> < <var.lvl_15_min>)
<qval !(<src.tag0.level> = 14) ? src.sysmessage @07ea Level 14 ! : src.no_error>
src.tag.level 14
src.tag.require <var.lvl_15_min>-<eval <src.tag0.exp>>
elif (<eval <src.tag.exp>> >= <var.lvl_15_min>) && (<eval <src.tag0.exp>> < <var.lvl_16_min>)
<qval !(<src.tag0.level> = 15) ? src.sysmessage @07ea Level 15 ! : src.no_error>
src.tag.level 15
src.tag.require <var.lvl_16_min>-<eval <src.tag0.exp>>
elif (<eval <src.tag.exp>> >= <var.lvl_16_min>) && (<eval <src.tag0.exp>> < <var.lvl_17_min>)
<qval !(<src.tag0.level> = 16) ? src.sysmessage @07ea Level 16 ! : src.no_error>
src.tag.level 16
src.tag.require <var.lvl_17_min>-<eval <src.tag0.exp>>
elif (<eval <src.tag.exp>> >= <var.lvl_17_min>) && (<eval <src.tag0.exp>> < <var.lvl_18_min>)
<qval !(<src.tag0.level> = 17) ? src.sysmessage @07ea Level 17 ! : src.no_error>
src.tag.level 17
src.tag.require <var.lvl_18_min>-<eval <src.tag0.exp>>
elif (<eval <src.tag.exp>> >= <var.lvl_18_min>) && (<eval <src.tag0.exp>> < <var.lvl_19_min>)
<qval !(<src.tag0.level> = 18) ? src.sysmessage @07ea Level 18 ! : src.no_error>
src.tag.level 18
src.tag.require <var.lvl_19_min>-<eval <src.tag0.exp>>
elif (<eval <src.tag.exp>> >= <var.lvl_19_min>) && (<eval <src.tag0.exp>> < <var.lvl_20_min>)
<qval !(<src.tag0.level> = 19) ? src.sysmessage @07ea Level 19 ! : src.no_error>
src.tag.level 19
src.tag.require <var.lvl_20_min>-<eval <src.tag0.exp>>
elif (<eval <src.tag.exp>> >= <var.lvl_20_min>)
<qval !(<src.tag0.level> = 20) ? src.sysmessage @07ea Champion ! : src.no_error>
src.tag.level 20
src.tag.require 0
endif

[function no_error] //// Bunu silmeyin.

[function givexp]

tag.exp +=<argv[0]>
sysmessage @015,,1 <argv[0]> experience kazandiniz.
src.levelcheck

[function mylevel]

sysmessage @0481,,1 Level : <eval <tag0.level>> Experience : <eval <tag0.exp>>
if !(<eval <tag0.level>> =20)
sysmessage @0481,,1 Level <eval <tag0.level>+1> icin kalan exp : <eval <tag0.require>>
endif


[function checklevel_npc]

local.npc_stat <str>+<dex>+<int>
local.npc_skills <skilltotal>
tag.exp_give1 <local.npc_stat>+<local.npc_skills>
tag.exp_give <eval <tag0.exp_give1>/30>


if (<eval <tag0.exp_give>> < <var.lvl_2_npc>)
tag.level 1
elif (<eval <tag0.exp_give>> >= <var.lvl_2_npc>) && (<eval <tag0.exp_give>> < <var.lvl_3_npc>)
tag.level 2
elif (<eval <tag0.exp_give>> >= <var.lvl_3_npc>) && (<eval <tag0.exp_give>> < <var.lvl_4_npc>)
tag.level 3
elif (<eval <tag0.exp_give>> >= <var.lvl_4_npc>) && (<eval <tag0.exp_give>> < <var.lvl_5_npc>)
tag.level 4
elif (<eval <tag0.exp_give>> >= <var.lvl_5_npc>) && (<eval <tag0.exp_give>> < <var.lvl_6_npc>)
tag.level 5
elif (<eval <tag0.exp_give>> >= <var.lvl_6_npc>) && (<eval <tag0.exp_give>> < <var.lvl_7_npc>)
tag.level 6
elif (<eval <tag0.exp_give>> >= <var.lvl_7_npc>) && (<eval <tag0.exp_give>> < <var.lvl_8_npc>)
tag.level 7
elif (<eval <tag0.exp_give>> >= <var.lvl_8_npc>) && (<eval <tag0.exp_give>> < <var.lvl_9_npc>)
tag.level 8
elif (<eval <tag0.exp_give>> >= <var.lvl_9_npc>) && (<eval <tag0.exp_give>> < <var.lvl_10_npc>)
tag.level 9
elif (<eval <tag0.exp_give>> >= <var.lvl_10_npc>)
tag.level 10
endif