IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - IRCServices /Ns Zarat eklentisi

- Services Hazır Kodlar (https://www.ircforumlari.net/services-hazir-kodlar/)

- - IRCServices /Ns Zarat eklentisi - düzenlenmiş hali (https://www.ircforumlari.net/services-hazir-kodlar/771664-ircservices-ns-zarat-eklentisi-duzenlenmis-hali.html)

IRCServices /Ns Zarat eklentisi - düzenlenmiş hali

Fikir X -> forumundaki Entrance isimli arkadaşa ait ama bazı eksikleri vardı ard arda zar atıp hediye kazanabiliyodun ve sadece tek bir hediye veriordu ben ona ek kullanma süresi ve he zar için farklı hediye ekledim
kodun orjinal linki ; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Kodumuza geçelim;

/modules/nickserv/main.c

Kod:

static void do_dropemail(User *u);

ALTINA

Kod:

static void do_zarat(User *u);

ekleyin.. daha sonra
-

Kod:

{ "HELP", do_help, NULL, -1, -1,-1 },

ALTINA

Kod:

{ "ZARAT", do_zarat, NULL, -1, -1,-1 },

ekleyin.. daha sonra
-

Kod:

/*************************************************************************/
 

static void do_drop(User *u)

ÜSTÜNE

Kod:

static void do_zarat(User *u)

{
 

NickInfo *ni;

ni  = get_nickinfo(u->nick);

static int ymc = 60*60*12;

time_t now = time(NULL);

NickGroupInfo *ngi;

ngi = get_ngi(ni);

if (!ni) {

send_cmd(s_NickServ, "NOTICE %s Kullanıcı adınızı kaydetmelisiniz...", u->nick);

return;

}

if (is_services_admin(u) && ngi->last_zar && now - ngi->last_zar < ymc) {

send_cmd(s_NickServ, "NOTICE %s Bu Komutu \2( 1 ) \2 Gunde, sadece \2 2 \2 Kez Kullanabilirsiniz..", u->nick);

return;

}

ngi->last_zar = now;

srand(time(0));

int zar = 1+rand()%6, zar2 = 1+rand()%6;

send_cmd(s_NickServ, "NOTICE %s Atılan Zarlar : %d ve %d", u->nick, zar, zar2);

if(zar == zar2){ 

if (zar == 5){

send_cmd(s_NickServ, "NOTICE %s Tebrikler Dü Beş...", u->nick);

send_cmd(s_NickServ, "NOTICE %s Ödülünüz, size Whois çekenleri göreceksiniz..", u->nick);

send_cmd(s_NickServ, "SVSMODE %s +W :1", u->nick);

}

if (zar == 1){

send_cmd(s_NickServ, "NOTICE %s Tebrikler Hep Yek...", u->nick);

send_cmd(s_NickServ, "NOTICE %s Ödülünüz, Vip Kullanıcı Oldunuz..", u->nick);

send_cmd(s_NickServ, "SVSMODE %s +Wq :1", u->nick);

send_cmd(s_NickServ, "CHGHOST %s :Vip.YouMyCure.com", u->nick);

send_cmd(s_NickServ, "SWHOIS %s :YouMyCure.com Vip Kullanıcısı", u->nick);

}

if (zar == 2){

send_cmd(s_NickServ, "NOTICE %s Tebrikler Dubara...", u->nick);

send_cmd(s_NickServ, "NOTICE %s Ödülünüz, size Whois çekenleri göreceksiniz..", u->nick);

send_cmd(s_NickServ, "SVSMODE %s +W :1", u->nick);

}

if (zar == 3){

send_cmd(s_NickServ, "NOTICE %s Dü Se...", u->nick);

send_cmd(s_NickServ, "NOTICE %s Ödülünüz, vhost kazandınız..", u->nick);

send_cmd(s_NickServ, "CHGHOST %s :ZAR-Kazananı.YouMyCure.com", u->nick);

}

if (zar == 4){

send_cmd(s_NickServ, "NOTICE %s Dört Cihar...", u->nick);

send_cmd(s_NickServ, "NOTICE %s Ödülünüz, swhois kazandınız..", u->nick);

send_cmd(s_NickServ, "SWHOIS %s :YouMyCure.com Zar Kazananı", u->nick);

}

if (zar == 6){

send_cmd(s_NickServ, "NOTICE %s Bü Şeş...", u->nick);

send_cmd(s_NickServ, "NOTICE %s Ödülünüz, artık kanallardan atılmayacaksınız..", u->nick);

send_cmd(s_NickServ, "SVSMODE %s +q :1", u->nick);

}

}

}

ekleyin.. kaydedip çıkın.

/modules/nickserv/nickserv.h

Kod:

time_t last_sendpass;

ALTINA

Kod:

time_t last_zar;

ekleyin.. kaydedin çıkın.
ssh den
make & make install
daha sonra servisleri yeniden başlatın

Cevap: IRCServices /Ns Zarat eklentisi - düzenlenmiş hali

helal olsun dostum ben düşündüm. ama sen daha önce yapmışın.süper işçilik

Cevap: IRCServices /Ns Zarat eklentisi - düzenlenmiş hali

Alıntı:

YouMyCure Nickli Üyeden Alıntı (Mesaj 1041853402)

Kod:

static void do_dropemail(User *u);

ALTINA

Kod:

static void do_zarat(User *u);

ekleyin.. daha sonra
-

Kod:

{ "HELP", do_help, NULL, -1, -1,-1 },

ALTINA

Kod:

{ "ZARAT", do_zarat, NULL, -1, -1,-1 },

ekleyin.. daha sonra
-

Kod:

/*************************************************************************/
 

static void do_drop(User *u)

ÜSTÜNE

Kod:

static void do_zarat(User *u)

{
 

NickInfo *ni;

ni  = get_nickinfo(u->nick);

static int ymc = 60*60*12;

time_t now = time(NULL);

NickGroupInfo *ngi;

ngi = get_ngi(ni);

if (!ni) {

send_cmd(s_NickServ, "NOTICE %s Kullanıcı adınızı kaydetmelisiniz...", u->nick);

return;

}

if (is_services_admin(u) && ngi->last_zar && now - ngi->last_zar < ymc) {

send_cmd(s_NickServ, "NOTICE %s Bu Komutu \2( 1 ) \2 Gunde, sadece \2 2 \2 Kez Kullanabilirsiniz..", u->nick);

return;

}

ngi->last_zar = now;

srand(time(0));

int zar = 1+rand()%6, zar2 = 1+rand()%6;

send_cmd(s_NickServ, "NOTICE %s Atılan Zarlar : %d ve %d", u->nick, zar, zar2);

if(zar == zar2){ 

if (zar == 5){

send_cmd(s_NickServ, "NOTICE %s Tebrikler Dü Beş...", u->nick);

send_cmd(s_NickServ, "NOTICE %s Ödülünüz, size Whois çekenleri göreceksiniz..", u->nick);

send_cmd(s_NickServ, "SVSMODE %s +W :1", u->nick);

}

if (zar == 1){

send_cmd(s_NickServ, "NOTICE %s Tebrikler Hep Yek...", u->nick);

send_cmd(s_NickServ, "NOTICE %s Ödülünüz, Vip Kullanıcı Oldunuz..", u->nick);

send_cmd(s_NickServ, "SVSMODE %s +Wq :1", u->nick);

send_cmd(s_NickServ, "CHGHOST %s :Vip.YouMyCure.com", u->nick);

send_cmd(s_NickServ, "SWHOIS %s :YouMyCure.com Vip Kullanıcısı", u->nick);

}

if (zar == 2){

send_cmd(s_NickServ, "NOTICE %s Tebrikler Dubara...", u->nick);

send_cmd(s_NickServ, "NOTICE %s Ödülünüz, size Whois çekenleri göreceksiniz..", u->nick);

send_cmd(s_NickServ, "SVSMODE %s +W :1", u->nick);

}

if (zar == 3){

send_cmd(s_NickServ, "NOTICE %s Dü Se...", u->nick);

send_cmd(s_NickServ, "NOTICE %s Ödülünüz, vhost kazandınız..", u->nick);

send_cmd(s_NickServ, "CHGHOST %s :ZAR-Kazananı.YouMyCure.com", u->nick);

}

if (zar == 4){

send_cmd(s_NickServ, "NOTICE %s Dört Cihar...", u->nick);

send_cmd(s_NickServ, "NOTICE %s Ödülünüz, swhois kazandınız..", u->nick);

send_cmd(s_NickServ, "SWHOIS %s :YouMyCure.com Zar Kazananı", u->nick);

}

if (zar == 6){

send_cmd(s_NickServ, "NOTICE %s Bü Şeş...", u->nick);

send_cmd(s_NickServ, "NOTICE %s Ödülünüz, artık kanallardan atılmayacaksınız..", u->nick);

send_cmd(s_NickServ, "SVSMODE %s +q :1", u->nick);

}

}

}

ekleyin.. kaydedip çıkın.

/modules/nickserv/nickserv.h

Kod:

time_t last_sendpass;

ALTINA

Kod:

time_t last_zar;

ekleyin.. kaydedin çıkın.
ssh den
make & make install
daha sonra servisleri yeniden başlatın

SURE AYARINI NASIL YAPABILIRIZ MISAL 30 DK DA BİR KULLANILSIN

Cevap: IRCServices /Ns Zarat eklentisi - düzenlenmiş hali

Alıntı:

Turk06 Nickli Üyeden Alıntı (Mesaj 1042002169)

SURE AYARINI NASIL YAPABILIRIZ MISAL 30 DK DA BİR KULLANILSIN

Kod:

static int ymc = 60*60*12;

time_t now = time(NULL);

NickGroupInfo *ngi;

ngi = get_ngi(ni);

if (!ni) {

send_cmd(s_NickServ, "NOTICE %s Kullanıcı adınızı kaydetmelisiniz...", u->nick);

return;

}

if (is_services_admin(u) && ngi->last_zar && now - ngi->last_zar < ymc) {

send_cmd(s_NickServ, "NOTICE %s Bu Komutu \2( 1 ) \2 Gunde, sadece \2 2 \2 Kez Kullanabilirsiniz..", u->nick);

return;

}

burayı,

Kod:

static int ymc = 60*30;

time_t now = time(NULL);

NickGroupInfo *ngi;

ngi = get_ngi(ni);

if (!ni) {

send_cmd(s_NickServ, "NOTICE %s Kullanıcı adınızı kaydetmelisiniz...", u->nick);

return;

}

if (is_services_admin(u) && ngi->last_zar && now - ngi->last_zar < ymc) {

send_cmd(s_NickServ, "NOTICE %s Bu komutu her \2( 30 ) \2 dakikada sadece \2 1 \2 Kez Kullanabilirsiniz..", u->nick);

return;

}

şeklinde değiştirip, make ve make install uyguladıktan sonra servisinizi restart edin.

Cevap: IRCServices /Ns Zarat eklentisi - düzenlenmiş hali

Peki bunu kanala nasıl entegre edebiliriz , bi kod var ama çalışmıyor.

Bi bakarsananız sevinirim.

PHP- Kodu:

   on *:text:*:#sohbet: {   if  $regex($1,/zarat$/i) {     var %dice $rand(1,6)     if  !$hget(zarat,nick) {       hadd -m zarat nick $nick       hadd -m zarat  zar %dice        msg # 4 $nick  2-> zar atildi.. baska bir  arkadasta 4!zarat2 yaz atilmasi bekleniliyor.        return     }      if $hget(zarat,nick) {        if $hget(zarat,nick) == $nick { msg # 4  $nick 2zaten siz 4!zarat2 komutunu yazdiniz, sizden baska bir nick bu  komutu kullanmalidir. | return }       msg # 2 Zariniz atildi.        msg # **4 $nick -> 2 Zarınız ->5 %dice        msg # **4  $hget(zarat,nick) ->2 Attigi zar ->5 $hget(zarat,zar)       msg #  $iif(%dice == $hget(zarat,zar),4**2Oyun berabere,2Yuksek atan  ->4 $iif(%dice >= $hget(zarat,zar),$nick,$hget(zarat,nick)))        msg # 4 $nick 2 $iif(%dice == $hget(zarat,zar),2ve 4  $hget(zarat,nick) 2 Berabere geldiler (Puan bolusuldu),$iif(%dice  >= $hget(zarat,zar),kazandin $chr(40) $+ Kazanc puan:  $eglenceoyunpuan  $+ $chr(41) $chr(44) Kaybeden  -> 4  $hget(zarat,nick), kaybettin $chr(44) Kazanan ->4 $hget(zarat,nick)  $chr(40) $+ Kananc puan: $eglenceoyunpuan $+  $+ $chr(41) ))       msg  # -       $iif(%dice == $hget(zarat,zar),.timer 1 0 puanekle $nick $(|)  puanekle $hget(zarat,nick),$iif(%dice >= .timer 1 0 puanekle  $nick,.timer 1 0 puanekle $hget(zarat,nick)))       .hfree -sw zarat       }   } } alias puanekle {   if $istok($masternick,$1,32) { return }    if $read(eglence-puan.txt,w,$+($1,$chr(32),*)) { var %pnp  $token($v1,2,32) | write $+(-dl,$readn) eglence-puan.txt | write  eglence-puan.txt $+($1,$chr(32),$calc(%pnp +  $iif($2,$v1,$eglenceoyunpuan))) } } 

    Click this bar to view the full image.

Cevap: IRCServices /Ns Zarat eklentisi - düzenlenmiş hali

Alıntı:

TimeMirc Nickli Üyeden Alıntı (Mesaj 1042513818)

Peki bunu kanala nasıl entegre edebiliriz , bi kod var ama çalışmıyor.

Bi bakarsananız sevinirim.

postta paylaşılan kod services üzerinde yapacağın bir değişikliktir, mirc koduna gelecek olursak;

Kod:

on *:text:*:#sohbet: { 

  if  $regex($1,/zarat$/i) {   

    var %dice $rand(1,6)     

    if  !$hget(zarat,nick) {     

      hadd -m zarat nick $nick      

      hadd -m zarat  zar %dice       

      msg # 4 $nick  2-> zar atildi.. baska bir  arkadasta 4!zarat2 yaz atilmasi bekleniliyor.      

      return    

    }     

    if $hget(zarat,nick) {   

      if $hget(zarat,nick) == $nick {

        msg # 4  $nick 2zaten siz 4!zarat2 komutunu yazdiniz, sizden baska bir nick bu  komutu kullanmalidir. | return 

      }     

      msg # 2 Zariniz atildi.       

      msg # **4 $nick -> 2 Zarınız ->5 %dice       

      msg # **4  $hget(zarat,nick) ->2 Attigi zar ->5 $hget(zarat,zar)     

      msg #  $iif(%dice == $hget(zarat,zar),4**2Oyun berabere,2Yuksek atan  ->4 $iif(%dice >= $hget(zarat,zar),$nick,$hget(zarat,nick)))     

      msg # 4 $nick 2 $iif(%dice == $hget(zarat,zar),2ve 4  $hget(zarat,nick) 2 Berabere geldiler (Puan bolusuldu),$iif(%dice  >= $hget(zarat,zar),kazandin $chr(40) $+ Kazanc puan:  $eglenceoyunpuan  $+ $chr(41) $chr(44) Kaybeden  -> 4  $hget(zarat,nick), kaybettin $chr(44) Kazanan ->4 $hget(zarat,nick)  $chr(40) $+ Kananc puan: $eglenceoyunpuan $+  $+ $chr(41) ))       

      msg  # -       $iif(%dice == $hget(zarat,zar),.timer 1 0 puanekle $nick $(|)  puanekle $hget(zarat,nick),$iif(%dice >= .timer 1 0 puanekle  $nick,.timer 1 0 puanekle $hget(zarat,nick)))    

      .hfree -sw zarat    

    }

  } 

} 

alias puanekle { 

  if $istok($masternick,$1,32) { return }   

  if $read(eglence-puan.txt,w,$+($1,$chr(32),*)) {

    var %pnp  $token($v1,2,32) | write $+(-dl,$readn) eglence-puan.txt | write  eglence-puan.txt $+($1,$chr(32),$calc(%pnp +  $iif($2,$v1,$eglenceoyunpuan))) 

  } 

}

bu şekilde deneyebilirsin

Cevap: IRCServices /Ns Zarat eklentisi - düzenlenmiş hali

Vayy zar attıktan sonra hediye de mi veriyor bu komut, güzelmiş fikri sevdim, bizim kanalda zar atıyoruz ama bir şey verdiği yok botun :D: bir ara yönetimde zar atma yarışması düzenlemiştik keyifliydi :D: Emeğinize sağlık^^

Cevap: IRCServices /Ns Zarat eklentisi - düzenlenmiş hali

Alıntı:

YouMyCure Nickli Üyeden Alıntı (Mesaj 1042515942)

postta paylaşılan kod services üzerinde yapacağın bir değişikliktir, mirc koduna gelecek olursak;

Kod:

on *:text:*:#sohbet: { 

  if  $regex($1,/zarat$/i) {   

    var %dice $rand(1,6)     

    if  !$hget(zarat,nick) {     

      hadd -m zarat nick $nick      

      hadd -m zarat  zar %dice       

      msg # 4 $nick  2-> zar atildi.. baska bir  arkadasta 4!zarat2 yaz atilmasi bekleniliyor.      

      return    

    }     

    if $hget(zarat,nick) {   

      if $hget(zarat,nick) == $nick {

        msg # 4  $nick 2zaten siz 4!zarat2 komutunu yazdiniz, sizden baska bir nick bu  komutu kullanmalidir. | return 

      }     

      msg # 2 Zariniz atildi.       

      msg # **4 $nick -> 2 Zarınız ->5 %dice       

      msg # **4  $hget(zarat,nick) ->2 Attigi zar ->5 $hget(zarat,zar)     

      msg #  $iif(%dice == $hget(zarat,zar),4**2Oyun berabere,2Yuksek atan  ->4 $iif(%dice >= $hget(zarat,zar),$nick,$hget(zarat,nick)))     

      msg # 4 $nick 2 $iif(%dice == $hget(zarat,zar),2ve 4  $hget(zarat,nick) 2 Berabere geldiler (Puan bolusuldu),$iif(%dice  >= $hget(zarat,zar),kazandin $chr(40) $+ Kazanc puan:  $eglenceoyunpuan  $+ $chr(41) $chr(44) Kaybeden  -> 4  $hget(zarat,nick), kaybettin $chr(44) Kazanan ->4 $hget(zarat,nick)  $chr(40) $+ Kananc puan: $eglenceoyunpuan $+  $+ $chr(41) ))       

      msg  # -       $iif(%dice == $hget(zarat,zar),.timer 1 0 puanekle $nick $(|)  puanekle $hget(zarat,nick),$iif(%dice >= .timer 1 0 puanekle  $nick,.timer 1 0 puanekle $hget(zarat,nick)))    

      .hfree -sw zarat    

    }

  } 

} 

alias puanekle { 

  if $istok($masternick,$1,32) { return }   

  if $read(eglence-puan.txt,w,$+($1,$chr(32),*)) {

    var %pnp  $token($v1,2,32) | write $+(-dl,$readn) eglence-puan.txt | write  eglence-puan.txt $+($1,$chr(32),$calc(%pnp +  $iif($2,$v1,$eglenceoyunpuan))) 

  } 

}

bu şekilde deneyebilirsin

slm buna top10da yapabilirmiyiz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: IRCServices /Ns Zarat eklentisi - düzenlenmiş hali

Alıntı:

KraLSakir Nickli Üyeden Alıntı (Mesaj 1042639420)

slm buna top10da yapabilirmiyiz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Yapmaman için sebep yok :) yeterki hayal et