mIRC Home    About    Download    Register    News    Help

Print Thread
New Script Need a little help #130377 17/09/05 04:05 AM
Joined: Jan 2005
Posts: 59
C
confuzzed Offline OP
Babel fish
OP Offline
Babel fish
C
Joined: Jan 2005
Posts: 59
Ok well i'm back agian and i need a little help and i know "look threw the help file's" I CAN'T i'm on linux and there is NO way to view WINDOWS help files but i don't need much help this is what i have
Code:
on *:TEXT:!fah*:#: {
  if ($nick == confuzzedintelguy) {
    play -q5m1 $chan Y:/unitinfo.txt 1500
  }
}

and that gives me my currnt folding @ home information now my problem is that it displays it in 6 lines which gets a little anoying i was wondering how can i have it display all the lines in one like this
Code:
<ConfuzzedBot>Current Work Unit
              ------------------
              Name: p753_vln2.8nopbc
              Download time: September 16 15:22:37
              Progress: 6%  [__________] 

other then like this
Code:
<ConfuzzedBot>Current Work Unit
<ConfuzzedBot> -----------------
<ConfuzzedBot> Name: p753_vln2.8nopbc
<ConfuzzedBot> Download time: September 16 15:22:37
<ConfuzzedBot> Progress: 6%  [__________]


Thanks for any help you can give me.

Re: New Script Need a little help #130378 17/09/05 04:41 AM
Joined: Jul 2003
Posts: 655
Om3n Offline
Fjord artisan
Offline
Fjord artisan
Joined: Jul 2003
Posts: 655
There is no way in mirc to simulate a new line in the way you want it too. Other than playing to the channel line by line, you could play to an alias which appends each line to the previous line (using a var) then msg that to the channel. Sample output:

<ConfuzzedBot> Current Work Unit ------------------ Name: p753_vln2.8nopbc Download time: September 16 15:22:37 Progress: 6% [__________]

You could also manipulate the format of the display this way, by having it find just the info you want from each line and ignoring the --- line etc. But then you might as well just use $read or fopen instead of play.


"Allen is having a small problem and needs help adjusting his attitude" - Flutterby
Re: New Script Need a little help #130379 17/09/05 05:03 AM
Joined: Jan 2005
Posts: 59
C
confuzzed Offline OP
Babel fish
OP Offline
Babel fish
C
Joined: Jan 2005
Posts: 59
Quote:
There is no way in mirc to simulate a new line in the way you want it too. Other than playing to the channel line by line, you could play to an alias which appends each line to the previous line (using a var) then msg that to the channel. Sample output:

<ConfuzzedBot> Current Work Unit ------------------ Name: p753_vln2.8nopbc Download time: September 16 15:22:37 Progress: 6% [__________]

That will work thats better then the way it is now because it basicly spam's the room. How would i go about doing that?

Re: New Script Need a little help #130380 17/09/05 05:49 AM
Joined: Dec 2002
Posts: 1,245
M
MikeChat Offline
Hoopy frood
Offline
Hoopy frood
M
Joined: Dec 2002
Posts: 1,245
There is no real good way to do that, you could have it all as one line, filled spaces to make it word wrap like you want, and if others have the same rez setting and are using the same font it will look close to what you see. anything else is just going to look spaced weird.

If you want it all in one line to limit the lines sent to the channel (This is not spamming because of the number of lines, that would be flooding) then make it all one line and put in separators like <> or whatever.

Re: New Script Need a little help #130381 17/09/05 05:53 AM
Joined: Jan 2005
Posts: 59
C
confuzzed Offline OP
Babel fish
OP Offline
Babel fish
C
Joined: Jan 2005
Posts: 59
Quote:
There is no real good way to do that, you could have it all as one line, filled spaces to make it word wrap like you want, and if others have the same rez setting and are using the same font it will look close to what you see. anything else is just going to look spaced weird.

If you want it all in one line to limit the lines sent to the channel (This is not spamming because of the number of lines, that would be flooding) then make it all one line and put in separators like <> or whatever.


My problem is i cant edit the file as the file is being wrote to by the program [email]F@H[/email] so even if i edit it, it will in return go back to normal at the next %

Re: New Script Need a little help #130382 17/09/05 06:03 AM
Joined: Dec 2002
Posts: 1,245
M
MikeChat Offline
Hoopy frood
Offline
Hoopy frood
M
Joined: Dec 2002
Posts: 1,245
so after it writes the text file you can read it like any normal .txt right?

try this
Code:
alias mystats {
var %lines.tot = $lines(filename.txt)
var %i = 1
while (%i &lt;= %lines.tot) {
var %stats.line =  %stats.line $read(filename.txt,%i) &lt;&gt;
inc %i
}
msg #channelname %stats.line
}

change filename.txt to the actual file name
change #channelname to the actual channel's name

NOTE I typed this out in the msg board reply "box"

Re: New Script Need a little help #130383 17/09/05 06:10 AM
Joined: Jan 2005
Posts: 59
C
confuzzed Offline OP
Babel fish
OP Offline
Babel fish
C
Joined: Jan 2005
Posts: 59
it works very well but it doesnt show the % only
<ConfuzzedBot> ----------------- Name: p1141_RIBO_FSpeptide_HEL_nospring Download time: September 13 13:15:01 Due time: December 4 13:15:01

Thanks again

Re: New Script Need a little help #130384 17/09/05 06:24 AM
Joined: Jan 2005
Posts: 59
C
confuzzed Offline OP
Babel fish
OP Offline
Babel fish
C
Joined: Jan 2005
Posts: 59
nvm it was my error thank you for your help i customized it a little and it works great smile

EDIT: just in case there are any folders in here this is what i did so my bot would show it because i use Xchat to chat and mIRC as my bot because i don't know how to do it in perl smirk

so here is the bot version
Code:
on *:TEXT:!fah*:#: {
  if ($nick == confuzzedintelguy) {
    var %lines.tot = $lines(Y:/unitinfo.txt)
    var %i = 1
    while (%i &lt;= %lines.tot) { 
      var %stats.line =  %stats.line $read(Y:/unitinfo.txt,%i) |
      inc %i
    }
    msg $chan %stats.line
  }
}

you will need to locate your unitinfo.txt file from folding @ home and direct it in the right place

Thanks again

Last edited by confuzzed; 17/09/05 06:36 AM.
Re: New Script Need a little help #130385 17/09/05 06:49 AM
Joined: Jul 2003
Posts: 655
Om3n Offline
Fjord artisan
Offline
Fjord artisan
Joined: Jul 2003
Posts: 655
try this, made it call it from an alias so you can use the alias yourself, variables so you can edit the msg line to customise output easily, fopen for speed (not noticable) and so if the file changes location it only needs to be changed in one place.

Code:
on *:TEXT:!fah:#: {
  if ($nick == confuzzedintelguy) fah
}
alias fah {
  .fopen fah Y:/unitinfo.txt
  .fseek -l fah 3
  var %name = $gettok($fread(fah),2-,58)
  var %time = $gettok($fread(fah),2-,58)
  var %prog = $gettok($fread(fah),2-,58)
  .fclose fah
  msg $chan Current Work Unit: 'Name' %name 'Download Time' %time 'Progress' %prog
}


"Allen is having a small problem and needs help adjusting his attitude" - Flutterby