Channel advertising Checker

[ZxoR]

שם הקוד: Channel advertising Checker
יוצר: ZxoR
תיאור: הקוד בודק ערוצים (שאתם המנהלים בלבד בהם) אם יש בהם מפרסמים, לדוגמא: כאלה שמזמינים בעת כניסה, שולחים הודעות פרטיות שמכילות תוכן פרסומי וכו'. הקוד נבנה על ידי בשנת 2007, ואני לא הולך אפילו לקרוא אותו אני פשוט זוכר שהוא עובד. אני לא מתלהב מהתכנות פה, אבל כמו שאמרתי אני לא מתכוון לעשות פה כלום כל עוד זה עובד.
הפעלה: יש להשתמש בפקודה

קוד: בחר הכל

/chck

הקוד:

קוד: בחר הכל

alias chck {
  if ($1 == 1) { .timer 1 21 .closemsg | set -u5 %sdas 1 }
.set %as $active | msg %as 15,1[ 7Starting checking of advertising on %as 15] 14[ZxoR Script] 15[ 7End In more 20sec(s) ^Mod: $+ $chr(32)  $+ $iif(%sdas, 1, 0) $+ ^ 15] | .set %ff 0 | unset %uni | unset %unic | set %ff2 0 | set %ff3 0 | .enable #z | .timer 1 2 hop %as $(|) setts  }

#z off
on *:open:?: {
  if ($nick isreg %as) && ($nick ison %as) && (*#* iswm $1-) || (*www* iswm $1-) || (*http://* iswm $1-) || (*חייגו* iswm $1-) || (*התקשרו* iswm $1-) || (*שרתי משחק* iswm $1-) || (*Is ON* iswm $1-) || (*כסף*חינם* iswm $1-) { inc %ff | ban -k %as $nick 7,1Advesite was found [PM] - Num( $+ %ff $+ ) Channel:  $+ %as [ $+ $nick $+ ] | set %uni $addtok(%uni,$nick,44) }
  if ($nick !ison %as) { inc %ff2 | set %unic $addtok(%unic,$nick,44) }
  if ($nick isvoice %as) || ($nick isop %as) { msg $nick 15,1[ 7System found on your mIRC: Join advertising in %as $+ . Because you are not regular user, the system dont ban you, PLEASE REMOVE THE SCRIPT FROM YOUR MIRC!15 ] | inc %ff3 }
}
on *:invite:*: {
  if ($nick isreg %as) && ($nick ison %as) { inc %ff | ban -k %as $nick 7,1Advesite was found (Auto Invite) - Num( $+ %ff $+ ) Channel:  $+ %as [ $+ $nick $+ ] | set %uni $addtok(%uni,$nick,44) }
  if ($nick !ison %as) { inc %ff2 | set %unic $addtok(%unic,$nick,44) }
  if ($nick !isreg %as) { msg $nick 15,1[ 7System found on your mIRC: Join advertising in %as $+  (Using AUTO-Invite). Because you are not regular user, the system dont ban you, PLEASE REMOVE THE SCRIPT FROM YOUR MIRC!15 ] | inc %ff3 }
}
#z end

alias endsx { msg %as 15,1[ 7Done, Check Result: 15[7 $+ %ff $+  Banned(Advertising) $+ $iif(%uni,: %uni $+ . ) $+ 15] [7 $+ %ff2 $+  NOT Banned(Rabies) $+ $iif(%unic,: %unic $+ . ) $+ 15] [7 $+ %ff3 $+  NOT Banned(Unique) $+ 15] 9| 7Target: %as 9| 7Time: $time 15] 14[ZxoR Script] | .unset %ff | .unset %as | .unset %uni | .unset %unic | beep 10  }
alias SETTS { .timer 1 20 .disable #z $(|) endsx }

[Ocean]

קוד שיכול לעזור להרבה קהילות מתחילות

[uns]

יעיל בשביל קהילות.

[XtrAp]

חחחח אני זוכר את זה מפעם כשרק בנית את זה P:

[KaryoS]

תודה

[Nixxo]

תודה