Advertisement
Guest User

Untitled

a guest
Jun 24th, 2017
60
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.15 KB | None | 0 0
  1. lias chanhalt {
  2. if ((($1 == #Innocence) || ($1 == #L) || ($1 == #Hi) || ($1 == #Chill) || ($1 == #Grr) || ($1 == #Bots) || ($1 == #Administration)) && ($me != Grr)) || (($1 == #BlueBNC) || ($1- == #xbnc)) { return $true }
  3. else return $false
  4. }
  5.  
  6.  
  7. alias cc1 return $+($chr(3),01,$1-)
  8. alias cc2 return $+($chr(3),10,$1-)
  9. on *:part:#: if ($nick == $me) remini chans.ini $chan
  10. on *:invite:#: {
  11. if ($me == Dropparty) { halt }
  12. if (%blackl [ $+ [ $chan ] ] == yes) { .notice $Nick Cannot join, channel is blacklisted! Reason: %blackreason [ $+ [ $chan ] ] $3- | halt }
  13. if ($me == Grr) {
  14. if (!$readini(chans.ini,$chan,nick)) {
  15. var %c $gettok([01] [02] $null,$r(1,3),32)
  16. .notice Grr $+ %c JOIN $chan
  17. msg #V $cc1( •••) $cc1($chr(40)) $+ $cc2(INVITE) $+ $cc1($chr(41)) $cc1(I was invited to) $cc2($chan) $cc1(by) $cc2($nick) $+ $cc1(.) $cc1(I sent:) $cc2(Grr $+ %c)
  18. set %j $+ $chan $nick
  19. }
  20. else msg #Administration $cc1( •••) $cc1($chr(40)) $+ $cc2(INVITE) $+ $cc1($chr(41)) $cc2($nick) $cc1(tried inviting me to) $cc2($chan) $cc1(but) $cc2($readini(chans.ini,$chan,nick)) $cc1(was already on the channel.)
  21. }
  22. }
  23. on *:notice:JOIN *:?: {
  24. if ($me == Dropparty) { halt }
  25. if ($nick == Grr) {
  26. if ($chan(0) == 30) || ($me ison $2-) $iif($me !ison $2-,.notice Grr REJOIN $2-)
  27. else $1-
  28. }
  29. }
  30. on *:notice:REJOIN *:?: {
  31. if ($me == Dropparty) { halt }
  32. if ($me == Grr) {
  33. .notice Grr $+ $gettok([01] [02] $null,$r(1,3),32) JOIN $2-
  34. }
  35. }
  36. on *:join:#: {
  37. if ($chan == #Bots) { halt }
  38. if ($me != Grr) { halt }
  39. if ($nick == $me) && (!$chanhalt($chan)) {
  40. msg # 1••• (10JOIN1):10 $me 1bot has joined $chan - Bot tag:10 $right($iif($me == Grr,[00],$me),4) - 1Made by: 10Omg1 - Invited by:10 $iif(%j [ $+ [ $chan ] ],$v1,[Auto-Join]) 1- Any problems? Join #Innocence to tell us! 1- Try out DropParty 10/invite dropparty $chan 1-
  41. if ($($+(%,j,$chan),2)) unset %j $+ $chan
  42. writeini chans.ini $chan nick $me
  43. }
  44. }
  45.  
  46.  
  47. ;============= add -> if ($chanhalt($chan)) halt <- To the beginning of all scripts that are used on multiple bots.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement