XCept Quotes v1.1

Please Register to submit score.

Average Score	4.3
Scores Submitted	3
Date Added	Mar 25, 2007
Last Updated	Mar 26, 2007
Tags	quote xcept

Introduction

Basic quote script, excluding the fact that it filters out quotes containing selected text.

-Update v1.1: Updated .Quote. It can now search for a for a quote containing <text>, without having to use the param <N>

Grab the Code

on *:START: { If (!$exists(XCeptQuotes.txt)) { write XCeptQuotes.txt } | set %xc.version v1.1 | hlp }
menu channel {
  Quotes
  .Open/Close Dialog://If ($dialog(Quotes)) { .timer 1 .1 /dialog -x Quotes Quotes } | //If (!$dialog(Quotes)) { .timer 1 .1 /dialog -m Quotes Quotes }
  .Show Commands:/hlp
}
alias hlp {
  echo -a 3.9:15 -------------------------------
  echo -a 3.9:15 .Quote <N> <text>
  echo -a 3.9:15 With no params, reads random quote.
  echo -a 3.9:15 With just N param, reads # quote.
  echo -a 3.9:15 With just the <text> param, searches for the first quotes containing wildcard <text>
  echo -a 3.9:15 With both params, searches quote file for Nth matching wildcard of <text>
  echo -a 3.9:15 .AddQuote <text>
  echo -a 3.9:15 Adds quote to database.
  echo -a 3.9:15 -------------------------------
}
dialog Quotes {
  title XCept Quotes %xc.version
  size -1 -1 165 84
  option dbu
  button "Add Quote", 2, 132 1 33 18, multi
  button "Delete Quote", 3, 132 19 33 18, multi
  button "Search Quotes", 4, 132 37 33 18, multi
  button "Refresh", 5, 0 55 33 18, multi
  button "Filter Quotes", 6, 33 55 33 18, multi
  button "Import Quotes", 7, 66 55 33 18, multi
  button "Clear all Quotes", 8, 99 55 33 18, multi
  button "Exit", 9, 132 55 33 18, multi
  list 1, -1 0 133 55, size vsbar
  edit "", 10, 0 74 165 10, read autohs autovs
}
on *:DIALOG:Quotes:init:0: {
  If ($fopen(quote)) { .fclose quote }
  .fopen quote XCeptQuotes.txt
  While (!$feof) {
    didtok Quotes 1 C $fread(quote)
  }
  .fclose quote
}
on *:DIALOG:Quotes:dclick:1: { msg $active $did(1).seltext }
on *:DIALOG:Quotes:sclick:1: { did -ra Quotes 10 $did(1).seltext }
on *:DIALOG:Quotes:sclick:2: {
  set %add.q $strip($input(Add Quote:,edqau,XCept Quotes %xc.version,<Insert Quote Here>),bruc)
  If (!%add.q) || ($read(XCeptQuotes.txt,w,* $+ %add.q $+ *)) { unset %add.q | halt }
  write XCeptQuotes.txt %add.q
  did -a Quotes 1 $strip(%add.q,bruc)
  unset %add.q
}
on *:DIALOG:quotes:sclick:3: {
  If (!$did(1).seltext) { halt }
  If ($fopen(q)) { .fclose q }
  .fopen q XCeptQuotes.txt
  var %i 1
  While (!$feof) {
    If ($fread(q) = $did(1).seltext) { write -dl $+ %i XCeptQuotes.txt | did -d Quotes 1 $didwm(Quotes,1,$did(1).seltext) }
    inc %i
  }
  .fclose q
}
on *:DIALOG:quotes:sclick:4: {
  set %search.q $input(Search for quote containing text:,edqau,XCept Quotes %xc.version,<Insert Text Here>)
  If (!%search.q) { halt }
  did -r Quotes 1
  set %found none
  var %i 1
  While ($read(XCeptQuotes.txt,w,* $+ %search.q $+ *,%i)) {
    didtok Quotes 1 C $read(XCeptQuotes.txt,pnw,* $+ %search.q $+ *,%i)
    set %i $calc($readn + 1)
    set %found yes
  }
  If (%found = none) {
    didtok Quotes 1 C Found no Quotes for " $+ %search.q $+ "
  }
  If (%found = yes) {
    did -i Quotes 1 1 ----
    did -i Quotes 1 1 Searching for Results for " $+ %search.q $+ "...
  }
  unset %found %search.q %i
}
on *:DIALOG:Quotes:sclick:5: { resetquotes }
on *:DIALOG:Quotes:sclick:6: {
  did -r Quotes 1
  set %search.q $input(Filter out all quotes containing text:,edqau,XCept Quotes %xc.version,<Insert Text Here>)
  var %i 1
  While ($read(XCeptQuotes.txt,%i)) {
    If (%search.q isin $read(XCeptQuotes.txt,%i)) { inc %i | continue }
    didtok Quotes 1 C $read(XCeptQuotes.txt,%i)
    inc %i
  }
  did -i Quotes 1 1 ----
  did -i Quotes 1 1 Filtering out all Quotes containing text " $+ %search.q $+ "...
  unset %i %t %search.q
}
on *:DIALOG:Quotes:sclick:7: {
  set %Y/N $input(Load quotes from Clipboard?,auqvyd,XCept Quotes %xc.version)
  If (%Y/N = $no) { unset %Y/N | goto one }
  If (%Y/N = $yes) { unset %Y/N | goto two }
  :one
  set %Y/N $input(Load quotes from a Text File?,auqvyd,XCept Quotes %xc.version)
  If (%Y/N = $no) { unset %Y/N | halt }
  If (%Y/N = $yes) { unset %Y/N | goto three }
  :two
  var %i 1
  While ($cb(%i)) {
    write -i XCeptQuotes.txt $cb(%i)
    didtok Quotes 1 C $cb(%i)
    inc %i
  }
  unset %i
  halt
  :three
  set %Y/N $sfile($iif(%lastdir,%lastdir,$mircdir),Select a file to import text from. XCept Quotes %xc.version,Import)
  set %lastdir $nofile(%Y/N)
  var %i 1
  While ($read(%Y/N,%i)) {
    write -i XCeptQuotes.txt $read(%Y/N,%i)
    did -a Quotes $read(%Y/N,%i)
    inc %i
  }
  unset %i %Y/N
}
on *:DIALOG:Quotes:sclick:8: {
  set %Y/N $input(Are you sure you want to clear your quotes list? You cannot retrieve it.,auwvyd,XCept Quotes %xc.version)
  If (%Y/N = $no) { unset %Y/N | halt }
  If (%Y/N = $yes) {
    unset %Y/N
    .remove XCeptQuotes.txt
    write XCeptQutoes.txt
  }
}
on *:DIALOG:Quotes:sclick:9: { dialog -x Quotes Quotes }
on *:INPUT:*: {
  If (!$ctrlenter) {
    If ($1 = .Quote) {
      If ($3-) {
        haltdef
        If ($fopen(q)) { .fclose q }
        .fopen q XCeptQuotes.txt
        var %i 1
        While (!$feof) && (!$ferr) {
          If ($read(XCeptQuotes.txt,w,* $+ $3- $+ *,$2) = $fread(q)) { set %q %i }
          inc %i
        }
        .fclose q
        If (%q) {
          msg $active 3,1.9:15Selected Quote [# $+ %q $+ ]9:3.
          msg $active $read(XCeptQuotes.txt,w,* $+ $3- $+ *,$2)
          unset %q
        }
      }
      If (!$3-) && ($2) {
        If ($2 isnum) && ($2 < $lines(XCeptQuotes.txt)) {
          haltdef
          msg $active 3,1.9:15Selected Quote [# $+ $2 $+ ]9:3.
          msg $active $read(XCeptQuotes.txt,$2)
        }
        If ($2 !isnum) {
          haltdef
          msg $active 3,1.9:15Searched Quote " $+ $2 $+ "9:3.
          msg $active $read(XCeptQuotes.txt,w,* $+ $2 $+ *)
        }
      }
      If (!$2) {
        haltdef
        set %rand $rand(1,$lines(XCeptQuotes.txt))
        msg $active 3,1.9:15Random Quote [# $+ %rand $+ ]9:3.
        msg $active $read(XCeptQuotes.txt,%rand)
        unset %rand
      }
    }
    If ($1 = .AddQuote) {
      If ($2-) {
        haltdef
        write -i XCeptQuotes.txt $2-
        If ($dialog(Quotes)) { did -a Quotes 1 $2- }
        msg $active 3,1.9:15Added Quote.9:3
      }
    }
  }
}
alias resetquotes {
  did -r Quotes 1
  If ($fopen(quote)) { .fclose quote }
  .fopen quote XCeptQuotes.txt
  While (!$feof) {
    didtok Quotes 1 C $fread(quote)
  }
  .fclose quote
}

Comments

(3) RSS

Go to Bottom

Darkkeeper

Comments: 97

mIRC Snippet: XCept Quotes v1.1
Posted on Apr 1, 2007 6:17 pm

God, all your scripts rock XD

electrocuted

Comments: 1

mIRC Snippet: XCept Quotes v1.1
Posted on Apr 4, 2007 6:40 pm

Is there way for the script to respond to others, not just your own text?

Pwntage`Ninja

Comments: 25

mIRC Snippet: XCept Quotes v1.1
Posted on Apr 4, 2007 6:59 pm

Well, sure, but there's always the possibility of being flooded off, but it's not too hard. It'd be the exact same thing as the on INPUT event, minus the "If (!$ctrlenter) {" and an end bracket.

Though I'm not going to add that in, because it doesn't seem like a good update for the script.

XCept Quotes v1.1

Introduction

Grab the Code

Comments

Pwntage`Ninja

My Snippet Tags

Contact

Friends (1)

Sponsors


Last seen: Jul 27, 2007 Profile Friends (1) Scripts (3) Snippets (16) Images (1) Comments Received (70) Comments Submitted (25) Forum Posts (23)