James

alias SwiftRPG dialog -m SwiftRPG SwiftRPG
menu * {
  SwiftRPG:SwiftRPG
}
dialog SwiftRPG {
  title "#SwiftRPG Command Dialog"
  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 14 15 8
  text "0", 5, 128 14 17 8
  text "Steal:", 6, 111 23 15 8
  text "0", 7, 128 23 17 8
  text "Fight:", 8, 111 32 15 8
  text "0", 9, 128 32 17 8
  text "Stake:", 10, 111 41 15 8
  text "0", 11, 128 41 17 8
  box "Duration", 12, 103 7 50 65
  text "Clue:", 13, 111 50 15 8
  text "0", 14, 128 50 17 8
  box "Info", 15, 104 73 50 59
  text "SwiftRPG made by Sara and Dra9. WebStats coded by James. We hope you enjoy the game! Have fun!", 16, 107 81 43 47, center
  text "0", 17, 128 59 17 8
  text "15s:", 18, 111 59 15 8
  link "WebStats", 19, 70 134 26 8
  edit "", 20, 10 72 86 41, read multi return autovs vsbar
}
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
}
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?" $?="Who much to wish to stake?"
        }
        else {
          msg #SwiftRPG ! $+ $did($dname,2).seltext $?="Who 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)
      }
      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)
      }
    }
    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 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
}
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-)
  }
}