UO-Dev Arama

 



İçerde : 1 misafir, 0 üye : --- Sayfalar: 12>Son »
Yazar

aldarson


UO-Dev Üyesi
Skill Title: Adept
Online durumu
Toplam Mesaj: 542
Oyun Tarzı:
Emulatör:
Tecrübe: Diğer
Yaş:
Mesaj #25357   16-06-2010 15:15 GMT    
        
Kod:
[PLEVEL 2]
kufurbildir

[FUNCTION kufurbildirim]
SRC.SDIALOG d_kufur

[FUNCTION kufur]
TARGETF _kufur

[FUNCTION _kufur]
REF1=<ARGO>
IF !(<REF1.ISPLAYER>)
SRC.SYS_HATA Sadece oyuncuları seçebilirsiniz.
ELSEIF (<REF1>==<SRC>)
SRC.SYS_HATA Kendinizi seçemezsiniz.
ELSEIF (<REF1.FINDID(i_kufur_bildirim)>)
SRC.SYS_HATA <REF1.NAME> isimli hedefte küfür bildirimi bulunuyor.
ELSE
LIST.Kufur_System_Player_Uid.Add <REF1>
LIST.Kufur_System_Time.Add <SERV.RTIME>
LIST.Kufur_System_Referans_Uid.ADD <SRC>
SERV.NEWITEM i_kufur_bildirim,1,<REF1>,1
SRC.SYS_OK <REF1.NAME> küfür bildirimine girdi.
ENDIF

[DIALOG d_kufur]
50,50
NOMOVE
RESIZEPIC 0 0 02422 210 210
LOCAL.PAGE=1
LOCAL.TOTAL=0

IF <LIST.Kufur_System_Player_Uid.COUNT>
FOR 0 <EVAL (<LIST.Kufur_System_Player_Uid.COUNT>)-1>
  IF !(<UID.<LIST.Kufur_System_Player_Uid.<dLOCAL._FOR>>>) || !(<UID.<LIST.Kufur_System_Player_Uid.<dLOCAL._FOR>>.TAG0.KUFURBAZ>)
   LIST.Kufur_System_Player_Uid.<dLOCAL._FOR>.REMOVE
  ENDIF
ENDFOR
ENDIF

IF (<LIST.Kufur_System_Player_Uid.COUNT>)
PAGE 1
FOR 0 <EVAL (<LIST.Kufur_System_Player_Uid.Count>)-1>
IF (<dLOCAL.TOTAL> >5)
LOCAL.TOTAL=0
BUTTON 150 190 5601 5605 0 <EVAL (<LOCAL.PAGE>)+1> 1
DHTMLGUMP 170 190 40 20 0 0 İleri
LOCAL.PAGE +=1
PAGE <dLOCAL.PAGE>
BUTTON 150 190 5601 5605 0 <EVAL (<LOCAL.PAGE>)-1> 1
DHTMLGUMP 170 190 40 20 0 0 Geri
ENDIF
BUTTON 20 <EVAL (<LOCAL.TOTAL>*25)+20> 5601 5605 1 0 <EVAL <LOCAL._FOR> + 10>
DHTMLGUMP 40 <EVAL (<LOCAL.TOTAL>*25)+20> 200 20 0 0 Küfür Bildiren:<UID.<LIST.Kufur_System_Referans_Uid.<dLOCAL._FOR>>.NAME>
LOCAL.TOTAL +=1
ENDFOR
ENDIF

[DIALOG d_kufur BUTTON]
ON=1,500
SRC.sDialog d_kufur_ayrinti,0,<EVAL <ARGN> -10>

[DIALOG d_kufur_ayrinti]
50,50
NOMOVE
RESIZEPIC 0 0 02422 270 350
RESIZEPIC 0 350 02422 270 100
DHTMLGUMP 30 20 500 20 0 0 Küfürbaz : <UID.<LIST.Kufur_System_Player_Uid.<dARGV[0]>>.NAME>
DHTMLGUMP 30 40 500 20 0 0 Referans : <UID.<LIST.Kufur_System_Referans_Uid.<dARGV[0]>>.NAME>
DHTMLGUMP 30 60 500 20 0 0 Zaman   : <LIST.Kufur_System_Time.<dARGV[0]>>
DHTMLGUMP 30 80 100 50 0 0 Yazıları  ;
DHTMLGUMP 30 100 200 100 0 0 <UID.<LIST.Kufur_System_Player_Uid.<dARGV[0]>>.Tag0.Kufurbaz>

DHTMLGUMP 50 370 200 20 0 0 Şikayetçiyi hapis yolla
DHTMLGUMP 50 390 200 20 0 0 Şikayet edileni hapis yolla
DHTMLGUMP 50 410 200 20 0 0 Asılsız ihbar olarak işaretle

FOR 3
BUTTON 30 <EVAL (<LOCAL._FOR>*20)+350> 5601 5605 1 0 <dLOCAL._FOR>
ENDFOR

SRC.CTAG0.NUM <ARGV[0]>

[DIALOG d_kufur_ayrinti BUTTON]
ON=1
IF (<UID.<LIST.Kufur_System_Referans_Uid.<SRC.dCTAG0.NUM>>>)
REF5=<LIST.Kufur_System_Referans_Uid.<SRC.dCTAG0.NUM>>
REF5.GO Jail
ELSE
Kufur_Sil <SRC.dCTAG0.NUM>
SRC.SYS_OK Böyle bir kullanıcı olmadığı için şikayet silindi.
ENDIF

ON=2
IF (<UID.<LIST.Kufur_System_Player_Uid.<SRC.dCTAG0.NUM>>>)
REF5=<LIST.Kufur_System_Player_Uid.<SRC.dCTAG0.NUM>>
REF5.GO Jail
ELSE
Kufur_Sil <SRC.dCTAG0.NUM>
SRC.SYS_OK Böyle bir kullanıcı olmadığı için şikayet silindi.
ENDIF

ON=3
IF (<UID.<LIST.Kufur_System_Player_Uid.<SRC.dCTAG0.NUM>>>)
REF5=<LIST.Kufur_System_Player_Uid.<SRC.dCTAG0.NUM>>
REF5.FINDID(i_kufur_bildirim).REMOVE
IF <LIST.Kufur_System_Player_Uid.COUNT>
LIST.Kufur_System_Player_Uid.<SRC.CTAG0.NUM>.REMOVE
LIST.Kufur_System_Time.<SRC.CTAG0.NUM>.REMOVE
LIST.Kufur_System_Referans_Uid.<SRC.CTAG0.NUM>.REMOVE
SRC.SYS_OK Şikayet kayıtlardan silindi.
ENDIF
ENDIF

[FUNCTION kufur_tablo_temizle]
LIST.Kufur_System_Player_Uid.Clear
LIST.Kufur_System_Time.Clear
LIST.Kufur_System_Referans_Uid.Clear
FORINSTANCES i_kufur_bildirim
REMOVE
ENDFOR
SRC.SYSMESSAGE @1153,,1 Küfür tablosu başarıyla temizlendi.

[FUNCTION kufur_sil]
LIST.Kufur_System_Player_Uid.<ARGN1>.REMOVE
LIST.Kufur_System_Time.<ARGN1>.REMOVE
LIST.Kufur_System_Referans_Uid.<ARGN1>.REMOVE

[ITEMDEF i_kufur_bildirim]
ID i_memory
NAME Kufur Sistemi
TYPE t_eq_script
WEIGHT 0

On=@Create
Attr Attr_Newbie|Attr_Invis|Attr_Decay

On=@Destroy
CONT.Tag0.Kufurbaz=


Speech kısmınada şunu ekleyiniz

Kod:
ON=*
IF (<SRC.FINDID(i_kufur_bildirim)>)
SRC.TAG0.KUFURBAZ .= / <ARGS>
ENDIF


Çok fazla uğraşmadım ayarlanması gereken birkaç şeyler daha var iyice düzenleyebilirseniz ortaya iyi bir şeyler çıkarabilirsiniz.



Yazar

KeLL


UO-Dev Üyesi
Skill Title: Expert
Online durumu
Toplam Mesaj: 430
Oyun Tarzı: Pp
Emulatör:
Tecrübe: Scripter
Yaş: 28
Mesaj #25364   16-06-2010 15:25 GMT    
        
Eline sağlık ama bişey dikkatimi çekti yanlış anlamazsın umarım.

Kod:
FOR 3
BUTTON 30 <EVAL (<LOCAL._FOR>*20)+350> 5601 5605 1 0 <dLOCAL._FOR>
ENDFOR


3 tane buton yapsanda 3 satır olmazmıydı =)


KeLL
adadasdad
Blog'um

Yazar

aldarson


UO-Dev Üyesi
Skill Title: Adept
Online durumu
Toplam Mesaj: 542
Oyun Tarzı:
Emulatör:
Tecrübe: Diğer
Yaş:
Mesaj #25365   16-06-2010 15:25 GMT    
        
Kilobyte olarak azaltmayı sağlamak için yaptım küçük küçük azalmalar sayesinde fazla yer kaplamaması için



Yazar

KeLL


UO-Dev Üyesi
Skill Title: Expert
Online durumu
Toplam Mesaj: 430
Oyun Tarzı: Pp
Emulatör:
Tecrübe: Scripter
Yaş: 28
Mesaj #25368   16-06-2010 15:39 GMT    
        
Satır olarak kısaltma çılgınlığından sonra yeni bir modada sen başlatma şimdi duyulmasın bu =) Bir kaç harften kaç byte küçülüebilir onuda anlamadım, küçülünce ne olduğunu hiç anlamadım. Sphere'e bir etkisi olmadığını biliyorum ama belki yedeklemeyle alakalıdır.


KeLL
adadasdad
Blog'um

Yazar

aldarson


UO-Dev Üyesi
Skill Title: Adept
Online durumu
Toplam Mesaj: 542
Oyun Tarzı:
Emulatör:
Tecrübe: Diğer
Yaş:
Mesaj #25370   16-06-2010 15:41 GMT    
        
sphere ile alakası olup olmadığını bilmiyorumda yedeklemede kolaylık sağlıyor



Yazar

Alcholic


Champions
Skill Title: Adept
Online durumu
Toplam Mesaj: 569
Oyun Tarzı: Pp
Emulatör: 0.56b
Tecrübe: Scripter
Yaş: 26
Mesaj #25375   16-06-2010 16:58 GMT    
        
oha ! Saçmalık


wellia.net


Hayat sana ekşi limonlar sunarsa, sen de tekila ve tuz iste ...

"Partners help each other undress before sex. After sex, they always dress on their own. Moral of the story: In life, no one helps you once you get fucked."

Yazar

Rexos


Yasaklı
Skill Title: Expert
Online durumu
Toplam Mesaj: 324
Oyun Tarzı: Rp
Emulatör: 0.56b
Tecrübe: Player
Yaş: 25
Mesaj #25387   16-06-2010 18:12 GMT    
        
aslında şey yapmamız lazım

kim daha az satırlı ve kb'li script yapar

yarışması...



Yazar

Kadhras


UO-Dev Üyesi
Skill Title: Expert
Online durumu
Toplam Mesaj: 374
Oyun Tarzı: Pp
Emulatör: 0.56b
Tecrübe: Scripter
Yaş: 26
Mesaj #25395   16-06-2010 18:44 GMT    
        
Adam scripti yazmış ve sizlere sunmuş.Birşey hakkında eleştiri yapmak için ondan daha iyisini yapmalısınız.Eline sağlık Aldarson.


Sizin hayal bile edemediklerinizi biz çoktan yapmış oluyoruz.

stones.gen.tr

Yazar

Alcholic


Champions
Skill Title: Adept
Online durumu
Toplam Mesaj: 569
Oyun Tarzı: Pp
Emulatör: 0.56b
Tecrübe: Scripter
Yaş: 26
Mesaj #25397   16-06-2010 18:59 GMT    
        
allah allah. Daha iyisini yapmadan eleştri yapılmıyor ha ? Bidahaki sefere orda for kullanmaz daha iyisini yazmış olur eleştrinin temel amacı budur. Sen devam et şakşakçılığa herşeye eline sağlık süper de ok ?


wellia.net


Hayat sana ekşi limonlar sunarsa, sen de tekila ve tuz iste ...

"Partners help each other undress before sex. After sex, they always dress on their own. Moral of the story: In life, no one helps you once you get fucked."

Yazar

basic


Yörünge Dışı Yetkili
Skill Title: Master
Online durumu
Toplam Mesaj: 1095
Oyun Tarzı: Rp
Emulatör: 0.56b
Tecrübe: Scripter
Yaş: 26
Mesaj #25410   16-06-2010 20:33 GMT    
        
Tartışmadan devam edelim beyler.


4 yıl olmuş ya lan!!

Yazar

aldarson


UO-Dev Üyesi
Skill Title: Adept
Online durumu
Toplam Mesaj: 542
Oyun Tarzı:
Emulatör:
Tecrübe: Diğer
Yaş:
Mesaj #25412   16-06-2010 21:08 GMT    
        
Devam edin vesselam



Yazar

Kadhras


UO-Dev Üyesi
Skill Title: Expert
Online durumu
Toplam Mesaj: 374
Oyun Tarzı: Pp
Emulatör: 0.56b
Tecrübe: Scripter
Yaş: 26
Mesaj #25413   16-06-2010 21:11 GMT    
        
Alıntı
Alcholic :
allah allah. Daha iyisini yapmadan eleştri yapılmıyor ha ? Bidahaki sefere orda for kullanmaz daha iyisini yazmış olur eleştrinin temel amacı budur. Sen devam et şakşakçılığa herşeye eline sağlık süper de ok ?



Sanıyorum ki... Attığın bu son mesajında haddini aştığının farkında olmadığını düşünerek bu son mesajı yazıyorum.Ne bu ne de diğer platformlarda uzun zamandır takılmıyorum.Canım sıkıldığı zaman girip ; Konulara bakıyorum canım isterse mesajımı yazıyorum.Eğer birini tebrik etmem şakşakçılık oluyorsa ; Evet ben şakşakçıyım , Alkolik.


Sizin hayal bile edemediklerinizi biz çoktan yapmış oluyoruz.

stones.gen.tr

Yazar

Axuare


UO-Dev Üyesi
Skill Title: Expert
Online durumu
Toplam Mesaj: 337
Oyun Tarzı: Rp
Emulatör: 0.56b
Tecrübe: Diğer
Yaş: 26
Mesaj #25415   16-06-2010 22:17 GMT    
        
Script için teşekkürler Aldarson

Yararlı bir script ve arkdaşların işine yarayacagı kanatindeyim.


Özür dilemek;
Senin haksız, karşıdakinin haklı olduğu anlamına gelmez.
"Karşıdaki insana verdiğin değerin, egondan yüksek olduğunu ifade eder".


Ultima Online : Rise of Dragons..

Yazar

aldarson


UO-Dev Üyesi
Skill Title: Adept
Online durumu
Toplam Mesaj: 542
Oyun Tarzı:
Emulatör:
Tecrübe: Diğer
Yaş:
Mesaj #25417   16-06-2010 22:20 GMT    
        
teşekkürler



Yazar

Exorcism


UO-Dev Üyesi
Skill Title: Journeyman
Online durumu
Toplam Mesaj: 111
Oyun Tarzı: Pvp
Emulatör: 0.56b
Tecrübe: Scripter
Yaş: 30
Mesaj #25423   16-06-2010 22:47 GMT    
        
Eline sağlık Aldarson,çok kullanışlı işe yarayacağından eminim



Yazar

aldarson


UO-Dev Üyesi
Skill Title: Adept
Online durumu
Toplam Mesaj: 542
Oyun Tarzı:
Emulatör:
Tecrübe: Diğer
Yaş:
Mesaj #25431   16-06-2010 23:11 GMT    
        
Teşekkürler,

Her bildiride yeni bir değeri 0 olan list ekleyip dialogta küfür bildirisine sadece ilk tıklayan kişinin ilgilenmeside yapılabilir.



Yazar

Mac-Fusion


UO-Dev Üyesi
Skill Title: Adept
Online durumu
Toplam Mesaj: 689
Oyun Tarzı: Pp
Emulatör: 0.56b
Tecrübe: Scripter
Yaş: 32
Mesaj #25440   17-06-2010 00:13 GMT    
        
Kod:
LIST.Kufur_System_Player_Uid.Add <REF1>
LIST.Kufur_System_Time.Add <SERV.RTIME>
LIST.Kufur_System_Referans_Uid.ADD <SRC>

- Farklı farklı 3 list kullanmaktansa ARGV ile tek list ile işini görebilirdin.

Kod:
LIST.Kufur_System <REF1>,<SERV.RTIME>,<SRC>


- Bir gece yarısı yapılan ihbarlarla maximum 50 adet ihbar olduğunu varsayıyorum. Bunların hepsini PAGE <dLOCAL.PAGE> göstermek, BYTE kasıntısından öte, SPHERE performansını bir hayli sarsacaktır. Çünkü hangi PAGE i gösterirseniz gösterin, tüm PAGE ler işlemden geçmiş ve yüklenmiş olacaktır. Sadece gösterilmeyi bekler.
Buna dayanarak,
Kod:
FOR 0 <EVAL (<LIST.Kufur_System_Player_Uid.Count>)-1>

Kodunu, FOR <BAŞLANGIÇ CTAGI> <BİTİŞ CTAGI> şeklinde yaparsan, ileri geri butonlarınıda buna göre hesaplatırsan her sayfada BAŞLANGIÇ ve BİTİŞ aralığı çağırılacaktır.

Kod:
REF1=<ARGO>

- Argo zaten referanstır.

Kod:
IF <LIST.Kufur_System_Player_Uid.COUNT>

- Kufur_System_Player_Uid adında bir LIST olmadığı zaman hata verecektir. Fakat şöyle yapabilirsin (desenin düzgün olduğundan emin değilim)
Kod:
IF STRREGEX(^[A-Z0-9]+$, <LIST.Kufur_System_Player_Uid.COUNT>)


i_kufur_bildirim
- Son olarakta, karşı tarafta küfür bildiriminin olup olmadığını sorgulatmak için bu itemi kullanmışsın. Fakat kişi ihbar edildiği andan itibaren LIST e ekleniyor. Bu yüzden şu kısmı;
Kod:
ELSEIF (<REF1.FINDID(i_kufur_bildirim)>)
SRC.SYS_HATA <REF1.NAME> isimli hedefte küfür bildirimi bulunuyor.


Şöyle yapabilirsin;
Kod:
IF (<LIST.Kufur_System_Player_Uid.FINDELEM <REF1>>) //Eğer değer REF1 bulunursa, çıktısı ELEM sırası olacaktır.



Paylaşım için teşekkürler.


Son güncelleme: Mac-Fusion tarafından 17-06-2010 04:13 GMT, önce düzenlendi.


Yazar

aldarson


UO-Dev Üyesi
Skill Title: Adept
Online durumu
Toplam Mesaj: 542
Oyun Tarzı:
Emulatör:
Tecrübe: Diğer
Yaş:
Mesaj #25469   17-06-2010 08:27 GMT    
        
Teşekkürler M-F, yerleri değiştirdim dediklerin doğrultusunda daha güzel oldu şimdi.

Ayrıca,
Ref kullanmayı daha çok sevdiğim için öyle yapıyorum + bazı yerlerde gördüm argo sorun yaratabiliyor diyorlardı.
findid.i_kufur_bildirim'i yine aynı şekilde bıraktım zararı yok diye çünkü findelem kullanırsam

IF STRREGEX(^[A-Z0-9]+$, <LIST.Kufur_System_Player_Uid.COUNT> bu satırıda kullanıcam çünkü ilk tıklamada list olmadığı için hata verebilir
Kod:
[FUNCTION kufur]
TARGETF _kufur

[FUNCTION _kufur]
REF1=<ARGO>
IF !(<REF1.ISPLAYER>)
SRC.SYS_HATA Sadece oyuncuları seçebilirsiniz.
ELSEIF (<REF1>==<SRC>)
SRC.SYS_HATA Kendinizi seçemezsiniz.
ELSEIF (<REF1.FINDID(i_kufur_bildirim)>)
SRC.SYS_HATA <REF1.NAME> isimli hedefte küfür bildirimi bulunuyor.
ELSE
LIST.Kufur_System.ADD <REF1>,<SERV.RTIME>,<SRC>
SERV.NEWITEM i_kufur_bildirim,1,<REF1>,1
SRC.SYS_OK <REF1.NAME> küfür bildirimine girdi.
ENDIF

[DIALOG d_kufur]
50,50
NOMOVE
RESIZEPIC 0 0 02422 260 185

IF STRREGEX(^[A-Z0-9]+$, <LIST.Kufur_System.COUNT>)
FOR <SRC.dCTAG0.KUFUR_MIN> <EVAL <SRC.CTAG0.KUFUR_MIN> +5>
  IF !STRMATCH("<F_SELECT 2,<StrEat <LIST.Kufur_System.<dLOCAL._FOR>>>>","")
  DHTMLGUMP +50 *20 300 20 0 0 Bildiri Yapan:<F_SELECT 2,<StrEat <LIST.Kufur_System.<dLOCAL._FOR>>>>
  BUTTON +20 *0 5601 5605 1 0 <EVAL <LOCAL._FOR> +1>
  ENDIF
ENDFOR
ENDIF

BUTTON 20 145 5601 5605 1 0 998
BUTTON 60 145 5603 5607 1 0 999

[DIALOG d_kufur BUTTON]
ON=1,997
SRC.sDIALOG d_kufur_ayrinti,0,<EVAL <ARGN> -1>

ON=998,999
IF (<dARGN>==998)
SRC.CTAG0.KUFUR_MIN +=1
ELSE
IF (<SRC.dCTAG0.KUFUR_MIN> > 0)
SRC.CTAG0.KUFUR_MIN -=1
ENDIF
ENDIF
SRC.sDIALOG d_kufur,0,<SRC.dCTAG0.KUFUR_MIN>

[DIALOG d_kufur_ayrinti]
50,50
NOMOVE
Ref5=<StrArg <LIST.Kufur_System.<dArgv[0]>>>
RESIZEPIC 0 0 02422 270 350
RESIZEPIC 0 350 02422 270 100
DHTMLGUMP 30 20 500 20 0 0 Şikayetci : <UID.<F_SELECT 2,<StrEat <LIST.Kufur_System.<dArgv[0]>>>>.NAME>
DHTMLGUMP 30 40 500 20 0 0 Küfürbaz : <REF5.NAME>
DHTMLGUMP 30 60 500 20 0 0 Zaman   :  <F_SELECT 1,<StrEat <LIST.Kufur_System.<dArgv[0]>>>>
DHTMLGUMP 30 80 200 50 0 0 Yazıları  ; <REF5.TAG0.KUFURBAZ>
DHTMLGUMP 30 100 200 100 0 0
DHTMLGUMP 50 370 200 20 0 0 Şikayetçiyi hapis yolla
DHTMLGUMP 50 390 200 20 0 0 Şikayet edileni hapis yolla
DHTMLGUMP 50 410 200 20 0 0 Asılsız ihbar olarak işaretle

FOR 3
BUTTON 30 <EVAL (<LOCAL._FOR>*20)+350> 5601 5605 1 0 <dLOCAL._FOR>
ENDFOR

SRC.CTAG0.NUM <ARGV[0]>,<REF5>,<F_SELECT 2,<StrEat <LIST.Kufur_System.<dArgv[0]>>>>

[DIALOG d_kufur_ayrinti BUTTON]
ON=1
REF6=<F_Select 3,<SRC.Ctag0.Num>>
IF !(<REF6>)
SRC.SYS_HATA Şikayetçinin karakteri silinmiş !
Kufur_Sil
ELSE
REF6.GO Jail
ENDIF

ON=2
REF5=<F_Select 2,<SRC.Ctag0.Num>>
IF !(<REF5>)
  SRC.SYS_HATA Küfürbazın karakteri silinmiş !
  Kufur_Sil
ELSE
REF5.GO JAIL
ENDIF

ON=3
Kufur_Sil

[FUNCTION kufur_tablo_temizle]
LIST.Kufur_System.Clear
ForInsTanCes i_kufur_bildirim
REMOVE
ENDFOR
SRC.SYS_OK Küfür tablosu başarıyla temizlendi.

[FUNCTION kufur_sil]
REF6=<StrArg <LIST.Kufur_System.<F_SELECT 1,<SRC.CTag0.Num>>>>
IF (<REF6>) && (<REF6.FINDID(i_kufur_bildirim)>)
REF6.FINDID(i_kufur_bildirim).REMOVE
ENDIF
LIST.Kufur_System.<ARGN1>.REMOVE

[ITEMDEF i_kufur_bildirim]
ID i_memory
NAME Kufur Sistemi
TYPE t_eq_script
WEIGHT 0

On=@Create
Attr Attr_Newbie|Attr_Invis|Attr_Decay

On=@Destroy
CONT.Tag0.Kufurbaz=


Son güncelleme: aldarson tarafından 17-06-2010 08:43 GMT, önce düzenlendi.



Yazar

Abadan


UO-Dev Üyesi
Skill Title: Expert
Online durumu
Toplam Mesaj: 490
Oyun Tarzı: Pp
Emulatör: 0.56b
Tecrübe: Scripter
Yaş: 27
Mesaj #25486   17-06-2010 10:06 GMT    
        
Başarılı bir çalışma tebrik ederim aldarson



Yazar

KeLL


UO-Dev Üyesi
Skill Title: Expert
Online durumu
Toplam Mesaj: 430
Oyun Tarzı: Pp
Emulatör:
Tecrübe: Scripter
Yaş: 28
Mesaj #25493   17-06-2010 10:24 GMT    
        
Item vermek yerine şöyle olsa;

Kod:
ON=*
IF <ctag0.bildirim> == 1
SRC.TAG0.KUFURBAZ .= / <ARGS>
ENDIF

[FUNCTION _kufur]
REF1=<ARGO>
IF !(<REF1.ISPLAYER>)
SRC.SYS_HATA Sadece oyuncuları seçebilirsiniz.
ELSEIF (<REF1>==<SRC>)
SRC.SYS_HATA Kendinizi seçemezsiniz.
ELSEIF (<REF1.FINDID(i_kufur_bildirim)>)
SRC.SYS_HATA <REF1.NAME> isimli hedefte küfür bildirimi bulunuyor.
ELSE
LIST.Kufur_System.ADD <REF1>,<SERV.RTIME>,<SRC>
argo.ctag0.bildirim 1
timerf 60,argo.ctag0.bildirim 0
SRC.SYS_OK <REF1.NAME> küfür bildirimine girdi.
ENDIF


KeLL
adadasdad
Blog'um

Sayfalar: 12>Son »



Benzer Konular

KonularMesajlarSon gönderenTarih
Evil GM (NPC/BOSS) sistemi5Slothere06-12-2018
Donate Sistemi İçin Özgün Eşyalar?41Alp15-10-2018
Farklı bir healing sistemi [script istiyorum]3Wasabi-san20-09-2018
Stable sistemi yardım9MirroR27-04-2018
Küfür Sistemi Undefined keyword13paris1618-04-2018


Keywords:

ultima online, RunUO, ultima online download, sphere scripting, role play, uo grafik, second age ultima, uo loop, macroman, pvp server, server kurulumu, sphere, multool, ml mulls, 56b 55r 55i, htmlgumps, client 4x, client edit, sphere release, osi, rp server, sunucular, ghost mouse, inside uo, kingdom reborn, stygian abyss, uo nasıl oynanır, mondain's legacy, age of shadows, world build, grandmaster, ultima online pvp, player dosyaları, ultima online indir, frp game, RunUO 1.0.0, razor, uo rice, hue editör, skill tools, ultima online patch, axis, world build, verdata, verdata patcher, map editör, gump editör, mul patcher, aos mulls, scriptler, anim edit, anim publish, hues mul, hosting vps, event dialog, account sistemi, skill gain, static yapımı,