daily pastebin goal
40%
SHARE
TWEET

Note System (FOR BOT)

Seb Jun 13th, 2010 (edited) 278 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ###################################
  2. # Note System Coded By xplorer    #
  3. # lemery.sebastien@gmail.gom      #
  4. #         #mircscripting          #
  5. #        irc.undernet.org         #
  6. ###################################
  7. ON *:TEXT:!addnote *:#:{
  8.   if ($nick isop $chan || $istok(%noteadmin,$address($nick,2),32) || $istok(%superadmin,$address($nick,2),32)) {
  9.     if ($($+(%,info,$2),2)) {
  10.       msg $chan Information for $2 is already registered!
  11.     }
  12.     else {
  13.       set $+(%,info,$2) $3- (Added By: $fulladdress On: $fulldate $+ )
  14.       msg $chan Informations 9ADDED!
  15.     }
  16.   }
  17.   else {
  18.     msg $chan $nick You need @ to !ADDNOTE
  19.   }
  20. }
  21. ON *:TEXT:!remnote *:#:{
  22.   if ($nick isop $chan || $istok(%noteadmin,$address($nick,2),32) || $istok(%superadmin,$address($nick,2),32)) {
  23.     if ($($+(%,info,$2),2)) {
  24.       unset $+(%,info,$2)
  25.       msg $chan Informations 4DELETED!
  26.     }
  27.     else {
  28.       msg $chan $nick Information for $2 does not exist!
  29.     }
  30.   }
  31.   else {
  32.     msg $chan $nick You need @ to !REMNOTE
  33.   }
  34. }
  35. ON *:TEXT:!note *:#:{
  36.   if ($nick isop $chan || $istok(%noteadmin,$address($nick,2),32) || $istok(%superadmin,$address($nick,2),32)) {
  37.     if ($($+(%,info,$2),2)) {
  38.       msg $chan Info for $+($2,:) $ifmatch
  39.     }
  40.     else {
  41.       msg $chan * $+ $nick $+ * I have nothing in the database for $2
  42.     }
  43.   }
  44. }
  45. on *:TEXT:!notecount:#:{
  46.   if ($nick isop $chan || $istok(%noteadmin,$address($nick,2),32) || $istok(%superadmin,$address($nick,2),32)) {
  47.     msg $chan $var(%info*,0)
  48.   }
  49. }
  50. on *:TEXT:!remallnote:#:{
  51.   if ($istok(%noteadmin,$address($nick,2),32) || $istok(%superadmin,$address($nick,2),32)) {
  52.     unset %info*
  53.     msg $chan $nick all notes have been erased!
  54.   }
  55.   else {
  56.     msg $chan $nick you cannot use this command!
  57.   }
  58. }
  59. on *:TEXT:!addnoteadmin *:#:{
  60.   if ($istok(%superadmin,$address($nick,2),32)) {
  61.     if (!$istok(%noteadmin,$2,32)) {
  62.       set %noteadmin $addtok(%noteadmin,$2,32)
  63.       msg $chan $nick $2 has been added to Note Admins!
  64.     }
  65.     else {
  66.       msg $chan $nick $2 is already added to Note Admins!
  67.     }
  68.   }
  69.   else {
  70.     msg $chan $nick you cannot use this command!
  71.   }
  72. }
  73. on *:TEXT:!delnoteadmin:#:{
  74.   if ($istok(%superadmin,$address($nick,2),32)) {
  75.     if ($istok(%noteadmin,$2,32)) {
  76.       set %noteadmin $deltok(%noteadmin,$2,32)
  77.       msg $chan $nick $2 has been deleted from Note Admins!
  78.     }
  79.     else {
  80.       msg $chan $nick $2 is not in Note Admins!
  81.     }
  82.   }
  83.   else {
  84.     msg $chan $nick you cannot use this command!
  85.   }
  86. }
  87. on *:TEXT:!noteshow:#:{
  88.   if ($nick isop $chan || $istok(%noteadmin,$address($nick,2),32) || $istok(%superadmin,$address($nick,2),32)) {
  89.     if ($var(%info*,0) > 0) {
  90.       var %i = $var(%info*,0)
  91.       var %j = 1
  92.       while (%j <= %i) {
  93.         set %allinfo $iif($(%allinfo),$(%allinfo) -,$null) $remove($var(%info*,%j),$(%info,0))
  94.         inc %j
  95.       }
  96.       msg $chan Notes are added for %allinfo $+ .
  97.       unset %allinfo
  98.     }
  99.     else {
  100.       msg $chan $nick I have no notes added!
  101.     }
  102.   }
  103. }
  104. ON *:TEXT:!modnote *:#:{
  105.   if ($nick isop $chan || $istok(%noteadmin,$address($nick,2),32) || $istok(%superadmin,$address($nick,2),32)) {
  106.     if ($($+(%,info,$2),2)) {
  107.       set $+(%,info,$2) $3- (Modified By: $fulladdress On: $fulldate $+ ) $chr(124) $($+(%,info,$2),2)
  108.       msg $chan Informations 9MODIFIED!
  109.     }
  110.     else {
  111.       msg $chan $nick Information for $2 does not exist, Use !addnot instead!
  112.     }
  113.   }
  114.   else {
  115.     msg $chan $nick You need @ to !MODNOTE
  116.   }
  117. }
  118. on *:TEXT:!notehelp:#:{
  119.   if ($nick isop $chan || $istok(%noteadmin,$address($nick,2),32) || $istok(%superadmin,$address($nick,2),32)) {
  120.     notice $nick You NEED to be 4@(op) in the channel to use the note system.
  121.     .timer -m 1 500 notice $nick Type 4!ADDNOTE <Username> Make Sure your adding the username 4*NOT4* The nickname
  122.     .timer -m 1 1000 notice $nick Here is an example
  123.     .timer -m 1 1500 notice $nick !ADDNOTE 4Username 9(Added/Suspended/deleted/modified) user to level 7<level>
  124.     .timer -m 1 2000 notice $nick Type 4!MODNOTE <Username> To Add a note.
  125.     .timer -m 1 2500 notice $nick Type 4!REMNOTE <Username> To Delete.
  126.     .timer -m 1 3000 notice $nick Type 4!NOTE <Username> To Check the infos.
  127.     .timer -m 1 3500 notice $nick Type 4!NOTESHOW To Show Usernames that have infos.
  128.     .timer -m 1 4000 notice $nick Type 4!REMALLNOTE To Delete all notes.
  129.     .timer -m 1 4500 notice $nick Type 4!NOTECOUNT To See the number of notes.
  130.   }
  131. }
  132.  
  133. on *:LOAD:{
  134.   echo -a 4» »08 Note System Script Successfully Loaded.
  135.   echo -a 4» »08 Copyright © 200915 http://xplorer.mircscripting.info
  136.   echo -a 4» »08 Written by: 15 xplorer 08 Email: 15 xplorer@live.ca
  137. }
RAW Paste Data
Top