[UpsIDintAgain]

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:

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

waaww
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
***i
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[SCouNDReL]

hoş bişey tebrikler.. ancak dialog eventlerini bir arada toplarsan daa ii olur arada zımbırtılık yapabilio
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[SaintCty]

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[IceR]

Dehşey olmuş
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
D
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.




Dehşet olmuş daha dogru oldu
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Orijinalini isterseniz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.



Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!

;========= = - -;Op Conference v1.5;By Asriel;mirc version: 6.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 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}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 @'s 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 %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 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]

amacını şeyini anlıyamadım ney ki bu.

[UpsIDintAgain]

Sevgimsin Nickli Üyeden Alıntı

Orijinalini isterseniz Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın! ;========= = - -;Op Conference v1.5;By Asriel;mirc version: 6.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 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}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 @'s 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 %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 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 ?