- raw 439:*: {
- .timers off
- .timer 1 1200 haps
- }
- alias haps {
- .enable #Qfastinvite
- var %x = 1
- var %counter = 1
- .timer 1 $calc(20 * $lines(fastinvite.txt) + 60) echo -s END OF LIST
- .timer 1 $calc(20 * $lines(fastinvite.txt) + 60) .disable #Qfastinvite
- .timer 1 $calc(20 * $lines(fastinvite.txt) + 60) unset %fast.*
- while (%x <= $lines(fastinvite.txt)) {
- if (!$read(isinvite.txt,w,$read(
- fastinvite.txt,%x))) {
- .timer 1 $calc(20 * %counter) .msg q whois $chr(35) $+ $read(fastinvite.txt,%x)
- inc %counter
- }
- inc %x
- }
- }
- alias fastinvite {
- write -c fastinvite.txt
- set %fast.channel $chan
- set %fast.msg $1-
- set %fast.dump 1
- .enable #Qfastinvite
- .msg q chanlev $chan
- }
- #Qfastinvite on
- alias go.invite {
- if ($comchan($1,0) == 0) {
- .msg $1 %fast.msg
- invite $1 %fast.channel
- echo -s $timestamp $1 [priv]
- }
- else {
- var %x = 1
- while (%x <= $comchan($1,0)) {
- if ($me !isreg $comchan($1,%x)) {
- .cprivmsg $1 $comchan($1,%x) %fast.msg
- invite $1 %fast.channel
- echo -s $timestamp $1 [cpriv]
- break
- }
- if (%x == $comchan($1,0)) {
- .msg $1 %fast.msg
- invite $1 %fast.channel
- echo -s $timestamp $1 [priv]
- }
- inc %x
- }
- }
- }
- on ^*:NOTICE:*:*: {
- if ($nick == Q) {
- haltdef
- if (-Information for account isin $1-) { set %go.user $left($4,-1) }
- if ($nick == Q && $1 == Account) {
- if ($4 ison %fast.channel) {
- write isinvite.txt %go.user
- }
- elseif ($4 != (none) && !$read(isinvite.txt,w,%go.user)) {
- go.invite $4
- write isinvite.txt %go.user
- }
- }
- elseif ($nick == Q && %fast.dump == 1) {
- if ($1 == Total:) {
- ; .disable #Qfastinvite
- unset %fast.dump
- haps
- }
- elseif (+ isin $1- && b !isin $2) {
- write fastinvite.txt $1
- }
- }
- }
- }
- #Qfastinvite end
By: Guest | Date: Oct 18 2022 15:37 | Format: None | Expires: never | Size: 1.93 KB | Hits: 195
Latest pastes
17 hours ago
19 hours ago
23 hours ago
2 days ago
2 days ago