All pastes #626776 Raw Edit

Something

public text v1 · immutable
·published 2007-07-19 21:33 UTC
rendered paste body
on $*:TEXT:/^[!@~.]s(et)?v(et)?/Si:#rips,#rips.staff:{
  if ($nick isop $chan || $nick ishop $chan) && ($2 isnum 2-144) { 
    writeini -n Rips.ini V W $2 $nick $ctime
    if ($me isop $chan || $me ishop $chan) { msg +#rips 10The Current 7Pest-Control 10World has been Updated for 7Veterans }
  } 
  elseif ($2 !isnum 2-144) { notice $nick The world has to be between 2 and 144 } 
}
on $*:TEXT:/^[!@~.]s(et)?n(ov)?/Si:#rips,#rips.staff:{
  if ($nick isop $chan || $nick ishop $chan) && ($2 isnum 2-144) { 
    writeini -n Rips.ini N W $2 $nick $ctime
    if ($me isop $chan || $me ishop $chan) {
      msg #rips 10The Current 7Pest-Control 10World has been Updated for 7Novice
      .timerRIPS 0 25 /msg #rips 7The Current 4Pest-Control7 Worlds are 4[12 40+: $2 4] [12 70+: $gettok($readini(Rips.ini,-n,I,W),1,32) 4]  
    }
  } 
  elseif ($2 !isnum 2-144) { notice $nick The world has to be between 2 and 144 } 
}
on $*:TEXT:/^[!@~.]s(et)?i(nt)?/Si:#rips,#rips.staff:{
  if ($nick isop $chan || $nick ishop $chan) && ($2 isnum 2-144) { 
    writeini -n Rips.ini I W $2 $nick $ctime
    if ($me isop $chan || $me ishop $chan) {
      msg #rips 10The Current 7Pest-Control 10World has been Updated for 7Intermediate.
      .timerRIPS 0 25 /msg #rips 7The Current 4Pest-Control7 Worlds are 4[12 40+: $gettok($readini(Rips.ini,-n,N,W),2,32) 4] [12 70+: $2 4]  
    }
  } 
  elseif ($2 !isnum 2-144) { notice $nick The world has to be between 2 and 144 } 
}
on $*:TEXT:/^[!@]v(et(eran)?)?/Si:#rips,#rips.staff:{
  if ($nick !isreg $chan) && ($me isop $chan || $me ishop $chan) {
    tokenize 32 $readini(Rips.ini,-n,V,W)
    notice $nick 14[10Current:7 $1 14][10Updated:7 $duration($calc( $ctime - $3 )) 10ago 14][10Set By:7 $2 14][10Suggested:7 $readini(Rips.ini,-n,V,S) 14]  
  } 
}
on $*:TEXT:/^[!@.]sug(g(est)?)?/Si:#rips,#rips.staff:{ 
  if ($2 isnum 2-144) { 
    if ($3 == v && $nick !isreg $chan) { writeini -n Rips.ini V S $2 }
    elseif ($3 == i) { writeini -n Rips.ini I S $2 }
    elseif ($3 == n) { writeini -n Rips.ini N S $2 }
    else { 
      notice $nick Invalid Format: $1 WORLD [v|i|n] REASON - Example: $1 2 v High Levels
      halt
    }
    if ($me isop $chan || $me ishop $chan) {
      notice $nick Thank you for your suggestion (World: $2 Boat: $3 Reason: $iif($4,$4-,None) $+ )
      msg #rips.staff 4 $+ $nick 2has Suggested for boat7 $3 $+ :4 $2 7• 2Reason:4 $iif($4,$4-,None) 7• 2Follow this by typing 4!accept $+ $3, 2if Abused type:4 !abuse $nick $+ .
    }
  }
}
on $*:TEXT:/^[!@.]acceptv/Si:#rips.staff:{
  if ($nick isop $chan || $nick ishop $chan) {
    writeini -n Rips.ini V W $readini(Rips.ini,-n,V,S)
    remini -n Rips.ini V S 
    if ($me isop $chan || $me ishop $chan) { msg +#rips 10The Suggested World for 7Veterans 10has Been Accepted }
  }
}
on $*:TEXT:/^[!@.]accepti/Si:#rips.staff:{
  if ($nick isop $chan || $nick ishop $chan) {
    writeini -n Rips.ini I W $readini(Rips.ini,-n,I,S)
    remini -n Rips.ini I S
    if ($me isop $chan || $me ishop $chan) {
      msg #rips 10The Suggested World for 7Intermediate 10has Been Accepted
      .timerRIPS 0 25 /msg #rips 7The Current 4Pest-Control7 Worlds are 4[12 40+: $readini(Rips.ini,-n,N,W) 4] [12 70+: $readini(Rips.ini,-n,I,W) 4]
    }
  }
}
on *:TEXT:!acceptnov*:#rips.staff:{
  if ($nick isop $chan || $nick ishop $chan) {
    writeini -n Rips.ini N W $readini(Rips.ini,-n,N,S)
    remini -n Rips.ini N S
    if ($me isop $chan || $me ishop $chan) {
      msg #rips 10The Suggested World for 7Novice10 has Been Accepted
      .timerRIPS 0 25 /msg #rips 7The Current 4Pest-Control7 Worlds are 4[12 40+: $readini(Rips.ini,-n,N,W) 4] [12 70+: $readini(Rips.ini,-n,I,W) 4]
    } 
  }
}
on $*:TEXT:/^[!@.]new/Si:#rips,#rips.staff:{
  if ($nick isop $chan || $nick ishop $chan) { msg #rips 7Want a new world? 4Suggest3 one by typing !suggest 4WORLD 7[v|i|n] 3REASON }
}
on $*:TEXT:/^[!@.]abuse/Si:#rips.staff:{
  if ($2 isop #rips || $2 ishop #rips) { notice $nick I have been forbidden to use this command on Operators and Half-Operators! } 
  elseif ($nick isop $chan || $nick ishop $chan) { ban -ku320 #rips $2 2 10Dont abuse the suggest system next time 7(4 min ban }
}