James

alias SwiftRPG dialog -m SwiftRPG SwiftRPG
menu * {
  SwiftRPG:SwiftRPG
}
dialog SwiftRPG {
  title "#SwiftRPG Command Diaog"
  size -1 -1 160 144
  option dbu
  box "Actions", 1, 7 7 94 125
  list 2, 16 18 68 50, size
  button "Initiate", 3, 36 116 37 12
  text "Loot:", 4, 111 16 15 8
  text "0", 5, 128 16 17 8
  text "Steal:", 6, 111 25 15 8
  text "0", 7, 128 25 17 8
  text "Fight:", 8, 111 34 15 8
  text "0", 9, 128 34 17 8
  text "Stake:", 10, 111 43 15 8
  text "0", 11, 128 43 17 8
  box "Duration", 12, 103 7 50 85
  text "Clue:", 13, 111 52 15 8
  text "0", 14, 128 52 17 8
  text "0", 17, 128 79 17 8
  text "15s:", 18, 111 79 15 8
  link "WebStats", 19, 70 134 26 8
  edit "", 20, 10 72 86 41, read multi return autovs vsbar
  text "Kill:", 15, 111 61 15 8
  text "0", 16, 128 61 17 8
  text "Grow:", 21, 111 70 15 8
  text "0", 22, 128 70 16 8
}
on *:DIALOG:SwiftRPG:init:0:{
  did -a $dname 2 Loot
  did -a $dname 2 Steal
  did -a $dname 2 Fight
  did -a $dname 2 Stake
  did -a $dname 2 Clue
  did -a $dname 2 Task
  did -a $dname 2 Kill
  did -a $dname 2 Grow
  did -a $dname 2 Shop
  did -a $dname 2 Info
  did -a $dname 2 Login
  did -a $dname 2 Logout  
  did -a $dname 2 GP
  did -a $dname 2 Account
  did -a $dname 2 Hiscores
}
on *:DIALOG:SwiftRPG:sclick:*:{
  if ($did == 3) {
    if ($did($dname,$calc($SwiftRPGID($did($dname,2).seltext) + 1)) == 0 && $did($dname,17) == 0) {
      if ($did($dname,2).seltext == Stake) {
        if ($?!="Do you want to stake someone in the channel?") {
          msg #SwiftRPG ! $+ $did($dname,2).seltext $?="Who do you wish to stake?" $?="How much to wish to stake?"
        }
        else {
          msg #SwiftRPG ! $+ $did($dname,2).seltext $?="How much to wish to stake?"
        }
        did -a $dname $calc($SwiftRPGID($did($dname,2).seltext) + 1) 60
        did -a $dname 17 15
        SwiftRPGTimerStart $calc($SwiftRPGID($did($dname,2).seltext) + 1)
      }
      elseif ($did($dname,2).seltext == Kill) {
        msg #SwiftRPG ! $+ $did($dname,2).seltext $?="What do you wish to slay?"
        did -a $dname $calc($SwiftRPGID($did($dname,2).seltext) + 1) 60
        did -a $dname 17 15
        SwiftRPGTimerStart $calc($SwiftRPGID($did($dname,2).seltext) + 1)
      }
      elseif ($did($dname,2).seltext == Grow) {
        msg #SwiftRPG ! $+ $did($dname,2).seltext $?="What do you wish to grow?"
        did -a $dname $calc($SwiftRPGID($did($dname,2).seltext) + 1) 60
        did -a $dname 17 15
        SwiftRPGTimerStart $calc($SwiftRPGID($did($dname,2).seltext) + 1)
      }
      else {
        msg #SwiftRPG ! $+ $did($dname,2).seltext
        did -a $dname $calc($SwiftRPGID($did($dname,2).seltext) + 1) 60
        did -a $dname 17 15
        SwiftRPGTimerStart $calc($SwiftRPGID($did($dname,2).seltext) + 1)
      }
    }
    elseif ($did($dname,2).seltext isin Task Hiscores) {
      msg #SwiftRPG ! $+ $did($dname,2).seltext
    }
    elseif ($did($dname,2).seltext == Shop) {
      msg #SwiftRPG !Shop $?="Buy or Sell?" $?="What are you buy/selling?"
      did -a $dname 17 15
      SwiftRPGTimerStart2
    }
    elseif ($did($dname,2).seltext == Info) {
      msg #SwiftRPG !Info $?="What is the item's number?"
    }
    elseif ($did($dname,2).seltext == Login || $did($dname,2).seltext == Logout) {
      msg [RPG]iKick . $+ $did($dname,2).seltext $?="Account Name" $?*="Password"
    }
    elseif ($did($dname,2).seltext == GP || $did($dname,2).seltext == Account) {
      msg #SwiftRPG ! $+ $did($dname,2).seltext $?="Who's info do you want (If yours put nothing)"
    }
    else {
      did -r $dname 20
      did -a $dname 20 You can't use that command yet!
    }
  }
  elseif ($did == 19) {
    url http://www.Terror.Stirk.org/ik/swiftrpg/index.php
  }
}
Alias SwiftRPGTimerStart {
  $+(.timerSwiftRPG,$ticks) 60 1 did -a SwiftRPG $1 $!calc( $!did(SwiftRPG, $1 ) - 1 )
  $+(.timerSwiftRPG,$calc($ticks * 2)) 15 1 did -a SwiftRPG 17 $!calc( $!did(SwiftRPG, 17 ) - 1 )
}
Alias SwiftRPGTimerStart2 {
  $+(.timerSwiftRPG,$calc($ticks * 2)) 15 1 did -a SwiftRPG 17 $!calc( $!did(SwiftRPG, 17 ) - 1 )
}
alias SwiftRPGID {
  if ($1 == Loot) return 4
  elseif ($1 == Steal) return 6
  elseif ($1 == Fight) return 8
  elseif ($1 == Stake) return 10
  elseif ($1 == Clue) return 13
  elseif ($1 == Grow) return 21
  elseif ($1 == Kill) return 15
}
ON *:DIALOG:SwiftRPG:close:0:{
  .timerSwiftRPG* off
}
ON *:NOTICE:*:?:{
  if ($nick == [RPG]iKick && $dialog(SwiftRPG)) {
    did -r SwiftRPG 20
    did -a SwiftRPG 20 $strip($1-)
  }
}
ON *:TEXT:*:?:{
  if ($nick == [RPG]iKick && $dialog(SwiftRPG)) {
    did -r SwiftRPG 20
    did -a SwiftRPG 20 $strip($1-)
  }
}