Selling items on IRC (RuneScape)

By vegeto079 on Feb 04, 2007

Ok, this is a long script, and I bet there is a thousand ways to make it smaller, but this is how I did it, and I like to use tons of variables xD

What this does is send messages within certain time limits customized to #rsmarket (on irc.swiftirc.net).
You type /buy. Tell how many items you want to buy/sell. (I don't recommend using 3. It tends to get you kicked due to a long message.) You say what you want to buy/sell, whether you are buying or selling it, what price you want, what channel you want to use this timer in, and what person you want them to message you if they want to buy/sell the item.

Seems complicated, doesn't it? It's not. Really. It will go through each one of the questions for you and you answer them. Easy as that.

Also, you can store up to 5 preset things to sell/buy.
When you type /buy, it will ask if you want to make or use a customized preset. You can, of course, say yes or no.
You go through the questions like you normally would, then give it a name.
Then when you use /buy again, click yes on the question to use a custom preset, and you just type the number of the preset you want to use!
As I said, you can store 5 presets.

This is quite useful for RuneScape with SwiftIRC, where you can have your bot say something you want to buy/sell, while you do something else, and you wait for people to respond.

To stop the timer that sells for you, simple type "/buy stop"

So, basically, just type /buy after you load the script.

If I missed anything, I'll change it.

EDIT:
Update on 02/06/07
.Changed message from "Message %item.nick to buy!" to "Message %item.nick $+ !" in-case you weren't selling something, but buying something.

.Made it so you can't attempt to use a custom preset that doesn't exist, which normally returned an error message in the Status box. It now will just halt the script entirely.

.Added On Load part. WARNING: This will delete all your current presets! You will have to remake them if you want the newer parts of the script to work.

.Added option to change how many seconds per time you send the message to the channel. Eg; Instead of the usual 25-second per message, you can have it to, say, 50-second per.

Update on 02/14/07
.This is not an update, but just a warning. Until the next release saying that this script works, do NOT use it. If you have an older version of it, use it. Due to the update that allows you to choose the time, it messed up the script, and will spam and get you kicked.

Update on 09/08/07
.Not much of an update, but you can disregard the last update/warning. It is now fixed. Also added a Warning! sign when you are going to load the script again, if you have presets, they can be reset.

.Keep in mind, if all timers are reset while you are using this Buy script and are using a Preset, it may be reset, so you may have to re-enter the preset into the script. Simply load up the script and over-write the previous, broken script.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;Script By Vegeto079/Peach/|Cloud_Strife|;;;;;;;;;;;;;
;;Note: Sorry about huge script, but its needed as far as I know;;
;;;To Contact me about the script, email veget00tegev@yahoo.com;;;
;;;;;;;;;;;;Or talk to me in #peach on irc.swifitrc.net;;;;;;;;;;;
;;;;;Please do not edit this in any way without my permission;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias buy {
  if (%preset.one == $null) { set %preset.one None }
  if (%preset.two == $null) { set %preset.two None }
  if (%preset.three == $null) { set %preset.three None }
  if (%preset.four == $null) { set %preset.four None }
  if (%preset.five == $null) { set %preset.five None }
  if ($1 == stop) {
    timeritem* off
    echo -a Buying ended.
    unset %item*
    unset %buying
    halt
  }
  if (%buying == on) {
    echo -a You are already buying items! Type ( /buy stop ) to stop!
    halt
  }
  set %buying $?!="Would you like to load a preset buying/selling script?"
  if (%buying == $false) { goto regular }
  if (%buying == $true) { goto presets }
  :regular
  set %buying $?!="Would you like to create a preset buying/selling script?"
  if (%buying == $false) { goto regular2 }
  if (%buying == $true) { goto presets2 }
  :regular2
  set %buying $$?="How many items would you like to buy/sell? (1-3)"
  if (%buying == 1) {
    set %item $$?="What are you wanting to buy/sell?"
    set %item.type $$?="Are you buying or selling %item $+ ? (Please put -ING at the end, and type in CAPS)"
    set %item.price $$?="What price do you want for it? (Say offer for offer price.)"
    set %item.nick $$?="What nick do you want them to message to buy?"
    set %item.chan $$?="What channel do you want to message?"
    join %item.chan
    timeritem1 00 %time2 msg %item.chan .[ $+ %item.type $+ ]. %item [PRICE] %item.price $+ . Message %item.nick $+ !
    timeritem1a 01 %time loltimer1
    echo -a Selling started. To stop, type ( /buy stop )
    set %buying on
    halt
  }
  if (%buying == 2) {
    set %item $$?="What is the first item you are wanting to buy/sell?"
    set %item.type $$?="Are you buying or selling this first item? (Please put -ING at the end, and type in CAPS)"
    set %item.price $$?="What price do you want for it? (Say offer for offer price.)"
    set %item2 $$?="What is the second item you are wanting to buy/sell?"
    set %item2.type $$?="Are you buying or selling this second item? (Please put -ING at the end, and type in CAPS)"
    set %item2.price $$?="What price do you want for it? (Say offer for offer price.)"
    set %item.nick $$?="What nick do you want them to message to buy?"
    set %item.chan $$?="What channel do you want to message?"
    set %time $$?="How many seconds do you want to be inbetween messages? (Default 25)"
    set %time2 $calc(%time * 2)
    join %item.chan
    timeritem2 00 %time2 msg %item.chan .[ $+ %item.type $+ ]. %item [PRICE] %item.price .[ $+ %item2.type $+ ]. %item2 [PRICE] %item2.price $+ . Message %item.nick $+ !
    timeritem2a 01 %time loltimer2
    echo -a Selling started. To stop, type ( /buy stop )
    set %buying on
    halt
  }
  if (%buying == 3) {
    set %item $$?="What is the first item you are wanting to buy/sell?"
    set %item.type $$?="Are you buying or selling this first item? (Please put -ING at the end, and type in CAPS)"
    set %item.price $$?="What price do you want for it? (Say offer for offer price.)"
    set %item2 $$?="What is the second item you are wanting to buy/sell?"
    set %item2.type $$?="Are you buying or selling this second item? (Please put -ING at the end, and type in CAPS)"
    set %item2.price $$?="What price do you want for it? (Say offer for offer price.)"
    set %item3 $$?="What is the third item you are wanting to buy/sell?"
    set %item3.type $$?="Are you buying or selling this third item? (Please put -ING at the end, and type in CAPS)"
    set %item3.price $$?="What price do you want for it? (Say offer for offer price.)"
    set %item.nick $$?="What nick do you want them to message to buy?"
    set %item.chan $$?="What channel do you want to message?"
    set %time $$?="How many seconds do you want to be inbetween messages? (Default 25)"
    set %time2 $calc(%time * 2)
    join %item.chan
    timeritem3 00 %time2 msg %item.chan .[ $+ %item.type $+ ]. %item [PRICE] %item.price .[ $+ %item2.type $+ ]. %item2 [PRICE] %item2.price .[ $+ %item3.type $+ ]. %item3 [PRICE] %item3.price $+ . Message %item.nick $+ !
    timeritem2a 01 %time loltimer3
    echo -a Selling started. To stop, type ( /buy stop )
    set %buying on
    halt
  }
  :presets
  set %buying $$?="What preset number do you want to use? $+ $crlf $+ 1: %preset.one $+ $crlf $+  2: %preset.two $+ $crlf $+ 3: %preset.three $+ $crlf $+ 4: %preset.four $+ $crlf $+ 5: %preset.five $+ $crlf $+ 6: End (Choose none)"
  if (%buying != 1) && (%buying != 2) && (%buying != 3) && (%buying != 4) && (%buying != 5) {
    halt
  }
  set %buying2 $replace(%buying,1,one,2,two,3,three,4,four,5,five)
  if (%preset. [ $+ [ %buying2 ] ] == None) {
    halt
    unset %buying2
  }
  unset %buying2
  if (%buying == 1) {
    if (%preset.one.type == 1) {
      set %item %itemp1
      set %item.type %item.typep1
      set %item.price %item.pricep1
      set %item.nick %item.nickp1
      set %item.chan %item.chanp1
      set %time %timep1
      set %time2 %time2p1
      join %item.chan
      timeritem1 00 %time2 msg %item.chan .[ $+ %item.type $+ ]. %item [PRICE] %item.price $+ . Message %item.nick $+ !
      timeritem1a 01 %time loltimer1
      echo -a Selling started. To stop, type ( /buy stop )
      set %buying on
      halt
    }
    if (%preset.one.type == 2) {
      set %item %itemp1
      set %item.type %item.typep1
      set %item.price %item.pricep1
      set %item2 %item2p1
      set %item2.type %item2.typep1
      set %item2.price %item2.pricep1
      set %item.nick %item.nickp1
      set %item.chan %item.chanp1
      set %time %timep1
      set %time2 %time2p1
      join %item.chan
      timeritem1 00 %time2 msg %item.chan .[ $+ %item.type $+ ]. %item [PRICE] %item.price .[ $+ %item2.type $+ ]. %item2 [PRICE] %item2.price $+ . Message %item.nick $+ !
      timeritem1a 01 %time loltimer2
      echo -a Selling started. To stop, type ( /buy stop )
      set %buying on
      halt
    }
    if (%preset.one.type == 3) {
      set %item %itemp1
      set %item.type %item.typep1
      set %item.price %item.pricep1
      set %item2 %item2p1
      set %item2.type %item2.typep1
      set %item2.price %item2.pricep1
      set %item3 %item3p1
      set %item3.type %item3.typep1
      set %item3.price %item3.pricep1
      set %item.nick %item.nickp1
      set %item.chan %item.chanp1
      set %time %timep1
      set %time2 %time2p1
      join %item.chan
      timeritem1 00 %time2 msg %item.chan .[ $+ %item.type $+ ]. %item [PRICE] %item.price .[ $+ %item2.type $+ ]. %item2 [PRICE] %item2.price .[ $+ %item3.type $+ ]. %item3 [PRICE] %item3.price $+ . Message %item.nick $+ !
      timeritem1a 01 %time loltimer3
      echo -a Selling started. To stop, type ( /buy stop )
      set %buying on
      halt
    }
  }
  ;
  if (%buying == 2) {
    if (%preset.one.type == 1) {
      set %item %itemp2
      set %item.type %item.typep2
      set %item.price %item.pricep2
      set %item.nick %item.nickp2
      set %item.chan %item.chanp2
      set %time %timep2
      set %time2 %time2p2
      join %item.chan
      timeritem1 00 %time2 msg %item.chan .[ $+ %item.type $+ ]. %item [PRICE] %item.price $+ . Message %item.nick $+ !
      timeritem1a 01 %time loltimer1
      echo -a Selling started. To stop, type ( /buy stop )
      set %buying on
      halt
    }
    if (%preset.one.type == 2) {
      set %item %itemp2
      set %item.type %item.typep2
      set %item.price %item.pricep2
      set %item2 %item2p2
      set %item2.type %item2.typep2
      set %item2.price %item2.pricep2
      set %item.nick %item.nickp2
      set %item.chan %item.chanp2
      set %time %timep2
      set %time2 %time2p2
      join %item.chan
      timeritem1 00 %time2 msg %item.chan .[ $+ %item.type $+ ]. %item [PRICE] %item.price .[ $+ %item2.type $+ ]. %item2 [PRICE] %item2.price $+ . Message %item.nick $+ !
      timeritem1a 01 %time loltimer2
      echo -a Selling started. To stop, type ( /buy stop )
      set %buying on
      halt
    }
    if (%preset.one.type == 3) {
      set %item %itemp2
      set %item.type %item.typep2
      set %item.price %item.pricep2
      set %item2 %item2p2
      set %item2.type %item2.typep2
      set %item2.price %item2.pricep2
      set %item3 %item3p2
      set %item3.type %item3.typep2
      set %item3.price %item3.pricep2
      set %item.nick %item.nickp2
      set %item.chan %item.chanp2
      set %time %timep2
      set %time2 %time2p2
      join %item.chan
      timeritem1 00 %time2 msg %item.chan .[ $+ %item.type $+ ]. %item [PRICE] %item.price .[ $+ %item2.type $+ ]. %item2 [PRICE] %item2.price .[ $+ %item3.type $+ ]. %item3 [PRICE] %item3.price $+ . Message %item.nick $+ !
      timeritem1a 01 %time loltimer3
      echo -a Selling started. To stop, type ( /buy stop )
      set %buying on
      halt
    }
  }
  ;
  if (%buying == 3) {
    if (%preset.one.type == 1) {
      set %item %itemp3
      set %item.type %item.typep3
      set %item.price %item.pricep3
      set %item.nick %item.nickp3
      set %item.chan %item.chanp3
      set %time %timep3
      set %time2 %time2p3
      join %item.chan
      timeritem1 00 %time2 msg %item.chan .[ $+ %item.type $+ ]. %item [PRICE] %item.price $+ . Message %item.nick $+ !
      timeritem1a 01 %time loltimer1
      echo -a Selling started. To stop, type ( /buy stop )
      set %buying on
      halt
    }
    if (%preset.one.type == 2) {
      set %item %itemp3
      set %item.type %item.typep3
      set %item.price %item.pricep3
      set %item2 %item2p3
      set %item2.type %item2.typep3
      set %item2.price %item2.pricep3
      set %item.nick %item.nickp3
      set %item.chan %item.chanp3
      set %time %timep3
      set %time2 %time2p3
      join %item.chan
      timeritem1 00 %time2 msg %item.chan .[ $+ %item.type $+ ]. %item [PRICE] %item.price .[ $+ %item2.type $+ ]. %item2 [PRICE] %item2.price $+ . Message %item.nick $+ !
      timeritem1a 01 %time loltimer2
      echo -a Selling started. To stop, type ( /buy stop )
      set %buying on
      halt
    }
    if (%preset.one.type == 3) {
      set %item %itemp3
      set %item.type %item.typep3
      set %item.price %item.pricep3
      set %item2 %item2p3
      set %item2.type %item2.typep3
      set %item2.price %item2.pricep3
      set %item3 %item3p3
      set %item3.type %item3.typep3
      set %item3.price %item3.pricep3
      set %item.nick %item.nickp3
      set %item.chan %item.chanp3
      set %time %timep3
      set %time2 %time2p3
      join %item.chan
      timeritem1 00 %time2 msg %item.chan .[ $+ %item.type $+ ]. %item [PRICE] %item.price .[ $+ %item2.type $+ ]. %item2 [PRICE] %item2.price .[ $+ %item3.type $+ ]. %item3 [PRICE] %item3.price $+ . Message %item.nick $+ !
      timeritem1a 01 %time loltimer3
      echo -a Selling started. To stop, type ( /buy stop )
      set %buying on
      halt
    }
  }
  ;
  if (%buying == 4) {
    if (%preset.one.type == 1) {
      set %item %itemp4
      set %item.type %item.typep4
      set %item.price %item.pricep4
      set %item.nick %item.nickp4
      set %item.chan %item.chanp4
      set %time %timep4
      set %time2 %time2p4
      join %item.chan
      timeritem1 00 %time2 msg %item.chan .[ $+ %item.type $+ ]. %item [PRICE] %item.price $+ . Message %item.nick $+ !
      timeritem1a 01 %time loltimer1
      echo -a Selling started. To stop, type ( /buy stop )
      set %buying on
      halt
    }
    if (%preset.one.type == 2) {
      set %item %itemp4
      set %item.type %item.typep4
      set %item.price %item.pricep4
      set %item2 %item2p4
      set %item2.type %item2.typep4
      set %item2.price %item2.pricep4
      set %item.nick %item.nickp4
      set %item.chan %item.chanp4
      set %time %timep4
      set %time2 %time2p4
      join %item.chan
      timeritem1 00 %time2 msg %item.chan .[ $+ %item.type $+ ]. %item [PRICE] %item.price .[ $+ %item2.type $+ ]. %item2 [PRICE] %item2.price $+ . Message %item.nick $+ !
      timeritem1a 01 %time loltimer2
      echo -a Selling started. To stop, type ( /buy stop )
      set %buying on
      halt
    }
    if (%preset.one.type == 3) {
      set %item %itemp4
      set %item.type %item.typep4
      set %item.price %item.pricep4
      set %item2 %item2p4
      set %item2.type %item2.typep4
      set %item2.price %item2.pricep4
      set %item3 %item3p4
      set %item3.type %item3.typep4
      set %item3.price %item3.pricep4
      set %item.nick %item.nickp4
      set %item.chan %item.chanp4
      set %time %timep4
      set %time2 %time2p4
      join %item.chan
      timeritem1 00 %time2 msg %item.chan .[ $+ %item.type $+ ]. %item [PRICE] %item.price .[ $+ %item2.type $+ ]. %item2 [PRICE] %item2.price .[ $+ %item3.type $+ ]. %item3 [PRICE] %item3.price $+ . Message %item.nick $+ !
      timeritem1a 01 %time loltimer3
      echo -a Selling started. To stop, type ( /buy stop )
      set %buying on
      halt
    }
  }
  ;
  if (%buying == 5) {
    if (%preset.one.type == 1) {
      set %item %itemp5
      set %item.type %item.typep5
      set %item.price %item.pricep5
      set %item.nick %item.nickp5
      set %item.chan %item.chanp5
      set %time %timep5
      set %time2 %time2p5
      join %item.chan
      timeritem1 00 %time2 msg %item.chan .[ $+ %item.type $+ ]. %item [PRICE] %item.price $+ . Message %item.nick $+ !
      timeritem1a 01 %time loltimer1
      echo -a Selling started. To stop, type ( /buy stop )
      set %buying on
      halt
    }
    if (%preset.one.type == 2) {
      set %item %itemp5
      set %item.type %item.typep5
      set %item.price %item.pricep5
      set %item2 %item2p5
      set %item2.type %item2.typep5
      set %item2.price %item2.pricep5
      set %item.nick %item.nickp5
      set %item.chan %item.chanp5
      set %time %timep5
      set %time2 %time2p5
      join %item.chan
      timeritem1 00 %time2 msg %item.chan .[ $+ %item.type $+ ]. %item [PRICE] %item.price .[ $+ %item2.type $+ ]. %item2 [PRICE] %item2.price $+ . Message %item.nick $+ !
      timeritem1a 01 %time loltimer2
      echo -a Selling started. To stop, type ( /buy stop )
      set %buying on
      halt
    }
    if (%preset.one.type == 3) {
      set %item %itemp5
      set %item.type %item.typep5
      set %item.price %item.pricep5
      set %item2 %item2p5
      set %item2.type %item2.typep5
      set %item2.price %item2.pricep5
      set %item3 %item3p5
      set %item3.type %item3.typep5
      set %item3.price %item3.pricep5
      set %item.nick %item.nickp5
      set %item.chan %item.chanp5
      set %time %timep5
      set %time2 %time2p5
      join %item.chan
      timeritem1 00 %time2 msg %item.chan .[ $+ %item.type $+ ]. %item [PRICE] %item.price .[ $+ %item2.type $+ ]. %item2 [PRICE] %item2.price .[ $+ %item3.type $+ ]. %item3 [PRICE] %item3.price $+ . Message %item.nick $+ !
      timeritem1a 01 %time loltimer3
      echo -a Selling started. To stop, type ( /buy stop )
      set %buying on
      halt
    }
  }
  :presets2
  set %buying $$?="What preset number do you want to make? $+ $crlf $+ 1: %preset.one $+ $crlf $+  2: %preset.two $+ $crlf $+ 3: %preset.three $+ $crlf $+ 4: %preset.four $+ $crlf $+ 5: %preset.five $+ $crlf $+ 6: End (Choose none)"
  if (%buying != 1) && (%buying != 2) && (%buying != 3) && (%buying != 4) && (%buying != 5) {
    halt
  }
  if (%buying == 1) {
    set %buying $$?="How many items would you like to buy/sell? (1-3)"
    if (%buying == 1) {
      set %itemp1 $$?="What are you wanting to buy/sell?"
      set %item.typep1 $$?="Are you buying or selling %item $+ ? (Please put -ING at the end, and type in CAPS)"
      set %item.pricep1 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item.nickp1 $$?="What nick do you want them to message to buy?"
      set %item.chanp1 $$?="What channel do you want to message?"
      set %timep1 $$?="How many seconds do you want to be inbetween messages? (Default 25)"
      set %time2p1 $calc(%time * 2)
      set %preset.one $$?="What do you want this preset to be named?"
      set %preset.one.type 1
      halt
    }
    if (%buying == 2) {
      set %itemp1 $$?="What is the first item you are wanting to buy/sell?"
      set %item.typep1 $$?="Are you buying or selling this first item? (Please put -ING at the end, and type in CAPS)"
      set %item.pricep1 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item2p1 $$?="What is the second item you are wanting to buy/sell?"
      set %item2.typep1 $$?="Are you buying or selling this second item? (Please put -ING at the end, and type in CAPS)"
      set %item2.pricep1 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item.nickp1 $$?="What nick do you want them to message to buy?"
      set %item.chanp1 $$?="What channel do you want to message?"
      set %timep1 $$?="How many seconds do you want to be inbetween messages? (Default 25)"
      set %time2p1 $calc(%time * 2)
      set %preset.one $$?="What do you want this preset to be named?"
      set %preset.one.type 2
      halt
    }
    if (%buying == 3) {
      set %itemp1 $$?="What is the first item you are wanting to buy/sell?"
      set %item.typep1 $$?="Are you buying or selling this first item? (Please put -ING at the end, and type in CAPS)"
      set %item.pricep1 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item2p1 $$?="What is the second item you are wanting to buy/sell?"
      set %item2.typep1 $$?="Are you buying or selling this second item? (Please put -ING at the end, and type in CAPS)"
      set %item2.pricep1 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item3p1 $$?="What is the third item you are wanting to buy/sell?"
      set %item3.typep1 $$?="Are you buying or selling this third item? (Please put -ING at the end, and type in CAPS)"
      set %item3.pricep1 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item.nickp1 $$?="What nick do you want them to message to buy?"
      set %item.chanp1 $$?="What channel do you want to message?"
      set %timep1 $$?="How many seconds do you want to be inbetween messages? (Default 25)"
      set %time2p1 $calc(%time * 2)
      set %preset.one $$?="What do you want this preset to be named?"
      set %preset.one.type 3
      halt
    }
  }
  if (%buying == 2) {
    set %buying $$?="How many items would you like to buy/sell? (1-3)"
    if (%buying == 1) {
      set %itemp2 $$?="What are you wanting to buy/sell?"
      set %item.typep2 $$?="Are you buying or selling %item $+ ? (Please put -ING at the end, and type in CAPS)"
      set %item.pricep2 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item.nickp2 $$?="What nick do you want them to message to buy?"
      set %item.chanp2 $$?="What channel do you want to message?"
      set %timep2 $$?="How many seconds do you want to be inbetween messages? (Default 25)"
      set %time2p2 $calc(%time * 2)
      set %preset.two $$?="What do you want this preset to be named?"
      set %preset.two.type 1
      halt
    }
    if (%buying == 2) {
      set %itemp2 $$?="What is the first item you are wanting to buy/sell?"
      set %item.typep2 $$?="Are you buying or selling this first item? (Please put -ING at the end, and type in CAPS)"
      set %item.pricep2 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item2p2 $$?="What is the second item you are wanting to buy/sell?"
      set %item2.typep2 $$?="Are you buying or selling this second item? (Please put -ING at the end, and type in CAPS)"
      set %item2.pricep2 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item.nickp2 $$?="What nick do you want them to message to buy?"
      set %item.chanp2 $$?="What channel do you want to message?"
      set %timep2 $$?="How many seconds do you want to be inbetween messages? (Default 25)"
      set %time2p2 $calc(%time * 2)
      set %preset.two $$?="What do you want this preset to be named?"
      set %preset.two.type 2
      halt
    }
    if (%buying == 3) {
      set %itemp2 $$?="What is the first item you are wanting to buy/sell?"
      set %item.typep2 $$?="Are you buying or selling this first item? (Please put -ING at the end, and type in CAPS)"
      set %item.pricep2 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item2p2 $$?="What is the second item you are wanting to buy/sell?"
      set %item2.typep2 $$?="Are you buying or selling this second item? (Please put -ING at the end, and type in CAPS)"
      set %item2.pricep2 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item3p2 $$?="What is the third item you are wanting to buy/sell?"
      set %item3.typep2 $$?="Are you buying or selling this third item? (Please put -ING at the end, and type in CAPS)"
      set %item3.pricep2 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item.nickp2 $$?="What nick do you want them to message to buy?"
      set %item.chanp2 $$?="What channel do you want to message?"
      set %timep2 $$?="How many seconds do you want to be inbetween messages? (Default 25)"
      set %time2p2 $calc(%time * 2)
      set %preset.two $$?="What do you want this preset to be named?"
      set %preset.two.type 3
      halt
    }
  }
  if (%buying == 3) {
    set %buying $$?="How many items would you like to buy/sell? (1-3)"
    if (%buying == 1) {
      set %itemp3 $$?="What are you wanting to buy/sell?"
      set %item.typep3 $$?="Are you buying or selling %item $+ ? (Please put -ING at the end, and type in CAPS)"
      set %item.pricep3 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item.nickp3 $$?="What nick do you want them to message to buy?"
      set %item.chanp3 $$?="What channel do you want to message?"
      set %timep3 $$?="How many seconds do you want to be inbetween messages? (Default 25)"
      set %time2p3 $calc(%time * 2)
      set %preset.three $$?="What do you want this preset to be named?"
      set %preset.three.type 1
      halt
    }
    if (%buying == 2) {
      set %itemp3 $$?="What is the first item you are wanting to buy/sell?"
      set %item.typep3 $$?="Are you buying or selling this first item? (Please put -ING at the end, and type in CAPS)"
      set %item.pricep3 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item2p3 $$?="What is the second item you are wanting to buy/sell?"
      set %item2.typep3 $$?="Are you buying or selling this second item? (Please put -ING at the end, and type in CAPS)"
      set %item2.pricep3 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item.nickp3 $$?="What nick do you want them to message to buy?"
      set %item.chanp3 $$?="What channel do you want to message?"
      set %timep3 $$?="How many seconds do you want to be inbetween messages? (Default 25)"
      set %time2p3 $calc(%time * 2)
      set %preset.three $$?="What do you want this preset to be named?"
      set %preset.three.type 2
      halt
    }
    if (%buying == 3) {
      set %itemp3 $$?="What is the first item you are wanting to buy/sell?"
      set %item.typep3 $$?="Are you buying or selling this first item? (Please put -ING at the end, and type in CAPS)"
      set %item.pricep3 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item2p3 $$?="What is the second item you are wanting to buy/sell?"
      set %item2.typep3 $$?="Are you buying or selling this second item? (Please put -ING at the end, and type in CAPS)"
      set %item2.pricep3 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item3p3 $$?="What is the third item you are wanting to buy/sell?"
      set %item3.typep3 $$?="Are you buying or selling this third item? (Please put -ING at the end, and type in CAPS)"
      set %item3.pricep3 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item.nickp3 $$?="What nick do you want them to message to buy?"
      set %item.chanp3 $$?="What channel do you want to message?"
      set %timep3 $$?="How many seconds do you want to be inbetween messages? (Default 25)"
      set %time2p3 $calc(%time * 2)
      set %preset.three $$?="What do you want this preset to be named?"
      set %preset.three.type 3
      halt
    }
  }
  if (%buying == 4) {
    set %buying $$?="How many items would you like to buy/sell? (1-3)"
    if (%buying == 1) {
      set %itemp4 $$?="What are you wanting to buy/sell?"
      set %item.typep4 $$?="Are you buying or selling %item $+ ? (Please put -ING at the end, and type in CAPS)"
      set %item.pricep4 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item.nickp4 $$?="What nick do you want them to message to buy?"
      set %item.chanp4 $$?="What channel do you want to message?"
      set %timep4 $$?="How many seconds do you want to be inbetween messages? (Default 25)"
      set %time2p4 $calc(%time * 2)
      set %preset.four $$?="What do you want this preset to be named?"
      set %preset.four.type 1
      halt
    }
    if (%buying == 2) {
      set %itemp4 $$?="What is the first item you are wanting to buy/sell?"
      set %item.typep4 $$?="Are you buying or selling this first item? (Please put -ING at the end, and type in CAPS)"
      set %item.pricep4 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item2p4 $$?="What is the second item you are wanting to buy/sell?"
      set %item2.typep4 $$?="Are you buying or selling this second item? (Please put -ING at the end, and type in CAPS)"
      set %item2.pricep4 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item.nickp4 $$?="What nick do you want them to message to buy?"
      set %item.chanp4 $$?="What channel do you want to message?"
      set %timep4 $$?="How many seconds do you want to be inbetween messages? (Default 25)"
      set %time2p4 $calc(%time * 2)
      set %preset.four $$?="What do you want this preset to be named?"
      set %preset.four.type 2
      halt
    }
    if (%buying == 3) {
      set %itemp4 $$?="What is the first item you are wanting to buy/sell?"
      set %item.typep4 $$?="Are you buying or selling this first item? (Please put -ING at the end, and type in CAPS)"
      set %item.pricep4 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item2p4 $$?="What is the second item you are wanting to buy/sell?"
      set %item2.typep4 $$?="Are you buying or selling this second item? (Please put -ING at the end, and type in CAPS)"
      set %item2.pricep4 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item3p4 $$?="What is the third item you are wanting to buy/sell?"
      set %item3.typep4 $$?="Are you buying or selling this third item? (Please put -ING at the end, and type in CAPS)"
      set %item3.pricep4 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item.nickp4 $$?="What nick do you want them to message to buy?"
      set %item.chanp4 $$?="What channel do you want to message?"
      set %timep4 $$?="How many seconds do you want to be inbetween messages? (Default 25)"
      set %time2p4 $calc(%time * 2)
      set %preset.four $$?="What do you want this preset to be named?"
      set %preset.four.type 3
      halt
    }
  }
  if (%buying == 5) {
    set %buying $$?="How many items would you like to buy/sell? (1-3)"
    if (%buying == 1) {
      set %itemp5 $$?="What are you wanting to buy/sell?"
      set %item.typep5 $$?="Are you buying or selling %item $+ ? (Please put -ING at the end, and type in CAPS)"
      set %item.pricep5 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item.nickp5 $$?="What nick do you want them to message to buy?"
      set %item.chanp5 $$?="What channel do you want to message?"
      set %timep5 $$?="How many seconds do you want to be inbetween messages? (Default 25)"
      set %time2p5 $calc(%time * 2)
      set %preset.five $$?="What do you want this preset to be named?"
      set %preset.five.type 1
      halt
    }
    if (%buying == 2) {
      set %itemp5 $$?="What is the first item you are wanting to buy/sell?"
      set %item.typep5 $$?="Are you buying or selling this first item? (Please put -ING at the end, and type in CAPS)"
      set %item.pricep5 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item2p5 $$?="What is the second item you are wanting to buy/sell?"
      set %item2.typep5 $$?="Are you buying or selling this second item? (Please put -ING at the end, and type in CAPS)"
      set %item2.pricep5 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item.nickp5 $$?="What nick do you want them to message to buy?"
      set %item.chanp5 $$?="What channel do you want to message?"
      set %timep5 $$?="How many seconds do you want to be inbetween messages? (Default 25)"
      set %time2p5 $calc(%time * 2)
      set %preset.five $$?="What do you want this preset to be named?"
      set %preset.five.type 2
      halt
    }
    if (%buying == 3) {
      set %itemp5 $$?="What is the first item you are wanting to buy/sell?"
      set %item.typep5 $$?="Are you buying or selling this first item? (Please put -ING at the end, and type in CAPS)"
      set %item.pricep5 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item2p5 $$?="What is the second item you are wanting to buy/sell?"
      set %item2.typep5 $$?="Are you buying or selling this second item? (Please put -ING at the end, and type in CAPS)"
      set %item2.pricep5 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item3p5 $$?="What is the third item you are wanting to buy/sell?"
      set %item3.typep5 $$?="Are you buying or selling this third item? (Please put -ING at the end, and type in CAPS)"
      set %item3.pricep5 $$?="What price do you want for it? (Say offer for offer price.)"
      set %item.nickp5 $$?="What nick do you want them to message to buy?"
      set %item.chanp5 $$?="What channel do you want to message?"
      set %timep5 $$?="How many seconds do you want to be inbetween messages? (Default 25)"
      set %time2p5 $calc(%time * 2)
      set %preset.five $$?="What do you want this preset to be named?"
      set %preset.five.type 3
      halt
    }
  }
}
alias loltimer1 {
  timeritem1b 00 %time2 msg %item.chan .[ $+ %item.type $+ ]. %item [PRICE] %item.price $+ . Message %item.nick $+ .
}
alias loltimer2 {
  timeritem2b 00 %time2 msg %item.chan .[ $+ %item.type $+ ]. %item [PRICE] %item.price .[ $+ %item2.type $+ ]. %item2 [PRICE] %item2.price $+ . Message %item.nick $+ .
}
alias loltimer3 {
  timeritem3b 00 %time2 msg %item.chan .[ $+ %item.type $+ ]. %item [PRICE] %item.price .[ $+ %item2.type $+ ]. %item2 [PRICE] %item2.price .[ $+ %item3.type $+ ]. %item3 [PRICE] %item3.price $+ . Message %item.nick $+ .
}
on *:load:{
  if (%load.item2 == Yes) {
    set %load.item $?!="This script has already been loaded once or more before. Load again? Warning! This will delete all of your current presets!"
  }
  if (%load.item2 == $null) || (%load.item == $true) {
    set %load.item $true
    set %load.item2 Yes
    unset %preset*
    timeritem* off
    unset %item*
    unset %buying
    unset %time*
    echo -a Buying Script Loaded. Type /buy and it will take you through everything.
    halt
  }
}

Comments

Sign in to comment.
RussellReal   -  Feb 06, 2007

I actually made a market script also :) except mine works a bit differently, it sockets to my server, but I kind of sell it to people so you would have to have your own file on my server to use it, but its a rather nice script (yours also) :) saw this snippet title and i was like OH YAH! COMPETITION! really nice script (didn\'t try it but is pretty long(length doesn\'t make it better just assuming it was done right)) :) GOOD LUCK!

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.