Hesabına erişemeyen eski üyeler Discord üzerinden yardım alabilir.
Merhaba arkadaslar Scripter olarak calıstıgım serverde anlasmazliklar sonucu ayrıldım kullanım izni vermediğim scriptlerimi ve yeni sistemlerimi kullandıkları icin bende burda sizle yepyeni bir sistem paylasmaya karar verdim
KREDİ SİSTEMİ
Sistem soyle calısıyor animal tamer olanlar isterlerse burdan para cekebiliyorlar

Eksikleri

1 hafta icinde geri odemezse bir event verilip skill kasma action yapma ozellikleri elinden alınıcak
ve bu kredi alma olayını online suresi ile dogru orantılı vericek sekilde ayarlanması gerekıyor
bunları sahsen ben Fixliyerek sistemlere ekliyicem fakat kullanmak isteyenler fixleyip kullanabilirler

//////////////////////////////////////////////////////////
//                Microfiber tarafından yazılmıstır                     //
/////////////////////////////////////////////////////////

[dialog d_kabul1]
330,130
PAGE 0
resizepic 2 2 9300 560 390
resizepic 22 22 9300 520 350
gumppic 355 250 02328
dtext 100 30 07a1 <serv.name> Shard Kredi Alma sistemi
button 40 50 55 56 1 0 1
dtext 60 50 07a1 Kredi al
dtext 60 80 07a1 Kredi ode
dtext 190 80 38 <serv.name> Kredi sistemi
dtext 160 95 07a1 Kredi sistemi Account unuzdaki sadece bir playerda
dtext 160 110 07a1 kredi verilmesini ve en gec 1 hafta icerisinde 
dtext 160 125 07a1 geri odenmesini saglar eger 1 hafta icinde alinan 
dtext 160 140 07a1 kredi geri odenmesse action skill kasma gibi bazi 
dtext 160 155 07a1 ozelliklerden accounttaki tum carlar yararlanamaz
dtext 160 170 07a1 borcunu odeyene kadar bu olay gecerliligini surdurur

button 40 80 55 56 2 0 2
dtext 40 300 38 Suanki borcunuz <eval (<tag.kredi>)> kadardir
dtext 40 320 38 Acc nizin Toplam Online suresi <eval (<account.totalconnecttime> / 60)> saattir


[dialog d_kabul1 button]
on=1
if ((<account.dtag0.ver> == 1) || ( <SRC.animallore> < 100.0 ) || ( <SRC.taming> < 100.0 ))
src.sysmessage @07a5,1,1 daha önce baska bir acc ile kredi almissiniz veya animal taming ile animal lore 100'den dusuk
else
sdialog d_kredi
src.sysmessage @07a1 Kredi alma menusu acilmistir
return 1
endif
on=2
if ((<account.dtag0.ver> == 1)
sdialog d_kredi_ode
else
src.sysmessage @07a1,1,1 Suan hic borcunuz yok
return 1
endif


[dialog d_kredi]
100, 20
PAGE 0
resizepic 2 2 9300 410 90
resizepic 25 25 9300 340 35
dtext 80 10 38 <serv.name> kredi sistemi
dtextentry 32 32 90 20 990 1 0 
button 380 40 55 56 1 0 1
dtext 15 70 07a1 1 haftada odemeniz gerektigini unutmadan kredi cekiniz.


[dialog d_kredi button]
on=1
if (<strsub 0 1 <argtxt[1]>> == 0)
src.sysmessage @07a1,1,1 Ilk rakama 0 yazamazsiniz.
elseif !(<isnum <argtxt[1]>>)
src.sysmessage @07a1,1,1 Sadece rakam kullanabilirsiniz.
elseif (<argtxt[1]> < 1)
src.sysmessage @07a1,1,1 Hatali bir rakam girdiniz.
else
src.sysmessage @69,1,1 <argtxt[1]> gp bankaniza aktarildi.
tag.kredi += <argtxt[1]>
src.f_kredi_ver1 <argtxt[1]>
src.events e_kredievent
account.tag.ver=1
SOUND 0F6
endif

[function f_kredi_ver1]
var.kredi <argn1>
if (<eval <var0.kredi>> >= 65000)
serv.newitem i_gold
new.amount 65000
new.cont <findlayer(layer_bankbox).uid>
f_give_money <eval <var0.kredi>>
elseif (<eval <var0.kredi>> != 0)
serv.newitem i_gold
new.amount <eval <var0.gp>>
new.cont <findlayer(layer_bankbox).uid>
endif



[dialog d_kredi_ode]
100, 20
PAGE 0
resizepic 2 2 9300 410 90
resizepic 25 25 9300 340 35
dtext 80 10 38 <serv.name> kredi sistemi
dtextentry 32 32 90 20 990 1 0 
button 380 40 55 56 1 0 1
dtext 15 70 07a1 1 Yazdiginiz miktar kadar borcunuzdan düsülecektir


[dialog d_kredi_ode button]
on=1
if (<restest <eval <argtxt[1]>>  i_gold>)
src.consume <eval <argtxt[1]>> i_gold
tag.kredi -= <argtxt[1]>
src.sysmessage @07a1,1,1 Yazdiginiz miktar kadar borcunuz dusmustur
account.tag.ver=0
SOUND 0F6
else
src.sysmessage @07a1,1,1 bu kadar para cantanizda yok
endif
[function kredi]
sdialog d_kabul1


Bu konu MicrofibeR tarafından düzenlendi(2010-04-06 21:51, 13 yıl önce)
Eline sağlık..
Eline Sağlık
Paylaşımın için teşekkürler...
Microfiber Emeğine Sağlık scp çok hoşuma gitti ama fixlemeyi tam olarak bilemiyorum :(
MicrofibeR: Emegine Saglik Guzel Olmus



manyaqq : Microfiber Emeğine Sağlık scp çok hoşuma gitti ama fixlemeyi tam olarak bilemiyorum :(

Yapabildigin Yere Kadar Yaparsin :)

Üye Ol veya Giriş Yap

Bu forum başlığına mesaj atmak istiyorsanız hemen üye olun veya giriş yapın.