HomeSearchFiles
User Control Panel
Advertisements

HELP US, HELP YOU!

CKS Juggernaut 3.5
Goto page 1, 2, 3  Next
 
This forum is locked: you cannot post, reply to, or edit topics.   This topic is locked: you cannot edit posts or make replies.    Bot Depot Forum Index -> Archived Bots
View unanswered posts
Author Message
Cer
Upgraded Agent
Upgraded Agent


Joined: 03 Feb 2004
Posts: 3776
Location: Michigan
Reputation: 146.9
votes: 4
PostPosted: Thu Aug 19, 2004 4:45 am    Post subject: Reply with quote
CKS Juggernaut 3.5

QUOTE(Change Log)
3.2 to 3.5
     • Updated AIM handlers. $chaos->{$sn}->{current_user}->{in_chat} will be 1 if the user is in the chat talking to the bot, or 0 if normal IM. Also, $chaos->{$sn}->{current_user}->{chat} will be the $chat object for use elsewhere in the bot.
     • Made some updates to the GUI. Now it should be able to run more smoothly without being as likely to freeze or lag too horribly. Also, I've added a "Bot Data" wizard so you can add, remove, and edit your bots' files from the GUI itself!
     • Updated the !perl command so you are able to use $msn and $chat instead of typing out the full hash paths to those variables.
     • Finally got around to creating a !shop command. There is also !donate and !info that have to do with points too.
     • Made an update to the ChaosML Brain. Now the tag should work correctly (the usage is slightly difference, [s]click here for details...[/s])
     • Added a "settings" folder. Similar to config, except files in there are require'd and executed right away (good for setting hashref variables from the very beginning).
     • Timestamp customization. You can make the bot log times in the format of "Wednesday, August 18 2004 @ 9:21:53 PM" instead of the standard localtime. Customize the format in ./settings/timeformat.pl


So... I added a "Bot Data" wizard to the GUI, so you can add, edit, and remove your bots' files from the GUI. It makes it easy (for me) to generate sample bots now, all I have to do is click "Add Bot", type in a name for the file, and click the listener and it generates a sample template. Very Happy For a screenshot, click here: http://www.aichaos.com/jnaut2.3/botdata.jpg

And, so far it's true that I've fixed the GUI so it runs better (my bot is running on it now, and has been for some time, it's going on 80,000 loops so far). I learned some things from a guy named Matt, he's also making a Tk GUI for his bot (I also learned how to use the tabs too from his code, the Tk examples really sucked)

If you're curious as to what I changed, I changed this:
Code:
$main->after (200, \&loop_bots);

To this:
Code:
$main->update();<br />&loop_bots();


Anyhow... the majority of the changes in this bot are just a couple new nifty features.

And as again, don't reply here with compliments, only with useful posts. You'll make it on my hit list if you don't bother to read this sentence and reply with "Good job!" or something anyway... <_<
_________________
Current Site (2008) http://www.cuvou.com/
Back to top
purcelly
God Like
God Like


Joined: 10 Jun 2004
Posts: 560
Location: North West, England
Reputation: 35.1Reputation: 35.1Reputation: 35.1Reputation: 35.1
PostPosted: Thu Aug 19, 2004 1:09 pm    Post subject: Reply with quote
i have 2 things to say/ask

1- whats an IRC?

2- i have filled out the info for my msn and aim bot but wen i run juggernaut.pl it just closes it self?


help!
Back to top
Cer
Upgraded Agent
Upgraded Agent


Joined: 03 Feb 2004
Posts: 3776
Location: Michigan
Reputation: 146.9
votes: 4
PostPosted: Thu Aug 19, 2004 4:37 pm    Post subject: Reply with quote
QUOTE(purcelly-tech @ Aug 19 2004, 09:09 AM)
i have 2 things to say/ask

1- whats an IRC?

2- i have filled out the info for my msn and aim bot but wen i run juggernaut.pl it just closes it self?


help!

1- whats an IRC?

IRC = Internet Relay Chat, see http://www.irchelp.org/ for more information.

2- i have filled out the info for my msn and aim bot but wen i run juggernaut.pl it just closes it self?

Those batch files (BAT extension, app with a gear icon) are there for a reason. Run Juggernaut.bat to run your bot, it will keep the window open in case of error.

But first, try this:
  • Did you remove the sample bot files you aren't going to use? For example, if you don't want to use IRC, make sure the "SampleIRC.txt" file isn't in your bots folder.
Lots of people just never get it even though I write it in several places that the sample files HAVE to go if you don't use or edit them. All the sample files are just that: Samples! They aren't real names, or passwords, they're just there to show you how to set up your own bots.

Anyway... run it through the batch file, and to copy the errors look at this tutorial I made: http://www.aichaos.com/docs/doscopy.html and copy/paste the errors back here. Smile
_________________
Current Site (2008) http://www.cuvou.com/
Back to top
purcelly
God Like
God Like


Joined: 10 Jun 2004
Posts: 560
Location: North West, England
Reputation: 35.1Reputation: 35.1Reputation: 35.1Reputation: 35.1
PostPosted: Thu Aug 19, 2004 6:46 pm    Post subject: Reply with quote
Quote:
Did you remove the sample bot files you aren't going to use? For example, if you don't want to use IRC, make sure the "SampleIRC.txt" file isn't in your bots folder.

yes i did delete them
Back to top
Zipbob
Newbie
Newbie


Joined: 13 Jul 2004
Posts: 18

Reputation: 22.5Reputation: 22.5
PostPosted: Thu Aug 19, 2004 6:50 pm    Post subject: Reply with quote
Do you sleep between making these bots so fast?

And I don't have anything useful to say
Back to top
jjmeh
Young One
Young One


Joined: 12 Jun 2004
Posts: 70
Location: Australia
Reputation: 24.7Reputation: 24.7
PostPosted: Fri Aug 20, 2004 1:07 am    Post subject: Reply with quote
theres not much changed really, which is why it was released so close to the other one.

Nice work anyway Cer
Back to top
night
Not Yet a God
Not Yet a God


Joined: 06 Jan 2004
Posts: 498

Reputation: 38.4Reputation: 38.4Reputation: 38.4Reputation: 38.4
PostPosted: Fri Aug 20, 2004 9:31 pm    Post subject: Reply with quote
nice as always lol, dont fink ill bother tho Razz ill wait till nxt releace (hopefuly) i still dont understand how the irc commands work :S
Back to top
Cer
Upgraded Agent
Upgraded Agent


Joined: 03 Feb 2004
Posts: 3776
Location: Michigan
Reputation: 146.9
votes: 4
PostPosted: Fri Aug 20, 2004 10:11 pm    Post subject: Reply with quote
QUOTE(night @ Aug 20 2004, 05:31 PM)
nice as always lol, dont fink ill bother tho Razz ill wait till nxt releace (hopefuly) i still dont understand how the irc commands work :S

That's okay, I don't know much about IRC either. Which is also why I personally don't run an IRC bot and am not doing the most work on it (it could still use some basic improvements like support for font colors, lol)
_________________
Current Site (2008) http://www.cuvou.com/
Back to top
alienz
Almost An Agent
Almost An Agent


Joined: 22 Mar 2004
Posts: 1436
Location: Mars
Reputation: 55.7
PostPosted: Fri Aug 20, 2004 11:24 pm    Post subject: Reply with quote
Is anyone running the IRC side on Juggernaut? And night...were you referring to just using IRC or is there a difference in the way the bot commands are handled?
_________________
Check out Botworld! A dev resource for things bot.
Downloads, articles, news, fourm and more.
http://botworld.marzopolis.com
Back to top
Cer
Upgraded Agent
Upgraded Agent


Joined: 03 Feb 2004
Posts: 3776
Location: Michigan
Reputation: 146.9
votes: 4
PostPosted: Sat Aug 21, 2004 12:29 am    Post subject: Reply with quote
Commands are handled the same on all messengers. Most commands just return a reply, and each messenger knows how to get that reply back to the user (IRC bots must be chatted to through private messages). The only messenger-specific commands are messenger-specific because they do special commands that only work on those messengers (like inviting somebody to the current conversation only works on MSN because only MSN supports that kind of thing).

There aren't any IRC-only commands because I don't do much with IRC, but all other commands that aren't AIM or MSN specific should work on IRC (there may be a problem with multiple lines like in the !menu command, haven't tested it).
_________________
Current Site (2008) http://www.cuvou.com/
Back to top
Cer
Upgraded Agent
Upgraded Agent


Joined: 03 Feb 2004
Posts: 3776
Location: Michigan
Reputation: 146.9
votes: 4
PostPosted: Mon Aug 30, 2004 4:00 pm    Post subject: Reply with quote
I made a minor update to the MSN Answer handler. Now when the bot's invited to a conversation with at least one blocked user, it will be able to better accurately determine that the user is blocked (it used to send the entire $client to the isBlocked sub, which includes all user names and commas).

And when one blocked user out of the 3 max. for an invite, it can determine exactly which user is blocked and give a reason about that user's block.

The reason is that, somebody invited my bot into a conversation with him and his bot. The bot's name was listed first, so the isBlocked handler returned true for having "bot" in the "name" part of the e-mail (which, in this case, was two e-mails combined), and then the human was wondering who blocked him because the bot included both e-mails in the blocked message.

Here's a log from when the bot's invited with a blocked user:

Quote:

[cody@aichaos.com] One of you are blocked from chatting with me, and I will not
remain in this conversation. The block description is as follows:

User kirsle@hotmail.com
Temporary block: Approximately 23 hours left.


THE
Code:
#              ::.                   .:.<br />#               .;;:  ..:::::::.  .,;:<br />#                 ii;,,::.....::,;;i:<br />#               .,;ii:          :ii;;:<br />#             .;, ,iii.         iii: .;,<br />#            ,;  ;iii.         iii;   :;.<br /># .         ,,   ,iii,         ;iii;   ,;<br />#  ::       i  :;iii;    ;.    .;iii;.  ,,      .:;<br />#   .,;,,,,;iiiiii;:     ,ii:     :;iiii;;i:::,,;:<br />#     .:,;iii;;;,.     ;iiii:      :,;iiiiii;,:<br />#          :;        .:,,:..:,,.        .:;..<br />#           i.                  .        ,:<br />#           :;.         ..:...          ,;<br />#            ,;.    .,;iiiiiiii;:.     ,,<br />#             .;,  :iiiii;;;;iiiii,  :;:<br />#                ,iii,:        .,ii;;.<br />#                ,ii,,,,:::::::,,,;i;<br />#               ;;.   ...:.:..   ;i<br />#               ;:                :;<br />#                .:                ..<br />#                 ,                :<br /># MSN Handler: answer<br /># Description: Called when the bot's request has been answered.<br /><br />sub msn_answer {<br />   # Get variables from the server.<br />   my $msn = shift;<br /><br />   # Get this user's name.<br />   my $client;<br />   my $sock = $msn->{fn};<br />   if (defined $msn->GetMaster->{Socks}->{$sock} && $msn->GetMaster->{Socks}->{$sock}->{Type} eq 'SB') {<br />      $client = join (",", keys %{$msn->GetMaster->{Socks}->{$sock}->{Buddies}});<br />   }<br />   else {<br />      $client = '<unknown>';<br />      &panic ("Unknown username from the MSN Answer handler.", 0);<br />   }<br /><br />   $client = lc($client);<br />   $client =~ s/ //g;<br /><br />   # Get the local time and our handle.<br />   my $time = localtime();<br />   my $screenname = $msn->GetMaster->{Handle};<br />   my $sn = lc($screenname);<br />   $sn =~ s/ //g;<br /><br />   my @users = split(/\,/, $client);<br /><br />   # If this socket was previously used as a SHUT UP! socket...<br />   if (exists $chaos->{$sn}->{_shutup}->{$msn->{fn}}) {<br />      delete $chaos->{$sn}->{_shutup}->{$msn->{fn}};<br />   }<br /><br />   # Log this event.<br />   print "ChaosMSN // $client created new socket (\#$sock)!\n\n";<br />   open (LOG, ">>./logs/$sn\.txt");<br />   print LOG localtime(time) . "\n"<br />      . "ChaosMSN // $client created new socket (\#$sock)!\n\n";<br />   close (LOG);<br /><br />   # Get the font.<br />   my ($font,$color,$style) = get_font ($screenname, "MSN");<br /><br />   # Leave the conversation?<br />   if (scalar(@users) > 3) {<br />      open (LOG2, ">>./logs/$sn\.txt");<br />      print LOG2 "Left Socket \#$sock (Too Many People: " . scalar(@users) . " in total)\n\n";<br />      close (LOG2);<br />      $msn->sendmsg ("Eeek! Chat! Please refrain from inviting me into conversations with more "<br />         . "than three people at a time. Too many invite me to other bot-infested rooms "<br />         . "and it's not good for me. Thanks!",<br />         Font => "$font",<br />         Color => "$color",<br />         Style => "$style",<br />      );<br />      print "<" . get_date ('date','local',$client) . '@' . get_date ('time','local',$client) . ">\n"<br />         . "[$sn] Eeek! Chat! Please refrain from inviting me into conversations with more "<br />         . "than three people at a time. Too many invite me to other bot-infested rooms "<br />         . "and it's not good for me. Thanks!\n\n";<br />      sleep(1);<br />      $msn->sendraw ("OUT \*lazy*\n");<br />   }<br /><br />   # Make sure we're alone.<br />   if ($chaos->{_system}->{config}->{msnchatallowed} == 0) {<br />     foreach my $id (keys %{$msn->GetMaster->{Socks}}) {<br />      next unless defined $msn->GetMaster->{Socks}->{$id} && $msn->GetMaster->{Socks}->{$id}->{Type} eq 'SB';<br />      my $buddies = join (" ", keys %{$msn->GetMaster->{Socks}->{$id}->{Buddies}});<br /><br />      if ($buddies =~ / /) {<br />         $msn->GetMaster->{Socks}->{$id}->sendmsg ("Sorry, I am not allowed to chat here.",<br />            Font => "$font",<br />            Color => "$color",<br />            Style => "$style",<br />         );<br />         $msn->GetMaster->{Socks}->{$id}->sendraw ("OUT \*lazy*\n");<br />      }<br />     }<br />   }<br /><br />   # See if they're blocked...<br />   my ($isBlocked,$blockee,$blockeeLevel) = (0,'','');<br />   foreach my $usr (@users) {<br />      my ($blocked,$blockLevel) = isBlocked($usr,"MSN");<br /><br />      if ($blocked == 1) {<br />         $isBlocked = 1;<br />         $blockee = $usr;<br />         $blockeeLevel = $blockLevel;<br />         last;<br />      }<br />   }<br />   if ($isBlocked == 1) {<br />      # Get the description.<br />      my $block_reason;<br />      $blockLevel = $blockeeLevel;<br />      if ($blockLevel == 1) {<br />         # Get the expiration time.<br />         my $block_key = "msn-" . $blockee;<br />         my $block_expire = $chaos->{_data}->{blocks}->{$block_key};<br />         my $block_left = $block_expire - time();<br />         my $block_hours = int($block_left / (60*60));<br />         $block_reason = "Temporary block: Approximately $block_hours hours left.";<br />      }<br />      elsif ($blockLevel == 2) {<br />         $block_reason = "Permanent ban (BlackList).";<br />      }<br />      elsif ($blockLevel == 3) {<br />         $block_reason = "Loophole Connection.";<br />      }<br />      else {<br />         $block_reason = "Unknown";<br />      }<br /><br />      my $blockreply;<br /><br />      # If there are multiple people...<br />      if (scalar @users > 1) {<br />         $blockreply = "One of you are blocked from chatting with me, and I will not remain "<br />            . "in this conversation. The block description is as follows:\n\n"<br />            . "User $blockee\n"<br />            . "$block_reason";<br />         $msn->sendmsg ($blockreply,<br />            Font => "Verdana",<br />            Color => "000000",<br />            Style => "B",<br />         );<br /><br />         $msn->send ("OUT \*lazy*\n");<br />      }<br />      else {<br />         $blockreply = "Hello, $blockee. I'm informing you that you are currently blocked from "<br />            . "chatting with me. The description is as follows:\n\n"<br />            . "$block_reason";<br />         $msn->sendmsg ($blockreply,<br />            Font => "Verdana",<br />            Color => "000000",<br />            Style => "B",<br />         );<br />      }<br />      print "<" . get_date ('date','local',$client) . '@' . get_date ('time','local',$client) . ">\n"<br />         . "[$sn] $blockreply\n\n";<br /><br />      return 1;<br />   }<br /><br />   # Maintenance mode?<br />   if ($chaos->{_system}->{maintain}->{on} == 1) {<br />      $msn->sendmsg ("Sorry, but maintenance mode is currently activated and I "<br />         . "may not be allowed to chat right now!",<br />         Font => "Verdana",<br />         Color => "FF0000",<br />         Style => "B",<br />      );<br />      print "<" . get_date ('date','local',$client) . ' @ ' . get_date ('time','local',$client) . ">\n"<br />         . "[$sn] Sorry, but maintenance mode is currently activated and I "<br />         . "may not be allowed to chat right now!\n\n";<br />      return 1;<br />   }<br /><br />   # Load the welcome message.<br />   if (exists $chaos->{$screenname}->{welcomemsg}) {<br />      open (MSG, $chaos->{$screenname}->{welcomemsg});<br />      my @msg = <MSG>;<br />      close (MSG);<br /><br />      chomp @msg;<br /><br />      my $welcome;<br />      foreach my $line (@msg) {<br />         $welcome .= "$line\n";<br />      }<br /><br />      # Send the message.<br />      $msn->sendmsg ($welcome,<br />         Font  => "$font",<br />         Color => "$color",<br />         Style => "$style",<br />      );<br />      print "<" . get_date ('date','local',$client) . '@' . get_date ('time','local',$client) . ">\n"<br />         . "[$sn] $welcome\n\n";<br />   }<br />}<br />1;

_________________
Current Site (2008) http://www.cuvou.com/
Back to top
Silvere
Young One
Young One


Joined: 01 Apr 2004
Posts: 73

Reputation: 27Reputation: 27Reputation: 27
PostPosted: Tue Aug 31, 2004 2:19 am    Post subject: Reply with quote
Neutral That crashed my Bot.
Back to top
Cer
Upgraded Agent
Upgraded Agent


Joined: 03 Feb 2004
Posts: 3776
Location: Michigan
Reputation: 146.9
votes: 4
PostPosted: Tue Aug 31, 2004 7:07 pm    Post subject: Reply with quote
QUOTE(Silvere @ Aug 30 2004, 10:19 PM)
Neutral That crashed my Bot.

Well you're just weird like that. Did you download the file or copy the code? I haven't touched my bot's copy of the file since I uploaded it and my bot works fine (I've seen people test it and it didn't crash Razz)

What about an error message?
_________________
Current Site (2008) http://www.cuvou.com/
Back to top
Silvere
Young One
Young One


Joined: 01 Apr 2004
Posts: 73

Reputation: 27Reputation: 27Reputation: 27
PostPosted: Thu Sep 02, 2004 2:12 am    Post subject: Reply with quote
There we no error message. It just CLOSED
Back to top
Cer
Upgraded Agent
Upgraded Agent


Joined: 03 Feb 2004
Posts: 3776
Location: Michigan
Reputation: 146.9
votes: 4
PostPosted: Thu Sep 02, 2004 11:41 am    Post subject: Reply with quote
QUOTE(Silvere @ Sep 1 2004, 10:12 PM)
There we no error message. It just CLOSED

Tyler, I'd expect you of all people to know how to make it not close (hint: use a batch file with the pause command...). Even if you want Perl to PURPOSELY close itself, the DOS window will not let it. So use DOS, smart one. Razz
_________________
Current Site (2008) http://www.cuvou.com/ Back to top
Display posts from previous:   
This forum is locked: you cannot post, reply to, or edit topics.   This topic is locked: you cannot edit posts or make replies.    Bot Depot Forum Index -> Archived Bots All times are GMT
Goto page 1, 2, 3  Next
Page 1 of 3

 



Protected by phpBB Security phpBB-TweakS
phpBB Security Has Blocked 9 Exploit Attempts.
Antispam Captcha Mod by phpbb-security.com
Powered by phpBB © 2001, 2005 phpBB Group