mIRC Home    About    Download    Register    News    Help

Print Thread
Page 1 of 2 1 2
#186193 18/09/07 09:58 PM
Joined: Apr 2007
Posts: 228
M
Mpot Offline OP
Fjord artisan
OP Offline
Fjord artisan
M
Joined: Apr 2007
Posts: 228
So I'm trying to make a script for my bot that spits out colorbars. I usually make them myself, but since this has become tedious, I decided that I'd automate the process. It's supposed to work where you specify the colors and your name, IE !colorbar 1 2 3 4 Mpot. Any ideas why it's not working?

Code:
on 1:text:!colorbar*:#: msg $chan $$1,0"¼0,$$1¼»$$2,$$1"¼$$1,$$2¼»$$3,$$2"¼$$2,$$3¼»$$3,$$3"¼$$3,$$3¼»$$4,$$3"¼$$3,$$4¼»1,1%%%%%%0 $$5 $$4,$$4%%%%%%$$3,$$4"¼$$4,$$3¼»$$3,$$3"¼$$3,$$3¼»$$2,$$3"¼$$3,$$2¼»$$1,$$2"¼$$2,$$1¼»0,$$1"¼$$1,0¼»


The ¼ is part of the bar itself, makes it look pretty.

Say I picked colors 11, 12, 2, and 10. And my name is Mpot. I'd go !colorbar 11 12 2 10 Mpot and I should get something back looking like this:


Last edited by Mpot; 18/09/07 10:10 PM.
Joined: Dec 2002
Posts: 503
B
Fjord artisan
Offline
Fjord artisan
B
Joined: Dec 2002
Posts: 503
You can't squish things like this against the $ symbols. You need to $+ things together (or $+()). i.e.
Code:
on 1:text:!colorbar*:#: msg $chan  $+ $$1,0"¼0, $+ $$1 $+ ¼»...


Joined: Apr 2007
Posts: 228
M
Mpot Offline OP
Fjord artisan
OP Offline
Fjord artisan
M
Joined: Apr 2007
Posts: 228
I'm still a little confused. Could you edit the entire script in that manner? I think I might be able to study it a little better in a completed fashion.

Joined: Oct 2004
Posts: 8,330
Hoopy frood
Offline
Hoopy frood
Joined: Oct 2004
Posts: 8,330
Code:
on 1:text:!colorbar *:#: {
  if (!$5) { msg $chan Invalid Format.  Use: !colorbar color1 color2 color3 color4 nick | return }
  msg $chan $+(,$1,$chr(44),0"¼0,$chr(44),$1¼»,$2,$chr(44),$1"¼,$1,$chr(44),$2¼»,$3,$chr(44),$2"¼,$2,$chr(44),$3¼»,$3,$chr(44),$3"¼,$3,$chr(44),$3¼»,$4,$chr(44),$3"¼,$3,$chr(44),$4¼»,$4,$chr(44),$4,------,0 $5,,$4,$chr(44),$4,-----,,$3,$chr(44),$4"¼,$4,$chr(44),$3¼»,$3,$chr(44),$3"¼,$3,$chr(44),$3¼»,$2,$chr(44),$3"¼,$3,$chr(44),$2¼»,$1,$chr(44),$2"¼,$2,$chr(44),$1,¼»0,$chr(44),$1"¼,$1,$chr(44),0¼»)
}


There you are.


Invision Support
#Invision on irc.irchighway.net
Joined: Apr 2007
Posts: 228
M
Mpot Offline OP
Fjord artisan
OP Offline
Fjord artisan
M
Joined: Apr 2007
Posts: 228
Much thanks!

Joined: Apr 2007
Posts: 228
M
Mpot Offline OP
Fjord artisan
OP Offline
Fjord artisan
M
Joined: Apr 2007
Posts: 228
Wait, we've got a problem. I just loaded up the script and tried it, and was returned:



Edit: I'm heading to sleep. I'll check through tomorrow.

Last edited by Mpot; 18/09/07 11:25 PM.
Joined: Apr 2007
Posts: 228
M
Mpot Offline OP
Fjord artisan
OP Offline
Fjord artisan
M
Joined: Apr 2007
Posts: 228
Fixed it. Just had to up the value of the $ by one. IE, $4 became $5

Code:
on 1:text:!colorbar *:#: {
  if (!$5) { msg $chan Invalid Format.  Use: !colorbar color1 color2 color3 color4 nick | return }
  msg $chan $+(,$2,$chr(44),0"¼0,$chr(44),$2¼»,$3,$chr(44),$2"¼,$2,$chr(44),$3¼»,$4,$chr(44),$3"¼,$3,$chr(44),$4¼»,$4,$chr(44),$4"¼,$4,$chr(44),$4¼»,$5,$chr(44),$4"¼,$4,$chr(44),$5¼»,$5,$chr(44),$5,------,0,$6-,,$5,$chr(44),$5, -------,,$4,$chr(44),$5"¼,$5,$chr(44),$4¼»,$4,$chr(44),$4"¼,$4,$chr(44),$4¼»,$3,$chr(44),$4"¼,$4,$chr(44),$3¼»,$2,$chr(44),$3"¼,$3,$chr(44),$2,¼»0,$chr(44),$2"¼,$2,$chr(44),0¼»)
}


There should be a simple edit to make it to where the color of the name text can be specified in the middle, but I can't seem to figure it out. Help?

Joined: Oct 2004
Posts: 8,330
Hoopy frood
Offline
Hoopy frood
Joined: Oct 2004
Posts: 8,330
Code:
on 1:text:!colorbar *:#: {
  if (!$5) { msg $chan Invalid Format.  Use: !colorbar color1 color2 color3 color4 nick | return }
  msg $chan $+(,$2,$chr(44),0"¼0,$chr(44),$2¼»,$3,$chr(44),$2"¼,$2,$chr(44),$3¼»,$4,$chr(44),$3"¼,$3,$chr(44),$4¼»,$4,$chr(44),$4"¼,$4,$chr(44),$4¼»,$5,$chr(44),$4"¼,$4,$chr(44),$5¼»,$5,$chr(44),$5,------,$6,$7,,$5,$chr(44),$5,-----,,$4,$chr(44),$5"¼,$5,$chr(44),$4¼»,$4,$chr(44),$4"¼,$4,$chr(44),$4¼»,$3,$chr(44),$4"¼,$4,$chr(44),$3¼»,$2,$chr(44),$3"¼,$3,$chr(44),$2,¼»0,$chr(44),$2"¼,$2,$chr(44),0¼»)
}


Invision Support
#Invision on irc.irchighway.net
Joined: Apr 2007
Posts: 228
M
Mpot Offline OP
Fjord artisan
OP Offline
Fjord artisan
M
Joined: Apr 2007
Posts: 228
I love you. :P

Joined: Oct 2004
Posts: 8,330
Hoopy frood
Offline
Hoopy frood
Joined: Oct 2004
Posts: 8,330
You may want to adjust the "error" line to use !$6 instead of !$5 now that there is another color. Up to you.


Invision Support
#Invision on irc.irchighway.net
Joined: Apr 2007
Posts: 228
M
Mpot Offline OP
Fjord artisan
OP Offline
Fjord artisan
M
Joined: Apr 2007
Posts: 228
I don't exactly understand what that line does, but if you think it'll help, I shall. Thanks.

Joined: Apr 2007
Posts: 228
M
Mpot Offline OP
Fjord artisan
OP Offline
Fjord artisan
M
Joined: Apr 2007
Posts: 228
I did that, and now it doesn't work when I use 0(white) as the name color. I changed it back to 5, worked fine again.

Joined: Apr 2007
Posts: 228
M
Mpot Offline OP
Fjord artisan
OP Offline
Fjord artisan
M
Joined: Apr 2007
Posts: 228
Nevermind, I was able to figure it out myself.

Last edited by Mpot; 19/09/07 11:02 PM.
Joined: Oct 2004
Posts: 8,330
Hoopy frood
Offline
Hoopy frood
Joined: Oct 2004
Posts: 8,330
Here's a rewrite that will avoid problems when the last item is 0.

Code:
on 1:text:!colorbar *:#: {
  if ($7 == $null) { msg $chan Invalid Format.  Use: !colorbar color1 color2 color3 color4 color5 nick | return }
  msg $chan $+(,$2,$chr(44),0"¼0,$chr(44),$2¼»,$3,$chr(44),$2"¼,$2,$chr(44),$3¼»,$4,$chr(44),$3"¼,$3,$chr(44),$4¼»,$4,$chr(44),$4"¼,$4,$chr(44),$4¼»,$5,$chr(44),$4"¼,$4,$chr(44),$5¼»,$5,$chr(44),$5,------,$6,$7,,$5,$chr(44),$5,-----,,$4,$chr(44),$5"¼,$5,$chr(44),$4¼»,$4,$chr(44),$4"¼,$4,$chr(44),$4¼»,$3,$chr(44),$4"¼,$4,$chr(44),$3¼»,$2,$chr(44),$3"¼,$3,$chr(44),$2,¼»0,$chr(44),$2"¼,$2,$chr(44),0¼»)
}


Invision Support
#Invision on irc.irchighway.net
Joined: Apr 2007
Posts: 228
M
Mpot Offline OP
Fjord artisan
OP Offline
Fjord artisan
M
Joined: Apr 2007
Posts: 228
I was able to get everything working fine, I've got !colorbar4 and !colorbar5. Everything seemed to work fine with !$5, so I left it. Here they are:

Code:
on 1:text:!colorbar4 *:#: {
  if (!$5) { msg $chan Invalid Format.  Use: !colorbar color1 color2 color3 color4 nickcolor nick | return }
  msg $chan $+(,$2,$chr(44),0"¼0,$chr(44),$2¼»,$3,$chr(44),$2"¼,$2,$chr(44),$3¼»,$4,$chr(44),$3"¼,$3,$chr(44),$4¼»,$4,$chr(44),$4"¼,$4,$chr(44),$4¼»,$5,$chr(44),$4"¼,$4,$chr(44),$5¼»,$5,$chr(44),$5,------,$6,$7-,,$5,$chr(44),$5,-----,,$4,$chr(44),$5"¼,$5,$chr(44),$4¼»,$4,$chr(44),$4"¼,$4,$chr(44),$4¼»,$3,$chr(44),$4"¼,$4,$chr(44),$3¼»,$2,$chr(44),$3"¼,$3,$chr(44),$2,¼»0,$chr(44),$2"¼,$2,$chr(44),0¼»)
}

on 1:text:!colorbar5 *:#: {
  if (!$5) { msg $chan Invalid Format.  Use: !colorbar color1 color2 color3 color4 color5 nickcolor nick | return }
  msg $chan $+(,$2,$chr(44),0"¼0,$chr(44),$2¼»,$3,$chr(44),$2"¼,$2,$chr(44),$3¼»,$4,$chr(44),$3"¼,$3,$chr(44),$4¼»,$5,$chr(44),$4"¼,$4,$chr(44),$5¼»,$6,$chr(44),$5"¼,$5,$chr(44),$6¼»,$6,$chr(44),$6,-------,$7,$8-,,$6,$chr(44),$6,-------,,$5,$chr(44),$6"¼,$6,$chr(44),$5¼»,$4,$chr(44),$5"¼,$5,$chr(44),$4¼»,$3,$chr(44),$4"¼,$4,$chr(44),$3¼»,$2,$chr(44),$3"¼,$3,$chr(44),$2,¼»0,$chr(44),$2"¼,$2,$chr(44),0¼»)
}


Joined: Apr 2007
Posts: 228
M
Mpot Offline OP
Fjord artisan
OP Offline
Fjord artisan
M
Joined: Apr 2007
Posts: 228
I want to be able to add colorbars for callup to IcyBot's script with !addbar colorbargoeshere callupcommand

So

Code:
!addbar 11,0"¼0,11¼»12,11"¼11,12¼»2,12"¼12,2¼»2,2"¼2,2¼»10,2"¼2,10¼»10,10%%%%%%0 Master Mpot 10,10%%%%%%2,10"¼10,2¼»2,2"¼2,2¼»12,2"¼2,12¼»11,12"¼12,11¼»0,11"¼11,0¼» -mpot


and the bot would write
Code:
on 1:TEXT:-mpot:#:msg $chan 11,0"¼0,11¼»12,11"¼11,12¼»2,12"¼12,2¼»2,2"¼2,2¼»10,2"¼2,10¼»10,10%%%%%%0 Master Mpot 10,10%%%%%%2,10"¼10,2¼»2,2"¼2,2¼»12,2"¼2,12¼»11,12"¼12,11¼»0,11"¼11,0¼» halt


to the last line of the file. If there's text on the last line, it'd need to create a new line on the bottom and write that one in.

The .mrc is called Callup Banners.mrc and is located in C:\IcyBot\Scripts

Also, can you write it as a on TEXT, with the access level instead of one being addbar? Thanks!

(I could probably do it myself, but I can't seem to figure out hte command. I know one if $read, but I tried /help $write and got nothing.)
d

EDIT: Tinkered some, is it:

Code:
on addbar:TEXT:!addbar*:#: /write C:\IcyBot\Scripts on 1:text:- $+ $$2:#:msg $chan $$1 | halt

halt


?

Last edited by Mpot; 19/09/07 11:58 PM.
Joined: Oct 2004
Posts: 8,330
Hoopy frood
Offline
Hoopy frood
Joined: Oct 2004
Posts: 8,330
/help /write smile

Anyhow, you really should adjust those IFs like I mentioned. $6 for the first one and $7 for the second one and check if they're == $null rather than !$___ as shown in what I gave you. It's up to you though. You don't have to use error checking at all. It will work without that line in there. If you're going to include the error checking, you should have it valid.


Invision Support
#Invision on irc.irchighway.net
Joined: Apr 2007
Posts: 228
M
Mpot Offline OP
Fjord artisan
OP Offline
Fjord artisan
M
Joined: Apr 2007
Posts: 228
I looked at the help /write, could you tell me if my attempt is vaild?

Edit:

Code:
on 1:text:!colorbar_how:#:/notice $nick To make a colorbar with five colors, you can type !colorbar5 color1 color2 color3 color4 color5 nickcolor nick. To make one with four colors, you may type !colorbar4 color1 color2 color3 color4 nickcolor nick. To access the list of colors, type -colors.

on 1:text:!colorbar4 *:#: {
  if ($6 == $null) { msg $chan Invalid Format.  Use: !colorbar color1 color2 color3 color4 nickcolor nick | return }
  msg $chan $+(,$2,$chr(44),0"¼0,$chr(44),$2¼»,$3,$chr(44),$2"¼,$2,$chr(44),$3¼»,$4,$chr(44),$3"¼,$3,$chr(44),$4¼»,$4,$chr(44),$4"¼,$4,$chr(44),$4¼»,$5,$chr(44),$4"¼,$4,$chr(44),$5¼»,$5,$chr(44),$5,------,$6,$7-,,$5,$chr(44),$5,-----,,$4,$chr(44),$5"¼,$5,$chr(44),$4¼»,$4,$chr(44),$4"¼,$4,$chr(44),$4¼»,$3,$chr(44),$4"¼,$4,$chr(44),$3¼»,$2,$chr(44),$3"¼,$3,$chr(44),$2,¼»0,$chr(44),$2"¼,$2,$chr(44),0¼»)
}

on 1:text:!colorbar5 *:#: {
  if($7 == $null) { msg $chan Invalid Format.  Use: !colorbar color1 color2 color3 color4 color5 nickcolor nick | return }
  msg $chan $+(,$2,$chr(44),0"¼0,$chr(44),$2¼»,$3,$chr(44),$2"¼,$2,$chr(44),$3¼»,$4,$chr(44),$3"¼,$3,$chr(44),$4¼»,$5,$chr(44),$4"¼,$4,$chr(44),$5¼»,$6,$chr(44),$5"¼,$5,$chr(44),$6¼»,$6,$chr(44),$6,-------,$7,$8-,,$6,$chr(44),$6,-------,,$5,$chr(44),$6"¼,$6,$chr(44),$5¼»,$4,$chr(44),$5"¼,$5,$chr(44),$4¼»,$3,$chr(44),$4"¼,$4,$chr(44),$3¼»,$2,$chr(44),$3"¼,$3,$chr(44),$2,¼»0,$chr(44),$2"¼,$2,$chr(44),0¼»)
}


?




Also, if I wanted to add the /write line to the top of my colorbar script, would the correct parentheses format be

Code:
{ on addbar:TEXT:!addbar*:#: { /write C:\IcyBot\Scripts\test.mrc on 1:text:$$2:#:{ msg $chan $$1 | halt } } | /notice $nick Bar added. | halt }

Last edited by Mpot; 20/09/07 12:22 AM.
Joined: Oct 2004
Posts: 8,330
Hoopy frood
Offline
Hoopy frood
Joined: Oct 2004
Posts: 8,330
Your edit of those is correct.

For the writing...
Code:
on addbar:TEXT:!addbar *:#: {
  write C:\IcyBot\Scripts\test.mrc $2-
  notice $nick Bar added.
}


Note that you don't need /'s in a script. Also, I have no idea what you were trying to do with that line. You cannot put 2 on TEXT events on the same line. I'm not quite sure what you were trying to do there.

Anyhow, this will add the text after !addbar to that test.mrc file for you. I don't know that .mrc is the best ending for that file, though. .txt would probably make more sense as you're not adding lines of a script to that file... just text.


Invision Support
#Invision on irc.irchighway.net
Joined: Apr 2007
Posts: 228
M
Mpot Offline OP
Fjord artisan
OP Offline
Fjord artisan
M
Joined: Apr 2007
Posts: 228
Let me explain why I need the on text:

Code:
;Call-Up Banners

on *:TEXT:-mpot:#:msg $chan 11,0"¼0,11¼»12,11"¼11,12¼»2,12"¼12,2¼»2,2"¼2,2¼»10,2"¼2,10¼»10,10%%%%%%0 Master Mpot 10,10%%%%%%2,10"¼10,2¼»2,2"¼2,2¼»12,2"¼2,12¼»11,12"¼12,11¼»0,11"¼11,0¼» | halt
on *:TEXT:-colors:#:msg $chan 0,1 1 0,2 2 0,3 3 0,4 4 0,5 5 0,6 6 0,7 7 0,8 8 0,9 9 0,10 10 0,11 11 0,12 12 0,13 13 0,14 14 0,15 15 | halt 
on *:TEXT:-duncan:#:msg $chan 9,0"¼0,9¼»10,9"¼9,10¼»2,10"¼10,2¼»2,2"¼2,2¼»3,2"¼2,3¼»3,3%%%%%%8 Duncan007 3,3%%%%%%2,3"¼3,2¼»2,2"¼2,2¼»10,2"¼2,10¼»9,10"¼10,9¼»0,9"¼9,0¼» | halt
on *:TEXT:-ichban:#:msg $chan 4,0"¼0,4¼»10,4"¼4,10¼»2,10"¼10,2¼»2,2"¼2,2¼»1,2"¼2,1¼»1,1%%%%%%0 IchbanRyushi 1,1%%%%%%2,1"¼1,2¼»2,2"¼2,2¼»10,2"¼2,10¼»4,10"¼10,4¼»0,4"¼4,0¼» | halt
on *:TEXT:-kuros:#:msg $chan 4,0"¼0,4¼»6,4"¼4,6¼»13,6"¼6,13¼»13,13"¼13,13¼»11,13"¼13,11¼»11,11%%%%%%0 Kuros 11,11%%%%%%13,11"¼11,13¼»13,13"¼13,13¼»6,13"¼13,6¼»4,6"¼6,4¼»0,4"¼4,0¼» | halt
on *:TEXT:-ekal:#:msg $chan 11,0"¼0,11¼»12,11"¼11,12¼»2,12"¼12,2¼»2,2"¼2,2¼»10,2"¼2,10¼»10,10%%%%%%0 Ekal 10,10%%%%%%2,10"¼10,2¼»2,2"¼2,2¼»12,2"¼2,12¼»11,12"¼12,11¼»0,11"¼11,0¼» | halt
on *:TEXT:-lunaki:#:msg $chan 13,0"¼0,13¼»1,13"¼13,1¼»2,1"¼1,2¼»2,2"¼2,2¼»6,2"¼2,6¼»6,6%%%%%%0 Lunaki 6,6%%%%%%2,6"¼6,2¼»2,2"¼2,2¼»1,2"¼2,1¼»13,1"¼1,13¼»0,13"¼13,0¼» | halt
on *:TEXT:-marajah:#:msg $chan 3,0"¼0,3¼»1,3"¼3,1¼»5,1"¼1,5¼»5,5"¼5,5¼»2,5"¼5,2¼»2,2%%%%%%15 Marajah 2,2%%%%%%5,2"¼2,5¼»5,5"¼5,5¼»1,5"¼5,1¼»3,1"¼1,3¼»0,3"¼3,0¼» | halt
on *:TEXT:-kuro:#:msg $chan  6,0"¼0,6¼»2,6"¼6,2¼»12,2"¼2,12¼»12,12"¼12,12¼»1,12"¼12,1¼»1,1------13Kuro-Sakura1,1-----12,1"¼1,12¼»12,12"¼12,12¼»2,12"¼12,2¼»6,2"¼2,6¼»0,6"¼6,0¼» | halt
on *:TEXT:-peth:#:msg $chan 14,0"¼0,14¼»15,14"¼14,15¼»1,15"¼15,1¼»1,1"¼1,1¼»7,1"¼1,7¼»7,7------0Penguin7,7-----1,7"¼7,1¼»1,1"¼1,1¼»15,1"¼1,15¼»14,15"¼15,14¼»0,14"¼14,0¼» | halt
on *:TEXT:-vrixis:#:msg $chan 4,0"¼0,4¼»5,4"¼4,5¼»4,5"¼5,4¼»4,4"¼4,4¼»5,4"¼4,5¼»5,5------4Vrixis5,5-----4,5"¼5,4¼»4,4"¼4,4¼»5,4"¼4,5¼»4,5"¼5,4¼»0,4"¼4,0¼» | halt


I need the !addbar to add the inputed stuff (the bar and the callup code) to the end of that script, in an on text like the above...

Page 1 of 2 1 2

Link Copied to Clipboard