By Unkn0wn on Dec 10, 2010This is Amazed-iRc v1.0's P2P blocker. To turn it on right click in nicklist, channel, or click the menu bar at the top. And hover your mouse of it and a thing will pop out with "On" and "Off". You should know the rest :P To allow a certain person to P2P you type /allow nickhere or to remove it do /dallow nickhere. You can change the inputs and the color. Do not rip it and repost it as your own!
UPDATE
I have just updated the script. It now has aliases instead of inputs! && Now it actually works. Haha. Sorry 'bout that.
Alias Allow {
Auser Allow $1
/notice $1 15,1(12,1-14,1Y0,1ou 14,1A0,1re 14,1N0,1ow 14,1O0,1n $me $+ 's 14,1P0,1 $+ 2P 14,1A0,1llow 14,1L0,1ist14,1!12,1-15,1)
}
Alias dallow {
Ruser Allow $1
/notice $1 15,1(12,1-14,1Y0,1ou 14,1A0,1re 14,1N0,1o 14,1L0,1onger 14,1O0,1n $me $+14,1'0,1s 14,1P12,1 $+ 2P 14,1A0,1llow 14,1L0,1ist12,1-15,1)
}
On *:Open:?:{
If (%p2pblock == on) {
If ($level($nick) != Allow) {
Echo -a 4,1(15,1-4,1(15,1 $+ $nick 4,1H15,1as 4,1P2P'15,1d 4,1Y15,1ou 4,1O15,1n $server 4,1A15,1t $timestamp 4,1W15,1ith 4,1T15,1he 4,1M15,1essage $1- $+ 4,1)15,1-4,1)
msg $nick 4,1(15,1-4,1(P2P B15,1locker 4,1I15,1s 4,1O15,1n4,1. I A15,1m 4,1C15,1urrently 4,1N15,1ot 4,1A15,1ccepting 4,1P2P'15,1s 4,1F15,1rom Anyone4,1)15,1-4,1)
close -m $nick
}
Else { Haltdef }
}
}
Menu * {
(-(P2P Blocker)-)
.On: set %p2pblock on | /sconamsg 4,1(15,1-4,1(P2P B15,1locker 4,1I15,1s 4,1N15,1ow 4,1E15,1nabled4,1. N15,1o 4,1L15,1onger 4,1A15,1ccepting 4,1P2P'15,1s4,1)15,1-4,1)
.Off: set %p2pblock off | /sconamsg 4,1(15,1-4,1(P2P B15,1locker 4,1I15,1s 4,1N15,1ow 4,1D15,1isabled4,1. I A15,1m 4,1N15,1ow 4,1A15,1ccepting 4,1P2P'15,1s4,1)15,1-4,1)
}
On *:Input:*:{
If (/ !isin $left($1,1)) {
If ($$1 == `allow) {
Auser Allow $2
Msg $2 4,1(15,1-4,1(Y15,1ou 4,1A15,1re 4,1N15,1ow 4,1O15,1n $me $+ 's 4,1P2P A15,1llow 4,1L15,1ist4,1!)15,1-4,1)
}
If ($$1 == `dallow) {
Ruser Allow $2
msg $2 You Have Been Removed From $me $+'s P2P Blocker Allow List!
}
}
}
could become:
alias allow {
Auser Allow $1
Msg $1 4,1(15,1-4,1(Y15,1ou 4,1A15,1re 4,1N15,1ow 4,1O15,1n $me $+ 's 4,1P2P A15,1llow 4,1L15,1ist4,1!)15,1-4,1)
}
alias dallow {
Ruser Allow $1
Msg $1 You Have Been Removed From $me $+ 's P2P Blocker Allow List!
}
(And I fixed the $+ in the dallow, having $+'s put together instead of with a space was making it says IllogicTCP2P instead of IllogicTC's P2P lol)
This way, the script would not have to parse your INPUT every single time you type something, and you still get the same functionality of the original script, it's just now it is /allow and /dallow instead of allow anddallow.