mIRC Home    About    Download    Register    News    Help

Print Thread
Page 2 of 2 1 2
Re: request: advanced script to act as a "bot"... #157046 15/11/06 04:28 PM
Joined: Oct 2004
Posts: 8,330
Riamus2 Offline
Hoopy frood
Offline
Hoopy frood
Joined: Oct 2004
Posts: 8,330
Try putting this at the end of that script. (Untested)

Code:
on *:input:*: {
  if ($1 == !quote) {
    var %who = $iif($chan,$chan,$me)
    if ($chan) {
      if (!$istok([color:red]#channel1 #channel2 #channel3 #channel4 #channel5[/color],$chan,32)) { return }
      if (%quote.delay) {
        echo -a Please try again after $duration(%quote.delay) or use !quote in a PM.
        return
      }
      else {
        var %delay = $rand([color:blue]600,5400[/color])
        set -u [ $+ [ %delay ] ] %quote.delay %delay
      }
    }
    if ($2) {
      if ($2 !isnum) { msg %who $2 is not a number. | return }
      if ($lines(quotes.txt) < $2) { msg %who Quote # $+ $2 doesn't exist. | return }
      msg %who $read(quotes.txt,$2)
    }
    else msg %who $read(quotes.txt)
  }
  elseif ($1 == !quotes) { msg %who Total quotes: $lines(quotes.txt) }
  elseif ($1 == !addquote) {
    if ($2 == $null) { echo -a You need to include a quote to add. }
    else write quotes.txt $2-
  }
}


Invision Support
#Invision on irc.irchighway.net
Re: request: advanced script to act as a "bot"... #157047 16/11/06 08:35 PM
Joined: Jun 2004
Posts: 243
G
gomp Offline OP
Fjord artisan
OP Offline
Fjord artisan
G
Joined: Jun 2004
Posts: 243
Could you make all functions answer to me too?

When I write !qote !quotes etcetera, in channels.

It works fine in /msg.

But not in any of the channels.

All else works Fine!

Tahnk you for making it! laugh


I do not speak English. I speak Norwegian. So please bear with my poor English spelling and grammar.
Re: request: advanced script to act as a "bot"... #157048 17/11/06 02:06 PM
Joined: Jun 2004
Posts: 243
G
gomp Offline OP
Fjord artisan
OP Offline
Fjord artisan
G
Joined: Jun 2004
Posts: 243
Here is the whole working thing, tested all I think.
If anybody wants to use it too.

Code:
  
:--------------------------------------------------------------------------------------------------------:

;
; - !Quotescript...
;



on *:text:!quote*:*: {
  if ($level($address($nick,8)) == Quote.Ban) { return }
  else var %who = $nick
  if ($chan) {
    if (!$istok(#narkotika #paranormal #ddayhome #shroomery #spiritualmaterialism #coders #TheTruth #immortal-technique #felles #tv.no #chemistry #filosofi #NanoTechnology #Śndelig #ganja #pinehillhaints #Le∑g∑ion! #innvikling #Truth #Gudene #shamanism +#christian #innsikt #2012 #utvikling #sms.no #tao #rytmeboksen #dreamt +#3d_life #archangels #spiritual #ascension #ugdulf #dreaming #spirituality #buddhism #shrooms #psychedelics #spiritual #narkotika #filosofisk #filosofi #Śndelighet,$chan,32)) { return }
    var %who = $chan
    if (%quote.delay) {
      .notice $nick Please try again after random delay of: $duration(%quote.delay) - Or use !"commands" in a PM.
      return
    }
    else {
      var %delay = $rand(50,100)
      set -u [ $+ [ %delay ] ] %quote.delay %delay
    }
  }
  if ($2) {
    if ($2 !isnum) { msg %who $2 is not a number. | return }
    if ($lines(quotes.txt) < $2) { msg %who Quote # $+ $2 doesn't exist. | return }
    msg %who $read(quotes.txt,$2)
  }
  elseif ($1 == !quotes) { msg %who Total quotes: $lines(quotes.txt) }
  else msg %who $read(quotes.txt)
}

on *:text:!addquote*:*: {
  if ($2 == $null) { .notice $nick You need to include a quote to add. }
  else write quotes.txt $2-
}

menu nicklist {
  !Quote Ban: auser Quote.Ban $address($snick($chan,1),8)
}

on *:input:*: {
  if ($1 == !quote) {
    var %who = $iif($chan,$chan,$me)
    if ($chan) {
      if (!$istok(#narkotika #paranormal #ddayhome #shroomery #spiritualmaterialism #coders #TheTruth #immortal-technique #felles #tv.no #chemistry #filosofi #NanoTechnology #Śndelig #ganja #pinehillhaints #Le∑g∑ion! #innvikling #Truth #Gudene #shamanism +#christian #innsikt #2012 #utvikling #sms.no #tao #rytmeboksen #dreamt +#3d_life #archangels #spiritual #ascension #ugdulf #dreaming #spirituality #buddhism #shrooms #psychedelics #spiritual #narkotika #filosofisk #filosofi #Śndelighet,$chan,32)) { return }
      if (%quote.delay) {
        echo -a Please try again after $duration(%quote.delay) or use !quote in a PM.
        return
      }
      else {
        var %delay = $rand(50,100)
        set -u [ $+ [ %delay ] ] %quote.delay %delay
      }
    }
    if ($2) {
      if ($2 !isnum) { msg %who $2 is not a number. | return }
      if ($lines(quotes.txt) < $2) { msg %who Quote # $+ $2 doesn't exist. | return }
      msg %who $read(quotes.txt,$2)
    }
    else msg %who $read(quotes.txt)
  }
  elseif ($1 == !quotes) { msg %who Total quotes: $lines(quotes.txt) }
  elseif ($1 == !addquote) {
    if ($2 == $null) { echo -a You need to include a quote to add. }
    else write quotes.txt $2-
  }
}

:--------------------------------------------------------------------------------------------------------:



THANK YOU!

laugh

Now all works!

Just got to make the notices show up only in the channel the !"commans" are being used, but that I should be able to find out on my own, or by making a post and asking in genereal..

Thank you ever so much!
I'd like to thank you in person one day. (I am a lucid dreamer.)

grin

Last edited by gomp; 17/11/06 02:16 PM.

I do not speak English. I speak Norwegian. So please bear with my poor English spelling and grammar.
Re: request: advanced script to act as a "bot"... #157049 17/11/06 09:57 PM
Joined: Jun 2004
Posts: 243
G
gomp Offline OP
Fjord artisan
OP Offline
Fjord artisan
G
Joined: Jun 2004
Posts: 243
Seems you fixed that already too!

Thank you ever so much!

You really made my wish come true!

THANKS!



BTW the name of that *.gif is "fortunate, happy, lucky, prosperous" (...in Norwegian! (Lykkelig!))

And you are the ONLY one responsible for that! At least indirectly!



I do not speak English. I speak Norwegian. So please bear with my poor English spelling and grammar.
Re: request: advanced script to act as a "bot"... [Re: gomp] #166439 11/12/06 12:22 AM
Joined: Jun 2004
Posts: 243
G
gomp Offline OP
Fjord artisan
OP Offline
Fjord artisan
G
Joined: Jun 2004
Posts: 243
* /auser: insufficient parameters

I get that when trying to ban someone.

Help? smile


I do not speak English. I speak Norwegian. So please bear with my poor English spelling and grammar.
Re: request: advanced script to act as a "bot"... [Re: gomp] #166443 11/12/06 01:56 AM
Joined: Aug 2004
Posts: 7,252
R
RusselB Offline
Hoopy frood
Offline
Hoopy frood
R
Joined: Aug 2004
Posts: 7,252
The original post has nothing to do with bans. You should've started a new topic, and supplied us with the code that the /user command is in in regards to the aspect of banning.

Re: request: advanced script to act as a "bot"... [Re: RusselB] #166553 12/12/06 10:58 AM
Joined: Jun 2004
Posts: 243
G
gomp Offline OP
Fjord artisan
OP Offline
Fjord artisan
G
Joined: Jun 2004
Posts: 243
OK.

I found the error I made.
Forgot to null out a linewith a ';' that messed with the script.
So it works now.

I got a few new requests for options though.

So I'll make a new post to make it less messy..

Thank you for all help! I love you! laugh

(I though I was replying to Riamus2, I skimped.)


[url=NEW POST FOUND HERE...]http://forums.mirc.com/ubbthreads.php?ubb=showflat&Number=166554&page=0#Post166554[/url]


Last edited by gomp; 12/12/06 11:16 AM.

I do not speak English. I speak Norwegian. So please bear with my poor English spelling and grammar.
Page 2 of 2 1 2