Search
Web Applications
install Joomla Wordpress Phpbb Drupal FluxBB PunBB osCommerce simple-machines MYBB moodle vBulletin Dolphin-v.7.1.1 PHPNUKE XOOPSServices
install BorkNet Services X3 Services Anope Atheme Services Srvx IRC SrervicesIRCD
install Snircd IRCU INSPIRCD UNREAL Nefarious Bircd Bahamut Asuka CharybdisTCL SCRIPT
TCL SCRIPT FOR EGGDROP
Allprotection4.7 AntiproxyBots
Bots install FishBot bobot++ Eggdrop janus Omega Security Services Botnix Bopm SupyBot PyLink HopmLatest topics
Q Commands helper
MIRCX IRC Network :: MIRCX :: MIRCX
Page 1 of 1
Q Commands helper
Q Commands helper by Arthas
- Code:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Q helper
;; By Arthas
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:dialog:qcommands:*:*:{
if ($devent == init) { inc -u2 %der | .msg q showcommands }
elseif ($devent == sclick) {
if ($did isnum 5-16) { inc -u2 %dud }
if ($did !== 18) { did -r $dname 18 }
if ($did == 5) && ($did(17)) { .msg q ban $active $did(17) }
elseif ($did == 6) && ($did(17)) { .msg q unban $active $did(17) }
elseif ($did == 16) { .msg q whoami }
elseif ($did == 12) { .msg q banlist $active }
elseif ($did == 15) { .msg q chanlev $active $iif(+amno == $gettok($did(17),2,32),$gettok($did(17),1,32) +amo,$did(17)) | $iif(+amno == $gettok($did(17),2,32),.msg q giveowner $active $gettok($did(17),1,32)) }
elseif ($did == 13) { .msg q chanflags $active $did(17) }
elseif ($did == 14) { .msg q chanmode $active $did(17) }
elseif ($did == 7) { .msg q banclear $active }
elseif ($did == 8) && ($did(17)) { .msg q settopic $active $did(17) }
elseif ($did == 9) && ($did(17)) { .msg q welcome $active $did(17) }
elseif ($did == 10) && ($did(17)) { clearchanlev $active $did(17) }
}
}
dialog qcommands {
title "Q Commands helper"
size -1 -1 117 139
option dbu notheme
tab "All of the Q commands", 1, 3 3 111 132
list 2, 7 38 103 93, tab 1 size hsbar vsbar
text "Q Commands", 3, 8 26 34 8, tab 1
tab "Helper", 4
button "Q ban", 5, 7 20 33 12, tab 4
button "Q topic", 8, 7 34 33 12, tab 4
button "Q welcome", 9, 42 34 34 12, tab 4
button "Clear chanlev", 10, 40 62 38 12, tab 4
button "Recover", 11, 7 62 31 12, tab 4
button "Banlist", 12, 78 34 33 12, tab 4
button "Chanflags", 13, 78 48 33 12, tab 4
button "Chanmodes", 14, 7 48 33 12, tab 4
button "Chanlev", 15, 42 48 34 12, tab 4
button "Who am i", 16, 80 62 31 12, tab 4
edit "", 17, 9 85 99 11, tab 4 autohs
list 18, 9 97 99 32, tab 4 size
button "Un qban", 6, 42 20 34 12, tab 4
button "Q ban clear", 7, 78 20 33 12, tab 4
text "Nick+Level/mode/topic/welcome/address:", 19, 8 77 101 8, tab 4
}
alias clearchanlev {
if ($3-) { set %protected $3- }
if ($left($1,1) == $chr(35)) && ($network == QuakeNet) {
unset %temp | unset %zxx | unset %mylevel | unset %clea*
if ($2) {
if (!%clearing) && (!%clear1) {
if ($left($2,1) == $chr(43)) || ($left($2,1) == $chr(45)) { set -u60 %clear $1 $remove($2,$left($2,1)) }
else { set -u60 %clear $1 $2 }
.timercheckwhat 1 5 checkwhat | set %clear1 1 | .msg q chanlev $1 | set %mylevel $remove($address($me,2),*!*@,.users.quakenet.org) | set %clearing 1 | set -u15 %zxx 1
}
elseif (%clearing) || (%clear1) { .did -ra qcommands 18 $1- * Error! During a clearing!
}
}
else { .did -ra qcommands 18 $1- * Error! Please use: <level>/<+level>/<-level> | halt
}
}
else {
.did -ra qcommands 18 $1- * Error! Either you didnt typed $chr(35) , or you are not using the network "quakenet". | halt
}
}
alias checkwhat {
var %zzz = $calc(%zxx -4)
if ($numtok(%temp,32) < 18) && ($numtok(%temp,32) >= 1) { .timer 1 %zzz .msg q removeuser $gettok(%clear,1,32) %temp | .timer 1 $calc(%zzz +2) .did -ra qcommands 18 * Clearing ended. | unset %temp | unset %zxx | unset %mylevel | .timer 1 $calc(%zzz +4) unset %clea* | unset %protected }
elseif ($numtok(%temp,32) == 0) { unset %mylevel | unset %zxx | .did -ra qcommands 18 * Error! No one has the level: " $+ $chr(43) $+ $gettok(%clear,2,32) $+ " | unset %zxx | unset %clea* | halt }
}
on ^*:Notice:*:?: {
if ($nick == Q) {
if (%der) && (!$istok(the for end,$1,32)) { haltdef | .did -a qcommands 2 $1- }
if (%dud) { haltdef | .did -a qcommands 18 $1- | $iif($1 == Current,.did -a qcommands 18 $6) }
if (%clear1) {
if (%clearing) {
if (*You do not have sufficient access on* iswm $1-) { .did -ra qcommands 18 * Error! you dont have enough acsses on $gettok(%clear,1,32) to use chanlev. | unset %clearing | .timercheckwhat off | .timera* off | halt }
if (*is unknown or suspended* iswm $1-) { .did -ra qcommands 18 * Error! channel is unknown or suspended. | .timercheckwhat off | .timera* off | unset %clearing | halt }
if (*known* !iswm $1-) && (*username* !iswm $1-) && ($1 != %mylevel) && (n !isin $2) && ($1 !isin %protected) {
if ($left($2,1) == $chr(43)) && ($gettok(%clear,2,32) isin $2) && (n !isin $2) { set %temp %temp $chr(35) $+ $1 }
if ($numtok(%temp,32) == 18) { .timera $+ %zxx 1 %zxx .msg q removeuser $gettok(%clear,1,32) %temp | unset %temp | inc %zxx 2 }
}
if (*End of* iswm $1-) { unset %clearing | halt }
if (Total: iswm $1) { unset %clearing | halt }
}
}
}
}
menu * {
Q dialog: dialog $iif($dialog(qcommands),-v,-m) qcommands qcommands
}
Similar topics
» Dialog helper by Infernal_Demon
» GatherBot GBot Helper
» Gatherbot helper by Xronic
» Linux commands in pdf
» Gather commands
» GatherBot GBot Helper
» Gatherbot helper by Xronic
» Linux commands in pdf
» Gather commands
MIRCX IRC Network :: MIRCX :: MIRCX
Page 1 of 1
Permissions in this forum:
You cannot reply to topics in this forum
|
|
Sat Aug 05, 2023 2:09 am by Chief
» mIRCx IRC Network Config
Sat Jul 15, 2023 9:51 pm by Chief
» ircu2.10.12-pk with dnsbl
Fri Mar 10, 2023 2:22 pm by Admin
» Guide install PyLink on New version FreeBSD
Thu Dec 15, 2022 9:39 pm by Chief
» מדריך התקנה PBot על מערכת הפעלה FreeBsd-12
Mon Dec 05, 2022 5:44 am by Chief
» install Nefarious2 && X3 IRC Services in FreeBsd
Sat Nov 12, 2022 3:12 pm by Chief
» help problem with adduser in Freebsd 12
Fri Nov 11, 2022 9:06 pm by Chief
» מדריך פקודות והתקנה בסרביס X3
Fri Oct 28, 2022 1:43 pm by Chief
» מדריך הגדרות WebIRC in Nefarious2
Thu Apr 07, 2022 4:45 am by Chief