G2A Many GEOs
SHARE
TWEET

Note System (FOR BOT)

Seb Jun 13th, 2010 (edited) 298 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
Ledger Nano X - The secure hardware wallet
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top