Bu paneli türkiye kanalimiz icin ayaliyabilicek varmi ?? - IRCForumlari.Net - IRC Sunucu sahipleri ve kullanicilari bulusma noktasi
IF Soru-Cevap
IRCForumlari.Net - IRC Sunucu sahipleri ve kullanicilari bulusma noktasi
  Soyle.net mobil uygulama

Go Back   IRCForumlari.Net - IRC Sunucu sahipleri ve kullanicilari bulusma noktasi mIRC Scripting mIRC Scripting Sorunları
AyvaNet.Com Konusbe.com
Şekershell İnternet Hizmetleri

Soyle.NetKelebek.OrgforumtutkusuReklam AlanıReklam Alanı



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, 17: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)
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 Psicopath@gather-network.eu ; ;----------------------- 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 Psicopath@gather-network.eu %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, 03:43   #2
 
toXic - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 14 Ocak 2011
Bulunduğu yer: Samsun
Mesajlar: 5,469
Alinan Teşekkür: 1362
IRC Sunucusu: Geveze.ORG
WEB Sitesi: -
İlgi Alanı: C ++
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Tepkiler: 3
Aldığı Tepki: 10 (7 Mesajda)
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, 02:08   #3
 
Paint - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 12 Eylül 2011
Bulunduğu yer: İstanbul
Mesajlar: 524
Alinan Teşekkür: 453
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)
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 şuanda  online konumundadır   Alıntı ile Cevapla

Alt 25 Haziran 2012, 02: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)
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 Psicopath@gather-network.eu ; ;----------------------- 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 Psicopath@gather-network.eu %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, 03: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)
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, 03:03   #6
 
Feragat - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 30 Ekim 2011
Bulunduğu yer: Mordor Ovası
Mesajlar: 561
Alinan Teşekkür: 1099
IRC Sunucusu: irc.mircscripting.net
WEB Sitesi: www.mircscripting.net
İlgi Alanı: mIRC Scripting
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Tepkiler: 10
Aldığı Tepki: 6 (6 Mesajda)
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ı.

__________________
Nil desperandum //echo -a $regex(deneme,m\e\g)
Feragat isimli Üye şuanda  online konumundadır   Alıntı ile Cevapla

Alt 25 Haziran 2012, 03: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)
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