IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Lütfen yardım. (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/271203-lutfen-yardim.html)

pire40

09 Ekim 2009 02:31

Lütfen yardım.

Arkadaş'lar , mesela kanal genelinde veya özelde konusuyorum konustumda yazı şeklim normal hıc bir deişiklik yok fakat konustum sohbet ettım kısının nıckını yazdım zaman ince çıksın ıstıyorum yani CTRL + b gibi ama sadece nicki o şekilde çıksın ıstıyorum bir kaç kişide gördüm yardımcı olurmusunuz.

serci

09 Ekim 2009 03:25

Cevap: Lütfen yardım.

Kod:

 

menu status,menubar,Channel {

  .-

  .• © Helpere,Admine Özel Yazı !

  ..• Açık !:.enable #absoyazı | .echo -a 0,4 Helpere,Admine Özel Yazı AcıLdı.. %logo

  ..• Kapalı !:.disable #absoyazı | .echo -a 0,4 Helpere,Admine Özel Yazı KapatıLdı.. %logo

  ..• Bilgi !:.echo -a 0,4 Bu Yazı Tipi Helper,Admin, ArkadasLara KoLaylık Saglasın diye EkLendi.. %logo

  .-

}

#absoyazı on

on *:input:#:{

  if (/* iswm $1) { return }

  var %a 0, %b, %c

  while (%a < $numtok($1-,32)) {

    inc %a

    %c = $gettok($1-,%a,32)

    if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(,%c,) }

    else { %b = %b %c }

  }

  if (!%b) { %b = $1- }

  say %b

  halt

}

#absoyazı end

insane

09 Ekim 2009 11:47

Cevap: Lütfen yardım.

Kod:

 

      on *:input:*:{ 

  if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) || ($1- == isnum) { goto end }

  var %a 0, %b, %c 

  if ($window($active).type == channel) {

    while (%a < $numtok($1-,32)) { 

      inc %a 

      %c = $gettok($1-,%a,32) 

      if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(,%c,) } 

      else { %b = %b %c } 

    } 

  }

  elseif ($window($active).type == query) {

    while (%a < $numtok($1-,32)) { 

      inc %a 

      %c = $gettok($1-,%a,32) 

      if ($query($remove(%c,!,?,:,;,.,$chr(44),?))) { %b = $iif(%b,%b) $+(,%c,) } 

      else { %b = %b %c } 

    } 

  }

  else { goto end }

  if (!%b) { %b = $1- } 

  else { say %b }

  halt 

  :end

}

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 12:54.