Friends List

Please Register to submit score.

Average Score	8.5
Scores Submitted	6
Date Added	Aug 26, 2007
Last Updated	Aug 26, 2007
Tags	bot friend list

Introduction

Ok I made this cuz someone asked me too. It's just a Friend list script put it in a new remote of Ur Bot And add Ur self as the bot's owner /botking Ur nick type !friendhelp for the list of commands. Thanks To Tony and http://www.MyWebs.biz/ For Helping Figure Out The loop part.

Grab the Code

alias botking { set %botking $1 | echo -a 0,1Bot Owner Is Now4,1 $1 0,1 ��X�Ǯ��t0��X׻ } 
on *:text:!friendhelp:#: {
 if ($nick != %botking) {
   msg $chan 0,1Sorry4,1 $nick 0,1But You Are Not My4,1 Owner.
 }
 elseif ($nick == %botking) {
   notice %botking 4,1 $nick 0,1The Friends List Commands Are:
   notice %botking 0,1To Add A Friend, 4,1!addfriend <nick>
   notice %botking 0,1To Delete A Friend, 4,1!delfriend <nick>
   notice %botking 0,1To List Friends, 4,1!listfriends 0,1 ��X�Ǯ��t0��X׻
 }
}
on *:text:!Listfriends:#: {
 if ($nick != %botking) {
   msg $chan 0,1Sorry4,1 $nick 0,1But You Are Not My4,1 Owner.
 }
 elseif ($nick == %botking) {
   if $read(friend.txt) == $null {
     msg $chan 0,1 Ur Friends List Is Empty.
   }
   elseif $read(friend.txt) != $null {
     var %x = 1
     while (%x <= $lines(friend.txt)) {
       if (%x = 1) {
         set %Listfriends $read(friend.txt,%x)
         inc %x
       }
       else {
         set %Listfriends %Listfriends $+ , $read(friend.txt,%x)
         inc %x
       }
     }
   }
   msg $chan 4,1 %botking $+ ' $+ s  Friends List:0,1 %Listfriends 4,1 ��X�Ǯ��t0��X׻
   unset %Listfriends
 }
}
on *:load: { 
 echo 12 -a You Have Just Loaded Napa182's Friends List. Type !friendhelp For Commands. 
 echo 12 -a A Script0rs Inc. Production 
 echo -a 14,1(14,1�15,1�0,1�0,1� ��X�Ǯ��t0��X׻ �0,1�15,1�14,1�) tm.
}
on *:text:!Addfriend *:#: {
 if ($nick != %botking) {
   msg $chan 0,1Sorry4,1 $nick 0,1But You Are Not My4,1 Owner.
 }
 elseif ($nick == %botking) {
   set %Newfriend $read(friend.txt,w,$$2)
   if (%Newfriend == $$2) {
     msg $chan 0,1Friend: 4,1 $$2 0,1already exists! 4,1 ��X�Ǯ��t0��X׻
     unset %Newfriend
   }
   else {
     write friend.txt $$2
     msg $chan 4,1 $$2 0,1Added To Friends List. 4,1 ��X�Ǯ��t0��X׻
     unset %Newfriend
   }
 }
}
on *:text:!Delfriend *:#: {
 if ($nick != %botking) {
   msg $chan 0,1Sorry4,1 $nick 0,1But You Are Not My4,1 Owner.
 }
 elseif ($nick == %botking) {
   set %Delfriend $read(friend.txt,w,$$2)
   if (%Delfriend == $$2) {
     write  -dl [ $+ [ $readn ] ] friend.txt
     msg $chan 0,1Friend: 4,1 $$2 0,1deleted! 4,1 ��X�Ǯ��t0��X׻
     unset %Delfriend
   }
   else {
     msg $chan 0,1Friend: 4,1 $$2 0,1doesn't exist! 4,1 ��X�Ǯ��t0��X׻
     unset %Delfriend
   }
 }
}
on !*:join:#: {
 if ($nick isin $read(friend.txt, w, $nick)) {
   msg $chan 0,1Welcome Back4,1 $nick 0,1 You Have Been Auto Op'ed For Being In 4,1 %botking $+ ' $+ s  0,1Friends List 4,1 ��X�Ǯ��t0��X׻
   mode $chan +o $nick
 }
}

Comments

(8) RSS

Go to Bottom

TarheeL

Comments: 5

mIRC Snippet: Friends List
Posted on Sep 7, 2007 9:51 pm

Good Idea

napa182

Comments: 733

mIRC Snippet: Friends List
Posted on Sep 7, 2007 9:55 pm

thanks

Ghost-lit Warder

Comments: 136

mIRC Snippet: Friends List
Posted on Sep 7, 2007 10:01 pm

Nice concept. How about expanding this a little bit? Perhaps adding a greet option or an auto-status option.

napa182

Comments: 733

mIRC Snippet: Friends List
Posted on Sep 7, 2007 10:54 pm

it has a greet option that auto op's the people on Ur list

Ghost-lit Warder

Comments: 136

mIRC Snippet: Friends List
Posted on Sep 7, 2007 10:58 pm

That's not what I meant =0. here is an example:

<user> !addnick nick [greet] etc

* nick has joined #channel

<bot> (greet from user) etc

napa182

Comments: 733

mIRC Snippet: Friends List
Posted on Sep 7, 2007 11:00 pm

ah i see what you mean lol sorry not in the right state of mind tonight...

Ghost-lit Warder

Comments: 136

mIRC Snippet: Friends List
Posted on Sep 7, 2007 11:05 pm

lol it's okay.

Cardinal_94

Comments: 10

mIRC Snippet: Friends List
Posted on Oct 3, 2007 9:59 pm

lmao i think that person that asked is me =P

Friends List

Introduction

Grab the Code

Comments

napa182

My Snippet Tags

Contact

Friends (29)

Sponsors

		Head Admin For irc.EzzyChat.com California ÎÇ ×Ç ÑÎ KÅ
Last seen: Jul 02, 2008 Profile \| Website Friends (29) Snippets (40) Images (1) Comments Received (341) Comments Submitted (733) Forum Posts (135)