2 senedir Uo ile alakam olmadığından dolayı eskiden kalma bir kaç uğraş verdiğim sistem ya da scriptleri paylaşmak istedim, belki bu işe gönül vermiş arkadaşların hoşuna gider ve kendilerine göre editleyip kullanabiller
Not: Gözüme çarpanları buraya ekleyeceğim.
.Playerlist
Kod:
[Plevel 1]
Playerlist
[Function Playerlist]
Src.dialogclose cevrimicioyuncu
Src.dialog cevrimicioyuncu
[Dialog cevrimicioyuncu]
150,100
Nomove
Page 0
Resizepic 0 0 83 500 360
//Resizepic 10 10 9300 480 340
Checkertrans 7 10 487 340
Resizepic 0 360 83 500 50
Resizepic 7 370 9300 487 30
Checkertrans 7 370 487 30
Resizepic 200 370 2620 160 30
Button 350 375 4024 4025 1 0 29051453
dtextentrylimited 205 375 200 20 1152 1 14
Dtext 185 20 75 Çevrimici Oyuncu Menü
Dtext 70 50 75 Oyuncu İsmi
Dtext 210 50 75 Bulunduğu Yer
Dtext 390 50 75 Guild
Dtext 70 375 75 Online Oyuncu Ara :
Dtext 220 320 75 Konumum :
Dtext 290 320 <Qval <Src.Tag.Konumum>?38:1152> <Qval <Src.Tag.Konumum>?Kapalı:Açık>
Button 190 322 <Qval <Src.Tag.Konumum>?11400:11410> <Qval <Src.Tag.Konumum>?11401:11411> 1 0 26081071
Local.Sutun=0
Local.Sayfa=1
Page 1
For 0 <Hval <Serv.Clients>-1> ///Serverdeki tüm playerler
If <Local.Sutun> >10 ////Sayfadaki Maks. player sayısı
Local.Sutun=0
Button 450 315 015e1 015e5 0 <Eval <Local.Sayfa>+1> 1 /////ileri Butonu
Local.Sayfa +=1
Page <Eval <Local.Sayfa>>
Button 30 315 015e3 015e7 0 <Eval <Local.Sayfa>-1> 1 /////Geri Butonu
Endif
If (<Serv.Client.<Eval <Local._For>>.Account.Plevel> < 2) ///Plevel 8den küçükleri listeye alıyoruz
Local.Sutun += 1
If (<Serv.Client.<Local._For>.Kills> <7) //// Listedekilerin kill sayısı 7den küçükse alacakları renk
Local.Renk 064
ElseIf (<Serv.Client.<Local._For>.Kills> >7) /// kill sayısı büyükse alacakları renk
Local.Renk=39
Endif
Resizepic 35 <Eval (<Local.Sutun>*20)+60> 9300 430 20
Dtext 40 <Eval (<Local.Sutun>*20)+60> <Eval <Local.Renk>> <Serv.Client.<Local._For>.Name>
DHtmlGump 170 <Eval (<Local.Sutun>*20)+60> 168 20 0 0 <Def.bfont_red><Qval <Serv.Client.<Local._For>.Tag.Konumum>?<Def.Center>Konum Gizlenmiş<Def.Centerb>:<Def.BFont_Black><Def.Center><Serv.Client.<Local._For>.Region.Name>>
Dtext 355 <Eval (<Local.Sutun>*20)+60> <Qval <Serv.Client.<Local._For>.Guild>?75:42> <Qval <Serv.Client.<Local._For>.Guild>?<Serv.Client.<Local._For>.memoryfindtype.memory_guild.link.name>:Yok>
Endif
Endif
Local.bkisi=0
Local.tsayfa=1000
Page 1000
For 1 <Src.dCTag.Aranantoplam>
Ref1=<Src.CTag0.AranantoplamUiD<dlocal._for>>
If (<Local.Bkisi> > 8)
Local.Bkisi=0
Button 250 335 015e1 015e5 0 <eval <Local.Tsayfa>+1> 1
Local.BSayfa += 1
Page <dLocal.BSayfa>
Button 30 335 015e3 015e7 0 <eval <local.BSayfa>-1> 1
Endif
Local.Bkisi +=1
If (<Ref1.Kills> < 7)
Local.BRenk 064
ElseIf (<Ref1.Kills> > 7)
Local.BRenk 39
Endif
Resizepic 35 <eval (<Local.BKisi>*20)+60> 9300 430 20
DHtmlGump 170 <Eval (<Local.Bkisi>*20)+60> 170 20 0 0 <Def.bfont_red><Qval <Ref1.Tag.Konumum>?<Def.Center>Konum Gizlenmiş<Def.Centerb>:<Def.BFont_Black><Def.Center><Ref1.Region.Name>>
Dtext 40 <Eval (<Local.BKisi>*20)+60> <Eval <Local.BRenk>> <Ref1.Name>
Dtext 355 <Eval (<Local.BKisi>*20)+60> <Qval <Ref1.Guild>?75:42> <Qval <Ref1.Guild>?<Ref1.memoryfindtype.memory_guild.link.name>:Yok>
Endfor
Endfor
[Dialog Cevrimicioyuncu Button]
On 29051453
if <isempty <argtxt[1]>>
src.sysmessage @39,1,1 Boş bırakamazsınız.
return 1
endif
if ((strlen(<argtxt[1]>)) < 4)
src.sysmessage @39,1,1 Arama yapabilmeniz için en az 4 karakter kullanmalısınız.
return 1
endif
if (<isnum <argtxt[1]>>)
src.sysmessage @39,1,1 Rakam giremezsiniz.
return 1
endif
if !strmatch('*[a-z]*','<argtxt[1]>')
src.sysmessage @39,1,1 Sadece Nick oluşturabileceğiniz harfleri kullanabilirsiniz.
return 1
endif
Src.Cevrimicioyuncuara <argtxt1>
On 26081071
If <Src.Tag.Konumum>
Src.Tag.Konumum
Src.Hata Konumunuz artık gizli değil.
Src.Dialog Cevrimicioyuncu
Else
Src.Tag.Konumum 1
Src.Mesaj1 Konumunuz gizlendi.
Src.Dialog Cevrimicioyuncu
Return 1
Endif
[Function Cevrimicioyuncuara]
Src.CTag0.Aranantoplam 0
For 0 <Eval <Serv.Clients>-1>
If (<Serv.Client.<Eval <Local._For>>.Account.Plevel> < 2) ////Staffları aramalarda bulamasın
Ref1=<Serv.Client.<dLocal._For>.UID>
If (STRMATCH(*<Args>*,'<Ref1.name>'))
Src.CTag0.Aranantoplam ++
Src.CTag0.AranantoplamUid<Src.dCTag.Aranantoplam> <Ref1>
Endif
Endif
Endfor
If (<Src.Ctag0.Aranantoplam> >0)
SDialog Cevrimicioyuncu,1000
Src.Mesaj Arama sonuçlarında <Eval <Src.ctag0.aranantoplam>> kişi bulundu.
Return 1
Endif
Src.Hata Aradığınız kelime ile ilgili herhangi bir sonuç bulunamadı.
[Function AlphaBlack]
Gumppictiled <Argv[0]> <Argv[1]> 2624 <argv[2]> <Argv[3]>
CheckerTrans <Argv[0]> <Argv[1]> <Argv[2]> <Argv[3]>
Help Menu - Page Sistem
Not: xwerswoodx isimli kullanıcının (zamanında çok yardımı da dokunmuştur bana) page sistemini editlemiştim sanırım
Kod:
[Function Staffkontrol]
Local.toplamstaff=
For 0 <Eval <Serv.Clients>-1>
If <Uid.<Serv.Client.<Local._For>.uid>.Account.Plevel> >1
Local.toplamstaff +=1
Endif
Endfor
Return <dlocal.toplamstaff>
[Dialog d_Helpmenu]
185,0
NoMove
Page 0
Resizepic 25 25 83 400 350
Resizepic 32 35 9300 387 330
AlphaBlack 32 35 387 330
DHtmlgump 25 45 400 20 0 0 <def.h6><def.bfont_yellow><def.center><serv.name> Help Menü
Page 1
Resizepic 50 220 5120 170 130
Resizepic 230 220 5120 170 130
//DText 110 230 1153 Stuck
//DText 110 260 1153 Istatistikler
//DText 110 290 1153 Website
//DText 110 320 1153 Forumlar
DHtmlgump 110 230 120 20 0 0 <def.h6><def.bfont_white>Stuck
DHtmlgump 110 260 120 20 0 0 <def.h6><def.bfont_white>Istatistikler
DHtmlgump 110 290 120 20 0 0 <def.h6><def.bfont_white>Web Sayfası
DHtmlgump 110 320 120 20 0 0 <def.h6><def.bfont_white>Forumlar
//DHtmlgump 250 230 140 20 0 0 <def.h6><def.bfont_White>Çevrimiçi Yetkili : <qval <Staffkontrol>?<def.bfont_black><Staffkontrol>:<def.bfont_red>Yok>
DHtmlgump 250 230 140 20 0 0 <def.h6><def.bfont_White>Bekleyen Page : <qval <dserv.gmpages>?<def.bfont_black><dserv.gmpages>:<def.bfont_red>Yok>
DHtmlgump 250 260 140 20 0 0 <def.h6><def.bfont_White>Çevrimiçi Oyuncu : <def.bfont_black><serv.clients>
DHtmlgump 250 290 140 20 0 0 <def.h6><def.bfont_White>Guild Sayısı : <qval <serv.guilds>?<def.bfont_black><serv.guilds>:<def.bfont_red>Yok>
DHtmlgump 250 320 140 20 0 0 <def.h6><def.bfont_White>Aile Sayısı : <def.bfont_black><Serv.Itemdef.i_aile.Instances>
Button 70 230 4006 4007 0 2 1000
Button 70 260 4006 4007 0 102 1000
Button 70 290 4006 4007 1 0 4
Button 70 320 4006 4007 1 0 5
Resizepic 35 65 5170 <qval <Staffkontrol> ? 271:380> 155
IF (StrMatch("Asede","<Account.Name>")) && (<Src.ISGM>) && (<Src.Account.Plevel> > 6)
Button 50 70 5401 5402 0 100 1000
DText 70 68 1153 Duyuruları düzenle
Endif
For 1 10
If !(<ISEMPTY <Var.HelpDuyuru<dlocal._for>>>)
Local.Helpduyuru .="<def.bfont_red> <def.bfont_black><Var.HelpDuyuru<dlocal._for>><def.br>"
Endif
EndFor
DHtmlgump 55 90 <qval <Staffkontrol> ? 250:345> 100 0 1 <def.bfont_red><def.center>DUYURULAR</center><STRSub 1 0 <Local.Helpduyuru>>
If (<Staffkontrol> >0)
For 0 <Hval <Serv.Clients>-1>
If (<Serv.Client.<Eval <Local._For>>.Account.Plevel> > 1)
Local.Siralama .="<def.bfont_red><Qval (<Serv.Client.<Local._For>.Account.Plevel>==8)? Yönetici : Yetkili ><Def.BR><def.bfont_green><Serv.Client.<Local._For>.Name><Def.BR>"
Endif
Endfor
Dhtmlgump 315 100 90 70 0 1 <Def.center><STRSub 1 0 <Local.Siralama>>
Resizepic 310 100 9300 87 70
DText 327 65 039 Çevrimiçi
DText 344 180 039 Bize iletin
Button 312 180 4030 4031 1 0 1
Endif
Page 2 // Stuck
Resizepic 85 75 5170 280 255
For 1 10
Button 160 <Eval 85 + (<dLocal._For>*20)> 10710 10711 <Qval (<Src.Account.Jail>)?0:1> 0 <Eval <dLocal._For>+100>
EndFor
Local.OzamanRenk 339
DText 200 100 <Local.OzamanRenk> Britain
DText 200 120 <Local.OzamanRenk> Buccaneer's Den
DText 200 140 <Local.OzamanRenk> Delucia
DText 200 160 <Local.OzamanRenk> Jhelom
DText 200 180 <Local.OzamanRenk> Magincia
DText 200 200 <Local.OzamanRenk> Minoc Vesper
DText 200 220 <Local.OzamanRenk> Moonglow
DText 200 240 <Local.OzamanRenk> Skara Brae
DText 200 260 <Local.OzamanRenk> Trinsic
DText 200 280 <Local.OzamanRenk> Yew
Button 175 332 5603 5607 0 1 1000
DText 200 330 1153 Ana sayfaya dön
Page 100
Resizepic 65 75 5170 320 255
For 1 10
IF !(<IsEmpty <Var.HelpDuyuru<dLocal._For>>>)
Local.Kactane ++
Dhtmlgump 125 <Eval 85 + <dLocal.Kactane>*20> 200 20 0 0 <Def.BFont_Black><STRSub 0 30 <Var.Helpduyuru<dLocal._For>>>...
Button 100 <Eval 85 + <dLocal.Kactane>*20> 5401 5402 1 0 <Eval <dLocal._For> + 200>
Endif
Endfor
Button 335 332 4011 4012 0 101 1000
DText 260 333 1153 Duyuru Ekle
Button 80 332 5603 5607 0 1 1000
DText 105 330 1153 Geri
Page 101
Resizepic 65 75 5170 320 255
For 1 10
Resizepic 85 <Eval 104 + <dLocal._For>*18> 9300 280 16
EndFor
DText 90 100 1153 Lütfen bir duyuru yazın;
DTextenTry 90 120 270 140 1152 1
Button 320 332 5407 5407 1 0 1453
DText 225 330 1153 Duyuru Kaydet
Button 80 332 5603 5607 0 100 1000
DText 105 330 1153 Geri
Page 102
Resizepic 40 80 5120 150 40
DText 95 80 1153 Pvp 1.si
DText 60 97 339 Deneme
Resizepic 40 120 5120 150 40
DText 95 120 1153 Topuk 1.si
DText 60 137 339 Deneme
Resizepic 40 160 5120 150 40
DText 95 160 1153 Expo 1.si
DText 60 177 339 Deneme
Resizepic 40 200 5120 150 40
DText 95 200 1153 Tame 1.si
DText 60 217 339 Deneme
Resizepic 40 240 5120 150 40
DText 95 240 1153 En Son Ölüm
DText 60 257 339 Deneme
Resizepic 40 280 5120 150 40
DText 95 280 1153 En Son Öldüren
DText 60 297 339 Deneme
[Dialog d_Helpmenu Button]
On=1 // Page
If (<src.findid.i_page_yasak>)
src.sysmessage @07a1,,1 Page atabilmek icin <eval <src.findid.i_page_yasak.timer> / 60> dakika beklemelisiniz.
Return 1
Endif
Src.dialog d_page_sender
On=2 // Stuck
Src.Stuckcek
//On=3 İstatistik
//On=4 Websitesi
//On=5 Forumlar
On=100 110
IF (<Argn> == 101)
Src.Stuckcek Britain
ElseIF (<Argn> == 102)
Src.Stuckcek Buccaneer's Den
ElseIF (<Argn> == 103)
Src.Stuckcek Delucia
ElseIF (<Argn> == 104)
Src.Stuckcek Jhelom
ElseIF (<Argn> == 105)
Src.Stuckcek Magincia
ElseIF (<Argn> == 106)
Src.Stuckcek Minoc Vesper
ElseIF (<Argn> == 107)
Src.Stuckcek Moonglow
ElseIF (<Argn> == 108)
Src.Stuckcek Skara Brae
ElseIF (<Argn> == 109)
Src.Stuckcek Trinsic
ElseIF (<Argn> == 110)
Src.Stuckcek Yew
Endif
On=200 210
Serv.Var.HelpDuyuru<Eval <Argn> - 200>
Src.Sysmessage @07a1,,1 Duyuru silinmiştir.
SDialog D_HelpMenu,100
On=1453
For 1 10
IF (<IsEmpty <Var.HelpDuyuru<dLocal._For>>>)
Serv.Var.Helpduyuru<dLocal._For> <ArgTxt[1]>
Src.Sysmessage @07a1,,1 Duyurunuz başarıyla kaydedilmiştir.
Return 1
Endif
EndFor
Src.Sysmessage @38,,1 Duyuru listeniz dolu.! Yeni duyuru eklemek için bir duyuruyu silmeniz gerekmektedir.
//////////////////////////// STUCK//////////////////////////////////////////////
[Function Stuckcek]
If (<ISEMPTY <Tag.Gidiyorum>>)
Tag.Gidiyorum <Args>
Endif
If !(<Tag0.Dialog>)
Tag0.Kalan 60
Endif
If (<Tag0.Dialog> == 60)
DialogClose Stuckzaman
Sysmessage @077a,,1 Belirlenen kordinatlara gönderildiniz.
Src.Go <Tag.Gidiyorum>
Src.Update
Tag.Gidiyorum=
Flags <Src.Flags>&~04
Tag0.Dialog=
Return 1
Endif
SRC.FLAGS=<SRC.FLAGS>|020004
DialogClose Stuckzaman
Tag0.Dialog +=1
tag0.Kalan -=1
Dialog Stuckzaman
TimerF 1,Stuckcek
[Dialog Stuckzaman]
-10,590 // Sol Alt Köşede
//200,200 // Ortada karakter üzerinde
Noclose
Nomove
resizepic 10 10 83 340 115
resizepic 20 20 9300 320 95
resizepic 30 80 5120 300 25
resizepic 30 80 9300 <eval ((<tag0.dialog>)*5)-1> 25
Checkertrans 20 20 320 95
resizepic 50 30 9300 260 20
resizepic 50 55 9300 260 20
dhtmlgump 60 30 250 20 0 0 <def.bfont_black>Bulunduğunuz kordinatlar : <def.h6><def.bfont_red><src.p>
dhtmlgump 60 55 250 20 0 0 <def.h7><def.bfont_green><Tag0.Gidiyorum> için kalan süre : <def.h7><def.bfont_red><def.bfont_red><dtag0.kalan> saniye
if (<eval (0+<eval <eval <src.tag0.dialog>*100>/60>)> > 53)
endif
DText 170 83 039 %<eval (0+<eval <eval <src.tag0.dialog>*100>/60>)>
//////////////////////////////////////////PAGE//////////////////////////////////
[PLEVEL 2]
pg
[FUNCTION pg]
if !(<serv.gmpages>)
src.sysmessage @077a,,1 Bekleyen page bulunmamaktadir.
else
src.ctag0.page_index =
dialogclose d_page_view
if (<src.dctag0.page_handle>)
src.ctag0.page_index = <eval <src.ctag0.page_handle>-1>
else
src.ctag0.page_index = 0
endif
dialog d_page_view 0 <src.dctag0.page_index>
endif
return 1
[DIALOG d_page_view]
150,100
nomove
Resizepic 0 0 83 450 350
Resizepic 8 10 9300 435 330
dtext 162 30 1152 <serv.name> Page Sistemi
Resizepic 42 252 83 370 70
resizepic 50 262 5054 355 50
src.ctag0.page_index = <dargv[0]>
gumppic 80 80 <qval(<uid.<strarg <serv.gmpage.<dargv[0]>.reason>>.isonline>)?0939:0938>
dhtmlgump 80 58 200 20 0 0 <def.bfont_red><eval <serv.gmpage.<dargv[0]>.time>/60> dk önce gönderildi. <qval(<serv.gmpage.<dargv[0]>.handled>)?<qval(<serv.gmpage.<dargv[0]>.handled> != <src>)?(<uid.<strarg <serv.gmpage.<dargv[0]>.handled>>.name> ilgileniyor.)>:>
dtext 100 75 <qval(<uid.<strarg <serv.gmpage.<dargv[0]>.reason>>.isonline>)?040:38> <uid.<strarg <serv.gmpage.<dargv[0]>.reason>>.name> (<strarg <serv.gmpage.<dargv[0]>.reason>>)
dhtmlgump 80 100 295 120 1 1 <streat <serv.gmpage.<dargv[0]>.reason>>
dtext 200 230 50 <eval <argv[0]>+1> / <serv.gmpages>
if !(<src.dctag0.page_handle>)
if (<serv.gmpage.<eval <argv[0]>+1>.reason>)
button 260 230 9903 9905 1 0 1
endif
if (<eval <argv[0]>+1> > 1)
button 170 230 9909 9911 1 0 2
endif
endif
button 80 275 0FA2 0Fa4 1 0 3
dtext 115 275 1153 Sil
button 150 275 0FA5 0FA7 1 0 4
dtext 185 275 1153 Git
button 220 275 0FAE 0FB0 1 0 5
dtext 255 275 1153 Getir
button 295 275 0FAB 0FAD 1 0 6
dtext 330 275 1153 Mesaj
[DIALOG d_page_view BUTTON]
ON=0
src.ctag0.page_index =
ON=1
src.ctag0.page_index +=1
sdialog d_page_view 0 <src.ctag0.page_index>
ON=2
src.ctag0.page_index -=1
sdialog d_page_view 0 <src.ctag0.page_index>
ON=3 6
if (<serv.gmpage.<src.ctag0.page_index>.handled>) && (<serv.gmpage.<src.ctag0.page_index>.handled> != <src>)
src.sysmessage Bu bildiri ile <uid.<eval <serv.gmpage.<src.ctag0.page_index>.handled>>.name> ilgileniyor.
sdialog d_page_view 0 <src.ctag0.page_index>
elif !((<dargn> = 3) || (<dargn> = 6)) && !(<uid.<strarg <serv.gmpage.<src.dctag0.page_index>.reason>>.isonline>)
src.sysh_trk Bildiriyi yapan oyuncu oyunda degil.
sdialog d_page_view 0 <src.ctag0.page_index>
else
if (<dargn> = 3)
try gmpage.<src.dctag.page_index>.handle
try gmpage.<src.dctag0.page_index>.d
src.ctag0.page_handle=
src.sysmessage @07a1,,1 Bildiri silindi.
elif (<dargn> = 4)
src.go <uid.<strarg <serv.gmpage.<src.dctag0.page_index>.reason>>.p>
try gmpage.<src.ctag0.page_index>.handle
src.ctag0.page_handle=<eval <src.ctag0.page_index>+1>
elif (<dargn> = 5)
try uid.<strarg <serv.gmpage.<src.dctag0.page_index>.reason>>.go <src.p>
try gmpage.<src.ctag0.page_index>.handle
src.ctag0.page_handle=<eval <src.dctag0.page_index>+1>
elif (<dargn> = 6)
src.ctag0.page_handle=<eval <src.dctag0.page_index>+1>
try gmpage.<src.ctag0.page_index>.handle
sdialog d_page_send_msg 0 <src.dctag0.page_index>
endif
src.ctag0.page_index=
src.update
endif
[DIALOG d_page_send_msg]
0,0
resizepic 42 40 83 355 320
resizepic 50 50 5120 340 300
Checkertrans 50 50 340 300
dtext 80 80 48 <uid.<strarg <serv.gmpage.<dargv[0]>.reason>>.name> (<strarg <serv.gmpage.<dargv[0]>.reason>>)
dhtmlgump 80 100 280 70 1 1 <streat <serv.gmpage.<dargv[0]>.reason>>
dtext 80 170 50 Göndermek istediğiniz cevap;
resizepic 80 190 3000 280 105
dtextentry 85 195 260 100 1153 0 <var.blank>
button 80 310 4005 4007 1 0 1
dtext 115 310 50 Gönder
[DIALOG d_page_send_msg BUTTON]
ON=0
src.pg
ON=1
local.pg=<eval <src.ctag0.page_handle>-1>
ref1=<strarg <serv.gmpage.<dlocal.pg>.reason>>
ref1.tag0.page_msg = <streat <serv.rtime>> <src> <argtxt[0]>
if (<ref1.isonline>)
trysrc <ref1> dialog d_page_msg
else
ref1.events +e_pg_msg
endif
src.sysmessage @039,,1 Mesajınız Gönderildi.
try gmpage.<dlocal.pg>.d
src.ctag0.page_handle=
[DIALOG d_page_msg]
0,0
Nomove
page 1
button 15 30 30 30 0 2 2
dtext 15 60 039 Mesajınız Var!
page 2
resizepic 200 150 83 340 200
resizepic 208 160 9300 325 180
//resizepic 50 50 5120 340 200
dtext 230 180 39 Gönderen: <uid.<strarg <streat <src.tag0.page_msg>>>.name>, Tarih: <strarg <src.tag0.page_msg>>
dhtmlgump 230 200 280 120 1 1 <streat <streat <src.tag0.page_msg>>>
[DIALOG d_page_msg BUTTON]
ON=0
src.tag0.page_msg=
[EVENTS e_pg_msg]
ON=@login
src.sdialog d_page_msg
src.events -e_pg_msg
[function page_info]
if (<account.plevel> > 1)
sysmessageua 048,0,0,trk <args>
endif
[itemdef i_page_yasak]
defname i_page_yasak
id i_memory
type t_eq_Script
on=@create
timer 60*2
on=@timer
cont.sysmessage Page yasaginiz kalkmistir.
remove
return 1
[itemdef i_staff_yasak]
defname i_staff_yasak
id i_memory
type t_eq_Script
on=@create
timer 60*5
on=@timer
cont.sysmessage @60,,1 <name> Page yasağınız kalkmıştır
remove
return 1
[DIALOG d_page_sender]
150,40
nomove
///noclose
Resizepic 0 150 83 500 200
Resizepic 5 160 5120 490 180
Checkertrans 5 160 490 180
dtext 170 170 039 <Serv.Name> Page Sistemi
Resizepic 10 195 9300 480 100
dtext 140 310 0455 Page Gönder
button 100 310 4030 4031 1 0 1
dtext 340 310 0455 Sayfa Temizle
button 300 310 4006 4007 1 0 2
button 470 170 3 4 1 0 3
////dtextentry 15 200 460 90 039 0
dtextentrylimited 15 200 460 90 1152 0 250
[DIALOG d_page_sender TEXT]
<gmpages>
[DIALOG d_page_sender BUTTON]
ON=0
Src.sysmessage @39,,1 Çıkış yaptınız.
ON=1
if (<src.findid.i_staff_yasak>)
src.sysmessage Cezanızın bitmesi için <eval <src.findid.i_staff_yasak.timer> / 60> dakika beklemelisiniz.
elseif (<src.findid.i_jailcik>) || (<flags>&statf_stone) || (<Src.Account.Jail>)
src.sysh_trk Şuan page atamassınız.
elseif (<src.findid.i_page_yasak>)
src.Sysmessage @07a1,,1 Page atabilmek icin <eval <src.findid.i_page_yasak.timer> / 60> dakika beklemelisiniz.
else
gmpage add <src> <argtxt[0]>
src.message @077a,,1 Bildiriniz gönderildi. <dserv.gmpages>. sıradasınız.
src.newitem i_page_yasak
src.act.equip
endif
ON=2
src.dialog d_page_sender
ON=3
sysmessage @39,,1 Çıkış yaptınız.
[EOF]
Materyal kutusu
Kod:
[Defname Depolama_Ayarlari]
Depo_Limit "60000" Depolanabilecek en fazla limit
[Defname Eklenecekler]
Eklenecekler_0 "i_reag_nightshade"
Eklenecekler_1 "i_reag_garlic"
Eklenecekler_2 "i_reag_black_pearl"
Eklenecekler_3 "i_reag_blood_moss"
Eklenecekler_4 "i_reag_mandrake_root"
Eklenecekler_5 "i_reag_ginseng"
Eklenecekler_6 "i_reag_sulfur_ash"
Eklenecekler_7 "i_reag_spider_silk"
Eklenecekler_8 "i_ore_iron"
Eklenecekler_9 "i_ore_silver"
Eklenecekler_10 "i_ore_shadow"
Eklenecekler_11 "i_ore_copper"
Eklenecekler_12 "i_ore_old_copper"
Eklenecekler_13 "i_ore_dull_copper"
Eklenecekler_14 "i_ore_bronze"
Eklenecekler_15 "i_ore_gold"
Eklenecekler_16 "i_ore_agapite"
Eklenecekler_17 "i_ore_verite"
Eklenecekler_18 "i_ore_valorite"
Eklenecekler_19 "i_ore_mytheril"
Eklenecekler_20 "i_ore_bloodrock"
Eklenecekler_21 "i_ore_blackrock"
Eklenecekler_22 "i_ingot_iron"
Eklenecekler_23 "i_ingot_silver"
Eklenecekler_24 "i_ingot_shadow"
Eklenecekler_25 "i_ingot_copper"
Eklenecekler_26 "i_ingot_old_copper"
Eklenecekler_27 "i_ingot_dull_copper"
Eklenecekler_28 "i_ingot_bronze"
Eklenecekler_29 "i_ingot_gold"
Eklenecekler_30 "i_ingot_agapite"
Eklenecekler_31 "i_ingot_verite"
Eklenecekler_32 "i_ingot_valorite
Eklenecekler_33 "i_ingot_mytheril"
Eklenecekler_34 "i_ingot_bloodrock"
Eklenecekler_35 "i_ingot_blackrock"
[Defname Orelerin_Renkleri]
Renk_iron "0"
Renk_silver "0482"
Renk_bronze "06d6"
Renk_gold "045e"
Renk_copper "0641"
Renk_old_copper "0590"
Renk_dull_copper "060a"
Renk_shadow "0770"
Renk_bloodrock "04c2"
Renk_blackrock "0455"
Renk_mytheril "0528"
Renk_verite "07d1"
Renk_agapite "0400"
Renk_valorite "0515"
[Itemdef i_materyal_kutusu]
ID 8191
Name Depolama Kasasi
Weight 50
Type=t_script
Value=100000
On=@Create
Attr Attr_Newbie|Attr_Decay
Color 07a1
On=@Click
Message @07a1,,1 Depolama Kasası
Return 1
On=@DClick
IF !(<Src> == <TopObj>)
Src.Sysmessage @38,,1 Sadece çantanızdayken kullanabilirsiniz.
Return 1
Endif
Target @07a1,,1 Eklemek istediğiniz eşyayı seçin.
Return 1
On=@TargOn_Ground
Return 1
On=@TargOn_Char
Return 1
On=@Targon_Item
While !<IsEmpty <Def.Eklenecekler_<dLocal._While>>>
Local.IsteBu <Def.Eklenecekler_<dLocal._While>>
IF (<Src.Targ.BaseID> = <Local.IsteBu>)
IF (<dTag0.<Src.Targ.BaseID>> < <Def.Depo_Limit>)
Local.Kalan <Eval <Def.Depo_Limit>-<dTag0.<Src.Targ.BaseID>>>
IF (<Src.Targ.Amount> > <dLocal.Kalan>)
Src.Targ.Amount -=<dLocal.Kalan>
Local.Eklenecek <dLocal.Kalan>
ElseIF (<Src.Targ.Amount> = <dLocal.Kalan>) || (<Src.Targ.Amount> < <dLocal.Kalan>)
Local.Eklenecek <Src.Targ.Amount>
Src.Targ.Remove
Endif
Tag0.<Src.Targ.BaseID> +=<dLocal.Eklenecek>
Src.Sysmessage @07a1,,1 <dLocal.Eklenecek> adet <Src.Targ.Name> depolandı.
Else
Src.Sysmessage @38,,1 Daha fazla <Src.Targ.Name> depolayamazsınız.
Endif
Return 1
Endif
EndWhile
IF (<Src.Targ> = <UID>)
SDialog Depolama_Kutusu
Return 1
Endif
Src.Sysmessage @38,,1 Bunu depolayamazsınız.
Return 1
[Dialog Depolama_Kutusu]
0,0
Resizepic 0 0 83 450 300
Checkertrans 7 10 437 280
Resizepic 0 300 83 450 105
Checkertrans 7 310 437 85
DText 20 40 339 Reg Alanı
DText 20 70 339 Ore Alanı
DText 20 100 339 Ingot Alanı
DText 20 130 339 Diğerleri
Button 120 43 5601 5605 0 1 99
Button 120 73 5601 5605 0 2 99
Button 120 103 5601 5605 0 4 99
//Button 120 133 5601 5605 0 6 99
Resizepic 30 363 9300 50 20
DTextentry 33 363 40 20 1152 1 0
Page 1
Button 390 340 2074 2075 1 0 1453
DText 30 313 1153 Hepsinden
DText 30 333 1153 Seçilenden
DText 90 363 339 Çıkar
Radio 10 316 5605 2092 0 1
Radio 10 336 5605 2092 0 2
DText 140 313 339 Reg Yap;
DText 160 333 1153 30'luk
DText 160 353 1153 60'lık
DText 160 373 1153 90'lık
Radio 140 336 5605 2092 0 3
Radio 140 356 5605 2092 0 4
Radio 140 376 5605 2092 0 5
DText 220 313 339 Ekle;
DText 240 333 1153 Sadece Çantadakileri
DText 240 353 1153 Sadece Bankadakileri
Radio 220 336 5605 2092 0 6
Radio 220 356 5605 2092 0 7
For 0 7
Resizepic 170 <Eval 40+(<dLocal._For>*30)> 9300 190 30
Resizepic 360 <Eval 40+(<dLocal._For>*30)> 9300 80 30
Checkbox 160 <Eval 40+(<dLocal._For>*30)> 2152 2153 0 <Eval <dLocal._For> + 100>
TilePichue 190 <Eval 46+(<dLocal._For>*30)> <Serv.Itemdef.<Def.Eklenecekler_<dLocal._For>>.ID> 0
DText 240 <Eval 43+(<dLocal._For>*30)> 1152 <Serv.Itemdef.<Def.Eklenecekler_<dLocal._For>>.Name>
DText 365 <Eval 43+(<dLocal._For>*30)> 1152 <BolukAyir <dTag0.<Def.Eklenecekler_<dLocal._For>>>>
EndFor
Local.Sirala=0
Local.Sayfa=2
Page 2
For 8 21
IF (<dLocal.Sirala> > 7)
Local.Sirala 0
DText 370 12 90 İleri
Button 400 15 9702 9703 0 <Eval <Local.Sayfa>+1> 1
Local.Sayfa +=1
Page <Eval <Local.Sayfa>>
DText 210 12 90 Geri
Button 180 15 9706 9707 0 <Eval <Local.Sayfa>-1> 1
Endif
Button 390 340 2074 2075 1 0 1071
DText 30 313 1153 Hepsinden
DText 30 333 1153 Seçilenden
DText 90 363 339 Çıkar
Radio 10 316 5605 2092 0 8
Radio 10 336 5605 2092 0 9
DText 220 313 339 Ekle;
DText 240 333 1153 Sadece Çantadakileri
DText 240 353 1153 Sadece Bankadakileri
Radio 220 336 5605 2092 0 10
Radio 220 356 5605 2092 0 11
Resizepic 170 <Eval 40+(<dLocal.Sirala>*30)> 9300 190 30
Resizepic 360 <Eval 40+(<dLocal.Sirala>*30)> 9300 80 30
Checkbox 160 <Eval 40+(<dLocal.Sirala>*30)> 2152 2153 0 <Eval <dLocal._For> + 100>
TilePichue 190 <Eval 42+(<dLocal.Sirala>*30)> 6584 <Eval <Def.Renk_<StrSub 6 0 <Serv.Itemdef.<Def.Eklenecekler_<dLocal._For>>.BaseID>>>>
DText 240 <Eval 43+(<dLocal.Sirala>*30)> 1152 <Serv.Itemdef.<Def.Eklenecekler_<dLocal._For>>.Name>
DText 365 <Eval 43+(<dLocal.Sirala>*30)> 1152 <BolukAyir <dTag0.<Def.Eklenecekler_<dLocal._For>>>>
Local.Sirala ++
EndFor
Local.Sirala=0
Local.Sayfa=4
Page 4
For 22 35
IF (<dLocal.Sirala> > 7)
Local.Sirala 0
DText 370 12 90 İleri
Button 400 15 9702 9703 0 <Eval <Local.Sayfa>+1> 1
Local.Sayfa +=1
Page <Eval <Local.Sayfa>>
DText 210 12 90 Geri
Button 180 15 9706 9707 0 <Eval <Local.Sayfa>-1> 1
Endif
Button 390 340 2074 2075 1 0 1041
DText 30 313 1153 Hepsinden
DText 30 333 1153 Seçilenden
DText 90 363 339 Çıkar
Radio 10 316 5605 2092 0 12
Radio 10 336 5605 2092 0 13
DText 220 313 339 Ekle;
DText 240 333 1153 Sadece Çantadakileri
DText 240 353 1153 Sadece Bankadakileri
Radio 220 336 5605 2092 0 14
Radio 220 356 5605 2092 0 15
Resizepic 170 <Eval 40+(<dLocal.Sirala>*30)> 9300 190 30
Resizepic 360 <Eval 40+(<dLocal.Sirala>*30)> 9300 80 30
Checkbox 160 <Eval 40+(<dLocal.Sirala>*30)> 2152 2153 0 <Eval <dLocal._For> + 100>
TilePichue 180 <Eval 42+(<dLocal.Sirala>*30)> 7152 <Eval <Def.Renk_<StrSub 8 0 <Serv.Itemdef.<Def.Eklenecekler_<dLocal._For>>.BaseID>>>>
DText 240 <Eval 43+(<dLocal.Sirala>*30)> 1152 <Serv.Itemdef.<Def.Eklenecekler_<dLocal._For>>.Name>
DText 365 <Eval 43+(<dLocal.Sirala>*30)> 1152 <BolukAyir <dTag0.<Def.Eklenecekler_<dLocal._For>>>>
Local.Sirala ++
EndFor
[Dialog Depolama_Kutusu Button]
On=1041
IF (<Src.Flags>&Statf_Freeze) || (<Src.Flags>&Statf_Dead)
Return 1
Endif
For 12 15
IF (<ArgChk[<dLocal._For>]>)
Local.Secilen <dLocal._For>
Endif
EndFor
IF !(<dLocal.Secilen>)
Src.Sysmessage @38,,1 Bir seçim yapmadınız.
Return 1
Endif
IF (<dLocal.Secilen> = 12)
IF (StrMatch('<StrSub 0 1 <ArgTxt[1]>>','0'))
Src.Sysmessage @38,,1 İlk rakam " 0 " olamaz. <ArgTxt[1]>
Return 1
Endif
IF !STRRegex(^[0-9]+$,<Argtxt[1]>)
Src.Sysmessage @38,,1 Sadece rakam girebilirsiniz.
Return 1
Endif
For 22 35
IF (<DTag0.<Def.Eklenecekler_<dLocal._For>>> >= <ArgTxt[1]>)
Local.BakBakalim ++
Endif
Endfor
For 22 35
IF (<DTag0.<Def.Eklenecekler_<dLocal._For>>> >= <ArgTxt[1]>)
Src.Newitem <Def.Eklenecekler_<dLocal._For>>
Src.Act.Amount <ArgTxt[1]>
Src.Act.Bounce
Tag0.<Def.Eklenecekler_<dLocal._For>> -=<ArgTxt[1]>
Else
IF (<Tag0.<Def.Eklenecekler_<dLocal._For>>>) && (<dLocal.BakBakalim>)
Src.Newitem <Def.Eklenecekler_<dLocal._For>>
Src.Act.Amount <dTag0.<Def.Eklenecekler_<dLocal._For>>>
Src.Act.Bounce
Tag0.<Def.Eklenecekler_<dLocal._For>>=
Endif
Endif
EndFor
IF !(<dLocal.BakBakalim>)
Src.Sysmessage @38,,1 Hiç bir stoğunuz belirttiğiniz tutar kadar bulunmamaktadır.
Return 1
Else
Src.Sysmessage @07a1,,1 Tüm ingotlardan çıkartıldı.
Return 1
Endif
Return 1
Endif
/////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////
IF (<dLocal.Secilen> = 13)
IF (StrMatch('<StrSub 0 1 <ArgTxt[1]>>','0'))
Src.Sysmessage @38,,1 İlk rakam " 0 " olamaz.
Return 1
Endif
IF !STRRegex(^[0-9]+$,<Argtxt[1]>)
Src.Sysmessage @38,,1 Sadece rakam girebilirsiniz.
Return 1
Endif
For 122 135
IF (<ArgChk[<DLocal._For>]>)
Local.Regler ++
IF (<Tag0.<Def.Eklenecekler_<Eval <dLocal._For> - 100>>> >= <ArgTxt[1]>)
Local.BakHele ++
Endif
Endif
EndFor
IF !(<dLocal.Regler>)
Src.Sysmessage @38,,1 Herhangi bir ingot seçmediniz.
Return 1
Endif
For 122 135
IF (<ArgChk[<DLocal._For>]>)
IF (<DTag0.<Def.Eklenecekler_<Eval <dLocal._For> - 100>>> >= <ArgTxt[1]>)
Src.Newitem <Def.Eklenecekler_<Eval <dLocal._For> - 100>>
Src.Act.Amount <ArgTxt[1]>
Src.Act.Bounce
Tag0.<Def.Eklenecekler_<Eval <dLocal._For> - 100>> = <Eval <dTag0.<Def.Eklenecekler_<Eval <dLocal._For> - 100>>> - <ArgTxt[1]>>
Else
IF (<Tag0.<Def.Eklenecekler_<Eval <dLocal._For> - 100>>>) && (<dLocal.BakHele>)
Src.Newitem <Def.Eklenecekler_<Eval <dLocal._For> - 100>>
Src.Act.Amount <dTag0.<Def.Eklenecekler_<Eval <dLocal._For> - 100>>>
Src.Act.Bounce
Tag0.<Def.Eklenecekler_<Eval <dLocal._For> - 100>>=
Endif
Endif
Endif
EndFor
IF !(<dLocal.BakHele>)
Src.Sysmessage @38,,1 Seçmiş olduğunuz ingotlardan belirttiğiniz tutar kadar bulunmamaktadır.
Return 1
Else
Src.Sysmessage @07a1,,1 Seçtiğiniz ingotlardan çantanıza çıkartıldı.
Return 1
Endif
Return 1
Endif
IF (<dLocal.Secilen> = 14)
For 22 35
Local.Aranan <Def.Eklenecekler_<dLocal._For>>
Ref1=<UID>
ForCont <Src.Findlayer.21>
IF (<BaseID> = <Local.Aranan>)
IF (<Ref1.dTag.<Local.Aranan>> < <Def.Depo_Limit>)
Local.Kalan <Eval <Def.Depo_Limit>-<Ref1.DTag0.<Local.Aranan>>>
IF (<Amount> > <dLocal.Kalan>)
Amount -=<dLocal.Kalan>
Local.Eklenecek <dLocal.Kalan>
ElseIF (<Amount> = <dLocal.Kalan>) || (<Amount> < <dLocal.Kalan>)
Local.Eklenecek <Amount>
Remove
Endif
Ref1.Tag0.<Local.Aranan> +=<dLocal.Eklenecek>
Src.Sysmessage @07a1,,1 <dLocal.Eklenecek> adet <Serv.Itemdef.<Local.Aranan>.Name> depolandı.
Else
Src.Sysmessage @38,,1 Daha fazla <Serv.Itemdef.<Local.Aranan>.Name> depolayamazsınız.
Endif
Endif
EndFor
EndFor
Endif
IF (<dLocal.Secilen> = 15)
For 22 35
Local.Aranan <Def.Eklenecekler_<dLocal._For>>
Ref1=<UID>
ForCont <Src.Findlayer.29>
IF (<BaseID> = <Local.Aranan>)
IF (<Ref1.dTag.<Local.Aranan>> < <Def.Depo_Limit>)
Local.Kalan <Eval <Def.Depo_Limit>-<Ref1.DTag0.<Local.Aranan>>>
IF (<Amount> > <dLocal.Kalan>)
Amount -=<dLocal.Kalan>
Local.Eklenecek <dLocal.Kalan>
ElseIF (<Amount> = <dLocal.Kalan>) || (<Amount> < <dLocal.Kalan>)
Local.Eklenecek <Amount>
Remove
Endif
Ref1.Tag0.<Local.Aranan> +=<dLocal.Eklenecek>
Src.Sysmessage @07a1,,1 <dLocal.Eklenecek> adet <Serv.Itemdef.<Local.Aranan>.Name> depolandı.
Else
Src.Sysmessage @38,,1 Daha fazla <Serv.Itemdef.<Local.Aranan>.Name> depolayamazsınız.
Endif
Endif
EndFor
EndFor
Endif
On=1071
IF (<Src.Flags>&Statf_Freeze) || (<Src.Flags>&Statf_Dead)
Return 1
Endif
For 8 11
IF (<ArgChk[<dLocal._For>]>)
Local.Secilen <dLocal._For>
Endif
EndFor
IF !(<dLocal.Secilen>)
Src.Sysmessage @38,,1 Bir seçim yapmadınız.
Return 1
Endif
IF (<dLocal.Secilen> = 8)
IF (StrMatch('<StrSub 0 1 <ArgTxt[1]>>','0'))
Src.Sysmessage @38,,1 İlk rakam " 0 " olamaz. <ArgTxt[1]>
Return 1
Endif
IF !STRRegex(^[0-9]+$,<Argtxt[1]>)
Src.Sysmessage @38,,1 Sadece rakam girebilirsiniz.
Return 1
Endif
For 8 21
IF (<DTag0.<Def.Eklenecekler_<dLocal._For>>> >= <ArgTxt[1]>)
Local.BakBakalim ++
Endif
Endfor
For 8 21
IF (<DTag0.<Def.Eklenecekler_<dLocal._For>>> >= <ArgTxt[1]>)
Src.Newitem <Def.Eklenecekler_<dLocal._For>>
Src.Act.Amount <ArgTxt[1]>
Src.Act.Bounce
Tag0.<Def.Eklenecekler_<dLocal._For>> -=<ArgTxt[1]>
Else
IF (<Tag0.<Def.Eklenecekler_<dLocal._For>>>) && (<dLocal.BakBakalim>)
Src.Newitem <Def.Eklenecekler_<dLocal._For>>
Src.Act.Amount <dTag0.<Def.Eklenecekler_<dLocal._For>>>
Src.Act.Bounce
Tag0.<Def.Eklenecekler_<dLocal._For>>=
Endif
Endif
EndFor
IF !(<dLocal.BakBakalim>)
Src.Sysmessage @38,,1 Hiç bir stoğunuz belirttiğiniz tutar kadar bulunmamaktadır.
Return 1
Else
Src.Sysmessage @07a1,,1 Tüm orelerden çıkartıldı.
Return 1
Endif
Return 1
Endif
/////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////
IF (<dLocal.Secilen> = 9)
IF (StrMatch('<StrSub 0 1 <ArgTxt[1]>>','0'))
Src.Sysmessage @38,,1 İlk rakam " 0 " olamaz.
Return 1
Endif
IF !STRRegex(^[0-9]+$,<Argtxt[1]>)
Src.Sysmessage @38,,1 Sadece rakam girebilirsiniz.
Return 1
Endif
For 108 121
IF (<ArgChk[<DLocal._For>]>)
Local.Regler ++
IF (<Tag0.<Def.Eklenecekler_<Eval <dLocal._For> - 100>>> >= <ArgTxt[1]>)
Local.BakHele ++
Endif
Endif
EndFor
IF !(<dLocal.Regler>)
Src.Sysmessage @38,,1 Herhangi bir ore seçmediniz.
Return 1
Endif
For 108 121
IF (<ArgChk[<DLocal._For>]>)
IF (<DTag0.<Def.Eklenecekler_<Eval <dLocal._For> - 100>>> >= <ArgTxt[1]>)
Src.Newitem <Def.Eklenecekler_<Eval <dLocal._For> - 100>>
Src.Act.Amount <ArgTxt[1]>
Src.Act.Bounce
Tag0.<Def.Eklenecekler_<Eval <dLocal._For> - 100>> = <Eval <dTag0.<Def.Eklenecekler_<Eval <dLocal._For> - 100>>> - <ArgTxt[1]>>
Else
IF (<Tag0.<Def.Eklenecekler_<Eval <dLocal._For> - 100>>>) && (<dLocal.BakHele>)
Src.Newitem <Def.Eklenecekler_<Eval <dLocal._For> - 100>>
Src.Act.Amount <dTag0.<Def.Eklenecekler_<Eval <dLocal._For> - 100>>>
Src.Act.Bounce
Tag0.<Def.Eklenecekler_<Eval <dLocal._For> - 100>>=
Endif
Endif
Endif
EndFor
IF !(<dLocal.BakHele>)
Src.Sysmessage @38,,1 Seçmiş olduğunuz orelerden belirttiğiniz tutar kadar bulunmamaktadır.
Return 1
Else
Src.Sysmessage @07a1,,1 Seçtiğiniz orelerden çantanıza çıkartıldı.
Return 1
Endif
Return 1
Endif
IF (<dLocal.Secilen> = 10)
For 8 21
Local.Aranan <Def.Eklenecekler_<dLocal._For>>
Ref1=<UID>
ForCont <Src.Findlayer.21>
IF (<BaseID> = <Local.Aranan>)
IF (<Ref1.dTag.<Local.Aranan>> < <Def.Depo_Limit>)
Local.Kalan <Eval <Def.Depo_Limit>-<Ref1.DTag0.<Local.Aranan>>>
IF (<Amount> > <dLocal.Kalan>)
Amount -=<dLocal.Kalan>
Local.Eklenecek <dLocal.Kalan>
ElseIF (<Amount> = <dLocal.Kalan>) || (<Amount> < <dLocal.Kalan>)
Local.Eklenecek <Amount>
Remove
Endif
Ref1.Tag0.<Local.Aranan> +=<dLocal.Eklenecek>
Src.Sysmessage @07a1,,1 <dLocal.Eklenecek> adet <Serv.Itemdef.<Local.Aranan>.Name> depolandı.
Else
Src.Sysmessage @38,,1 Daha fazla <Serv.Itemdef.<Local.Aranan>.Name> depolayamazsınız.
Endif
Endif
EndFor
EndFor
Endif
IF (<dLocal.Secilen> = 11)
For 8 21
Local.Aranan <Def.Eklenecekler_<dLocal._For>>
Ref1=<UID>
ForCont <Src.Findlayer.29>
IF (<BaseID> = <Local.Aranan>)
IF (<Ref1.dTag.<Local.Aranan>> < <Def.Depo_Limit>)
Local.Kalan <Eval <Def.Depo_Limit>-<Ref1.DTag0.<Local.Aranan>>>
IF (<Amount> > <dLocal.Kalan>)
Amount -=<dLocal.Kalan>
Local.Eklenecek <dLocal.Kalan>
ElseIF (<Amount> = <dLocal.Kalan>) || (<Amount> < <dLocal.Kalan>)
Local.Eklenecek <Amount>
Remove
Endif
Ref1.Tag0.<Local.Aranan> +=<dLocal.Eklenecek>
Src.Sysmessage @07a1,,1 <dLocal.Eklenecek> adet <Serv.Itemdef.<Local.Aranan>.Name> depolandı.
Else
Src.Sysmessage @38,,1 Daha fazla <Serv.Itemdef.<Local.Aranan>.Name> depolayamazsınız.
Endif
Endif
EndFor
EndFor
Endif
On=1453
IF (<Src.Flags>&Statf_Freeze) || (<Src.Flags>&Statf_Dead)
Return 1
Endif
For 1 7
IF (<ArgChk[<dLocal._For>]>)
Local.Secilen <dLocal._For>
Endif
EndFor
IF !(<dLocal.Secilen>)
Src.Sysmessage @38,,1 Bir seçim yapmadınız.
Return 1
Endif
IF (<dLocal.Secilen> = 1)
IF (StrMatch('<StrSub 0 1 <ArgTxt[1]>>','0'))
Src.Sysmessage @38,,1 İlk rakam " 0 " olamaz.
Return 1
Endif
IF !STRRegex(^[0-9]+$,<Argtxt[1]>)
Src.Sysmessage @38,,1 Sadece rakam girebilirsiniz.
Return 1
Endif
For 0 7
IF (<DTag0.<Def.Eklenecekler_<dLocal._For>>> >= <ArgTxt[1]>)
Local.BakBakalim ++
Endif
Endfor
For 0 7
IF (<DTag0.<Def.Eklenecekler_<dLocal._For>>> >= <ArgTxt[1]>)
Src.Newitem <Def.Eklenecekler_<dLocal._For>>
Src.Act.Amount <ArgTxt[1]>
Src.Act.Bounce
Src.Act.ContP 150 10
Tag0.<Def.Eklenecekler_<dLocal._For>> -= <ArgTxt[1]>
Else
IF (<Tag0.<Def.Eklenecekler_<dLocal._For>>>) && (<dLocal.BakBakalim>)
Src.Newitem <Def.Eklenecekler_<dLocal._For>>
Src.Act.Amount <dTag0.<Def.Eklenecekler_<dLocal._For>>>
Src.Act.Bounce
Tag0.<Def.Eklenecekler_<dLocal._For>>=
Endif
Endif
EndFor
IF !(<dLocal.BakBakalim>)
Src.Sysmessage @38,,1 Hiç bir stoğunuz belirttiğiniz tutar kadar bulunmamaktadır.
Return 1
Else
Src.Sysmessage @07a1,,1 Tüm reglerden çıkartıldı.
Return 1
Endif
Return 1
Endif
IF (<dLocal.Secilen> = 2) //////// 2. Seçenecek
IF (StrMatch('<StrSub 0 1 <ArgTxt[1]>>','0'))
Src.Sysmessage @38,,1 İlk rakam " 0 " olamaz.
Return 1
Endif
IF !STRRegex(^[0-9]+$,<Argtxt[1]>)
Src.Sysmessage @38,,1 Sadece rakam girebilirsiniz.
Return 1
Endif
For 100 107
IF (<ArgChk[<DLocal._For>]>)
Local.Regler ++
IF (<Tag0.<Def.Eklenecekler_<Eval <dLocal._For> - 100>>> >= <ArgTxt[1]>)
Local.BakHele ++
Endif
Endif
EndFor
IF !(<dLocal.Regler>)
Src.Sysmessage @38,,1 Herhangi bir reg seçmediniz.
Return 1
Endif
For 100 1007
IF (<ArgChk[<DLocal._For>]>)
IF (<DTag0.<Def.Eklenecekler_<Eval <dLocal._For> - 100>>> >= <ArgTxt[1]>)
Src.Newitem <Def.Eklenecekler_<Eval <dLocal._For> - 100>>
Src.Act.Amount <ArgTxt[1]>
Src.Act.Bounce
Src.Act.ContP 150 10
Tag0.<Def.Eklenecekler_<Eval <dLocal._For> - 100>> <Eval <dTag0.<Def.Eklenecekler_<Eval <dLocal._For> - 100>>> - <ArgTxt[1]>>
Else
IF (<Tag0.<Def.Eklenecekler_<Eval <dLocal._For> - 100>>>) && (<dLocal.BakHele>)
Src.Newitem <Def.Eklenecekler_<Eval <dLocal._For> - 100>>
Src.Act.Amount <dTag0.<Def.Eklenecekler_<Eval <dLocal._For> - 100>>>
Src.Act.Bounce
Tag0.<Def.Eklenecekler_<Eval <dLocal._For> - 100>>=
Endif
Endif
Endif
EndFor
IF !(<dLocal.BakHele>)
Src.Sysmessage @38,,1 Seçmiş olduğunuz reglerden belirttiğiniz tutar kadar bulunmamaktadır. <dLocal.Bakhele>
Return 1
Else
Src.Sysmessage @07a1,,1 Seçtiğiniz reglerden çantanıza çıkartıldı.
Return 1
Endif
Return 1
Endif
IF (<dLocal.Secilen> = 3) //////// 3. Seçenecek
For 0 7
IF !(<DTag0.<Def.Eklenecekler_<dLocal._For>>> >= 30)
Src.Sysmessage @38,,1 Tüm reglerden 30'ar adet bulunmamaktadır.
Return 1
Else
Tag.<Def.Eklenecekler_<dLocal._For>> -=30
Endif
EndFor
Src.Newitem i_crystal_reagent_30
Src.Act.Bounce
Src.Sysmessage @07a1,,1 30'luk reg oluşturdunuz.
Return 1
Endif
IF (<dLocal.Secilen> = 4) //////// 4. Seçenecek
For 0 7
IF !(<DTag0.<Def.Eklenecekler_<dLocal._For>>> >= 60)
Src.Sysmessage @38,,1 Tüm reglerden 60'ar adet bulunmamaktadır.
Return 1
Else
Tag.<Def.Eklenecekler_<dLocal._For>> -=60
Endif
EndFor
Src.Newitem i_crystal_reagent_60
Src.Act.Bounce
Src.Sysmessage @07a1,,1 60'lık reg oluşturdunuz.
Return 1
Endif
IF (<dLocal.Secilen> = 5) //////// 5. Seçenecek
For 0 7
IF !(<DTag0.<Def.Eklenecekler_<dLocal._For>>> >= 90)
Src.Sysmessage @38,,1 Tüm reglerden 90'ar adet bulunmamaktadır.
Return 1
Else
Tag.<Def.Eklenecekler_<dLocal._For>> -=90
Endif
EndFor
Src.Newitem i_crystal_reagent_90
Src.Act.Bounce
Src.Sysmessage @07a1,,1 90'lık reg oluşturdunuz.
Return 1
Endif
IF (<dLocal.Secilen> = 6)
For 0 7
Local.Aranan <Def.Eklenecekler_<dLocal._For>>
Ref1=<UID>
ForCont <Src.Findlayer.21>
IF (<BaseID> = <Local.Aranan>)
IF (<Ref1.dTag.<Local.Aranan>> < <Def.Depo_Limit>)
Local.Kalan <Eval <Def.Depo_Limit>-<Ref1.DTag0.<Local.Aranan>>>
IF (<Amount> > <dLocal.Kalan>)
Amount -=<dLocal.Kalan>
Local.Eklenecek <dLocal.Kalan>
ElseIF (<Amount> = <dLocal.Kalan>) || (<Amount> < <dLocal.Kalan>)
Local.Eklenecek <Amount>
Remove
Endif
Ref1.Tag0.<Local.Aranan> +=<dLocal.Eklenecek>
Src.Sysmessage @07a1,,1 <dLocal.Eklenecek> adet <Serv.Itemdef.<Local.Aranan>.Name> depolandı.
Else
Src.Sysmessage @38,,1 Daha fazla <Serv.Itemdef.<Local.Aranan>.Name> depolayamazsınız.
Endif
Endif
EndFor
EndFor
Endif
/////////////////////////////
IF (<dLocal.Secilen> = 7)
For 0 7
Local.Aranan <Def.Eklenecekler_<dLocal._For>>
Ref1=<UID>
ForCont <Src.Findlayer.29>
IF (<BaseID> = <Local.Aranan>)
IF (<Ref1.dTag.<Local.Aranan>> < <Def.Depo_Limit>)
Local.Kalan <Eval <Def.Depo_Limit>-<Ref1.DTag0.<Local.Aranan>>>
IF (<Amount> > <dLocal.Kalan>)
Amount -=<dLocal.Kalan>
Local.Eklenecek <dLocal.Kalan>
ElseIF (<Amount> = <dLocal.Kalan>) || (<Amount> < <dLocal.Kalan>)
Local.Eklenecek <Amount>
Remove
Endif
Ref1.Tag0.<Local.Aranan> +=<dLocal.Eklenecek>
Src.Sysmessage @07a1,,1 <dLocal.Eklenecek> adet <Serv.Itemdef.<Local.Aranan>.Name> depolandı.
Else
Src.Sysmessage @38,,1 Daha fazla <Serv.Itemdef.<Local.Aranan>.Name> depolayamazsınız.
Endif
Endif
EndFor
EndFor
Endif
Vendor Arama
Not : Animal deed kısmı 56dye göre olabilir editlenmesi gerekebilir
Kod:
[Defname VendorSistemAyalari]
VendorKomutum "C_player_vendor"
VSistemKesinti "50"
[DIALOG UrunArama]
250,150
NoMove
Page 0
Resizepic 0 0 83 320 150
Resizepic 7 10 5120 307 130
Checkertrans 7 10 307 130
DText 40 20 1152 Hangi ürünün en uygununu arıyorsunuz ?
Resizepic 80 50 9270 160 40
DTextentrylimited 90 60 145 20 1152 1 20
DText 155 100 1152 Ürünü Ara
Button 120 100 4024 4025 1 0 1
[DIALOG UrunArama Button]
On=1
IF ((Strlen(<ArgTxt[1]>)) < 3)
Src.Sysmessage @38,,1 Arama yapabilmeniz için en az 3 karakter kullanmalısınız.
Return 1
Endif
IF !(STRRegex(^[a-zA-Z0-9 ']+$,<Argtxt[1]>))
Src.Sysmessage @38,,1 Geçersiz arama yaptınız.
Return 1
Endif
Src.CTag0.AradigimUrun <ArgTxt[1]>
Src.SDialog FirsatUrunleri
[DIALOG FirsatUrunleri]
100,120
NoMove
Page 0
Resizepic 0 45 83 520 330
Resizepic 7 55 5120 507 310
Checkertrans 7 55 507 310
Page 1
Local.FirsatUrunleri = 0
Forinstances <Def.VendorKomutum>
ForCont <Findlayer.21>
IF (<Price> > 0) && (StrMatch(*<Src.CTag0.AradigimUrun>*,'<Name>'))
Local.FirsatUrunleri<dLocal.FirsatUrunleri> <UID>
Local.FirsatUrunleri ++
EndIF
EndFor
EndFor
For a 0 <Eval <Local.FirsatUrunleri>-1>
For b 0 <Eval <Local.FirsatUrunleri>-1>
Local.1 = <UID.<Local.FirsatUrunleri<dLocal.a>>.Price>
Local.2 = <UID.<Local.FirsatUrunleri<dLocal.b>>.Price>
IF <dLocal.1> < <dLocal.2>
Local.t = <Local.FirsatUrunleri<dLocal.b>>
Local.FirsatUrunleri<dLocal.b> = <Local.FirsatUrunleri<dLocal.a>>
Local.FirsatUrunleri<dLocal.a> = <Local.t>
EndIF
EndFor
EndFor
IF (<DLocal.FirsatUrunleri>)
Resizepic 12 60 9300 60 20
Resizepic 100 60 9300 80 20
Resizepic 220 60 9300 80 20
Resizepic 360 60 9300 80 20
DHtmlGump 10 60 60 25 0 0 <Def.Center><Def.BFont_Green> DETAY
DHtmlGump 105 60 70 25 0 0 <Def.Center><Def.BFont_Green>EŞYA
DHtmlGump 225 60 70 25 0 0 <Def.Center><Def.BFont_Green>FİYAT
DHtmlGump 365 60 70 25 0 0 <Def.Center><Def.BFont_Green>SATAN KİŞİ
Else
DText 80 190 38 Aradığınız isimde bir eşyanın vendor satışı bulunmamaktadır.
Endif
For 0 9
IF <Local.FirsatUrunleri<dLocal._For>>
Ref1 = <Local.FirsatUrunleri<dLocal._For>>
Resizepic 65 <Eval (<Local._For>*25)+90> 9300 135 20
Resizepic 200 <Eval (<Local._For>*25)+90> 9300 120 20
Resizepic 320 <Eval (<Local._For>*25)+90> 9300 170 20
DHtmlGump 70 <Eval (<Local._For>*25)+90> 125 25 0 0 <Def.BFont_DGreen><Ref1.Name>
DHtmlGump 205 <Eval (<Local._For>*25)+90> 105 25 0 0 <Def.BFont_Black><BolukAyir <Ref1.Price>>gp
DHtmlGump 325 <Eval (<Local._For>*25)+90> 105 25 0 0 <Def.BFont_Red><Ref1.TopObj.MemoryFindType.Memory_IPet.Link.Name>
Button 37 <Eval (<Local._For>*25)+92> 2224 2224 1 0 <Eval <Local._For>+29051453>
EndIF
EndFOR
Page 53
Ref2=<Local.FirsatUrunleri<Src.DCTag0.BaktigimUrun>>
Src.CTag.BaktigimUrun1 <UID.<Ref2>>
Button 30 330 9706 9707 0 1 26081071
DText 50 327 38 Geri
DText 190 80 38 Vendor Ürün İnceleme
DText 160 300 38 Satıcıya Git
Button 120 300 4005 4006 1 0 18091048
DText 310 300 38 Ürünü Satın Al
Button 270 300 4023 4024 1 0 10111444
IF (<Def.VSistemKesinti>)
DHtmlGump 0 270 520 25 0 0 <Def.Center><Def.BFont_Size3><Def.BFont_LRed>Bu sistemden yapılan tüm alışverişlerde + % <Eval <Def.VSistemKesinti>> kesinti uygulanmaktadır.
DHtmlGump 270 330 130 25 0 0 <Def.BFont_Size3><Def.BFont_LRed><Def.Center>( <BolukAyir <Eval <Ref2.Price> + <Eval <Eval <Ref2.Price> * <Def.VSistemKesinti>> / 100>>>gp )
Endif
IF (<IsWeapon <UID.<Ref2>.BaseID>>) || (<IsArmor <UID.<Ref2>.BaseID>>) || (<UID.<Ref2>.Amount> > 1) || (<UID.<Ref2>.Type> == T_Figurine)
Resizepic 35 120 9300 215 20
Resizepic 35 150 9300 215 20
Resizepic 35 180 9300 215 20
Resizepic 35 210 9300 215 20
Resizepic 35 240 9300 215 20
Else
Resizepic 145 120 9300 215 20
Resizepic 145 150 9300 215 20
Resizepic 145 180 9300 215 20
Resizepic 145 210 9300 215 20
Resizepic 145 240 9300 215 20
Endif
IF (<IsWeapon <UID.<Ref2>.BaseID>>) || (<IsArmor <UID.<Ref2>.BaseID>>) || (<UID.<Ref2>.Amount> > 1) || (<UID.<Ref2>.Type> == T_Figurine)
Resizepic 265 120 9300 215 20
Resizepic 265 150 9300 215 20
IF !(<UID.<Ref2>.Amount> > 1)
Resizepic 265 180 9300 215 20
Resizepic 265 210 9300 215 20
Resizepic 265 240 9300 215 20
Endif
Endif
IF (<IsWeapon <UID.<Ref2>.BaseID>>) || (<IsArmor <UID.<Ref2>.BaseID>>) || (<UID.<Ref2>.Amount> > 1) || (<UID.<Ref2>.Type> == T_Figurine) // T_Figurine == Animal Deed
DHtmlGump 40 120 210 25 0 0 <Def.BFont_DGreen>Satıcı Kişi : <Def.BFont_Purple><UID.<Ref2>.TopObj.MemoryFindType.Memory_IPet.Link.Name>
DHtmlGump 40 150 210 25 0 0 <Def.BFont_DGreen>Ürün Adı : <Def.BFont_DPurple><UID.<Ref2>.Name>
DHtmlGump 40 180 210 25 0 0 <Def.BFont_DGreen>Ürün Fiyat : <Def.BFont_Purple><BolukAyir <UID.<Ref2>.Price>> gp
DHtmlGump 40 210 210 25 0 0 <Def.BFont_DGreen>Vendor Kordinat : <Def.BFont_DPurple><UID.<Ref2>.TopObj.P>
DHtmlGump 40 240 210 25 0 0 <Def.BFont_DGreen>Konum : <Def.BFont_Purple><UID.<Ref2>.TopObj.Region.Name>
Else
DHtmlGump 150 120 210 25 0 0 <Def.BFont_DGreen>Satıcı Kişi : <Def.BFont_Purple><UID.<Ref2>.TopObj.MemoryFindType.Memory_IPet.Link.Name>
DHtmlGump 150 150 210 25 0 0 <Def.BFont_DGreen>Ürün Adı : <Def.BFont_DPurple><UID.<Ref2>.Name>
DHtmlGump 150 180 210 25 0 0 <Def.BFont_DGreen>Ürün Fiyat : <Def.BFont_Purple><BolukAyir <UID.<Ref2>.Price>> gp
DHtmlGump 150 210 210 25 0 0 <Def.BFont_DGreen>Vendor Kordinat : <Def.BFont_DPurple><UID.<Ref2>.TopObj.P>
DHtmlGump 150 240 210 25 0 0 <Def.BFont_DGreen>Konum : <Def.BFont_Purple><UID.<Ref2>.TopObj.Region.Name>
Endif
IF (<IsWeapon <UID.<Ref2>.BaseID>>)
DHtmlGump 270 120 210 25 0 0 <Def.BFont_DGreen>Eskime Durumu : <Def.BFont_Purple>% <Eval 100 - <Eval <UID.<Ref2>.HitPoints> * 100> / <UID.<Ref2>.HitPoints>>
DHtmlGump 270 150 210 25 0 0 <Def.BFont_DGreen>Silahın Kullanım Hızı : <Def.BFont_DPurple><UID.<Ref2>.Speed>
DHtmlGump 270 180 210 25 0 0 <Def.BFont_DGreen>Vereceği Hasar Aralığı : <Def.BFont_Purple><UID.<Ref2>.Dam>
DHtmlGump 270 210 210 25 0 0 <Def.BFont_DGreen>Silahın MoreY Değeri : <Def.BFont_DPurple><UID.<Ref2>.MoreY>
DHtmlGump 270 240 210 25 0 0 <Def.BFont_DGreen>Silah Üzerinde Zehir : <Def.BFont_Purple><Qval <UID.<Ref2>.MoreZ>?Var:Yok>
Endif
IF (<UID.<Ref2>.Type> == T_Figurine)
DHtmlGump 270 120 210 25 0 0 <Def.BFont_DGreen>STR : <Def.BFont_Purple><UID.<UID.<Ref2>.More2>.Str>
DHtmlGump 270 150 210 25 0 0 <Def.BFont_DGreen>DEX : <Def.BFont_DPurple><UID.<UID.<Ref2>.More2>.Dex>
DHtmlGump 270 180 210 25 0 0 <Def.BFont_DGreen>INT : <Def.BFont_Purple><UID.<UID.<Ref2>.More2>.Int>
DHtmlGump 270 210 210 25 0 0 <Def.BFont_DGreen>Karma : <Def.BFont_DPurple><UID.<UID.<Ref2>.More2>.Karma>
DHtmlGump 270 240 210 25 0 0 <Def.BFont_DGreen>Fame : <Def.BFont_Purple><UID.<UID.<Ref2>.More2>.Fame>
Endif
IF (<IsArmor <UID.<Ref2>.BaseID>>) || (<UID.<Ref2>.Type> = T_Clothing)
DHtmlGump 270 120 210 25 0 0 <Def.BFont_DGreen>Eskime Durumu : <Def.BFont_Purple>% <Eval 100 - <Eval <UID.<Ref2>.HitPoints> * 100> / <UID.<Ref2>.HitPoints>>
DHtmlGump 270 150 210 25 0 0 <Def.BFont_DGreen>Brüt Armor : <Def.BFont_DPurple><UID.<Ref2>.Armor>
DHtmlGump 270 180 210 25 0 0 <Def.BFont_DGreen>Gereken STR : <Def.BFont_Purple><UID.<Ref2>.ReqStr>
DHtmlGump 270 210 210 25 0 0 <Def.BFont_DGreen>Ağırlık : <Def.BFont_DPurple><Eval <UID.<Ref2>.Weight>/10>
DHtmlGump 270 240 210 25 0 0 <Def.BFont_DGreen>Extra Armor Oranı : <Def.BFont_Purple><Qval <UID.<Ref2>.ModAr>?<UID.<Ref2>.ModAr>:Yok>
Endif
IF (<UID.<Ref2>.Amount> > 1)
DHtmlGump 270 120 210 25 0 0 <Def.BFont_DGreen>Ürün Adedi : <Def.BFont_Purple><UID.<Ref2>.Amount> adet
DHtmlGump 270 150 210 25 0 0 <Def.BFont_DGreen>Birim Fiyatı : <Def.BFont_DPurple><Eval <UID.<Ref2>.Price> / <UID.<Ref2>.Amount>> gp
Endif
[DIALOG FirsatUrunleri Button]
On=0
Src.CTag0.BaktigimUrun
Src.CTag0.BaktigimUrun1
On=29051453 29051464
Local.Urun <Eval <dArgn> -29051453>
Src.CTag.BaktigimUrun <dLocal.Urun>
SDIALOG FirsatUrunleri,53
On=10111444 // SATIN ALMA BUTONU
Ref2=<Src.DCTag0.BaktigimUrun1>
Local.ToplamPara <Qval <Def.VSistemKesinti>?<Eval <Ref2.Price> + <Eval <Eval <Ref2.Price> * <Def.VSistemKesinti>> / 100>>:<Ref2.Price>>
IF (<Ref2.Price> <= 0)
Src.Sysmessage @38,,1 Bu eşya satılık değil.
SDialog Firsaturunleri
Return 1
Endif
IF !(<Ref2.TopObj.BaseID> = <Def.VendorKomutum>)
Src.Sysmessage @38,,1 Bu ürün sizden önce alınmış yada vendordan kaldırılmış görünüyor.
SDialog Firsaturunleri
Return 1
Endif
IF (<Ref2.TopObj.MemoryFindType.Memory_IPet.Link.UID> = <Src.UID>)
Src.Sysmessage @38,,1 Kendi vendorunuzdan alışveriş yapamazsınız.
SDialog Firsaturunleri
Return 1
Endif
IF (<Src.Gold> >= <dLocal.ToplamPara>)
Ref2.TopObj.Say <Src.Name>, vendor satış sistemi üzerinden bir ürünümü aldı.
Src.Gold -= <dLocal.ToplamPara>
Ref2.Topobj.Findlayer(29).More1 (<Ref2.Topobj.Findlayer(29).More1> + <Ref2.Price>)
Ref2.Cont <Src.Findlayer(21).UID>
Ref2.Price
Update
Src.CTag0.BaktigimUrun
Src.CTag0.BaktigimUrun1
Else
Src.Sysmessage @38,,1 Hesabınızda bu ürünü almak için <BolukAyir <dLocal.ToplamPara>> altın bulunmuyor.
SDialog Firsaturunleri
Return 1
Endif
On=18091048
Ref2=<Src.DCTag0.BaktigimUrun1>
Src.Events +VendoruAriyorum
Src.ArrowQuest <Ref2.TopObj.P>
Src.Sysmessage @07a1,,1 Takibi iptal etmek için ok'a sağ tıklayın.
Src.CTag0.BaktigimUrun
[Events VendoruAriyorum]
On=@UserQuestArrowClick
If (<Argn> ==1)
Src.Sysmessage @38,,1 Vendora gitmekten vazgeçtiniz.
Src.ArrowQuest
Src.Events -VendoruAriyorum
Src.CTag0.BaktigimUrun
Src.CTag0.BaktigimUrun1
Return 1
Endif
Return 1
On=@Logout
Src.ArrowQuest
Src.Events -VendoruAriyorum
[CHARDEF C_Vendor_Arama]
ID=C_MAN
NAME=#NAMES_HUMANMALE the Researcher
CAN=MT_NONMOVER
CATEGORY=Monsters
SUBSECTION=Miscellaneous
DESCRIPTION=Researcher
On=@Create
INVUL
COLOR=COLORS_SKIN
NPC=brain_human
FOOD 999
STR={45 55}
DEX={45 55}
INT={45 55}
ITEMNEWBIE=i_hair_ponytail
COLOR=0455
ITEMNEWBIE=random_facial_hair,1,R5
COLOR=0455
ITEMNEWBIE=i_robe
COLOR=colors_black
ITEMNEWBIE=i_apron_half
COLOR=0455
ITEMNEWBIE=i_shoes_plain
COLOR=0455
On=@Click
Message @09A,,1 ↪ Researcher
Return 1
On=@DClick
IF ( <Distance> < 3 )
Dialog UrunArama
Else
Message @07a1,,1 Arama yapabilmeniz için yaklaşmalısınız.
Return 1
EndIF
Return 1
Barbut sistemi
Kod:
////////////////////
///Script : 4s3d3///
////////////////////
[Defname Zar_Ayarlari]
EnAzZarBahsi "10000" //Oynanılabilecek en az bahis tutarı
EnFazlaZarBahsi "5000000" //Oynanılabilecek en fazla bahis tutarı
BahisKesintiVar "1" //Bahisde kesinti olsun mu ? (1=Açık/0=Kapalı)
BahisKesintiYuzdesi "10" //Bahisde %kaç kesinti olsun (Not : BahisKesintiVar 1 olmalıdır)
ZarAtmakIcinSure "15" //Yarışma başladıktan sonra iki tarafa verilen süre (saniye bazında)
[ITEMDEF i_bahis_zar]
ID i_dice_cup
NAME Zar
WEIGHT=1
SUBSECTION=Barkeep
DESCRIPTION=Dice and Cup
ON=@Create
Attr Attr_Move_Never|Attr_Decay
Color 0952
On=@Click
If (<TagCount> < 1)
Message @07e5,1,1 [<Serv.Name>]
Message @07a1,1,1 Bahis Zarı
Return 1
Endif
Message @077a,,1 [Bahis : <BolukAyir <dTag0.BahisMiktari>>]
Message @90,,1 [<Uid.<Tag0.KullananKisi>.Name> vs <Uid.<Tag0.RakipKisi>.Name>]
Return 1
ON=@DClick
If (<Distance> > 3)
Src.Sysmessage @38,,1 Çok uzaktasınız.
Return 1
Endif
IF (<Tag0.KullananKisi>) && (<Tag0.RakipKisi>) && (<Src.Uid> == <Uid.<Tag0.KullananKisi>>) || (<Src.Uid> == <Uid.<Tag0.RakipKisi>>)
IF (<Tag0.ZarAtti_<Src.Uid>>)
Src.Sysmessage @07a1,,1 Zar attiniz sıranızı beklemelisiniz.
Return 1
Endif
Local.IlkZar <Eval (Rand(6) +1)>
Local.IkinciZar <Eval (Rand(6) +1)>
Src.Say @077a,,1 [<dLocal.IlkZar>,<dLocal.IkinciZar>]
Src.Say @07a1,,1 Toplam : <Eval <dLocal.IlkZar>+<dLocal.IkinciZar>>
Tag.ZarAtti_<Src.Uid> <Eval <dLocal.IlkZar>+<dLocal.IkinciZar>>
ZarKontrol
TimerF Clear
If (<TagCount> > 0)
GeriSay <Eval <Def.ZarAtmakIcinSure>>
Return 1
Endif
Return 1
Endif
If (<Tag0.Kullanimda>)
Src.Sysmessage @07a1,,1 Bu zar şu anda <Uid.<Tag0.Kullanankisi>.Name> tarafından kullanılıyor.
Return 1
Endif
Color 080a
Tag0.Kullanimda 1
Tag0.KullananKisi <Src.Uid>
Dialog ZarBahis
Timer 20
Tag.TeklifSuresi 1
Return 1
Endif
On=@TargON_Item
Src.Sysmessage @38,,1 Sadece oyuncuları seçebilirsiniz.
ZariSifirla
Return 1
On=@TargON_Ground
Src.Sysmessage @38,,1 Sadece oyuncuları seçebilirsiniz.
ZariSifirla
Return 1
On=@TargON_Char
If !(<Tag0.KullananKisi> == <Src.Uid>)
Src.Sysmessage @38,,1 Kişi seçiminiz zamana aşımına uğramış.
Return 1
Endif
If (<Argo.Distance> > 3)
Src.Sysmessage @38,,1 Teklif göndereceğiniz kişiye yakın olmalısınız.
ZariSifirla
Return 1
Endif
If (<Argo.Distance <UID>> > 5)
Src.Sysmessage @38,,1 Teklif göndereceğiniz kişi zara yakın olmalıdır.
ZariSifirla
Return 1
Endif
If !(<Argo.Isplayer>)
Src.Sysmessage @38,,1 Sadece oyuncuları seçebilirsiniz.
ZariSifirla
Return 1
Endif
If (<Argo.Uid> == <Src.Uid>)
Src.Sysmessage @38,,1 Kendinizi seçemezsiniz.
ZariSifirla
Return 1
Endif
If (<Argo.IsDialogOpen ZarTeklif>)
Src.Sysmessage @38,,1 Seçtiğiniz kişi zaten bir zar teklifi almış.
ZariSifirla
Return 1
Endif
If (<Argo.Tag0.ZarAtiyor>) || (<Argo.IsDialogOpen ZarBahis>)
Src.Sysmessage @38,,1 Seçtiğiniz kişi zaten bir oyunda.
ZariSifirla
Return 1
Endif
If (<Argo.Gold> < <Tag0.BahisMiktari>)
Src.Sysmessage @38,,1 Seçtiğiniz kişide yeteri miktarda para bulunmuyor.
ZariSifirla
Return 1
Endif
Src.Tag.ZarAtiyor 1
Src.Gold= <Eval <Src.Gold>-<dTag0.BahisMiktari>>
TrySrc <Argo> Dialog ZarTeklif
Tag.TeklifSuresi
Tag.TeklifIletildi <Argo.Uid>
Timer 15 // Teklif Cevap Bekleme Süresi
Src.Sysmessage @07a1,,1 Teklifiniz iletilmiştir.
Return 1
On=@TargON_Cancel
Src.Sysmessage @38,,1 Seçim yapmadığınız için iptal edildi.
ZariSifirla
Return 1
On=@Timer
If (<Tag0.TeklifSuresi>) || (<Tag0.TeklifIletildi>)
TrySrc <Uid.<Tag0.KullananKisi>> DialogClose ZarBahis
If (<Tag0.TeklifIletildi>)
TrySrc <Uid.<Tag0.TeklifIletildi>> DialogClose ZarTeklif
TrySrc <Uid.<Tag0.KullananKisi>> Src.Tag.ZarAtiyor
Uid.<Tag0.TeklifIletildi>.Sysmessage @38,,1 Teklife cevap vermediğiniz için iptal olmuştur.
Endif
Uid.<Tag0.KullananKisi>.Sysmessage @38,,1 Bahis işleminiz zaman aşımına uğramıştır.
ZariSifirla
Return 1
Endif
If (<Tag0.ZarBasladi>)
If !(<Tag0.ZarAtti_<Uid.<Tag.KullananKisi>>>) && !(<Tag0.ZarAtti_<Uid.<Tag.RakipKisi>>>)
Uid.<Tag0.KullananKisi>.Sysmessage @07a1,,1 İki tarafta zar atmadığı için iptal edildi.
Uid.<Tag0.RakipKisi>.Sysmessage @07a1,,1 İki tarafta zar atmadığı için iptal edildi.
If (<Def.BahisKesintiVar>)
Uid.<Tag.KullananKisi>.Gold += <KesintiYap <Eval <dTag0.BahisMiktari>>>
Uid.<Tag.RakipKisi>.Gold += <KesintiYap <Eval <dTag0.BahisMiktari>>>
Else
Uid.<Tag.KullananKisi>.Gold += <Eval <dTag0.BahisMiktari>>
Uid.<Tag.RakipKisi>.Gold += <Eval <dTag0.BahisMiktari>>
Endif
Message @077a,,1 Zar İptal
Uid.<Tag.KullananKisi>.Tag.ZarAtiyor
Uid.<Tag.RakipKisi>.Tag.ZarAtiyor
ZariSifirla
Return 1
Endif
If (<Tag0.ZarAtti_<Uid.<Tag.KullananKisi>>>) && !(<Tag0.ZarAtti_<Uid.<Tag.RakipKisi>>>)
Message @0913,,1 Kazanan : <Uid.<Tag.KullananKisi>.Name>
Uid.<Tag0.RakipKisi>.Sysmessage @38,,1 Verilen sürede zar atmadığınız için mağlup sayıldınız.
Uid.<Tag.RakipKisi>.Tag.ZarAtiyor
Uid.<Tag0.KullananKisi>.Sysmessage @07a1,,1 Tebrikler! Rakibiniz zar atmadığı için galip sayıldınız.
Uid.<Tag0.KullananKisi>.Sysmessage @077a,,1 Kazanılan tutar <Eval <dTag0.BahisMiktari>*2>
If (<Def.BahisKesintiVar>)
Uid.<Tag.KullananKisi>.Gold += <KesintiYap <Eval <dTag0.BahisMiktari>*2>>
Else
Uid.<Tag.KullananKisi>.Gold += <Eval <dTag0.BahisMiktari>*2>
Endif
Uid.<Tag.KullananKisi>.Tag.ZarAtiyor
Uid.<Tag.RakipKisi>.Tag.ZarAtiyor
ZariSifirla
Return 1
Endif
If !(<Tag0.ZarAtti_<Uid.<Tag.KullananKisi>>>) && (<Tag0.ZarAtti_<Uid.<Tag.RakipKisi>>>)
Message @0913,,1 Kazanan : <Uid.<Tag.RakipKisi>.Name>
Uid.<Tag0.KullananKisi>.Sysmessage @38,,1 Verilen sürede zar atmadığınız için mağlup sayıldınız.
Uid.<Tag.KullananKisi>.Tag.ZarAtiyor
Uid.<Tag0.RakipKisi>.Sysmessage @07a1,,1 Tebrikler! Rakibiniz zar atmadığı için galip sayıldınız.
Uid.<Tag0.RakipKisi>.Sysmessage @077a,,1 Kazanılan tutar <Eval <dTag0.BahisMiktari>*2>
If (<Def.BahisKesintiVar>)
Uid.<Tag.RakipKisi>.Gold += <KesintiYap <Eval <dTag0.BahisMiktari>*2>>
Else
Uid.<Tag.RakipKisi>.Gold += <Eval <dTag0.BahisMiktari>*2>
Endif
Uid.<Tag.KullananKisi>.Tag.ZarAtiyor
Uid.<Tag.RakipKisi>.Tag.ZarAtiyor
ZariSifirla
Return 1
Endif
Return 1
[Function TeklifIptal]
Src.DialogClose ZarTeklif
[Function ZarKontrol]
IF (<Tag0.ZarAtti_<Uid.<Tag.KullananKisi>>>) && (<Tag0.ZarAtti_<Uid.<Tag.RakipKisi>>>)
IF (<dTag.ZarAtti_<Uid.<Tag.KullananKisi>>> == <dTag.ZarAtti_<Uid.<Tag.RakipKisi>>>)
Message @077a,,1 (<dTag.ZarAtti_<Uid.<Tag.KullananKisi>>>,<dTag.ZarAtti_<Uid.<Tag.RakipKisi>>>) Berabere!
Tag.Zaratti_<Uid.<Tag.KullananKisi>>
Tag.Zaratti_<Uid.<Tag.RakipKisi>>
Return 1
Endif
IF (<dTag.Zaratti_<Uid.<Tag.KullananKisi>>> < <dTag.Zaratti_<Uid.<Tag.RakipKisi>>>)
Message @0913,,1 Kazanan : <Uid.<Tag.RakipKisi>.Name>
If (<Def.BahisKesintiVar>)
Uid.<Tag.RakipKisi>.Gold += <KesintiYap <Eval <dTag0.BahisMiktari>*2>>
Else
Uid.<Tag.RakipKisi>.Gold += <Eval <dTag0.BahisMiktari>*2>
Endif
Uid.<Tag.RakipKisi>.Tag.ZarAtiyor
Uid.<Tag.KullananKisi>.Tag.ZarAtiyor
ZariSifirla
Else
Message @0913,,1 Kazanan : <Uid.<Tag.KullananKisi>.Name>
If (<Def.BahisKesintiVar>)
Uid.<Tag.KullananKisi>.Gold += <KesintiYap <Eval <dTag0.BahisMiktari>*2>>
Else
Uid.<Tag.KullananKisi>.Gold += <Eval <dTag0.BahisMiktari>*2>
Endif
Uid.<Tag.KullananKisi>.Tag.ZarAtiyor
Uid.<Tag.RakipKisi>.Tag.ZarAtiyor
ZariSifirla
Return 1
Endif
Endif
[Function KesintiYap]
Local.AnaPara <Args>
Local.Kesinti1 <Eval <dLocal.AnaPara>*<Def.BahisKesintiYuzdesi>>
Local.Kesinti2 <Eval <dLocal.Kesinti1>/100>
Local.Kesinti3 <Eval <dLocal.AnaPara> - <dLocal.Kesinti2>>
Return <dLocal.Kesinti3>
[Function Gerisay]
TimerF Clear
Local.GeriSay <Args>
Timer <dLocal.GeriSay>
For 0 <Eval <dLocal.GeriSay> -1>
TimerF <dLocal._For>, Message @38,,1 <Eval <dLocal.GeriSay> - <dLocal._For>>
EndFor
[Function ZariSifirla]
Color 0952
ClearTags
Timer -1
[Dialog ZarBahis]
300,150
Resizepic 3 0 83 233 <QVal <Def.BahisKesintiVar>?160:140>
Resizepic 10 10 9300 220 <QVal <Def.BahisKesintiVar>?140:120>
Checkertrans 10 10 220 <QVal <Def.BahisKesintiVar>?140:120>
If (<Def.BahisKesintiVar>)
DText 35 120 38 Bahisten yapılan kesinti % <Eval <Def.BahisKesintiYuzdesi>>
Endif
DText 100 20 1152 Bahis Sistemi
DText 20 50 38 Bahis Tutarı :
Resizepic 120 50 9300 100 20
DTextentry 125 50 80 20 1152 1 <Args> /// 2x Clientler için
//DTextentrylimited 125 50 135 25 1152 1 7 <Args> /// 4x ve üzeri clientler için
DText 120 90 1152 Onaylıyorum
Button 80 90 4024 4025 1 0 1
[Dialog Zarbahis Button]
On=0
Src.Sysmessage @38,,1 Bahis ekranını kapattınız.
ZariSifirla
On=1
If !(<IsNum <ArgTxt[1]>>)
Src.Sysmessage @38,,1 Bir rakam girişi yapın.
ZariSifirla
Return 1
Endif
If (StrMatch('<StrSub 0 1 <ArgTxt[1]>>','0'))
Src.Sysmessage @38,,1 İlk rakam "0" olamaz.
ZariSifirla
Return 1
Endif
If (<ArgTxt[1]> > <Eval <Def.EnFazlaZarBahsi>>) || (<ArgTxt[1]> < <Eval <Def.EnAzZarBahsi>>)
Src.Sysmessage @38,,1 Girmiş olduğunuz rakam 5m'den büyük 10k'dan küçük olamaz.
ZariSifirla
Return 1
Endif
IF (<Src.Gold> < <ArgTxt[1]>)
Src.Sysmessage @38,,1 Hesabınızda <BolukAyir <ArgTxt[1]>> altın bulunmuyor.
ZariSifirla
Return 1
Endif
Tag.BahisMiktari <ArgTxt[1]>
Target @07a1,,1 Lütfen meydan olayacağınız kişiyi seçin.
[Dialog ZarTeklif]
250,150
Resizepic 0 0 83 300 160
Resizepic 7 10 9300 287 140
Checkertrans 7 10 287 140
Resizepic 45 20 9300 215 80
DHtmlGump 50 20 210 70 0 0 <def.bfont_green><UID.<Tag0.KullananKisi>.Name> <def.bfont_black>size <def.bfont_green><BolukAyir <DTag0.Bahismiktari>> <def.bfont_black>altın tutarında zar atmayı teklif ediyor, kabul ediyor musunuz ?
Button 175 110 4018 4019 1 0 0
Dtext 220 110 1152 Reddet
Button 45 110 4024 4025 1 0 1
Dtext 90 110 1152 Kabul Et
[Dialog ZarTeklif Button]
On=0
UID.<DTag0.KullananKisi>.Gold +=<DTag0.Bahismiktari>
UID.<DTag0.KullananKisi>.Sysmessage @38,,1 <Src.Name> isimli kişi teklifinizi reddetti.
UID.<DTag0.KullananKisi>.Tag.ZarAtiyor
Src.Sysmessage @38,,1 Yapılan teklifi reddettiniz.
ZariSifirla
On=1
If (<Src.Gold> < <dTag0.BahisMiktari>)
Src.Sysmessage @38,,1 Hesabınızda <BolukAyir <dTag0.BahisMiktari>> altın bulunmuyor.
ZariSifirla
Return 1
Endif
Src.Tag.ZarAtiyor 1
Src.Gold= <Eval <Src.Gold>-<dTag0.BahisMiktari>>
Tag.TeklifIletildi
Tag.ZarBasladi 1
Ref1=<UID.<Dtag0.KullananKisi>>
Tag.Rakipkisi <Src.Uid>
Src.Sysmessage @07a1,,1 Teklifi kabul ettiniz.
Ref1.Sysmessage @07a1,,1 <Src.Name> teklifinizi kabul etti, zar atmak için süreniz başlamıştır.
Message @07a1,,1 Süre Başladı!
GeriSay 20
////////////////////////////////////////////// ALINTI ////////////////////////////////////////////////
[FUNCTION BolukAyir]
IF (<EVAL STRLEN(<ARGS>)> > 3)
LOCAL.STRLEN=<EVAL STRLEN(<ARGS>)>
LOCAL.CURRENTDIGIT=<EVAL STRLEN(<ARGS>)>
WHILE (<LOCAL.CURRENTDIGIT> > 3)
ARGS=<STRSUB 0 <EVAL (<LOCAL.CURRENTDIGIT> - 3)> <ARGS>>.<STRSUB <EVAL (<LOCAL.CURRENTDIGIT> - 3)> 50 <ARGS>>
LOCAL.CURRENTDIGIT -= 3
ENDWHILE
ENDIF
RETURN <ARGS>
Bir sonraki mesajdan devam ediyorum