Vincula 'Sockread Protections'

;;;; REMOTES ;;;;

on *:START:{

if (!$hget(q)) { hmake q 100 }

if (!$hget(o)) { hmake o 100 }

}

;;; REMOTES - VINCULA CONNECTION ;;;; [MSN CHAT ONLY]

(NOTE: SEARCH FOR "*:SOCKREAD:msn.server.*: {" PASTE PROTS UNDER "else tokenize 32 %read"

if ($regex($gettok(%read,4,32),OWNERKEY)) { hadd q $gettok(%read,3,32) $right($gettok(%read,5,32),-1) }

if ($regex($gettok(%read,4-5,32),-q $+($scid($gettok($sockname,3,46)).me))) { while ($scid($gettok($sockname,3,46)).me !isin $1) && (%-qflood != on) { goto prot | :prot | .sockwrite -tn $sockname $+($gettok(%read,2,32) $gettok(%read,5,32) +h $hget(q,$gettok(%read,3,32))) [ $+ [ $right($gettok(%read,3,32),-2) ] ] | set -u2 %-qflood $true | break } }

;;; REMOTES - VINCULA CONNECTION ;;;; [MSN GROUP CHAT ONLY]

if ($regex($gettok(%read,4-5,32),-q $+($scid($gettok($sockname,3,46)).me))) { while ($scid($gettok($sockname,3,46)).me !isin $1) && (%-qflood != on) { goto prot | :prot | .sockwrite -tn $sockname $+(PART $msn.get($gettok($sockname,3,46),fullroom)) $+ $chr(10) $+(JOIN $msn.get($gettok($sockname,3,46),fullroom)) $+ $chr(10) $+(KICK $msn.get($gettok($sockname,3,46),fullroom) $gettok($gettok($1,1,33),1,58)) :DeOwner :^) $+ $chr(10) $+(ACCESS $msn.get($gettok($sockname,3,46),fullroom) CLEAR OWNER) $+ $chr(10) $+(MODE $msn.get($gettok($sockname,3,46),fullroom) +v $me) $+ $chr(10) $+(ACCESS $msn.get($gettok($sockname,3,46),fullroom) ADD OWNER $address($me,1)) $+ $chr(10) $+(ACCESS $msn.get($gettok($sockname,3,46),fullroom) ADD HOST $address($me,6)) | set -u2 %-qflood $true | break } }

;;;; POPUPS (PREFERABLY MENU BAR) ;;;;

.•DeOwner Kick•

..$iif(%-qflood != on,$style(1) On,On) : unset %-qflood | /echo -a 12•1 Sockread Regex (-q) Protection Enabled 12::7:.1

..$iif(%-qflood == on,$style(1) Off,Off) : set %-qflood on | /echo -a 12•1 Sockread Regex (-q) Protection Disabled 12::7:.1

PRETTY DAMM FAST (NOTE IT JUST +H'S UP USER FREINDLY I GUESS & FOR MSN GROUP CHATS THE -Q PROTECTION IS DEOWNER KICK!

;;;; CREDITS; DANGERS VINCULA 'SOCKREAD PROTECTION' ;;;;

;;;; MSN; [email protected] ;;;;

Danger , ive added your vincula codes as you posted

but... what actually is it for?

It's a fast deowner protect.

THEIR DEADLY PROTS! VINCULA USERS SHOULD BE GRATEFUL SHESH! IF YOU WANT THE LOT OF MY PROTECTIONS RANGING FROM REVENGE KICK TO MASS KICK PROT ETC... ADD ME TO MSN!

ya sock prots are ok , till you flood out cause too many commands are being sent

OZZY I KNOW WHAT YA MEAN BUT...

FOR ME I REARLY FLOOD OUT MAYBE ITS BECAUSE I SET THE FLOOD PROTECTION VIA MIRC > IRC > FLOOD TO MAX FIGURES

TRIGGER FLOOD CHECKER AFTER: 999

MAX LINES IN BUFFER: 99999

MAX LINES PERSON PERSON: 99999

IGNORE PERSON FOR: 99999

AND.. DISABLE FLOOD PROTECTION FOR CTCP REPLIES AND WHOIS IN QUERY

AND TICK ON SHOW STATUS UPDATES IN WINDOW

TRUST ME MY PROTS ARE STABLE I COULD CUT DOWN ON USING LESS TOKEN IDENTIFIERS N ALL BUT FOR ME THEY SEEM FASTER E.G...

;;; OLD ONE FROM 2 YEARS BACK ;;;;

if (($2 == MODE) && ($4-5 == -q $me)) && ($me !isin $1)

;;; NEW ONE TO DATE ;;;;

if ($regex($gettok(%read,4-5,32),-q $+($scid($gettok($sockname,3,46)).me)))

MAY COME TO A SHOCK FOR SOME BUT I OWN WITH CABLES ON FASTER NET SPEEDS ON BETTER MSN CHAT CONNECTIONS TOO!

I used to used sockmark to hold the ownerkey but it can only hold one at a time. Suprisingly, COM objects are supposed to be very fast as well, more so than hash tables.

Personally, I don't use MSNChat at all

;;;; COPY & PASTE IN POPUPS => (MENU BAR) ;;;;

-

.$iif($group(#Emotion-Flood) == on,$style(1)) •Emotion Flood Prot• { if ($group(#Emotion-Flood) == on) { /disable #Emotion-Flood | /echo $active 9,1|[ 9• 24(HALTS ON OWNER) EMOTION BOMB PROTECTION DISABLED9 •9,1 ]| | halt } | if ($group(#Emotion-Flood) == off) { /enable #Emotion-Flood | /echo $active 9,1|[ 9• 24(HALTS ON OWNER) EMOTION BOMB PROTECTION ENABLED9 •9,1 ]| | halt } }

-

;;;; COPY & PASTE IN => REMOTES ;;;;

#Emotion-Flood on

on *:TEXT:*:#: {

/MSNemotionsFlood $nick $msn.get($cid,fullroom) $1-

}

on *:ACTION:*:#: {

/MSNemotionsFlood $nick $msn.get($cid,fullroom) $1-

}

on *:CTCPREPLY:*:#: {

/MSNemotionsFlood $nick $msn.get($cid,fullroom) $1-

}

on *:NOTICE:*:#: {

/MSNemotionsFlood $nick $msn.get($cid,fullroom) $1-

}

alias -l MSNemotionsFlood {

if ($nick == $me) { halt }

elseif ($calc($wildtok($3-,*,0,41) + $wildtok($3-,*,0,58) - $wildtok($3-,:,0,41)) > 25) {

/kick $2 $1 
.::: |[ Emotion Bomb Detected ]| :::.

/access $2 add deny $address 0 :$msn.decode($nick) Emotion Flooded @ $time On $date Banned By $msn.decode($me)

/halt

}

}

#Emotion-Flood end

;;;; WHAT THIS CODE DOES?! => BANS USER WHO FLOODS WITH EMOTIONS OF ANY TYPE, MORE THEN 25 OR +, BUT YOU CAN CHANGE FIGURE TO SUIT YOUR NEEDS ;;;;

;;;; CREDITS => DANGER & BOUNCER - DESIGNED SPECIALLY FOR VINCULA NEO V4.9 ;;;;

;;;;; MSN => [email protected] ;;;; (Usmani)

;;;;; MSN => [email protected] ;;;; (Kamran)

;;;; UNLIKE NO OTHER EMOTION FLOOD PROTECTION YOU SEEN BEFORE! THAT USUALLY TAKE UP THE WHOLE PAGE o_O ;;;

Heavy protz dude by far the best i have used

/* para que usa $chr(10) cuando se puede usar $cr, si el codigo va a estar dentro del ciclo "while ($sockbr > 0) {" para que usar esto:

$+(JOIN $msn.get($gettok($sockname,3,46),fullroom)) = Join $3

$+(ACCESS $msn.get($gettok($sockname,3,46),fullroom) = Access $3

[.....]

$gettok(%read,4-5,32) = $4 $5

$gettok(%read,4,32) = $4

para que tanto codigo ? :S */

to much as to be edited to even make vincula connect....id advise using another connection

there are already good modified connections out there of vincula. E.G. Vincula EZR and Vincula 4.9r. But it is true that there is no offical release of a proper vincula, so in the case of a switch over, i'd go for ClearMSN.