From: scott@sfi.santafe.edu (Scott D. Yelich)
Subject: Re: baloo.doc..how to create a bot!
Date: Mon, 09 Nov 92 05:20:12 GMT
Organization: Santa Fe Institute

> Does anybody still have the original how to make a baloo bot style
> ehhehe bot available...if you do could you e-mail it to me.
> I'd like to see what the big fuss is all about...
>  --Eli
> Riesgo on IRC
> P.S. dont worry..my bot is probably and surely more advanced than
> any baloobot slapped together with one's .ircrc file....just
> curious as what to this moronic fool told the kiddies...so I can
> laugh my ass off too!!!!!!
> HA! thanks again! 

Um, yeah, I have your bot up for FTP.  *GRIN*

Here, I think this came from baloo version .01-- The high level code
at the right has been kept intact for proper translation into IRC][
script.

sub AdminOP {					# +o my Admin and -o others.
  local($_, $type, $showtype, $who, $how);	#  Locals.
  local($text, $string, $words, @words);	#  Locals.
  local($delay);				#  Locals.
  if (@_) {					#  Passed?
    $type = shift;				#   TYPE = first,
    $string = "@_";				#   STRING = rest.
    $string =~ s/(\W)/\\\1/g;			#   Protect characters.
  } else {					#  Nothing passed?
    $_=$V{'WHAT'};				#   temp = WHAT.
    $type=$V{"Admin-{$_}"} ||			#   Use type for WHAT, else
      $V{'Admin-{}'};				#   Use Default type.
  }						#  End.
  if ($V{'A.Types'} =~ /[+]?[$type,\*]+/	#  If type is allowed and
   && $V{'A.Types'} !~ /\-[$type,~]+/) {	#  If type not disallowed:
    $who = $V{"Admin-($type)"}			#  Send to
     || $V{'Admin-()'};				#   default.
    for (split(/ /, $who)) {			#   For each A...
      next if (($V{"Admin-$_.Types"} =~		#   Skip if type
       /\-[$type,~]+/) && ($type ne '!'));	#     not wanted, type not "!".
      next if (($V{"Admin-$_.Status"} =~	#   Skip if status
       /Away/) && ($type ne '!'));		#     is /Away/, type not "!".
      if ($V{"Admin-$_.Types"} =~		#   If wanted
       /[+]?[$type,\*]+/ || $type eq "!" ) {	#     these this type:
        $showtype = ($V{"Admin-$_.Types"} =~	#    Show the TYPE
         /\*/) ? "$type" : '';			#      if want type *.
	$words = $V{"Admin-$_.\[$type\]"}	#   Send WORDS = NICK-TYPE?
         || $V{"A.\[$type\]"}			#     TYPE?
         || $V{'A.[]'};				#     Default.
        $words = eval "\"$words\"";		#   Substitute in vars ...
	$text = "$string"			#   Send TEXT = STRING?
         || $V{"Admin-$_.<$type>"}		#     NICK-TYPE?
         || $V{"A.<$type>"}			#     TYPE?
         || $V{"A.<>"};				#     Default.
        $text = eval "\"$text\"";		#   Substitute in vars.
	$words =~ s/~/$text/ge;			#   put TEXT in Words
        $words =~ s/(\W)/\\\1/g;		#   Protect characters.
        @words = split(/ /, $words);		#   Separate via SPACEs.
        $delay = $V{"Admin-$_.SendDelay_$type"}	#   Delay is nick_type?
         || $V{"A.SendDelay_$type"}		#     default_type?
	 || $V{"A.SendDelay"};			#     default.
        $string="&Send(\"$words[$[] $_ ";	#   Feedback is PROTOCOL Nick +
        $string.="$showtype ";			#     show type?
        $string.="@words[$[+1..$#words]\n\");";	#     rest of message.
        &Q($delay, $string);			#   Queue it with D.
      }						#   End.
    }						#  End.  
  }						#  End.
}						# Exit.


Hmmm, perhaps I oughtta post source for death or medussa.  Naw, I
liked baloobot-- it was fun to play with.  ELF, ah... more fun.  Ciao!
Who was it that wanted everyone to have the same bot?  Drop me a line.

Scott


Newsgroups: alt.irc