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/)
-   -   Op Konferansı (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/23802-op-konferansi.html)

UpsIDintAgain 01 Eylül 2006 00:32

Op Konferansı
 
on *:Load:{
.echo -a Kodlama CipriX e ait değildir..
.echo -a [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
}
dialog op_conf {
title "Op Konferansı"
size -1 -1 231 158
option dbu
edit "", 2, 3 141 176 13, multi autohs
button "Mesajı Yolla", 3, 182 142 44 12, default
list 4, 181 4 45 135, size
edit "", 1, 3 4 176 135, multi vsbar
}
on ^*:notice:*:*: {
if ($target == $+(@,$chan)) {
if ((!$dialog(op_conf)) && (%autopop == $true)) {
set %chan $chan
dialog -md op_conf op_conf
dialog -t op_conf Op Konferansı: %chan
}
did -a op_conf 1 $+([,$nick,]) $1- $crlf
}
halt
}
on ^*:text:*:*: {
if ($target == $+(@,$chan)) {
if ((!$dialog(op_conf)) && (%autopop == $true)) {
set %chan $chan
dialog -md op_conf op_conf
dialog -t op_conf Op Konferansı: %chan
}
did -a op_conf 1 $+([,$nick,]) $1- $crlf
}
halt
}
on *:DIALOG:op_conf:sclick:3: {
//notice @ $+ %chan $did(op_conf,2)
did -a op_conf 1 $+([,$me,]) $did(op_conf,2) $crlf
did -r op_conf 2
did -f op_conf 2
}
on *:DIALOG:op_conf:init:*: {
op_list
list_refresh
}
on *:DIALOG:op_conf:close:*: {
unset %chan
unset %ops
.timer.refresh off
.timer.refresh1 off
}
on *:DIALOG:op_conf:dclick:4: {
set %nick $replace($did(op_conf,4).seltext,@,$null)
query %nick
unset %nick
}
alias -l op_list {
var %a = $nick(# $+ %chan,0,o)
while (%a) {
set %ops $addtok(%ops,$nick(# $+ %chan,%a,o),46)
dec %a
}
set %ops $sorttok(%ops,46)
set %x 1
while (%x <= $nick(# $+ %chan,0,o)) {
set %name $+(@,$gettok(%ops,%x,46))
did -a op_conf 4 %name
inc %x
}
unset %name
unset %x
}
alias ops {
if (!$dialog(op_conf)) {
set %chan $chan
dialog -md op_conf op_conf
dialog -t op_conf Op Konferansı: %chan
if ($1) opsay $1-
if ($1) did -a op_conf 1 $+([,$me,]) $1-
}
else {
dialog -o op_conf op_conf
dialog -n op_conf op_conf
}
}
alias -l list_refresh {
.timer.refresh 0 30 did -r op_conf 4
.timer.refresh1 0 30 op_list
}
alias opsay {
//notice $+ @ %chan $1-
}


Görünüm:

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Thorn 01 Eylül 2006 01:01

Yanıt: Op Konferansı
 
waaww :) ***i ;)

SCouNDReL 02 Eylül 2006 00:06

Yanıt: Op Konferansı
 
hoş bişey tebrikler.. ancak dialog eventlerini bir arada toplarsan daa ii olur arada zımbırtılık yapabilio :)

SaintCty 26 Mart 2007 14:09

Cevap: Op Konferansı
 
arkadaşım adnonu yükledim calıştırdım ama galiba dogru olmadı bir kac sorum var 1: bu adnonun en güz<el şekilde nasıl acarız menüye eklemiyor 2: benim op ve soplarımdada bu adnonun olması gereklimi yani onlarında yüklemesi gereklimi ACİL CEVAP VERİRSEN :confused:

IceR 07 Nisan 2007 15:34

Cevap: Op Konferansı
 
Dehşey olmuş :D:D:D



Dehşet olmuş daha dogru oldu :D

Sevgimsin 07 Nisan 2007 16:28

Yanıt: Op Konferansı
 
Orijinalini isterseniz ;)

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

PHP- Kodu:

;========= = - -;Op Conference v1.5;By Asriel;mirc version6.02+ (does't work with anything but);-------- - -;It's not much to oogle over;so don't feel bad about stealing;or deleting it...;========= = - -;To install, just put this file;Wherever and type;   /load -rs wherever\the\file\is\opconf.mrc;Enjoy it.;-------- - -on *:load: {  if ($version < 6.02) {  /echo -a Your version of mirc is too old, get with it.  /unload -rs " $+ $scriptdir $+ opconf.mrc $+ " /halt}else {  set %autopop $true  /echo -a Op Conference Script by Asriel loaded!  /echo -a Type /ops to initiate an ops conference}};========= = - -;   Dialogs;========= = - -dialog op_conf {  title "Op Conference"  size -1 -1 231 158  option dbu  edit "", 2, 3 141 176 13, multi autohs  button "Send Message", 3, 182 142 44 12, default  list 4, 181 4 45 135, size  edit "", 1, 3 4 176 135, multi vsbar};========= = - -;   Remotes;========= = - -on ^*:notice:*:*: {  ;-------- - -  ;When you get a notice...  ;-------- - -  if ($target == $+(@,$chan)) {    ;-------- - -    ; Is it an op notice...    ;-------- - -    if ((!$dialog(op_conf)) && (%autopop == $true)) {      ;-------- - -      ; If the /ops dialog isn't openopen it..      ;-------- - -      set %chan $chan      dialog -md op_conf op_conf      dialog -t op_conf Op Conference: %chan    }    ;-------- - -    ; Add the initial notice to the list    ;-------- - -    did -a op_conf 1 $+([,$nick,]) $1$crlf  }  halt}on ^*:text:*:*: {  ;-------- - -  ;When you get a msg...  ;-------- - -  if ($target == $+(@,$chan)) {    ;-------- - -    ; Is it an op msg...    ;-------- - -    if ((!$dialog(op_conf)) && (%autopop == $true)) {      ;-------- - -      ; If the /ops dialog isn't open, open it..      ;-------- - -      set %chan $chan      dialog -md op_conf op_conf      dialog -t op_conf Op Conference: %chan    }    ;-------- - -    ; Add the initial notice to the list    ;-------- - -    did -a op_conf 1 $+([,$nick,]) $1- $crlf  }  halt};-------- - -; When you click 'Send Message'..;-------- - -on *:DIALOG:op_conf:sclick:3: {  ;-------- - -  ; Op notice the chan, and update the window  ;-------- - -  //onotice %chan $did(op_conf,2)  did -a op_conf 1 $+([,$me,]) $did(op_conf,2) $crlf  did -r op_conf 2  ;Clear the editbox  did -f op_conf 2  ;Select the editbox, so you can start typing  ;without having to re-click the box};-------- - -; When the window opens...;-------- - -on *:DIALOG:op_conf:init:*: {  ;-------- - -  ; /op_list scans for the ops in the room, and  ; adds them to the list in the window  ;-------- - -  op_list  ;-------- - -  ; /list_refresh sets a timer to refresh the nicklist  ; in case someone gets deoped or joins, or whatever..  ;-------- - -  list_refresh};-------- - -; When you close..;-------- - -on *:DIALOG:op_conf:close:*: {  ;-------- - -  ; Unset all the [gasp] variables!  ;-------- - -  unset %chan  unset %ops  timer.refresh off  timer.refresh1 off};-------- - -; When you doubleclick a name...;-------- - -on *:DIALOG:op_conf:dclick:4: {  ;-------- - -  ; Get rid of the @'and queries the dude..  ;-------- - -  set %nick $replace($did(op_conf,4).seltext,@,$null)  query %nick  unset %nick};========= = - -;   Aliases;========= = - -alias -l op_list {  ;-------- - -  ; This crazy business scans for  ; ops in the room, and adds them to a tokenlist  THEN adds them to the list in the window  ;-------- - -  var %$nick(# $+ %chan,0,o)  while (%a) {    set %ops $addtok(%ops,$nick(# $+ %chan,%a,o),46)    dec %a  }  set %ops $sorttok(%ops,46)  set %x 1  while (%x <= $nick(# $+ %chan,0,o)) {    set %name $+(@,$gettok(%ops,%x,46))    did -a op_conf 4 %name    inc %x  }  unset %name  unset %x}alias ops {  if (!$dialog(op_conf)) {    set %chan $chan    dialog -md op_conf op_conf    dialog -t op_conf Op Conference: %chan    if ($1) opsay $1-    if ($1) did -a op_conf 1 $+([,$me,]) $1-  }  else {    ;-------- - -    ; If the dialog is open, bring it to front (then unlock)    ;-------- - -    dialog -o op_conf op_conf    dialog -n op_conf op_conf  }}alias -l list_refresh {  .timer.refresh 0 30 did -r op_conf 4  .timer.refresh1 0 30 op_list}alias opsay {  //onotice %chan $1-};========= = - -; Popup.. yawn;========= = - -;-------- - -; People didn't like it automaticaly poping up, so; I added a toggle;-------- - -menu channel {  Op Conference  .Open Op Conference: /ops  .-  .Turn AutoPopup $iif(%autopop == $true, OFF, ON): $iif(%autopop == $true, set %autopop $false, set %autopop $true)  ;If autopop is on, it will only show "turn OFF", and if it's off.. it will only show "Turn ON"};========= = - -;   End Script;========= = - - 


dava_adami 07 Nisan 2007 21:56

Cevap: Op Konferansı
 
amacını şeyini anlıyamadım ney ki bu.

UpsIDintAgain 08 Nisan 2007 03:28

Yanıt: Op Konferansı
 
Alıntı:

Sevgimsin Nickli Üyeden Alıntı
Orijinalini isterseniz ;)

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

PHP- Kodu:

;========= = - -;Op Conference v1.5;By Asriel;mirc version6.02+ (does't work with anything but);-------- - -;It's not much to oogle over;so don't feel bad about stealing;or deleting it...;========= = - -;To install, just put this file;Wherever and type; /load -rs wherever\the\file\is\opconf.mrc;Enjoy it.;-------- - -on *:load: { if ($version < 6.02) { /echo -a Your version of mirc is too old, get with it. /unload -rs " $+ $scriptdir $+ opconf.mrc $+ " /halt}else { set %autopop $true /echo -a Op Conference Script by Asriel loaded! /echo -a Type /ops to initiate an ops conference}};========= = - -; Dialogs;========= = - -dialog op_conf { title "Op Conference" size -1 -1 231 158 option dbu edit "", 2, 3 141 176 13, multi autohs button "Send Message", 3, 182 142 44 12, default list 4, 181 4 45 135, size edit "", 1, 3 4 176 135, multi vsbar};========= = - -; Remotes;========= = - -on ^*:notice:*:*: { ;-------- - - ;When you get a notice... ;-------- - - if ($target == $+(@,$chan)) { ;-------- - - ; Is it an op notice... ;-------- - - if ((!$dialog(op_conf)) && (%autopop == $true)) { ;-------- - - ; If the /ops dialog isn't openopen it.. ;-------- - - set %chan $chan dialog -md op_conf op_conf dialog -t op_conf Op Conference: %chan } ;-------- - - ; Add the initial notice to the list ;-------- - - did -a op_conf 1 $+([,$nick,]) $1$crlf halt}on ^*:text:*:*: { ;-------- - - ;When you get a msg... ;-------- - - if ($target == $+(@,$chan)) { ;-------- - - ; Is it an op msg... ;-------- - - if ((!$dialog(op_conf)) && (%autopop == $true)) { ;-------- - - ; If the /ops dialog isn't open, open it.. ;-------- - - set %chan $chan dialog -md op_conf op_conf dialog -t op_conf Op Conference: %chan } ;-------- - - ; Add the initial notice to the list ;-------- - - did -a op_conf 1 $+([,$nick,]) $1- $crlf } halt};-------- - -; When you click 'Send Message'..;-------- - -on *:DIALOG:op_conf:sclick:3: { ;-------- - - ; Op notice the chan, and update the window ;-------- - - //onotice %chan $did(op_conf,2) did -a op_conf 1 $+([,$me,]) $did(op_conf,2) $crlf did -r op_conf 2 ;Clear the editbox did -f op_conf 2 ;Select the editbox, so you can start typing ;without having to re-click the box};-------- - -; When the window opens...;-------- - -on *:DIALOG:op_conf:init:*: { ;-------- - - ; /op_list scans for the ops in the room, and ; adds them to the list in the window ;-------- - - op_list ;-------- - - ; /list_refresh sets a timer to refresh the nicklist ; in case someone gets deoped or joins, or whatever.. ;-------- - - list_refresh};-------- - -; When you close..;-------- - -on *:DIALOG:op_conf:close:*: { ;-------- - - ; Unset all the [gasp] variables! ;-------- - - unset %chan unset %ops timer.refresh off timer.refresh1 off};-------- - -; When you doubleclick a name...;-------- - -on *:DIALOG:op_conf:dclick:4: { ;-------- - - ; Get rid of the @'and queries the dude.. ;-------- - - set %nick $replace($did(op_conf,4).seltext,@,$nullquery %nick unset %nick};========= = - -; Aliases;========= = - -alias -l op_list { ;-------- - - ; This crazy business scans for ; ops in the room, and adds them to a tokenlist THEN adds them to the list in the window ;-------- - - var %$nick(# $+ %chan,0,o) while (%a) { set %ops $addtok(%ops,$nick(# $+ %chan,%a,o),46) dec %a } set %ops $sorttok(%ops,46) set %x 1 while (%x <= $nick(# $+ %chan,0,o)) { set %name $+(@,$gettok(%ops,%x,46)) did -a op_conf 4 %name inc %x } unset %name unset %x}alias ops { if (!$dialog(op_conf)) { set %chan $chan dialog -md op_conf op_conf dialog -t op_conf Op Conference: %chan if ($1) opsay $1- if ($1) did -a op_conf 1 $+([,$me,]) $1- } else { ;-------- - - ; If the dialog is open, bring it to front (then unlock) ;-------- - - dialog -o op_conf op_conf dialog -n op_conf op_conf }}alias -l list_refresh { .timer.refresh 0 30 did -r op_conf 4 .timer.refresh1 0 30 op_list}alias opsay { //onotice %chan $1-};========= = - -; Popup.. yawn;========= = - -;-------- - -; People didn't like it automaticaly poping up, so; I added a toggle;-------- - -menu channel { Op Conference .Open Op Conference: /ops .- .Turn AutoPopup $iif(%autopop == $true, OFF, ON): $iif(%autopop == $true, set %autopop $false, set %autopop $true) ;If autopop is on, it will only show "turn OFF", and if it's off.. it will only show "Turn ON"};========= = - -; End Script;========= = - - 



Tebrikler Code'nin en başını okurmusun ?


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk