Bu paneli türkiye kanalimiz icin ayaliyabilicek varmi ?? - IRCForumlari.Net - IRC Sunucu sahipleri ve kullanicilari bulusma noktasi
IRCForumlari.Net - IRC Sunucu sahipleri ve kullanicilari bulusma noktasi

Go Back   IRCForumlari.Net - IRC Sunucu sahipleri ve kullanicilari bulusma noktasi mIRC Scripting mIRC Scripting Sorunları

mIRC Scripting Sorunları mIRC Scripting ile ilgili sorunlarinizi bu bölümde belirtebilirsiniz.


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 21 Haziran 2012, 16:39   #1
 
oguz8787 - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 16 Şubat 2012
Bulunduğu yer: muğla
Mesajlar: 21
Alinan Teşekkür: 1
IRC Sunucusu: irc.quakenet.org
WEB Sitesi: www.IrcForumlari.net
İlgi Alanı: TCL Scripting
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Tepkiler: 0
Aldığı Tepki: 0 (0 Mesajda)
Exclamation Bu paneli türkiye kanalimiz icin ayaliyabilicek varmi ??

-- Sponsor Baglantı --

Kod:
 ;----------------------- ; GN admin Script ;   By Psicopath ;        START ;-----------------------  ;----------------------- ; ;  How to install ; ; If you had already installed a previous version: ; ; -Delete all previous content from popup tab, Remote tab and aliases  tab from ;  Scripts Editor (alt+r)and then click OK then place this file in the  mIRC directory ;  and type: /load -rs GNadminscript.mrc. You can delete UpdateTool.exe  too. It's no longer ;  being supported. An update system will be launched in future time. ; ; If it's a fresh install place this file in the mIRC directory ;  and type: /load -rs GNadminscript.mrc ; ;  Contact/suggestion/bug report/whatever: Psiico @ Qnet or  [email protected] ; ;-----------------------  on *:start:start on *:connect:if (%GNactive == 1) { if (*quakenet.org iswm  $server) {  auth } | if (*GameSurge.net iswm $server) { auth2 } }  on *:invite:#:if (%GNactive == 1) { if ($nick == %GNadminChanBot) {  aline -p @GN_Admin_Control_Window %GNheader You have been invited by the  bot, to join the admin channel. joining.... %GNfooter | /join $chan } } on *:text:*Your game is now launched, you are allowed to use this  server*:?:if (%GNactive == 1) { if ($nick == %GNadminChanBot) { aline -p  @GN_Admin_Control_Window %GNheader Your gather is now started. You are  able to use the server for $16 minutes and your personal rcon is: $23  %GNfooter } } on *:text:*Teams for gather*:?:if (%GNactive == 1) { if ($nick ==  %GNadminChanBot) {  aline -p @GN_Admin_Control_Window %GNheader Your  gather information match ID:  $+ $5 $+  Teams are: $7- %GNfooter } } on *:text:*Found a substitute player*:?:if (%GNactive == 1) { if ($nick  == %GNadminChanBot) { aline -p @GN_Admin_Control_Window %GNheader A  substitute was found for your game! His nickname and (authname) are  $+  $6 ( $+ $7 $+ ) the substitute's channel is  $+ $9 $+  He just  received gather information. %GNfooter } } on *:text:*You try to ban*:?:if (%GNactive == 1) { if ($nick ==  %GNadminChanBot) { aline -p @GN_Admin_Control_Window %GNheader Trying to  ban the player:  $+ $6 $+  %GNfooter | /msg %GNadminChanBot baninfo  ok | aline -p @GN_Admin_Control_Window %GNheader Ban confirmation sent  to the bot! %GNfooter } } on *:text:*You are attempting to ban*:?:if (%GNactive == 1) { if ($nick  == %GNadminChanBot) { aline -p @GN_Admin_Control_Window %GNheader Trying  to ban the player:  $+ $7 $+  %GNfooter | /msg %GNadminChanBot  baninfo ok | aline -p @GN_Admin_Control_Window %GNheader Ban  confirmation sent to the bot! %GNfooter } }  on *:text:*Informations about*:?:if (%GNactive == 1) { if ($nick ==  %GNadminChanBot) { aline -p @GN_Admin_Control_Window %GNheader  Information from bot: $1- $+ %GNheader www.gather-network.eu/members/ $+  $strip($mid($4, 5, 15)) %GNfooter } } | if (%GNautofill == 1) { set  %GNadminQuser $9 | set %GNadminAuth $mid($strip($4),2) | set  %GNadminChan $14 | set %GNadminChanAdmin $14 $+ .admin | set  %GNadminChanBot $replace($mid($strip($14),2),.,-) | set %GNautofill 0 |  GNadminCfg } on *:text:*Ban Recorded*:?:if (%GNactive == 1) { if ($nick ==  %GNadminChanBot) { aline -p @GN_Admin_Control_Window %GNheader Ban  Recorded! %GNfooter | timerban 1 3 nextBan } } on *:text:*You can't add banpoints to *:?:if (%GNactive == 1) { if  ($nick == %GNadminChanBot) { aline -p @GN_Admin_Control_Window %GNheader  The user you wanted to ban, is already banned from GN! %GNfooter } } on *:text:*If this information is correct*:?:if (%GNactive == 1) { if  ($nick == %GNadminChanBot) { aline -p @GN_Admin_Control_Window %GNheader  You are trying to start a gather on %GNadminChan %GNfooter | msg  %GNadminChanBot info ok | aline -p @GN_Admin_Control_Window %GNheader  Gather confirmation sent to bot! Gather will start at any second at  %GNadminChan %GNfooter } } on *:text:*This server is currently in use by*:?:if (%GNactive == 1) {  if ($nick == %GNadminChanBot) { aline -p @GN_Admin_Control_Window  %GNheader The server you want to use is being used by the admin: $13  %GNfooter } } on *:text:*You can't ban*:?:if (%GNactive == 1) { if ($nick ==  %GNadminChanBot) { aline -p @GN_Admin_Control_Window %GNheader Seems  like you don't have the required access level to ban that person!  Contact a Manager or Leader from your channel. The list of the staff can  be found at: www.gather-network.eu/channels/ $+ $mid(%GNadminChan, 2,  15) %GNfooter } } on *:text:*A gather is currently running on the channel*:?:if (%GNactive  == 1) { if ($nick == %GNadminChanBot) { aline -p  @GN_Admin_Control_Window %GNheader Error: A gather is being launched  by the admin ( $+ $12 $+ ) %GNfooter } } on *:nick:if ($newnick == %GNadminChanBot || $newnick ==  $replace(%GNadminChanBot,-,`)) { set %GNscriptMsg The GN bot from your  channel changed his nickname to $newnick | set %GNadminChanBot $newnick |  dialog -x gnscriptmsg | dialog -m gnscriptmsg gnscriptmsg } on *:quit:if ($nick == %GNadminChanBot) { set %GNscriptMsg The GN bot  from your channel got disconnected. | dialog -m gnscriptmsg gnscriptmsg } on *:join:if ($nick == $replace(%GNadminChanBot,-,`) || $nick ==  %GNadminChanBot) { set %GNscriptMsg The GN bot from your channel joined  your channel. | dialog -x gnscriptmsg | dialog -m gnscriptmsg  gnscriptmsg } on *:text:* - 3FREE - *:#:if ($nick == %GNadminChanBot &&  %GNservers == 1) { didtok GNMenu 7 C $1 - FREE } on *:text:* - 4SERVER IN USE *:#:if ($nick == %GNadminChanBot  && %GNservers == 1) { didtok GNMenu 7 C $1 - BUSY } on *:text:* - 4BLOCKED *:#:if ($nick == %GNadminChanBot) { didtok  GNMenu 7 C $1 - BLOCKED } on *:text:*Channel Servers*:#:set %GNservers 1 | if ($chan ==  %GNadminChanAdmin && $nick == %GNadminChanBot) { did -r GNMenu 7  } on *:text:*Global Servers*:#:set %GNservers 0 on *:text:*is now 3FREE*:#:UpdateList $3 1 on *:text:*is now 4BLOCKED0 by*:#:UpdateList $3 2 on *:text:*Server informations*:#:if ($chan == %GNadminChan &&  $nick == %GNadminChanBot) { set %GNgetIP 1 | /msg %GNadminChan !ip } on *:text:*The next match will be played *:#:if ($chan == %GNadminChan  && $nick == %GNadminChanBot) { set %GNgetIP 0 | UpdateList  $mid($strip($9),0,-1) 3 | set %GNIP $mid($strip($9),0,-1) } on *:text:*The server admin*:#:if (%GNIP != "") { UpdateList %GNIP 1 |  unset %GNIP }  menu channel {   GN Admin   .Configuration:/dialog -m GNadminConfig GNadminConfig   .Commands: /tell_cmds2   .-   .Misc   ..Auth: /Gnauth   ..Self Information: /GNself   .-   .Admin Channel   ..Get servers list:  msg %GNadminChanAdmin !ip   ..Servers   ...Free server: set %GNtempip $$?="Ip to free?" | free_ip %GNtempip |  unset %GNtempip    ...Block server: set %GNtempip $$?="Ip to block?" | block_ip %GNtempip  | unset %GNtempip    .-   .Add Game: set %GNtempIP $$?="IP?" | set %GNtempPw $$?="Server  Password?" | gather %GNtempIP %GNtempPw | unset %GNtempIP | unset  %GNtempPw   .End Game: msg %GNadminChanBot endgame   .-   .!add: msg %GNadminChan !add   .!remove: msg %GNadminChan !remove   .-   .New admin: set %GNtempNA $$?="New admin username?" | new_admin  %GNtempNA | unset %GNtempNA   .-   .Games modes   ..Fairteams: game_type fair   ..Random: game_type random   .Add Map   ..Defuse maps   ...de_nuke: addmap de_nuke    ...de_inferno: addmap de_inferno   ...de_dust2: addmap de_dust2   ...de_cpl_mill: addmap de_cpl_mill   ...de_cbble: addmap de_cbble   ...de_train: addmap de_train   ...de_forge: addmap de_forge   ..Hostages maps   ...cs_assault: addmap cs_assault   ...cs_vegas: addmap cs_vegas   ...cs_estate: addmap cs_estate   ..Assassination VIP maps   ...as_oilrig: addmap as_oilrig   ...as_tundra: addmap as_tundra   ...as_office: addmap as_office   ..Fun maps   ...aim_ak-colt: addmap aim_ak-colt   ...aim_map: addmap aim_map   ...aim_glock: addmap aim_glock   ...awp_map: addmap awp_map   ...awp_india: addmap awp_india   ..Custom map...: set %GNtempmap $$?="Map?" | addmap %GNtempmap | unset  %GNtempmap   .Votemap   ..Defuse maps   ...de_nuke: votemap de_nuke    ...de_inferno: votemap de_inferno   ...de_dust2: votemap de_dust2   ...de_cpl_mill: votemap de_cpl_mill   ...de_cbble: votemap de_cbble   ...de_train: votemap de_train   ...de_forge: votemap de_forge   ..Hostages maps   ...cs_assault: votemap cs_assault   ...cs_vegas: votemap cs_vegas   ...cs_estate: votemap cs_estate   ..Assassination VIP maps   ...as_oilrig: votemap as_oilrig   ...as_tundra: votemap as_tundra   ...as_office: votemap as_office   ..Fun maps   ...aim_ak-colt: votemap aim_ak-colt   ...aim_map: votemap aim_map   ...aim_glock: votemap aim_glock   ...awp_map: votemap awp_map   ...awp_india: votemap awp_india   ..Custom map...: set %GNtempmap $$?="Map?" | votemap %GNtempmap |  unset %GNtempmap   .Topmaps: /msg %GNadminChan !topmaps   .-   .Add Type   ..Gn rules or ban!: addtype Gn rules or ban!   ..GN rules www.gather-network.eu/rules: addtype GN rules  www.gather-network.eu/rules   ..Custom...:/set %GNcustomType $$?="Custom type?" | addtype  %GNcustomType | unset %GNcustomType    .-   .Ban Player: /dialog -m GNadminban GNadminban   .-   .Channel   ..Mode +m: /mode %GNadminChan +m | /aline @GN_Admin_Control_Window  %GNheader Just +m %GNadminChan %GNfooter   ..Mode -m: /mode %GNadminChan -m | /aline @GN_Admin_Control_Window  %GNheader Just -m %GNadminChan %GNfooter   .-   .Update Script: /run $mircdir $+updatetool.exe   .-   .About   ..See about: /aline @GN_Admin_Control_Window %GNheader This script (GN  Admin Script v $+ %GNversion $+ ) was developed by Psicopath (c) 2010  for Gather-Network. More updates soon, keep tunned. Thanks for choosing  my script! %GNfooter | /aline @GN_Admin_Control_Window %GNheader  Contact/suggestion/bug report/whatever: Psiico @ Qnet or  [email protected] %GNfooter    ..Tell on current window about this.: /say %GNheader I'm using GN  Admin Script coded by Psicopath %GNfooter $+ %GNheader Download it on  www.gather-network.eu/downloads/ or  http://psiico.webcindario.com/gnadminscript.mrc %GNfooter  }   alias GNadmin { /change_mode } alias GNadmincfg { /dialog -m GNadminConfig GNadminConfig } alias GNban { /dialog -m GNadminban GNadminban } alias GNauth { /auth } alias GNself { /self } alias GNcommands { /tell_cmds2 } alias GNMenu { /dialog -m GNMenu GNMenu }  alias start {   if (%GNcfg != 1) {      set %GNheader 0,114[3«0     set %GNfooter 0,13»14]      set %GNactive 1     set %GNMenuMin 0     set %GNVersion 3.5     set %GNPwArray  gather,lol,timetoplay,join,asap,together,rice,cooking,phone,channel,mirc     echo -m %GNheader Seems like it's the first time you run this  script! %GNfooter     echo -m %GNheader You need to configure it 4before0,1 use it  (or it won't work), for that type: /GNadmincfg . %GNfooter     echo -m %GNheader Thanks for using! GN Admin script v $+ %GNVersion  (c) Psicopath %GNfooter   }   else {     timerGNMenu 0 1 if (%GNmenuClosed == 1) { GNMenu | set %GNmenuClosed  0 }     tell_cmds     GNMenu   } } alias tell_cmds {   if (%GNactive == 1) {     window -e[1] @GN_Admin_Control_Window 0 0 450 160 tahoma 14     aline -p @GN_Admin_Control_Window %GNheader Script loaded! DON'T  CLOSE THIS! Have fun! %GNfooter     aline -p @GN_Admin_Control_Window %GNheader /GNadmin - toogle  on/off the script. %GNfooter     aline -p @GN_Admin_Control_Window %GNheader /GNadmincfg - Open the  script configuration window. %GNfooter     aline -p @GN_Admin_Control_Window %GNheader /gather   - Start a gather (both fields required). %GNfooter     aline -p @GN_Admin_Control_Window %GNheader /GNban - Open GN ban window. %GNfooter     aline -p @GN_Admin_Control_Window %GNheader /GNauth - Auth yourself on Q Service and Gather-Network bot. %GNfooter     aline -p @GN_Admin_Control_Window %GNheader /GNnotice    - Notice the Gather-Network( $+ %GNadminChan $+ ) channel (both fields required). %GNfooter      aline -p @GN_Admin_Control_Window %GNheader /GNcommands - Tells the entire list of script commands. %GNfooter     aline -p @GN_Admin_Control_Window %GNheader /GNmenu - Shows the menu. %GNfooter     timerwindow 0 1 if (%GNactive == 1) { window -e[1] @GN_Admin_Control_Window 0 0 450 160 tahoma 14 }     echo -m %GNheader GN Admin script v $+ %GNVersion 3Loaded %GNfooter   } }  alias tell_cmds2 {   if (%GNactive == 1) {     ; aline -p @GN_Admin_Control_Window %GNheader Script loaded! DON'T CLOSE THIS! Have fun! %GNfooter     aline -p @GN_Admin_Control_Window %GNheader /GNadmin - toogle on/off the script. %GNfooter     aline -p @GN_Admin_Control_Window %GNheader /GNadmincfg - Open the script configuration window. %GNfooter     aline -p @GN_Admin_Control_Window %GNheader /gather   - Start a gather (both fields required). %GNfooter     aline -p @GN_Admin_Control_Window %GNheader /GNban - Open GN ban window. %GNfooter     aline -p @GN_Admin_Control_Window %GNheader /GNauth - Auth yourself on Q Service and Gather-Network bot. %GNfooter     aline -p @GN_Admin_Control_Window %GNheader /GNnotice     - Notice the Gather-Network( $+ %GNadminChan $+ ) channel (both  fields required). %GNfooter      aline -p @GN_Admin_Control_Window %GNheader /GNcommands - Tells  the entire list of script commands. %GNfooter     aline -p @GN_Admin_Control_Window %GNheader /GNmenu - Shows the  menu. %GNfooter   } }  alias auth {   if (%GNactive == 1) {     /auth %GNadminQuser %GNadminQpw      /join %GNadminChan      /msg %GNadminChanBot auth    } }  alias auth2 {   if (%GNactive == 1) {     /authserv auth %GNadminQuser %GNadminQpw      /join %GNadminChan      /msg %GNadminChanBot auth    } }  alias self {   /msg %GNadminChanBot whois $me }  alias change_mode {   if (%GNactive == 0) {     set %GNactive 1     echo -m %GNheader GN Admin script activated! %GNfooter     halt   }   if (%GNactive == 1) {     set %GNactive 0     echo -m %GNheader GN Admin script disabled! %GNfooter     halt   } }  alias gather {   if (%GNactive == 1) {     msg %GNadminChanBot addgame $1 $2 member     aline -p @GN_Admin_Control_Window %GNheader Trying to launch a  gather on IP: $1 with the password: $2  %GNfooter     msg %GNadminChanAdmin %GNheader I will use the IP: 7 $+ $1 0and  the password:7 $+ $2  $+ %GNfooter   } }  alias new_admin {   if (%GNactive == 1) {     msg %GNadminChan !newadmin $1   } }  alias free_ip {   if (%GNactive == 1) {     msg %GNadminChanAdmin !free $1   } }  alias block_ip {   if (%GNactive == 1) {     msg %GNadminChanAdmin !block $1   } }  alias game_type {   if (%GNactive == 1) {     if ($1 == fair) {       msg %GNadminChan !fairteams     }     if ($1 == random) {       msg %GNadminChan !random     }   } }  alias addmap {   if (%GNactive == 1) {     msg %GNadminChan !addmap $1   } }  alias votemap {   if (%GNactive == 1) {     msg %GNadminChan !votemap $1   } } alias addtype {   if (%GNactive == 1) {     msg %GNadminChan !addtype $1-   } }  alias GNnotice {   if (%GNactive == 1) {     var %i = 1     var %ii = 0     while (%ii < 3) {       mode %GNadminChan  -N       inc %ii     }     while (%i <= $1) {       notice %GNadminChan  $2-       inc %i     }     mode %GNadminChan  +N   } }  alias UpdateList {   var %GNcount = 1   while (%GNcount != $calc($numtok($didtok(GNmenu,7).text, 44)+1)) {     if ($gettok($gettok($didtok(GNmenu,7).text,%GNcount,44),1,32) == $1)  {       if ($2 = 1) {         ;free         did -o Gnmenu 7 %GNcount $1 - FREE       }       if ($2 = 2) {         ;blocked         did -o Gnmenu 7 %GNcount $1 - BLOCKED       }       if ($2 = 3) {         ;busy         did -o Gnmenu 7 %GNcount $1 - BUSY       }     }     inc %GNcount   } }  alias nextBan {   if (%GNbanRecursion == 1) {      did -d GNadminban 15 1      if ($did(GNadminban, 15).lines == 0) {         set %GNbanRecursion 0        return      }      did -c GNadminban 15 1     msg %GNadminChanBot $did(GNadminban, 15).seltext    }  }   dialog GNadminConfig {   title "GN admin script v3.5 by Psicopath [ /GNadminCFG ]"   size -1 -1 150 190   option pixels dbu   box "Network (Qnet or GS) Auth", 1, 4 6 261 149   text "Authname:", 3, 13 42 68 17   text "Password:", 4, 14 63 67 17   edit %GNadminQuser, 5, 84 40 129 20   edit %GNadminQpw, 6, 85 62 129 20, pass   text "-------------------------------------------------------", 7, 15  82 219 17   text "GN Authname:", 8, 16 122 80 17    edit %GNadminAuth, 10, 88 119 100 20   box "Channel", 11, 6 163 255 96   text "Channel Name:", 12, 12 180 75 17   edit %GNadminChan, 13, 93 180 100 20   text "Admin Channel Name:", 14, 14 202 113 17   edit %GNadminChanAdmin, 15, 121 201 119 20   text "Channel Bot Name:", 16, 13 226 98 17   edit %GNadminChanBot, 17, 108 224 100 20   text "The network auth works on Qnet and GS, it will automatically  detect where you are connected and auth in proper manner. The script  will automatically auth when connect to an IRC Server. Fill all fields  in order to script work correctly! Thanks for using this!", 18, 10 292  248 79   button "Save", 19, 119 262 65 25   button "Close", 20, 190 262 65 25   button "Auto Fill", 21, 45 262 65 25 } on *:dialog:GNadminConfig:sclick:19:{   set %GNadminQuser $did(5)   set %GNadminQpw $did(6)   set %GNadminAuth $did(10)   set %GNadminChan $did(13)   set %GNadminChanAdmin $did(15)   set %GNadminChanBot $did(17)   if (%GNcfg != 1) {     echo -m %GNheader Script configurated! Restart mIRC in order to  work! Thanks %GNfooter   }   set %GNcfg 1   dialog -x GNadminConfig } on *:dialog:GNadminConfig:sclick:20:{   dialog -x GNadminConfig } on *:dialog:GNadminConfig:sclick:21:{   msg CS-Gather-UK whois $me   msg CS`Gather`UK whois $me   set %GNautofill 1   set %GNscriptMsg To use the auto-fill option you need to be authed on  GN   dialog -mo GNscriptMsg GNscriptMsg   dialog -x GNadminConfig }  dialog GNadminban {   title "Ban Player"   size -1 -1 270 164   option dbu   box "Single Ban", 11, 3 3 265 77   text "Authname to ban:", 1, 5 12 50 8   edit "#", 2, 50 11 52 10   text "Reason:", 3, 28 24 21 9   combo 4, 51 23 50 12, drop   text "Comment:", 5, 24 39 27 8   edit "", 6, 52 39 213 21, multi   text "Match-ID:", 7, 25 64 26 8   edit "#", 8, 52 63 50 10   button "Set Ban", 9, 231 62 33 12   edit "", 12, 103 23 15 12, disable   box "Multi Ban", 13, 4 84 264 76   text "To use multi ban, fill the 'Single Ban' ban information and  press '+' to add or '-' to remove. To add the multi bans press the 'Add  bans' button.", 14, 10 93 254 14   list 15, 12 108 197 55   button "+", 16, 232 108 32 12   button "Add bans", 17, 232 136 32 12   button "-", 10, 232 122 32 12 }   on *:dialog:GNadminban:init:*: {   didtok GNadminban 4 C Afk   didtok GNadminban 4 C Flame   didtok GNadminban 4 C Teamkills   didtok GNadminban 4 C Teamstacking   didtok GNadminban 4 C Leaver   didtok GNadminban 4 C No-Show   didtok GNadminban 4 C Troublemaker   didtok GNadminban 4 C Custom   did -b GNadminban 10 }  on *:dialog:GNadminban:sclick:16:{   if ($did(4) == Custom) {     didtok GNadminban 15 C ban $did(2) $did(4) $did(12) $did(6)   }   if ($did(4) != Custom) {     didtok GNadminban 15 C ban $did(2) $did(4) $did(6) [ Match ID:  $did(8) ]   } }  on *:dialog:GNadminban:sclick:10:{   did -d GNadminban 15 $did(GNadminban,15).sel   did -b GNadminban 10 }  on *:dialog:GNadminban:sclick:15:{   did -e GNadminban 10 }  on *:dialog:GNadminban:sclick:17:{   set %GNbanRecursion 1   did -c GNadminban 15 1   msg %GNadminChanBot $did(GNadminban, 15).seltext }  on *:dialog:GNadminban:sclick:9:{   if ($did(4) == Custom) {     msg %GNadminChanBot ban $did(2) $did(4) $did(12) $did(6)   }   if ($did(4) != Custom) {     msg %GNadminChanBot ban $did(2) $did(4) $did(6) [ Match ID: $did(8) ]   } }  on *:dialog:GNadminban:sclick:4:{   if ($did(4) == Custom) {     did -e GNadminban 12     did -b GNadminban 8   }    if ($did(4) != Custom) {     did -b GNadminban 12     did -e GNadminban 8   } }  dialog GNscriptMsg {   title "Script Message"   size -1 -1 140 35   option pixels dbu   text %GNscriptMsg, 1, -10 4 300 28, center   button "OK", 2, 130 35 25 25, ok }  dialog GNMenu {   title "GN Admin Script Menu [ /GNmenu ]"   size -1 -1 153 160   option dbu   button "!add", 1, 114 16 32 13   button "-", 2, 134 2 13 7   button "!sub", 3, 78 32 33 13   button "!last", 4, 42 32 33 13   button "!remove", 5, 5 32 33 13   text "Channel Servers (global servers are ignored):", 6, 5 48 118 8   list 7, 11 59 135 78   text "Please do not close this window. Use the button to minimize  it.", 8, 5 0 124 13   button "Config", 9, 5 16 32 13   button "!fairteams", 10, 42 16 32 13   button "Endgame", 11, 79 16 32 13   button "Start", 13, 112 134 32 13   text "Use this 'Start' button, to start a gather with the first  avaliable FREE server and a random password.", 14, 12 134 98 20   button "Ban", 12, 114 32 32 13 }  on *:dialog:GNMenu:init:*:{   set %GNmenuClosed 0 }  on *:dialog:GNMenu:close:*:{   set %GNmenuClosed 1 }  on *:dialog:GNMenu:sclick:1:{   say !add }  on *:dialog:GNMenu:sclick:2:{   if (%GNMenuMin == 1) {     dialog -sb GNMenu -1 -1 153 160     set %GNMenuMin 0     return   }   if (%GNMenuMin == 0) {     set %GNMenuMin 1     dialog -sb GNMenu -1 -1 153 14     return   }  }  on *:dialog:GNMenu:sclick:3:{   msg %GNadminChan !sub }  on *:dialog:GNMenu:sclick:4:{   msg %GNadminChan !last }  on *:dialog:GNMenu:sclick:5:{   msg %GNadminChan !remove }  on *:dialog:GNMenu:sclick:9:{   GNadmincfg }  on *:dialog:GNMenu:sclick:10:{   msg %GNadminChan !fairteams }  on *:dialog:GNMenu:sclick:11:{   msg %GNadminChanBot endgame } on *:dialog:GNMenu:sclick:12:{   GNban } on *:dialog:GNMenu:sclick:13:{   var %i = 1   while (%i != $calc($numtok($didtok(GNmenu,7).text, 44)+1)) {     if ($gettok($gettok($didtok(GNmenu,7).text,%i,44),3,32) == FREE) {       gather $gettok($gettok($didtok(GNmenu,7).text,%i,44),1,32)  $gettok($gettok(%GNPwArray,$rand(1,$numtok(%GNPwArray, 44)),44),1,32)       return     }     inc %i   } }     ;----------------------- ; GN admin Script ;   By Psicopath ;        END ;-----------------------     
ben uğrastim calistiramadim bir türlü yardim edin lütfen :S

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





oguz8787 isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
Alt 24 Haziran 2012, 02:43   #2
 
toXic - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 14 Ocak 2011
Bulunduğu yer: Samsun
Mesajlar: 5.479
Alinan Teşekkür: 1364
IRC Sunucusu: -
WEB Sitesi: -
İlgi Alanı: C ++
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Tepkiler: 3
Aldığı Tepki: 10 (7 Mesajda)
Standart Cevap: Bu paneli türkiye kanalimiz icin ayaliyabilicek varmi ??

Kod'u doğru paylaşamamişsin.
__________________
ordo ab chao

Hiç bir şey doğru değil, her şey mümkündür...
Ad Gloriam.
toXic isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla

Alt 25 Haziran 2012, 01:08   #3
 
Paint - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 11 Eylül 2011
Bulunduğu yer: İstanbul
Mesajlar: 513
Alinan Teşekkür: 418
IRC Sunucusu: gg
WEB Sitesi: http://nuxer.org
İlgi Alanı: mIRC Scripting
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Tepkiler: 2
Aldığı Tepki: 0 (0 Mesajda)
Standart Cevap: Bu paneli türkiye kanalimiz icin ayaliyabilicek varmi ??

Ne işe yarıyor bu?
__________________
//while ($len(%a) <= 49) var %a $addtok(%a,$r(A,Z),32) | echo $sorttok(%a,32)
Paint isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla

Alt 25 Haziran 2012, 01:48   #4
 
oguz8787 - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 16 Şubat 2012
Bulunduğu yer: muğla
Mesajlar: 21
Alinan Teşekkür: 1
IRC Sunucusu: irc.quakenet.org
WEB Sitesi: www.IrcForumlari.net
İlgi Alanı: TCL Scripting
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Tepkiler: 0
Aldığı Tepki: 0 (0 Mesajda)
Standart Cevap: Bu paneli türkiye kanalimiz icin ayaliyabilicek varmi ??

Kod:
 ;-----------------------
; GN admin Script
;   By Psicopath
;        START
;-----------------------

;-----------------------
;
;  How to install
;
; If you had already installed a previous version:
;
; -Delete all previous content from popup tab, Remote tab and aliases tab from
;  Scripts Editor (alt+r)and then click OK then place this file in the mIRC directory
;  and type: /load -rs GNadminscript.mrc. You can delete UpdateTool.exe too. It's no longer
;  being supported. An update system will be launched in future time.
;
; If it's a fresh install place this file in the mIRC directory
;  and type: /load -rs GNadminscript.mrc
;
;  Contact/suggestion/bug report/whatever: Psiico @ Qnet or [email protected]
;
;-----------------------

on *:start:start
on *:connect:if (%GNactive == 1) { if (*quakenet.org iswm  $server) { auth } | if (*GameSurge.net iswm $server) { auth2 } } 
on *:invite:#:if (%GNactive == 1) { if ($nick == %GNadminChanBot) { aline -p @GN_Admin_Control_Window %GNheader You have been invited by the bot, to join the admin channel. joining.... %GNfooter | /join $chan } }
on *:text:*Your game is now launched, you are allowed to use this server*:?:if (%GNactive == 1) { if ($nick == %GNadminChanBot) { aline -p @GN_Admin_Control_Window %GNheader Your gather is now started. You are able to use the server for $16 minutes and your personal rcon is: $23 %GNfooter } }
on *:text:*Teams for gather*:?:if (%GNactive == 1) { if ($nick == %GNadminChanBot) {  aline -p @GN_Admin_Control_Window %GNheader Your gather information match ID:  $+ $5 $+  Teams are: $7- %GNfooter } }
on *:text:*Found a substitute player*:?:if (%GNactive == 1) { if ($nick == %GNadminChanBot) { aline -p @GN_Admin_Control_Window %GNheader A substitute was found for your game! His nickname and (authname) are  $+ $6 ( $+ $7 $+ ) the substitute's channel is  $+ $9 $+  He just received gather information. %GNfooter } }
on *:text:*You try to ban*:?:if (%GNactive == 1) { if ($nick == %GNadminChanBot) { aline -p @GN_Admin_Control_Window %GNheader Trying to ban the player:  $+ $6 $+  %GNfooter | /msg %GNadminChanBot baninfo ok | aline -p @GN_Admin_Control_Window %GNheader Ban confirmation sent to the bot! %GNfooter } }
on *:text:*You are attempting to ban*:?:if (%GNactive == 1) { if ($nick == %GNadminChanBot) { aline -p @GN_Admin_Control_Window %GNheader Trying to ban the player:  $+ $7 $+  %GNfooter | /msg %GNadminChanBot baninfo ok | aline -p @GN_Admin_Control_Window %GNheader Ban confirmation sent to the bot! %GNfooter } } 
on *:text:*Informations about*:?:if (%GNactive == 1) { if ($nick == %GNadminChanBot) { aline -p @GN_Admin_Control_Window %GNheader Information from bot: $1- $+ %GNheader www.gather-network.eu/members/ $+ $strip($mid($4, 5, 15)) %GNfooter } } | if (%GNautofill == 1) { set %GNadminQuser $9 | set %GNadminAuth $mid($strip($4),2) | set %GNadminChan $14 | set %GNadminChanAdmin $14 $+ .admin | set %GNadminChanBot $replace($mid($strip($14),2),.,-) | set %GNautofill 0 | GNadminCfg }
on *:text:*Ban Recorded*:?:if (%GNactive == 1) { if ($nick == %GNadminChanBot) { aline -p @GN_Admin_Control_Window %GNheader Ban Recorded! %GNfooter | timerban 1 3 nextBan } }
on *:text:*You can't add banpoints to *:?:if (%GNactive == 1) { if ($nick == %GNadminChanBot) { aline -p @GN_Admin_Control_Window %GNheader The user you wanted to ban, is already banned from GN! %GNfooter } }
on *:text:*If this information is correct*:?:if (%GNactive == 1) { if ($nick == %GNadminChanBot) { aline -p @GN_Admin_Control_Window %GNheader You are trying to start a gather on %GNadminChan %GNfooter | msg %GNadminChanBot info ok | aline -p @GN_Admin_Control_Window %GNheader Gather confirmation sent to bot! Gather will start at any second at %GNadminChan %GNfooter } }
on *:text:*This server is currently in use by*:?:if (%GNactive == 1) { if ($nick == %GNadminChanBot) { aline -p @GN_Admin_Control_Window %GNheader The server you want to use is being used by the admin: $13 %GNfooter } }
on *:text:*You can't ban*:?:if (%GNactive == 1) { if ($nick == %GNadminChanBot) { aline -p @GN_Admin_Control_Window %GNheader Seems like you don't have the required access level to ban that person! Contact a Manager or Leader from your channel. The list of the staff can be found at: www.gather-network.eu/channels/ $+ $mid(%GNadminChan, 2, 15) %GNfooter } }
on *:text:*A gather is currently running on the channel*:?:if (%GNactive == 1) { if ($nick == %GNadminChanBot) { aline -p @GN_Admin_Control_Window %GNheader Error: A gather is being launched by the admin ( $+ $12 $+ ) %GNfooter } }
on *:nick:if ($newnick == %GNadminChanBot || $newnick == $replace(%GNadminChanBot,-,`)) { set %GNscriptMsg The GN bot from your channel changed his nickname to $newnick | set %GNadminChanBot $newnick | dialog -x gnscriptmsg | dialog -m gnscriptmsg gnscriptmsg }
on *:quit:if ($nick == %GNadminChanBot) { set %GNscriptMsg The GN bot from your channel got disconnected. | dialog -m gnscriptmsg gnscriptmsg }
on *:join:if ($nick == $replace(%GNadminChanBot,-,`) || $nick == %GNadminChanBot) { set %GNscriptMsg The GN bot from your channel joined your channel. | dialog -x gnscriptmsg | dialog -m gnscriptmsg gnscriptmsg }
on *:text:* - 3FREE - *:#:if ($nick == %GNadminChanBot && %GNservers == 1) { didtok GNMenu 7 C $1 - FREE }
on *:text:* - 4SERVER IN USE *:#:if ($nick == %GNadminChanBot && %GNservers == 1) { didtok GNMenu 7 C $1 - BUSY }
on *:text:* - 4BLOCKED *:#:if ($nick == %GNadminChanBot) { didtok GNMenu 7 C $1 - BLOCKED }
on *:text:*Channel Servers*:#:set %GNservers 1 | if ($chan == %GNadminChanAdmin && $nick == %GNadminChanBot) { did -r GNMenu 7 }
on *:text:*Global Servers*:#:set %GNservers 0
on *:text:*is now 3FREE*:#:UpdateList $3 1
on *:text:*is now 4BLOCKED0 by*:#:UpdateList $3 2
on *:text:*Server informations*:#:if ($chan == %GNadminChan && $nick == %GNadminChanBot) { set %GNgetIP 1 | /msg %GNadminChan !ip }
on *:text:*The next match will be played *:#:if ($chan == %GNadminChan && $nick == %GNadminChanBot) { set %GNgetIP 0 | UpdateList $mid($strip($9),0,-1) 3 | set %GNIP $mid($strip($9),0,-1) }
on *:text:*The server admin*:#:if (%GNIP != "") { UpdateList %GNIP 1 | unset %GNIP } 
menu channel {
  GN Admin
  .Configuration:/dialog -m GNadminConfig GNadminConfig
  .Commands: /tell_cmds2
  .-
  .Misc
  ..Auth: /Gnauth
  ..Self Information: /GNself
  .-
  .Admin Channel
  ..Get servers list:  msg %GNadminChanAdmin !ip
  ..Servers
  ...Free server: set %GNtempip $$?="Ip to free?" | free_ip %GNtempip | unset %GNtempip 
  ...Block server: set %GNtempip $$?="Ip to block?" | block_ip %GNtempip | unset %GNtempip 
  .-
  .Add Game: set %GNtempIP $$?="IP?" | set %GNtempPw $$?="Server Password?" | gather %GNtempIP %GNtempPw | unset %GNtempIP | unset %GNtempPw
  .End Game: msg %GNadminChanBot endgame
  .-
  .!add: msg %GNadminChan !add
  .!remove: msg %GNadminChan !remove
  .-
  .New admin: set %GNtempNA $$?="New admin username?" | new_admin %GNtempNA | unset %GNtempNA
  .-
  .Games modes
  ..Fairteams: game_type fair
  ..Random: game_type random
  .Add Map
  ..Defuse maps
  ...de_nuke: addmap de_nuke 
  ...de_inferno: addmap de_inferno
  ...de_dust2: addmap de_dust2
  ...de_cpl_mill: addmap de_cpl_mill
  ...de_cbble: addmap de_cbble
  ...de_train: addmap de_train
  ...de_forge: addmap de_forge
  ..Hostages maps
  ...cs_assault: addmap cs_assault
  ...cs_vegas: addmap cs_vegas
  ...cs_estate: addmap cs_estate
  ..Assassination VIP maps
  ...as_oilrig: addmap as_oilrig
  ...as_tundra: addmap as_tundra
  ...as_office: addmap as_office
  ..Fun maps
  ...aim_ak-colt: addmap aim_ak-colt
  ...aim_map: addmap aim_map
  ...aim_glock: addmap aim_glock
  ...awp_map: addmap awp_map
  ...awp_india: addmap awp_india
  ..Custom map...: set %GNtempmap $$?="Map?" | addmap %GNtempmap | unset %GNtempmap
  .Votemap
  ..Defuse maps
  ...de_nuke: votemap de_nuke 
  ...de_inferno: votemap de_inferno
  ...de_dust2: votemap de_dust2
  ...de_cpl_mill: votemap de_cpl_mill
  ...de_cbble: votemap de_cbble
  ...de_train: votemap de_train
  ...de_forge: votemap de_forge
  ..Hostages maps
  ...cs_assault: votemap cs_assault
  ...cs_vegas: votemap cs_vegas
  ...cs_estate: votemap cs_estate
  ..Assassination VIP maps
  ...as_oilrig: votemap as_oilrig
  ...as_tundra: votemap as_tundra
  ...as_office: votemap as_office
  ..Fun maps
  ...aim_ak-colt: votemap aim_ak-colt
  ...aim_map: votemap aim_map
  ...aim_glock: votemap aim_glock
  ...awp_map: votemap awp_map
  ...awp_india: votemap awp_india
  ..Custom map...: set %GNtempmap $$?="Map?" | votemap %GNtempmap | unset %GNtempmap
  .Topmaps: /msg %GNadminChan !topmaps
  .-
  .Add Type
  ..Gn rules or ban!: addtype Gn rules or ban!
  ..GN rules www.gather-network.eu/rules: addtype GN rules www.gather-network.eu/rules
  ..Custom...:/set %GNcustomType $$?="Custom type?" | addtype %GNcustomType | unset %GNcustomType 
  .-
  .Ban Player: /dialog -m GNadminban GNadminban
  .-
  .Channel
  ..Mode +m: /mode %GNadminChan +m | /aline @GN_Admin_Control_Window %GNheader Just +m %GNadminChan %GNfooter
  ..Mode -m: /mode %GNadminChan -m | /aline @GN_Admin_Control_Window %GNheader Just -m %GNadminChan %GNfooter
  .-
  .Update Script: /run $mircdir $+updatetool.exe
  .-
  .About
  ..See about: /aline @GN_Admin_Control_Window %GNheader This script (GN Admin Script v $+ %GNversion $+ ) was developed by Psicopath (c) 2010 for Gather-Network. More updates soon, keep tunned. Thanks for choosing my script! %GNfooter | /aline @GN_Admin_Control_Window %GNheader Contact/suggestion/bug report/whatever: Psiico @ Qnet or [email protected] %GNfooter 
  ..Tell on current window about this.: /say %GNheader I'm using GN Admin Script coded by Psicopath %GNfooter $+ %GNheader Download it on www.gather-network.eu/downloads/ or http://psiico.webcindario.com/gnadminscript.mrc %GNfooter

}


alias GNadmin { /change_mode }
alias GNadmincfg { /dialog -m GNadminConfig GNadminConfig }
alias GNban { /dialog -m GNadminban GNadminban }
alias GNauth { /auth }
alias GNself { /self }
alias GNcommands { /tell_cmds2 }
alias GNMenu { /dialog -m GNMenu GNMenu }

alias start {
  if (%GNcfg != 1) { 
    set %GNheader 0,114[3«0
    set %GNfooter 0,13»14] 
    set %GNactive 1
    set %GNMenuMin 0
    set %GNVersion 3.5
    set %GNPwArray gather,lol,timetoplay,join,asap,together,rice,cooking,phone,channel,mirc
    echo -m %GNheader Seems like it's the first time you run this script! %GNfooter
    echo -m %GNheader You need to configure it 4before0,1 use it (or it won't work), for that type: /GNadmincfg . %GNfooter
    echo -m %GNheader Thanks for using! GN Admin script v $+ %GNVersion (c) Psicopath %GNfooter
  }
  else {
    timerGNMenu 0 1 if (%GNmenuClosed == 1) { GNMenu | set %GNmenuClosed 0 }
    tell_cmds
    GNMenu
  }
}
alias tell_cmds {
  if (%GNactive == 1) {
    window -e[1] @GN_Admin_Control_Window 0 0 450 160 tahoma 14
    aline -p @GN_Admin_Control_Window %GNheader Script loaded! DON'T CLOSE THIS! Have fun! %GNfooter
    aline -p @GN_Admin_Control_Window %GNheader /GNadmin - toogle on/off the script. %GNfooter
    aline -p @GN_Admin_Control_Window %GNheader /GNadmincfg - Open the script configuration window. %GNfooter
    aline -p @GN_Admin_Control_Window %GNheader /gather <ip> <password> - Start a gather (both fields required). %GNfooter
    aline -p @GN_Admin_Control_Window %GNheader /GNban - Open GN ban window. %GNfooter
    aline -p @GN_Admin_Control_Window %GNheader /GNauth - Auth yourself on Q Service and Gather-Network bot. %GNfooter
    aline -p @GN_Admin_Control_Window %GNheader /GNnotice <times> <message>  - Notice the Gather-Network( $+ %GNadminChan $+ ) channel (both fields required). %GNfooter 
    aline -p @GN_Admin_Control_Window %GNheader /GNcommands - Tells the entire list of script commands. %GNfooter
    aline -p @GN_Admin_Control_Window %GNheader /GNmenu - Shows the menu. %GNfooter
    timerwindow 0 1 if (%GNactive == 1) { window -e[1] @GN_Admin_Control_Window 0 0 450 160 tahoma 14 }
    echo -m %GNheader GN Admin script v $+ %GNVersion 3Loaded %GNfooter
  }
}

alias tell_cmds2 {
  if (%GNactive == 1) {
    ; aline -p @GN_Admin_Control_Window %GNheader Script loaded! DON'T CLOSE THIS! Have fun! %GNfooter
    aline -p @GN_Admin_Control_Window %GNheader /GNadmin - toogle on/off the script. %GNfooter
    aline -p @GN_Admin_Control_Window %GNheader /GNadmincfg - Open the script configuration window. %GNfooter
    aline -p @GN_Admin_Control_Window %GNheader /gather <ip> <password> - Start a gather (both fields required). %GNfooter
    aline -p @GN_Admin_Control_Window %GNheader /GNban - Open GN ban window. %GNfooter
    aline -p @GN_Admin_Control_Window %GNheader /GNauth - Auth yourself on Q Service and Gather-Network bot. %GNfooter
    aline -p @GN_Admin_Control_Window %GNheader /GNnotice <times> <message>  - Notice the Gather-Network( $+ %GNadminChan $+ ) channel (both fields required). %GNfooter 
    aline -p @GN_Admin_Control_Window %GNheader /GNcommands - Tells the entire list of script commands. %GNfooter
    aline -p @GN_Admin_Control_Window %GNheader /GNmenu - Shows the menu. %GNfooter
  }
}

alias auth {
  if (%GNactive == 1) {
    /auth %GNadminQuser %GNadminQpw 
    /join %GNadminChan 
    /msg %GNadminChanBot auth 
  }
}

alias auth2 {
  if (%GNactive == 1) {
    /authserv auth %GNadminQuser %GNadminQpw 
    /join %GNadminChan 
    /msg %GNadminChanBot auth 
  }
}

alias self {
  /msg %GNadminChanBot whois $me
}

alias change_mode {
  if (%GNactive == 0) {
    set %GNactive 1
    echo -m %GNheader GN Admin script activated! %GNfooter
    halt
  }
  if (%GNactive == 1) {
    set %GNactive 0
    echo -m %GNheader GN Admin script disabled! %GNfooter
    halt
  }
}

alias gather {
  if (%GNactive == 1) {
    msg %GNadminChanBot addgame $1 $2 member
    aline -p @GN_Admin_Control_Window %GNheader Trying to launch a gather on IP: $1 with the password: $2  %GNfooter
    msg %GNadminChanAdmin %GNheader I will use the IP: 7 $+ $1 0and the password:7 $+ $2  $+ %GNfooter
  }
}

alias new_admin {
  if (%GNactive == 1) {
    msg %GNadminChan !newadmin $1
  }
}

alias free_ip {
  if (%GNactive == 1) {
    msg %GNadminChanAdmin !free $1
  }
}

alias block_ip {
  if (%GNactive == 1) {
    msg %GNadminChanAdmin !block $1
  }
}

alias game_type {
  if (%GNactive == 1) {
    if ($1 == fair) {
      msg %GNadminChan !fairteams
    }
    if ($1 == random) {
      msg %GNadminChan !random
    }
  }
}

alias addmap {
  if (%GNactive == 1) {
    msg %GNadminChan !addmap $1
  }
}

alias votemap {
  if (%GNactive == 1) {
    msg %GNadminChan !votemap $1
  }
}
alias addtype {
  if (%GNactive == 1) {
    msg %GNadminChan !addtype $1-
  }
}

alias GNnotice {
  if (%GNactive == 1) {
    var %i = 1
    var %ii = 0
    while (%ii < 3) {
      mode %GNadminChan  -N
      inc %ii
    }
    while (%i <= $1) {
      notice %GNadminChan  $2-
      inc %i
    }
    mode %GNadminChan  +N
  }
}

alias UpdateList {
  var %GNcount = 1
  while (%GNcount != $calc($numtok($didtok(GNmenu,7).text, 44)+1)) {
    if ($gettok($gettok($didtok(GNmenu,7).text,%GNcount,44),1,32) == $1) {
      if ($2 = 1) {
        ;free
        did -o Gnmenu 7 %GNcount $1 - FREE
      }
      if ($2 = 2) {
        ;blocked
        did -o Gnmenu 7 %GNcount $1 - BLOCKED
      }
      if ($2 = 3) {
        ;busy
        did -o Gnmenu 7 %GNcount $1 - BUSY
      }
    }
    inc %GNcount
  }
}

alias nextBan {
  if (%GNbanRecursion == 1) { 
    did -d GNadminban 15 1 
    if ($did(GNadminban, 15).lines == 0) {  
      set %GNbanRecursion 0 
      return 
    } 
    did -c GNadminban 15 1
    msg %GNadminChanBot $did(GNadminban, 15).seltext 
  } 
}


dialog GNadminConfig {
  title "GN admin script v3.5 by Psicopath [ /GNadminCFG ]"
  size -1 -1 150 190
  option pixels dbu
  box "Network (Qnet or GS) Auth", 1, 4 6 261 149
  text "Authname:", 3, 13 42 68 17
  text "Password:", 4, 14 63 67 17
  edit %GNadminQuser, 5, 84 40 129 20
  edit %GNadminQpw, 6, 85 62 129 20, pass
  text "-------------------------------------------------------", 7, 15 82 219 17
  text "GN Authname:", 8, 16 122 80 17

  edit %GNadminAuth, 10, 88 119 100 20
  box "Channel", 11, 6 163 255 96
  text "Channel Name:", 12, 12 180 75 17
  edit %GNadminChan, 13, 93 180 100 20
  text "Admin Channel Name:", 14, 14 202 113 17
  edit %GNadminChanAdmin, 15, 121 201 119 20
  text "Channel Bot Name:", 16, 13 226 98 17
  edit %GNadminChanBot, 17, 108 224 100 20
  text "The network auth works on Qnet and GS, it will automatically detect where you are connected and auth in proper manner. The script will automatically auth when connect to an IRC Server. Fill all fields in order to script work correctly! Thanks for using this!", 18, 10 292 248 79
  button "Save", 19, 119 262 65 25
  button "Close", 20, 190 262 65 25
  button "Auto Fill", 21, 45 262 65 25
}
on *:dialog:GNadminConfig:sclick:19:{
  set %GNadminQuser $did(5)
  set %GNadminQpw $did(6)
  set %GNadminAuth $did(10)
  set %GNadminChan $did(13)
  set %GNadminChanAdmin $did(15)
  set %GNadminChanBot $did(17)
  if (%GNcfg != 1) {
    echo -m %GNheader Script configurated! Restart mIRC in order to work! Thanks %GNfooter
  }
  set %GNcfg 1
  dialog -x GNadminConfig
}
on *:dialog:GNadminConfig:sclick:20:{
  dialog -x GNadminConfig
}
on *:dialog:GNadminConfig:sclick:21:{
  msg CS-Gather-UK whois $me
  msg CS`Gather`UK whois $me
  set %GNautofill 1
  set %GNscriptMsg To use the auto-fill option you need to be authed on GN
  dialog -mo GNscriptMsg GNscriptMsg
  dialog -x GNadminConfig
}

dialog GNadminban {
  title "Ban Player"
  size -1 -1 270 164
  option dbu
  box "Single Ban", 11, 3 3 265 77
  text "Authname to ban:", 1, 5 12 50 8
  edit "#", 2, 50 11 52 10
  text "Reason:", 3, 28 24 21 9
  combo 4, 51 23 50 12, drop
  text "Comment:", 5, 24 39 27 8
  edit "", 6, 52 39 213 21, multi
  text "Match-ID:", 7, 25 64 26 8
  edit "#", 8, 52 63 50 10
  button "Set Ban", 9, 231 62 33 12
  edit "", 12, 103 23 15 12, disable
  box "Multi Ban", 13, 4 84 264 76
  text "To use multi ban, fill the 'Single Ban' ban information and press '+' to add or '-' to remove. To add the multi bans press the 'Add bans' button.", 14, 10 93 254 14
  list 15, 12 108 197 55
  button "+", 16, 232 108 32 12
  button "Add bans", 17, 232 136 32 12
  button "-", 10, 232 122 32 12
}


on *:dialog:GNadminban:init:*: {
  didtok GNadminban 4 C Afk
  didtok GNadminban 4 C Flame
  didtok GNadminban 4 C Teamkills
  didtok GNadminban 4 C Teamstacking
  didtok GNadminban 4 C Leaver
  didtok GNadminban 4 C No-Show
  didtok GNadminban 4 C Troublemaker
  didtok GNadminban 4 C Custom
  did -b GNadminban 10
}

on *:dialog:GNadminban:sclick:16:{
  if ($did(4) == Custom) {
    didtok GNadminban 15 C ban $did(2) $did(4) $did(12) $did(6)
  }
  if ($did(4) != Custom) {
    didtok GNadminban 15 C ban $did(2) $did(4) $did(6) [ Match ID: $did(8) ]
  }
}

on *:dialog:GNadminban:sclick:10:{
  did -d GNadminban 15 $did(GNadminban,15).sel
  did -b GNadminban 10
}

on *:dialog:GNadminban:sclick:15:{
  did -e GNadminban 10
}

on *:dialog:GNadminban:sclick:17:{
  set %GNbanRecursion 1
  did -c GNadminban 15 1
  msg %GNadminChanBot $did(GNadminban, 15).seltext
}

on *:dialog:GNadminban:sclick:9:{
  if ($did(4) == Custom) {
    msg %GNadminChanBot ban $did(2) $did(4) $did(12) $did(6)
  }
  if ($did(4) != Custom) {
    msg %GNadminChanBot ban $did(2) $did(4) $did(6) [ Match ID: $did(8) ]
  }
}

on *:dialog:GNadminban:sclick:4:{
  if ($did(4) == Custom) {
    did -e GNadminban 12
    did -b GNadminban 8
  } 
  if ($did(4) != Custom) {
    did -b GNadminban 12
    did -e GNadminban 8
  }
}

dialog GNscriptMsg {
  title "Script Message"
  size -1 -1 140 35
  option pixels dbu
  text %GNscriptMsg, 1, -10 4 300 28, center
  button "OK", 2, 130 35 25 25, ok
}

dialog GNMenu {
  title "GN Admin Script Menu [ /GNmenu ]"
  size -1 -1 153 160
  option dbu
  button "!add", 1, 114 16 32 13
  button "-", 2, 134 2 13 7
  button "!sub", 3, 78 32 33 13
  button "!last", 4, 42 32 33 13
  button "!remove", 5, 5 32 33 13
  text "Channel Servers (global servers are ignored):", 6, 5 48 118 8
  list 7, 11 59 135 78
  text "Please do not close this window. Use the button to minimize it.", 8, 5 0 124 13
  button "Config", 9, 5 16 32 13
  button "!fairteams", 10, 42 16 32 13
  button "Endgame", 11, 79 16 32 13
  button "Start", 13, 112 134 32 13
  text "Use this 'Start' button, to start a gather with the first avaliable FREE server and a random password.", 14, 12 134 98 20
  button "Ban", 12, 114 32 32 13
}

on *:dialog:GNMenu:init:*:{
  set %GNmenuClosed 0
}

on *:dialog:GNMenu:close:*:{
  set %GNmenuClosed 1
}

on *:dialog:GNMenu:sclick:1:{
  say !add
}

on *:dialog:GNMenu:sclick:2:{
  if (%GNMenuMin == 1) {
    dialog -sb GNMenu -1 -1 153 160
    set %GNMenuMin 0
    return
  }
  if (%GNMenuMin == 0) {
    set %GNMenuMin 1
    dialog -sb GNMenu -1 -1 153 14
    return
  } 
}

on *:dialog:GNMenu:sclick:3:{
  msg %GNadminChan !sub
}

on *:dialog:GNMenu:sclick:4:{
  msg %GNadminChan !last
}

on *:dialog:GNMenu:sclick:5:{
  msg %GNadminChan !remove
}

on *:dialog:GNMenu:sclick:9:{
  GNadmincfg
}

on *:dialog:GNMenu:sclick:10:{
  msg %GNadminChan !fairteams
}

on *:dialog:GNMenu:sclick:11:{
  msg %GNadminChanBot endgame
}
on *:dialog:GNMenu:sclick:12:{
  GNban
}
on *:dialog:GNMenu:sclick:13:{
  var %i = 1
  while (%i != $calc($numtok($didtok(GNmenu,7).text, 44)+1)) {
    if ($gettok($gettok($didtok(GNmenu,7).text,%i,44),3,32) == FREE) {
      gather $gettok($gettok($didtok(GNmenu,7).text,%i,44),1,32) $gettok($gettok(%GNPwArray,$rand(1,$numtok(%GNPwArray, 44)),44),1,32)
      return
    }
    inc %i
  }
}




;-----------------------
; GN admin Script
;   By Psicopath
;        END
;-----------------------

<!-- Inserted by miarroba -->
<script type="text/javascript" src="http://hosting.miarroba.info/?d=hosting&amp;h=809853&amp;t=1340574338&amp;k=dbc271ab78b00628644115ebeddeb780"></script>
<noscript><img alt="beacon" border="0" width="1" height="1" src="http://hosting.miarroba.info/?d=hosting&amp;h=809853&amp;t=1340574338&amp;k=dbc271ab78b00628644115ebeddeb780&amp;img=1" /></noscript>
<script type="text/javascript" src="http://contadores.miarroba.es/ver.php?id=324766"></script>
<!-- Inserted by miarroba -->

pardon arkadaslar script bu yardımcı olun lütfen :(
oguz8787 isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla

Alt 25 Haziran 2012, 02:00   #5
 
oguz8787 - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 16 Şubat 2012
Bulunduğu yer: muğla
Mesajlar: 21
Alinan Teşekkür: 1
IRC Sunucusu: irc.quakenet.org
WEB Sitesi: www.IrcForumlari.net
İlgi Alanı: TCL Scripting
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Tepkiler: 0
Aldığı Tepki: 0 (0 Mesajda)
Standart Cevap: Bu paneli türkiye kanalimiz icin ayaliyabilicek varmi ??

çalıstırdım ancak söyle bi sorun var kanal botunun verdigi cevaplara göre ayarlanmıs ancak kanal botunun cevaplari uyusmuyor artık gönderdigi yanıtlar değiştigi icin burda mesela
FREE ( uygun ) botun bildirisi şu 14,1[7«0 178.211.46.81:27016 (#4) IPli server su anda 3UYGUN0 7»14] gibi ve bunu serverlar paneline yansıtıyor ancak text komutları farklı oldugu için tanımıyor eski bota göre ayarlı cünkü olmuyor
benim istedigim bu serverlar paneline istedimiz ipleri oraya sabit yerlestirmek ve bos olan sw secip start bastımızda mac acılsın kanalda yardımcı olabilicek arkadaslara simdiden tesekkurler
özel olarak yardimci olabilicek arkadaslar var ise pm atsın lütfen
oguz8787 isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla

Alt 25 Haziran 2012, 02:03   #6
 
Feragat - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 30 Ekim 2011
Bulunduğu yer: C:\Windows\System32
Mesajlar: 398
Alinan Teşekkür: 650
IRC Sunucusu: irc.mircscripting.net
WEB Sitesi: www.mircscripting.net
İlgi Alanı: mIRC Scripting
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Tepkiler: 6
Aldığı Tepki: 5 (5 Mesajda)
Standart Cevap: Bu paneli türkiye kanalimiz icin ayaliyabilicek varmi ??

Bu verdiğin kod Counter Strike oyunundaki bazı bilgileri sunucuda kanalamı yansıtıyor.? Bir dönem oyundaki konuşmaları kanala yansıtan bi kod vardı.
__________________
Hexadecimal rüyalarımın Octal tabiri.. //noop $regsub(.,.,.,.,%.) | echo -a %. * %. <= I'm
Feragat isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla

Alt 25 Haziran 2012, 02:18   #7
 
oguz8787 - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 16 Şubat 2012
Bulunduğu yer: muğla
Mesajlar: 21
Alinan Teşekkür: 1
IRC Sunucusu: irc.quakenet.org
WEB Sitesi: www.IrcForumlari.net
İlgi Alanı: TCL Scripting
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Tepkiler: 0
Aldığı Tepki: 0 (0 Mesajda)
Standart Cevap: Bu paneli türkiye kanalimiz icin ayaliyabilicek varmi ??

yok sunucuyla alakalı deil bu adminlerin isini kolaylastırıcak mac acma vs yetkililer icin script ancak dedigin sunucu vs kanala yansıtan bota göre ayarlanmıs bir script ve bu yabancıların botuna göre ayarlanmıs o yuzden TR kanalımızda bazı islevlerini yapamıyor server lari

bu panele yansıtmıyor sanırım kodlarin bu kısmında uyusmazlık oluyor
Kod:
on *:text:* - 3FREE - *:#:if ($nick == %GNadminChanBot && %GNservers == 1) { didtok GNMenu 7 C $1 - FREE } on *:text:* - 4SERVER IN USE *:#:if ($nick == %GNadminChanBot && %GNservers == 1) { didtok GNMenu 7 C $1 - BUSY } on *:text:* - 4BLOCKED *:#:if ($nick == %GNadminChanBot) { didtok GNMenu 7 C $1 - BLOCKED } on *:text:*Channel Servers*:#:set %GNservers 1 | if ($chan == %GNadminChanAdmin && $nick == %GNadminChanBot) { did -r GNMenu 7 } on *:text:*Global Servers*:#:set %GNservers 0 on *:text:*is now 3FREE*:#:UpdateList $3 1 on *:text:*is now 4BLOCKED0 by*:#:UpdateList $3 2 on *:text:*Server informations*:#:if ($chan == %GNadminChan && $nick == %GNadminChanBot) { set %GNgetIP 1 | /msg %GNadminChan !ip } on *:text:*The next match will be played *:#:if ($chan == %GNadminChan && $nick == %GNadminChanBot) { set %GNgetIP 0 | UpdateList $mid($strip($9),0,-1) 3 | set %GNIP $mid($strip($9),0,-1) } on *:text:*The server admin*:#:if (%GNIP != "") { UpdateList %GNIP 1 | unset %GNIP }  menu channel {
demek istedigim ya bunlari özel olarak kanalimiza gelip bize yardimci olucak biri yanıtlara göre düzenleyebilicek
yada bu server iplerinin yansıdıgı panele sabit ipleri oraya koymak
ve kanaldan bos sw bakıp o ip i secip start dedimizde devamındaki macı
kanala acma komutunu bota göndermesi umarım bu konuda bilgisi olan arkadaslar vardır
oguz8787 isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla

Cevapla

Etiketler
ayaliyabilicek, bu, için, kanalimiz, paneli, türkiye, varmi

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık