arkadaslar denemedıgım sey kalmadı fakat bir turlu sorunu cozemedım bandaj ile resledıgınız zaman adamı full hp resliıyor scriptim asagıda yardımlarınızı beklıyorum
[ITEMDEF 0ee9]
DUPEITEM=0e21
[ITEMDEF 0e22]
DUPEITEM=0e20
[ITEMDEF 0e21]
DEFNAME=i_bandage
RESOURCES=i_cloth
TYPE=T_BANDAGE
WEIGHT=0.2
DUPELIST=0ee9
CATEGORY=Items by Professions
SUBSECTION=Healer
DESCRIPTION=clean bandages
On=@DClick
if !(<topobj.uid> == <src.uid>)
src.sysmessage @0481 Bandajlar cantanizda olmali.
return 1
elif ((<src.findid.i_spdelay_man>) || (<src.findid.i_spdelay_woman>) || (<src.findid.i_spdelay_unisex>))
src.sysmessage @0481 Bandajlari Su anda kullanamazsiniz.
return 1
elseif (<src.findid.i_mem_healing.timer> < 0)
src.findid.i_mem_healing.remove
return 0
elseif (<src.findid.i_mem_healing>) || (<SRC.ACTION>==Skill_Magery) || (<SRC.ACTION>==ID(Skill_Magery))
src.sysmessage @0481 Bandajlari Su anda kullanamazsiniz.
return 1
else
return 0
endif
On=@Targon_Char
if !(<src.restest 1 i_bandage>)
src.sysmessage @0481 Bandajiniz yok.
return 1
elseif (<src.hits> < 1)
src.sysmessage @1100,0,5 Kendinizi resleyemezsiniz.
return 1
elseif (<src.targ.distance> > 3)
src.sysmessage @0481 Hedefe ulasamiyorsunuz.
return 1
elseif !(<src.targ.canseelos>)
src.sysmessage @0481 Hedefe ulasamiyorsunuz.
return 1
elseif (<src.targ.npc> == 10) ||(<src.targ.npc> == 11) || (<src.targ.npc> == 12) || (<src.targ.npc> == 13)
src.sysmessage @0481 Bunu iyilestiremezsiniz.
return 1
elseif (<src.targ.npc> == 1)
if (<src.targ.id> == c_m_balron) || (<src.targ.id> == c_m_wyvern)
src.sysmessage @0481 Bunlari bandajla iyilestiremezsiniz.
elseif !((<src.targ.hits> < <src.targ.str>) || (<src.targ.findid.i_rune_poison>))
src.sysmessage @0481 <src.targ.name> tedaviye ihtiyac duymuyor.
return 1
elseif (<src.targ.findid.i_rune_poison>)
if ((<src.veterinary> < 60.0) || (<src.animallore> < 60.0))
src.sysmessage @0481 Hayvan uzerindeki zehiri tedavi edecek kadar yetenekli degilsiniz.
return 1
endif
else
var.nx1 (<src.veterinary> / {20 50})
var.nx2 (<src.animallore> / 50)
var.nx3 <eval (<var.nx1> + <var.nx2> + {3 10})>
endif
src.newitem i_beklebiraz
src.act.equip
src.sd 1
src.anim 17
src.newitem i_mem_healing
src.act.morey <eval <var.nx3>>
src.act.morex 3
src.act.link <src.targ.uid>
src.act.equip
src.face
return 1
elseif (<src.targ.flags>&statf_dead)
if ((<src.healing> < 80.0) || (<src.anatomy> < 80.0))
src.sysmessage @0481 Henuz oluleri diriltecek kudrete sahip degilsiniz.
elseif !(<src.restest 5 i_bandage>)
src.sysmessage @0481 Diriltme islemi icin 5 bandaja ihtiyaciniz var.
elseif (<src.isevent.e_house>) || (<src.targ.isevent.e_house>)
src.sysmessage @0481 Bu bolgede resleyemezsiniz.
else
if (<src.targ.kills> > 6)
src.criminal 1
src.sayua 50,6,0,enu * <src.targ.name> isimli katili diriltir *
elseif (<src.targ.flags>&statf_criminal)
src.criminal 1
src.sayua 50,6,0,enu * <src.targ.name> isimli sucluyu diriltir *
elseif (<src.memoryfindtype.memory_town>) && (<src.targ.memoryfindtype.memory_town>) && (<src.memoryfindtype.memory_town.link> != <src.targ.memoryfindtype.memory_town.link>)
src.criminal 1
elseif (<src.memoryfindtype.memory_guild.link.align>) && (<src.targ.memoryfindtype.memory_guild.link.align>) && (<src.memoryfindtype.memory_guild.link.align> != <src.targ.memoryfindtype.memory_guild.link.align>)
src.criminal 1
endif
src.sd 2
src.face
src.anim 17
src.consume 5 i_bandage
src.targ.spelleffect s_resurrection 1000
src.targ.sayua 0481,6,0,enu * <src.name> sayesinde hayata doner *
src.checkhealing 2
src.checkanatomy 2
endif
return 1
elseif (<src.targ.memoryfindtype.memory_town>) && !(<src.memoryfindtype.memory_town>)
src.sysmessage @0481 Faction uyelerini iyilestiremezsiniz.
return 1
elseif (<src.targ.memoryfindtype.memory_guild.link.align> > 0) && !(<src.memoryfindtype.memory_guild.link.align>)
src.sysmessage @0481 Order/Chaos uyelerini iyilestiremezsiniz.
return 1
elseif !((<src.targ.hits> < <src.targ.str>) || (<src.targ.findid.i_rune_poison>))
if !(<src.targ.uid> == <src.uid>)
src.sysmessage @0481 <src.targ.name> tedaviye ihtiyac duymuyor.
else
src.sysmessage @0481 Tedaviye ihtiyaciniz yok.
endif
return 1
elseif (<src.targ.findid.i_rune_poison>)
if ((<src.healing> < 60.0) || (<src.anatomy> < 60.0))
src.sysmessage @0481 Zehiri tedavi edecek kadar yetenekli degilsiniz.
return 1
endif
elseif (<src.targ.findid.i_bleeding>) ///Bleeding
if ((<src.healing> < 70.0) || (<src.anatomy> < 70.0))
src.sysmessage @0481 Yarayi tedavi edecek kadar yetenekli degilsiniz.
return 1
endif
else
var.nx1 (<src.healing> / {20 50})
var.nx2 (<src.anatomy> / 50)
var.nx3 <eval (<var.nx1> + <var.nx2> + {3 10})>
endif
src.newitem i_beklebiraz
src.act.equip
src.sd 1
src.anim 17
src.newitem i_mem_healing
src.act.morey <eval <var.nx3>>
if !(<src.targ.uid> == <src.uid>) // heal other
src.act.morex 1
src.act.link <src.targ.uid>
src.face
endif
src.act.equip
return 1
[itemdef i_beklebiraz]
name bekle biraz
ID=i_memory
TYPE=t_eq_script
On=@Create
attr attr_decay|attr_newbie
on=@equip
timer 2
on=@timer
remove
return 1
[itemdef i_mem_healing]
ID=i_memory
TYPE=t_eq_script
NAME=healing mem
On=@Create
attr attr_decay|attr_newbie
On=@Equip
src.events +e_healing
timer 4
On=@UnEquip
cont.events -e_healing
On=@Timer
if (<morey>)
if (<morex> == 3) // veterinary
if !(<link.hits> < <link.str>) && !(<link.findid.i_rune_poison>)
cont.sysmessage @0481 <link.name> tedaviye ihtiyac duymuyor.
remove
return 1
elseif (<link.findid.i_rune_poison>)
if (<cont.veterinary> < 60.0) || (<cont.animallore> < 60.0)
cont.sysmessage @0481 Zehiri tedavi edecek kadar yetenekli degilsiniz.
remove
return 1
endif
elseif (<link.findid.i_bleeding>) ///////Hayvanlarda bleeding
if (<cont.veterinary> < 70.0) || (<cont.animallore> < 70.0)
cont.sysmessage @0481 Yarayi tedavi edecek kadar yetenekli degilsiniz.
remove
return 1
endif
elseif !(<cont.restest 1 i_bandage>)
cont.sysmessage @0481 Bandajiniz yok.
remove
return 1
endif
cont.consume 1 i_bandage
if (<link.findid.i_rune_poison>) // cure animal
if !(rand(5) == 1)
link.findid.i_rune_poison.remove
link.effect 3,0376a,2,10,1
link.sayua 50,6,0,enu * iyilestirilir *
link.healverlandallamaitkrocan3
else
cont.sayua 50,6,0,enu * <link.name> zehirini iyilestiremez *
endif
elseif (<link.findid.i_bleeding>) //hayvanlarda yara iyilestirme poff 
if !(rand(5) == 1)
link.findid.i_bleeding.remove
link.effect 3,0376a,2,10,1
link.sayua 50,6,0,enu * yarasi iyilestirilir *
link.healverlandallamaitkrocan3
else
cont.sayua 50,6,0,enu * <link.name> uzerindeki yarayi iyilestiremez *
endif
else // heal animal
link.hits <eval (<link.hits> + <morey>)>
link.effect 3,0376a,2,10,1
if (<link.hits> > <link.str>)
link.hits <link.str>
endif
link.sayua 0481,6,0,enu * tedavi gorur *
link.update
endif
cont.checkveterinary
cont.checkanimallore
if (<cont.dex> < 35)
timer 6
else
timer 4
endif
elseif (<morex>) // others
if !(<link.hits> < <link.str>) && !(<link.findid.i_rune_poison>)
cont.sysmessage @0481 <link.name> tedaviye ihtiyac duymuyor.
remove
return 1
elseif (<link.hits> < 1)
cont.sysmessage @0481 <link.name> tedavi esnasinda hayatini kaybetti.
remove
return 1
elseif (<link.findid.i_rune_poison>)
if (<cont.healing> < 60.0) || (<cont.anatomy> < 60.0)
cont.sysmessage @0481 Zehiri tedavi edecek kadar yetenekli degilsiniz.
remove
return 1
endif
elseif !(<cont.restest 1 i_bandage>)
cont.sysmessage @0481 Bandajiniz yok.
remove
return 1
endif
cont.consume 1 i_bandage
if (<link.findid.i_rune_poison>) // cure other
if !(rand(5) == 1)
link.findid.i_rune_poison.remove
link.effect 3,0376a,2,10,1
if (<link.kills> > 6)
cont.criminal 1
cont.sayua 50,6,0,enu * <link.name> isimli katili iyilestirir *
elseif (<link.flags>&statf_criminal)
cont.criminal 1
cont.sayua 50,6,0,enu * <link.name> isimli sucluyu iyilestirir *
else
link.sayua 50,6,0,enu * <cont.name> tarafindan iyilestirilir *
if (<link.memoryfindtype.memory_town>) && (<cont.memoryfindtype.memory_town>) && (<cont.memoryfindtype.memory_town.link> != <link.memoryfindtype.memory_town.link>)
cont.criminal 1
elseif (<link.memoryfindtype.memory_guild.link.align>) && (<cont.memoryfindtype.memory_guild.link.align>) && (<cont.memoryfindtype.memory_guild.link.align> != <link.memoryfindtype.memory_guild.link.align>)
cont.criminal 1
endif
endif
else
cont.sayua 50,6,0,enu * <link.name> zehirini iyilestiremez *
endif
elseif (<link.findid.i_bleeding>)///////////////////////////Bleeding
if !(rand(5) == 1)
link.findid.i_bleeding.remove
link.effect 3,0376a,2,10,1
if (<link.kills> > 6)
cont.criminal 1
cont.sayua 50,6,0,enu * <link.name> yarasini iyilestirir.*
elseif (<link.flags>&statf_criminal)
cont.criminal 1
cont.sayua 50,6,0,enu * <link.name> isimli suclunun yarasini iyilestirir. *
else
link.sayua 50,6,0,enu * <cont.name> tarafindan yarasi iyilestirilir. *
if (<link.memoryfindtype.memory_town>) && (<cont.memoryfindtype.memory_town>) && (<cont.memoryfindtype.memory_town.link> != <link.memoryfindtype.memory_town.link>)
cont.criminal 1
elseif (<link.memoryfindtype.memory_guild.link.align>) && (<cont.memoryfindtype.memory_guild.link.align>) && (<cont.memoryfindtype.memory_guild.link.align> != <link.memoryfindtype.memory_guild.link.align>)
cont.criminal 1
endif
endif
else
cont.sayua 50,6,0,enu * <link.name> uzerindeki yarayi tedavi edemez *
endif ////////////////////////////////////////////////////////////
else // heal other
link.hits (<link.hits> + <morey>)
link.effect 3,0376a,2,10,1
if (<link.hits> > <link.str>)
link.hits <link.str>
endif
if (<link.kills> > 6)
cont.criminal 1
cont.sayua 50,6,0,enu * <link.name> isimli katili tedavi eder *
elseif (<link.flags>&statf_criminal)
cont.criminal 1
cont.sayua 50,6,0,enu * <link.name> isimli sucluyu tedavi eder *
else
link.sayua 50,6,0,enu * <cont.name> tarafindan tedavi edilir *
cont.healverlandallamaitkrocan
if (<link.memoryfindtype.memory_town>) && (<cont.memoryfindtype.memory_town>) && (<cont.memoryfindtype.memory_town.link> != <link.memoryfindtype.memory_town.link>)
cont.criminal 1
elseif (<link.memoryfindtype.memory_guild.link.align>) && (<cont.memoryfindtype.memory_guild.link.align>) && (<cont.memoryfindtype.memory_guild.link.align> != <link.memoryfindtype.memory_guild.link.align>)
cont.criminal 1
endif
endif
endif
cont.checkhealing 1
cont.checkanatomy 1
if (<cont.dex> < 35)
timer 6
else
timer 4
endif
else
if !(<cont.hits> < <cont.str>) && !(<cont.findid.i_rune_poison>)
cont.sysmessage @0481 Tedaviye ihtiyac duymuyorsunuz.
remove
return 1
elseif (<cont.hits> < 1)
remove
return 1
elseif (<cont.findid.i_rune_poison>)
if (<cont.healing> < 60.0) || (<cont.anatomy> < 60.0)
cont.sysmessage @0481 Zehiri tedavi edecek kadar yetenekli degilsiniz.
remove
return 1
endif
elseif !(<cont.restest 1 i_bandage>)
cont.sysmessage @0481 Bandajiniz yok.
remove
return 1
endif
cont.consume 1 i_bandage
if (<cont.findid.i_rune_poison>) // cure self
if !(rand(5) == 1)
cont.findid.i_rune_poison.remove
cont.effect 3,0376a,2,10,1
cont.sayua 50,6,0,enu * Zehiri IyileStirir *
else
cont.sayua 50,6,0,enu * Zehri IyileStiremez *
endif
elseif (<cont.findid.i_bleeding>) // bleed remove
if !(rand(5) == 1)
cont.findid.i_bleeding.remove
cont.effect 3,0376a,2,10,1
cont.sayua 50,6,0,enu * Yarayi Tedavi Eder *
else
cont.sayua 50,6,0,enu * Yarayi Tedavi Edemez *
endif
else // heal self
cont.hits (<cont.hits> + <morey>)
cont.effect 3,0376a,2,10,1
cont.message @50 [+<morey>]
cont.sayua 50,6,0,enu * Kendini Tedavi Eder *
if (<cont.hits> > <cont.str>)
cont.hits <cont.str>
endif
endif
cont.checkhealing 1
cont.checkanatomy 1
if (<cont.dex> < 35)
timer 14
else
timer 8
endif
endif
morey 0 // memory'yi etkisiz hale getir
cont.events -e_healing // eventi kaldir artik gerek yok
return 1
endif
remove
return 1
return 1 // sonradan ekledim
[events e_healing]
ON=@spellcast
if (<findid.i_beklebiraz>)
src.sysmessage @0481 <findid.i_beklebiraz.timer> saniye sonra atabilirsiniz.
return 1
On=@GetHit
if (rand(3) == 1)
sayua 50,6,0,enu * Bandajlari Yirtilir *
findid.i_mem_healing.remove
endif
On=@Death
findid.i_mem_healing.remove
On=@Logout
findid.i_mem_healing.remove
[function checkhealing]
healverlandallamaitkrocan
[function checkveterinary]
healverlandallamaitkrocan3
[function checkanatomy]
healverlandallamaitkrocan2
[function checkanimallore]
if ((<skilllock[2]> == 0) && (<skilltotal> < 800.0))
if (<animallore> < 30.0)
if (rand(1) == 1)
animallore (<animallore> + 1)
endif
elseif (<animallore> < 50.0)
if (rand(2) == 1)
animallore (<animallore> + 1)
endif
elseif (<animallore> < 75.0)
if (rand(4) == 1)
animallore (<animallore> + 1)
endif
elseif (<animallore> < 100.0)
if (rand(5) == 1)
animallore (<animallore> + 1)
endif
endif
endif
[function healverlandallamaitkrocan]
if (<skilltotal> < 800.0)
if (<skilllock[17]> == 0)
if (<healing> < 100.0)
healing +=1
return 1
endif
endif
endif
[function healverlandallamaitkrocan2]
if (<skilltotal> < 800.0)
if (<skilllock[1]> == 0)
if (<anatomy> < 100.0)
anatomy +=1
return 1
endif
endif
endif
[function healverlandallamaitkrocan3]
if (<skilltotal> < 800.0)
if (<skilllock[39]> == 0)
if (<veterinary> < 100.0)
veterinary +=1
return 1
endif
endif
endif
[ITEMDEF i_oil_cloth]
DEFNAME=i_oil_cloth
ID=0e21
NAME=oil cloth
RESOURCES=i_cloth
WEIGHT=.1
DYE=0
VALUE=15
SKILLMAKE=TAILORING 74.6
CATEGORY=Items by Professions
SUBSECTION=Tailor
DESCRIPTION=Oil Cloth
TYPE=t_bandage
ON=@DClick
if !(<topobj.uid> == <src.uid>)
src.sysmessage @0481 Bunu sadece cantanizda kullanabilirsiniz.
return 1
endif
TARGET @0481 Zehrini gecireceginiz silahi secin.
RETURN 1
ON=@TargOn_Char
SRC.SYSMESSAGE @0481 Bu bir silah degil.
RETURN 1
ON=@TargOn_Item
IF (<SRC.TARG.UID>==<UID>)
SRC.SYSMESSAGE @0481 Bu bir silah degil
ELSEIF (<SRC.TARG.morez> > 0)
SRC.SysMessage @0481 Silahin zehrini gecirdiniz
SRC.TARG.morez 0
src.consume 1 i_oil_cloth
ELSE
SRC.SYSMESSAGE @0481 Bu zehirli degil.
ENDIF
RETURN 1
ve top10 stonede puanları 0 lamak ıcın ne skılde uygulama yapabilirz bu scripte
[FUNCTION xxtop10]
var.panim=<eval <src.tag.pan>>
FOR X 1 10
obj = <uid.<uid.<var.ranktas>.tag.sira<eval <local.x>>>>
if (<obj> = <src.uid>)
var.cnnt=<eval (<eval <local.x>> +1)>
var.numper=<eval <local.x>>
src.foryuk
src.sysmessage @1993 Sayin <src.name> Suan, <eval <local.x>>. Siradasiniz Ve <eval <src.tag.pan>> Kadar Puana Sahipsiniz. <Serv.Name> Ailesi...
return 1
endif
endfor
src.foryerles
src.sysmessage @0810 Siralamaya Koyuluyor...
src.sysmessage @0823 [NOT: Daha Once Kimseyi Oldurmediyseniz Siralamaya giremezsiniz.]
src.sysmessage @07d4 Sadece Siralamaya Bakabilirsiniz.
[function foryerles]
for b 1 10
obj = <uid.<uid.<var.ranktas>.tag.sira<eval <local.b>>>>
if (<eval <obj.tag.pan>> < <eval <var.panim>>)
var.cnntq=<eval (<eval <local.b>> +1)>
var.numper=<eval <local.b>>
src.forfo
return 1
endif
endfor
[FUNCTION foryuk]
for y <eval <var.cnnt>> 10
try uid.<var.ranktas>.tag.sira<eval <local.y> - 1> = <uid.<var.ranktas>tag.sira<eval <local.y>>>
endfor
src.foryerles
[dialog errg]
0,0
resizepic 50 0 83 500 250//ARka Fon
resizepic 50 300 83 200 80//Zamazingo
resizepic 60 20 3000 480 20////Liste Cizgileri
resizepic 60 40 3000 480 20////Liste Cizgileri
resizepic 60 60 3000 480 20////Liste Cizgileri
resizepic 60 80 3000 480 20////Liste Cizgileri
resizepic 60 100 3000 480 20////Liste Cizgileri
resizepic 60 120 3000 480 20////Liste Cizgileri
resizepic 60 140 3000 480 20////Liste Cizgileri
resizepic 60 160 3000 480 20////Liste Cizgileri
resizepic 60 180 3000 480 20////Liste Cizgileri
resizepic 60 200 3000 480 20////Liste Cizgileri
page 0
for c 1 10
obj = <uid.<uid.<var.ranktas>.tag.sira<eval <local.c>>>>
dtext 130 <hval <local.c>*20> 50 <obj.name>
dtext 500 <hval <local.c>*20> 50 <eval <obj.tag.pan>>
dtext 65 325 1152 Top 10 Player
dtext 65 20 38 1.Isim:
dtext 65 40 38 2.Isim:
dtext 65 60 38 3.Isim:
dtext 65 80 38 4.Isim:
dtext 65 100 38 5.Isim:
dtext 65 120 38 6.Isim:
dtext 65 140 38 7.Isim:
dtext 65 160 38 8.Isim:
dtext 65 180 38 9.Isim:
dtext 65 200 38 10.Isim:
dtext 450 20 38 Puan:
dtext 450 40 38 Puan:
dtext 450 60 38 Puan:
dtext 450 80 38 Puan:
dtext 450 100 38 Puan:
dtext 450 120 38 Puan:
dtext 450 140 38 Puan:
dtext 450 160 38 Puan:
dtext 450 180 38 Puan:
dtext 450 200 38 Puan:
endfor
[FUNCTION forfo]
for y 10 <eval <var.cnntq>>
try uid.<var.ranktas>.tag.sira<eval <local.y>> = <eval <uid.<var.ranktas>tag.sira<eval <local.y> - 1>>>
endfor
try uid.<var.ranktas>.tag.sira<eval <var.numper>> = <src.uid>
[itemdef i_ranktasnix]
id i_grave_stone
type=t_script
name=ranking
on=@create
attr 080
[function rankkur]
var.ranktas=<args>
serv.allclients sysmessage @0810 Kurulum Basariyla Tamamlandi:
serv.allclients sysmessage @056,,1 Top10 Listesi Siralamasina Bakabilmeniz Icin .Top10 Veya .siralama Yazarak Bakabilirsiniz.
serv.allclients sysmessage @0810 <Serv.Name> Iyi Oyunlar Diler.
<var.ranktas>
return 1
[Plevel 01]
top10
xxtop10
siralama
[Events e_puanc]
on=@death
if (<act.tag.puan> = 0)
src.sysmessage @1153 0 Puana Sahipsin...
else
src.tag.pan <eval <src.tag.pan> -1>
src.sysmessage @0810 Oldugunuz Icin 1 Puan Kaybettiniz.
src.xxtop10
on=@kill
if (<argo.fame> <= 4500))
src.sysmessage @38,1,1 Puan Alamadin...
else
src.tag.pan <eval <src.tag.pan> +1>
src.sysmessage @63,1,1 1 Puan Aldininiz...
src.xxtop10
endif
[itemdef i_top10_stone]
defname=i_top10_stone
id=i_wall_stone_11
weight=999
type=t_eq_script
name=Top 10 Listesi
on=@create
attr=010
color=07a1
on=@click
Message @07a1 <serv.name>
message @50 <name>
return 1
on=@dclick
src.dialog errg
return 1
[FUNCTION top10]
var.panim=<eval <src.tag.pan>>
FOR X 1 10
obj = <uid.<uid.<var.ranktas>.tag.sira<eval <local.x>>>>
if (<obj> = <src.uid>)
var.cnnt=<eval (<eval <local.x>> +1)>
var.numper=<eval <local.x>>
src.foryuk
src.sysmessage @1993 Sayin <src.name> Suan, <eval <local.x>>. Siradasiniz Ve <eval <src.tag.pan>> Kadar Puana Sahipsiniz. <Serv.Name> Ailesi...
src.dialog errg
return 1
endif
endfor
src.foryerles
src.sysmessage @0810 Siralamaya Koyuluyor...
src.sysmessage @0823 [NOT: Daha Once Kimseyi Oldurmediyseniz Siralamaya Giremezsiniz.]
src.sysmessage @07d4 Sadece Siralamaya Bakabilirsiniz.
[function foryerles]
for b 1 10
obj = <uid.<uid.<var.ranktas>.tag.sira<eval <local.b>>>>
if (<eval <obj.tag.pan>> < <eval <var.panim>>)
var.cnntq=<eval (<eval <local.b>> +1)>
var.numper=<eval <local.b>>
src.forfo
return 1
endif
endfor
[FUNCTION siralama]
src.dialog errg
src.sysmessage @0810 <Serv.Name> Siralama Menusu. Basariyla Acilmistir.!
Bu konu Ferralin tarafından düzenlendi(2012-03-14 07:28, 13 yıl önce)
