Unreal ChanServ Popups — File Browser
UnrealChanServPopupsv1.1 / UnrealChanServPopupsv1.1 / UnrealPopups.mrc
UnrealPopups.mrc — 10.03 KB — Download this file
; Unreal ChanServ Popups 1.1
; by ch1zra
; ch1zra@gmail.com
; http://uptheirons.co.sr/
; #Scripters @ irc.krstarica.com
; Copyright © Up The Irons ! inc. Scripting Team
; ~~~ On load and Unload ~~~
on 1:load: {
if ($version > 6.0) {
load.up
echo $color(info) Check your channel and nicklist popups.
}
else {
echo Version 6.0 or higher required, get a newer version of mirc at http://www.mirc.com
unload -rs $script
}
}
on 1:unload: {
if ($input(Thank you for using Unreal ChanServ Popups 1.1 $crlf ch1zra@gmail.com $crlf http://uptheirons.co.sr/ $crlf $&
#Scripters @ irc.krstarica.com $crlf $crlf $crlf Goodbye.,oi,Unloading) == $true) {
echo $color(info) Unreal popups unloaded.
}
}
; ~~~ Aliases ~~~
alias unreal.popz {
if ($dialog(unreal)) {
dialog -ve unreal unreal
}
else { dialog -mdo unreal unreal }
}
alias -l load.up {
if ($input(Unreal ChanServ Popups 1.1 succesfully loaded $crlf $crlf ch1zra@gmail.com $crlf http://uptheirons.co.sr/ $crlf $&
#Scripters @ irc.krstarica.com,oi,Unreal Popups loaded) == $true) {
return
}
}
alias -l unload.up {
if ($input(Are you sure that you want to unload Unreal ChanServ Popups 1.1 $+ $chr(44) located in $script ?,yq,Unloader) == $true) {
.unload -rs $script
}
}
alias -l abt {
dialog -c unreal unreal
if ($input(Unreal ChanServ Popups 1.1 $crlf $crlf by ch1zra $crlf ch1zra@gmail.com $crlf http://uptheirons.co.sr/ $crlf $&
#Scripters @ irc.krstarica.com, oi, About Unreal Chanserv Popups)) {
unreal.popz
}
}
; ~~~ Dialog ~~~
dialog Unreal {
title "Unreal Settings"
size -1 -1 100 50
option dbu
box "Choose command", 1, 0 0 55 45
radio "/msg chanserv", 2, 5 10 45 10
radio "/cs", 3, 5 20 30 10
radio "/chanserv", 4, 5 30 40 10, center
link "IRC", 5, 60 10 10 6
link "WWW", 6, 75 10 15 6
button "About", 7, 60 20 35 10, flat
button "Close", 8, 60 35 35 10, flat ok
}
; ~~~ On Init ~~~
on *:dialog:unreal:init:*: {
if ($readini(UTI.ini,UnrealPops,Command) == msg chanserv) {
did -c $dname 2
}
if ($readini(UTI.ini,UnrealPops,Command) == cs) {
did -c $dname 3
}
if ($readini(UTI.ini,UnrealPops,Command) == chanserv) {
did -c $dname 4
}
}
; ~~~ Dialog Clicks ~~~
on *:dialog:Unreal:sclick:*: {
if ($did == 2) {
writeini UTI.ini UnrealPops Command msg chanserv
}
if ($did == 3) {
writeini UTI.ini UnrealPops Command cs
}
if ($did == 4) {
writeini UTI.ini UnrealPops Command chanserv
}
if ($did == 5) {
.run irc://irc.krstarica.com/Scripters
}
if ($did == 6) {
.run http://uptheirons.co.sr/
}
if ($did == 7) {
abt
}
}
; ~~~ Menus ~~~
Menu channel {
.$iif($me isop #, Msg ChanServ)
.Register:$readini(UTI.ini,UnrealPops,Command) Register $Chan $$Input(Enter Password And Description For $Chan (first word will be password $+ $chr(44) and all after that is considered to be description),e,Register $Chan)
.Identify:$readini(UTI.ini,UnrealPops,Command) $Chan $$Input(Enter Your Password For $Chan,e,Chanserv Identify)
.Sendpass:$readini(UTI.ini,UnrealPops,Command) sendpass $chan
.Drop:if ($input(Are you sure you want to DROP $chan ?,y,Drop $chan) == $true) { $readini(UTI.ini,UnrealPops,Command) drop $chan }
.Set
..Founder:$readini(UTI.ini,UnrealPops,Command) Set $Chan Founder $$Input(Set Founder For $Chan,e,Set Founder For $Chan)
..Successor:$readini(UTI.ini,UnrealPops,Command) Set $Chan Successor $$Input(Set Successor For $Chan,e,Set Successor For $Chan)
..Password:$readini(UTI.ini,UnrealPops,Command) Set $Chan Password $$Input(Set Password For $Chan,e,Set Password For $Chan)
..Desc:$readini(UTI.ini,UnrealPops,Command) Set $Chan Desc $$Input(Set Description For $Chan,e,Set Description For $Chan)
..URL:$readini(UTI.ini,UnrealPops,Command) Set $Chan Url $$Input(Associate Url With $Chan,e,Associate Url With $Chan)
..Email:$readini(UTI.ini,UnrealPops,Command) Set $Chan Email $$Input(Associate Email With $Chan,e,Associate Email With $Chan)
..Entrymsg:$readini(UTI.ini,UnrealPops,Command) Set $Chan Entrymsg $$Input(Set Entrymsg For $Chan,e,Set Entrymsg For $Chan)
..Bantype:$readini(UTI.ini,UnrealPops,Command) Set $Chan Bantype $$Input(Set Bantype For $Chan,e,Set Bantype For $Chan)
..Mlock
...On:$readini(UTI.ini,UnrealPops,Command) Set $Chan Mlock On
...Off:$readini(UTI.ini,UnrealPops,Command) Set $Chan Mlock Off
..Keeptopic
...On:$readini(UTI.ini,UnrealPops,Command) Set $Chan Keeptopic On
...Off:$readini(UTI.ini,UnrealPops,Command) Set $Chan Keeptopic Off
..Opnotice
...On:$readini(UTI.ini,UnrealPops,Command) Set $Chan Opnotice On
...Off:$readini(UTI.ini,UnrealPops,Command) Set $Chan Opnotice Off
..Peace
...On:$readini(UTI.ini,UnrealPops,Command) Set $Chan Peace On
...Off:$readini(UTI.ini,UnrealPops,Command) Set $Chan Peace Off
..Private
...On:$readini(UTI.ini,UnrealPops,Command) Set $Chan Private On
...Off:$readini(UTI.ini,UnrealPops,Command) Set $Chan Private Off
..Restricted
...On:$readini(UTI.ini,UnrealPops,Command) Set $Chan Restricted On
...Off:$readini(UTI.ini,UnrealPops,Command) Set $Chan Restricted Off
..Secure
...On:$readini(UTI.ini,UnrealPops,Command) Set $Chan Secure On
...Off:$readini(UTI.ini,UnrealPops,Command) Set $Chan Secure Off
..Secureops
...On:$readini(UTI.ini,UnrealPops,Command) Set $Chan Secureops On
...Off:$readini(UTI.ini,UnrealPops,Command) Set $Chan Secureops Off
..Securefounder
...On:$readini(UTI.ini,UnrealPops,Command) Set $Chan Securefounder On
...Off:$readini(UTI.ini,UnrealPops,Command) Set $Chan Securefounder Off
..Signkick
...On:$readini(UTI.ini,UnrealPops,Command) Set $Chan Signkick On
...Off:$readini(UTI.ini,UnrealPops,Command) Set $Chan Signkick Off
..Topiclock
...On:$readini(UTI.ini,UnrealPops,Command) Set $Chan Topiclock On
...Off:$readini(UTI.ini,UnrealPops,Command) Set $Chan Topiclock Off
..XOP
...On:$readini(UTI.ini,UnrealPops,Command) Set $Chan Xop On
...Off:$readini(UTI.ini,UnrealPops,Command) Set $Chan Xop Off
.Aop
..Add:$readini(UTI.ini,UnrealPops,Command) aop $chan add $$input(Add nick to $chan $+ 's AOP list,e,Add AOP)
..Del:$readini(UTI.ini,UnrealPops,Command) aop $chan del $input(Ented nick, entry number, or list of numbers to be deleted from $chan $+ 's AOP list,e,Del AOP)
..List:$readini(UTI.ini,UnrealPops,Command) aop $chan list $input(Enter num entries or wildcard for listing $chan $+ 's AOP list (Esc for regular list),e, List AOP)
..Clear:if ($input(Are you sure you want to clear $chan $+ 's AOP list ?,y,Clear AOP List) == $true) { $readini(UTI.ini,UnrealPops,Command) aop $chan clear }
.Sop
..Add:$readini(UTI.ini,UnrealPops,Command) sop $chan add $$input(Add nick to $chan $+ 's SOP list,e,Add SOP)
..Del:$readini(UTI.ini,UnrealPops,Command) sop $chan del $input(Ented nick, entry number, or list of numbers to be deleted from $chan $+ 's SOP list,e,Del SOP)
..List:$readini(UTI.ini,UnrealPops,Command) sop $chan list $input(Enter num entries or wildcard for listing $chan $+ 's SOP list (Esc for regular list),e, List SOP)
..Clear:if ($input(Are you sure you want to clear $chan $+ 's SOP list ?,y,Clear SOP List) == $true) { $readini(UTI.ini,UnrealPops,Command) sop $chan clear }
.Access
..Add:$readini(UTI.ini,UnrealPops,Command) access $chan add $$input(Add nick and level for $chan $+ 's access list,e,Add Access)
..Del:$readini(UTI.ini,UnrealPops,Command) access $chan del $input(Ented nick, entry number, or list of numbers to be deleted from $chan $+ 's Access list,e,Del Access)
..List:$readini(UTI.ini,UnrealPops,Command) access $chan list $input(Enter num entries or wildcard for listing $chan $+ 's Access list (Esc for regular list),e, List Access)
..Clear:if ($input(Are you sure you want to clear $chan $+ 's Access list ?,y,Clear Access List) == $true) { $readini(UTI.ini,UnrealPops,Command) access $chan clear }
.Akick
..Add:$readini(UTI.ini,UnrealPops,Command) akick $chan add $$input(Enter mask (and reason) to be added to $chan $+ 's akick list,e,Add Akick)
..Del:$readini(UTI.ini,UnrealPops,Command) akick $chan del $input(Enter mask to be deleted from $chan $+ 's akick list,e,Del Akick)
..Stick:$readini(UTI.ini,UnrealPops,Command) akick $chan stick $$input(Enter mask to be sticked to $chan $+ 's akick list,e,Akick Stick)
..Unstick:$readini(UTI.ini,UnrealPops,Command) akick $chan unstick $$input(Enter mask to be unsticked from $chan $+ 's akick list,e,Akick Unstick)
..Enforce:$readini(UTI.ini,UnrealPops,Command) akick $chan enforce
..List:$readini(UTI.ini,UnrealPops,Command) akick $chan list $input(Enter num entries or wildcard for listing $chan $+ 's Akick list (Esc for regular list),e, List Akick)
..Clear:if ($input(Are you sure you want to clear $chan $+ 's Akick list ?,y,Clear Akick List) == $true) { $readini(UTI.ini,UnrealPops,Command) akick $chan clear }
}
menu nicklist {
.$iif($me isop #,Msg Chanserv)
.Aop
..Add:$readini(UTI.ini,UnrealPops,Command) aop $chan add $$1
..Del:$readini(UTI.ini,UnrealPops,Command) aop $chan del $$1
.Sop
..Add:$readini(UTI.ini,UnrealPops,Command) sop $chan add $$1
..Del:$readini(UTI.ini,UnrealPops,Command) sop $chan del $$1
.Access
..Add:$readini(UTI.ini,UnrealPops,Command) access $chan add $$1 $$input(Add level for $$1 in $chan $+ 's access list,e,Add Access)
..Del:$readini(UTI.ini,UnrealPops,Command) access $chan del $$1
.Akick
..Add:$readini(UTI.ini,UnrealPops,Command) akick $chan add $$1 $$input(Enter reason for akick in $chan $+ 's,e,Add Akick)
..Del:$readini(UTI.ini,UnrealPops,Command) akick $chan del $$1
..Stick:$readini(UTI.ini,UnrealPops,Command) akick $chan stick $$1
..Unstick:$readini(UTI.ini,UnrealPops,Command) akick $chan unstick $$1
}
menu menubar {
Unreal ChanServ Popups
.Settings:unreal.popz
.Unload
..Yes:unload.up
}
; Unreal ChanServ Popups 1.1
; by ch1zra
; ch1zra@gmail.com
; http://uptheirons.co.sr/
; #Scripters @ irc.krstarica.com
; Copyright © Up The Irons ! inc. Scripting Team