All pastes #244685 Raw Edit

Miscellany

public text v1 · immutable
#244685 ·published 2006-11-10 01:50 UTC
rendered paste body
on *:TEXT:!setpcw*:#: {
  if ($chan != #thepc.staff) { notice $nick You need to be on the staff channel to set the world! | halt } else {
    if ($nick isop #thepc.staff) || ($nick ishop #thepc.staff) {
      set %pcc $ctime
      set %pc $2-
      set %pcwnick $nick
      msg #test 12[3PC-World Update12] 12Type 3"!pcw" 12(3 $+ $nick $+ 12)
} } }
---------------

on *:TEXT:!pcw*:#: { inc %pcwcount | notice $nick 12[3The Pest Control World is %pc $+ .12] 12[3Set by: %pcwnick $duration($calc($ctime - %pcc)) ago. $+ 12] 12[3The !pcw command has been used %pcwcount times. $+ 12] }
on *:TEXT:!world*:#: { inc %pcwcount | notice $nick 12[3The Pest Control World is %pc $+ .12] 12[3Set by: %pcwnick $duration($calc($ctime - %pcc)) ago. $+ 12] 12[3The !pcw command has been used %pcwcount times. $+ 12] }
---------------


on *:TEXT:!global*:#:{ if ($nick isop #thepc.staff) || ($nick ishop #thepc.staff) {
  /amsg 12[3Global Message by $nick $+ 12] $2- }
  else { notice $nick Your not a BotOper! } }
---------------


Channel Join/Part:
on *:text:!pjoin*:#:{ if ($nick isop #thepc.staff) || ($nick ishop #thepc.staff) { join $2 } else { notice $nick You aren't a BotOper! } }
on *:text:!ppart*:#:{ if ($nick isop #thepc.staff) || ($nick ishop #thepc.staff) { part $2 Bot parted by $nick } else { notice $nick You aren't a BotOper! } }
---------------

Nick Count in a Channel:
on *:text:!ncount*:#:{ if ($nick isop #thepc.staff) || ($nick ishop #thepc.staff) {
    msg # 12The current amount of users on $2 is:1 (3 $nick($2,0) 1)
  }
  else {
notice $nick You aren't a BotOper! } } 
---------------

Bot Info Script:
on *:text:!binfo:#:{ if ($nick isop #thepc.staff) || ($nick ishop #thepc.staff) {
    msg # The mIRC program is currently 12[ $+ $appstate $+ ].
    msg # I am on 12[ $+ $chan(0) $+ ] Channels. 12[ $+ $query(0) $+ ] Open Querys.
    msg # Using 12[ $+ $os $+ ]. My Titlebar 12[ $+ $titlebar $+ ]. mIRC Version 12[ $+ $version $+ ]
  }
  else {
notice $nick You aren't a BotOper! } } 
---------------

on *:text:!pest*:#: { if ($2 isnum 20-99) { notice $nick At level $2 you will get $calc( $2 * $2 /6 ) experience for 1 point and $calc( ( $2 * $2 /6/10*100 )+ $2 * $2 /6 *100 ) experience for 100 points. } }
---------------

Teh Super Calculator:
on *:text:!calc*:#:{ if ($2 == $null) { 
    notice $nick 3Error - You Didn't Specify An Equasion To Solve | halt
  }
  else {
notice $nick 12 $2- 3 $calc($replace($2-,k,000,m,000000,c,00) $2- )) } }
---------------

Suggest A World: 
(Command)
on *:text:!suggest*:#:{ if ($3 == $null) { notice $nick You did not suggest a reason why, therefore your suggestion has been ignored. | halt } else {
    msg #thepc.staff 12|World Suggestion| 3From:12 $nick 3World:12 $2 3Why:12 $3- 1| 7If this is abuse, type 4"3!asaw $nick $+ 4" 7in here and it will kick. (3 Kicks = Ban)1 |
    notice $nick Thank you for your suggestion, we will look into it.
} }
(Abuse Kicker)
on *:TEXT:!asaw*:#thepc.staff:{
  if ($nick isop #thepc.staff) || ($nick ishop #thepc.staff) {
    if (!$($+(%,sawkick.,$2),2)) {
      /set $+(%,sawkick.,$2) 1
      /kick #thepc $2 4Don't abuse the Suggest-A-World command! (1/3 Warnings)
    }
    elseif ($($+(%,sawkick.,$2),2) == 1) {
      /inc $+(%,sawkick.,$2)
      /kick #thepc $2 4Don't abuse the Suggest-A-World command! (2/3 Warnings)
    }
    elseif ($($+(%,sawkick.,$2),2) == 2) {
      /mode #thepc +b $address($2,2) | /kick #pc-hq $2 4Don't abuse the Suggest-A-World command! (3/3 Warnings)
    /unset $+(%,sawkick.,$2) }
  }
} 

!tb Nick Time Reason..TimeBan Nick for TimeInMinutes Reason:
on *:text:!tb*:#:{ if ($2 isop $chan) || ($2 ishop $chan) {
    notice $nick I have been forbidden to use this command on Operators and Half-Operators!
    halt 
  } 
  else {
    if ($nick isop $chan) || ($nick ishop $chan) || ($2 == Jereh) { 
      inc %kcount 
/ban -ku $+ $calc( $3 * 60 ) $chan $2 2 7 Reason: $4- 1- 11 $3 Minute Ban 1- 12Noobs Pwnt: 1(4 %kcount 1) } } }


Partall Channel Kicker:
on *:text:*:#: {
  var %regex = /#[^,]*,0/
  if ($regex($1-,%regex)) kick $chan $nick 1- 12Do NOT try and make people part channels!1 -
} 
---------------