Yeni info menüsü

Can sıkıntısından kaynaklanan bir istek ile yaptım. Eskisine altarnatif olarak kullanılabilir.Detaylı olarak test etmedim ama genel olarak bir sorun görmedim. Hata bulursanız "çalışmıyor","bozuk bu" gibi cümleler yerine hatayı söylerseniz yardımcı olurum.


Array Fonksyonları

[FUNCTION f_array_lenght]
return <dargv> 

[FUNCTION f_array]
local.temp = <argv[<eval <argv> - 1>]> -1
return <argv[<dlocal.temp>]>

Script

[comment Eksikler]
yorum yazma eklenmedi.
tercih meselesi olarak skill'leri göstertmedim dilerseniz eklerseniz.

[defname info_values]
info_<src.ctag0.info>_values = "Serial,Baseid,Name,Color,Timer,P,Amount,Type,More1,More2,Attr,Weight,Layer,Instances,Armor,Value,Dye,Morep,Link,Dispid"
info_item_priv = "8,5,2,5,7,5,7,6,7,7,7,5,8,8,8,8,8,7,5,5"

info_char_values = "Serial,Account,Name,Title,Color,Timer,Oskin,ID,Body,OBody,P,Home,Action,oSTR,oINT,oDEX,ModSTR,ModINT,ModDEX,Hits,Mana,Stam,Karma,Fame,Food,Flags,Exp,Level,ModAR,MaxWeight"
info_char_priv = "8,8,4,6,6,6,6,6,6,4,4,8,5,5,5,5,5,5,5,5,5,5,5,7,7,7,7,7,7,7"
[function ninfo]
targetf f_info
src.ctag.info_page = 1

[function f_info]
if (<argo.ischar>)
   src.ctag0.info ="Char"
else
   src.ctag0.info = "Item"
endif
  
argo.dialogclose d_item_info
argo.dialog d_item_info

[DIALOG d_item_info]
0,0
page 0
resizepic 40 125 9200 455 215
alphablack 50 135 435 195
dtext 180 143 54 <src.ctag0.info> Bilgileri ve Özellikleri

resizepic 230 <qval <ischar>?173:183> 9200 77 67
tilepichue 240 <qval <ischar>?185:205> <dispiddec> <dcolor>

if (<ischar>)
button 220 260 4005 4006 0 3 0
dtext 255 260 1153 begin_of_the_skype_highlighting              255 260 1153      end_of_the_skype_highlighting begin_of_the_skype_highlighting              255 260 1153      end_of_the_skype_highlighting begin_of_the_skype_highlighting              255 260 1153      end_of_the_skype_highlighting begin_of_the_skype_highlighting              255 260 1153      end_of_the_skype_highlighting begin_of_the_skype_highlighting              255 260 1153      end_of_the_skype_highlighting begin_of_the_skype_highlighting              255 260 1153      end_of_the_skype_highlighting begin_of_the_skype_highlighting              255 260 1153      end_of_the_skype_highlighting begin_of_the_skype_highlighting              255 260 1153      end_of_the_skype_highlighting begin_of_the_skype_highlighting              255 260 1153      end_of_the_skype_highlighting begin_of_the_skype_highlighting              255 260 1153      end_of_the_skype_highlighting tags&events
endif

dtext 255 300 1153 <qval <ischar>?Yetenekler:Çantaya al.>
button 220 300 4008 <qval (<ischar>)?40010:4011 4013> 1 0 1
dtext 255 280 1153 <qval <ischar>?Yorum yaz.:Sil>
button 220 280 <qval (<ischar>)?4011 4013:4017 4018> 1 0 2

button 60 140 5603 5607 1 0 4
button 460 140 5601 5605 1 0 5

DORIGIN 60 145
for <src.ctag0.info_page> <eval <src.ctag0.info_page>+9>
local.satir ++

if (<local.satir> > 5)
  local.satir = 0
  local.genislik = 120
  DORIGIN 340 145
endif

button - *30 4005 4007 1 0 (10+<dlocal._For>)
dhtmlgump +35 - 130 20 0 0 <def.bfont_lred><f_array <def.info_<src.ctag0.info>_values>,<dlocal._for>> : <def.bfont_white><croptext 9 <<f_array <def.info_<src.ctag0.info>_values>,<dlocal._for>>>>

endfor

page 2
if (0<args>)
  resizepic 40 350 9200 455 50
  alphablack 50 360 435 30
  button 60 365 4005 4006 1 0 3
  dtext 95 365 38 <f_array <def.info_<src.ctag0.info>_values>,<dargs>> :
  dtextentry 155 365 200 20 1153 0 <<f_array <def.info_<src.ctag0.info>_values>,<dargs>>>
endif

if (<ischar>)
page 3
resizepic 510 125 9200 210 215
alphablack 520 135 190 195
dtext 531 140 63 Karakter üzerindeki tagler

dtext 560 280 54 Toplam Tag : <tagcount>

button 555 310 2103 2103 0 5 0
dtext 575 307 1153 eventleri göster
button 525 310 5603 5607 1 0 8
button 690 310 5601 5605 1 0 9


local.y = 180
for tags <src.ctag0.info_tagpage> (<src.ctag0.info_tagpage>+4)
if <dlocal.tags> < <tagcount>
button 534 (3+<local.y>) 2103 2103 1 0 (100+<dlocal.tags>)
dtext 552 <local.y> 1153 tag.<tagat.<dlocal.tags>.key> : <tagat.<dlocal.tags>.value>
local.y +=20
endif

endfor

if <src.ctag0.tagat>
resizepic 510 351 9200 210 80
alphablack 520 361 190 60
dtextentry 526 368 180 20 1153 1 <tagat.<eval <src.ctag0.tagat>-1>.key>
button 650 396 4017 4018 1 0 51
dtext 680 398 1153 sil
button 520 398 4011 4013 1 0 53
dtext 550 399 63 değiştir
endif

page 5
resizepic 510 125 9200 210 215
alphablack 520 135 190 195
dtext 530 140 63 Karakter üzerindeki eventler
dhtmlgump 530 160 180 140 0 1 <events>

button 555 310 2103 2103 0 3 0
dtext 575 307 1153 tagleri göster
endif

[dialog d_item_info button]
ON=0
src.ctag0.tagat =
src.clearctags info
ON=1
if (0<topobj.isplayer>)
   src.sysh_trk Oyuncuların çantasından eşya alamazsınız.
   serv.log ## <src.name> esya almaya calisti. --> uid : <src.uid> & esya : <name>(<uid>)
else
   cont = <src.findlayer(layer_pack)>
   src.sys_trk <name> adlı eşyayı çantanıza koydunuz.
endif


ON=2
if (<topobj.isplayer>) && !(<topobj.isgm>)
   src.sysh_trk Oyunculara ait eşyaları silemezsiniz.
   serv.log ## <src.name> bir oyuncudan esya silmeye calisti --> uid : <src.uid> & esya : <name>(<uid>)
else
   src.sys_trk <amount> adet <name> silindi.
   serv.log ## <name>(<uid>) silindi. --> silen : <src.uid> silinen : <amount> adet <baseid>
   remove
endif

ON=3
<f_array <def.info_<src.ctag0.info>_values>,<dsrc.ctag0.info_Value>> = <argtxt[0]>

ON=4
if (<src.ctag0.info_page> > 9)
src.ctag0.info_page -=10
endif

dialog d_item_info

ON=5
if (<src.ctag0.info_page> < <qval (<ischar>)?2:1>0)
 src.ctag0.info_page +=10
endif
dialog d_item_info

ON=8
src.ctag0.info_tagpage -=5

if (<src.ctag0.info_tagpage> < 0)
src.ctag0.info_tagpage = 0
endif

dialog d_item_info,3

ON=9
if (<eval <src.ctag0.info_tagpage>/5> != <eval <tagcount>/5>)
  src.ctag0.info_tagpage +=5
endif
dialog d_item_info,3

ON=10,50
local.argn = (<argn>-10)
if <src.account.plevel> < <f_array <def.info_item_priv>,<dlocal.argn>>
   src.sysh_Trk <qval (<f_array <def.info_item_priv>,<dlocal.argn>>==8)?Bunu değiştiremezsiniz.:Bunu değiştirebilicek yetkiye sahip değilsiniz.>
else
   src.ctag.info_value = <local.argn>
   dialogclose d_item_info
   dialog d_item_info,2 <dlocal.argn>
endif

ON=51
src.ctag0.tagat -=1
src.sys_trk tag.<tagat.<src.ctag0.tagat>.key> tagi silindi.
tag.<tagat.<src.ctag0.tagat>.key> =
src.ctag0.tagat =

ON=53
tag.<tagat.<eval <src.ctag0.tagat>-1>.key> = <argtxt[1]>
src.sys_trk tag.<tagat.<eval <src.ctag0.tagat>-1>.key> = <argtxt[1]>
src.ctag0.tagat =

ON=100,200
src.ctag0.tagat = <eval <argn>-99>
dialog d_item_info,3


[function croptext]
if ((strlen(<streat <args>>)) > <strarg <args>>)
return <strsub 0 <strarg <args>> <streat <args>>>...
else
return <streat <args>>
endif


[eof]

Bu konu [Alcholic] tarafından düzenlendi(2010-09-11 03:23, 13 yıl önce)

Syntax : Güzel sistem olmuş Mert eline koluna sağlık ama dediğim gibi keşke paylaşmasaydın

Syntax senle hiç bir zaman bire bir dialoga girmedim ama sen her defasında böyle yazarsan insan dayanamaz. Sen hiç bir paylaşılan script pack'i scripti indirmediğine eminiğim/eminiğiz :). Birazcık topluluğa uyum sağlamaya bak sevilen bir tip değilsin ultima strike de. Neyse konuyu dağatmayalım.


@[Alcholic]

Ellerine sağlık denemedim ama resimlerden gözükdüğü kadarıyla hoş bir info menüsüne benziyor..
Teşekkürler.

@Lai
Bence bu tür tartışma yaratacak yorumları p.mden halledin.

@[Alcholic]
Eline sağlık.

@[Alcholic]

yetenekler kısmı yok sanırım birde yorum yazma olayı ile yetenekleri eklersen süper olur.