;;REMOTES;;
on *:text:!create*:#rslife:{ if (!$($+(%,$nick),2)) set % $+ $nick $nick
  set % $+ $nick $+ .Coins 100
  set % $+ $nick $+ .CombatXP 0
  set % $+ $nick $+ .PrayerXP 0
  set % $+ $nick $+ .Bones 0
  set % $+ $nick $+ .Bbones 0
  set % $+ $nick $+ .IronDaggers 0
  set % $+ $nick $+ .IronKites 0
  set % $+ $nick $+ .mithplates 0
  set % $+ $nick $+ .dchains 0
  set % $+ $nick $+ .QP 0
  set % $+ $nick $+ .WcXP 0
  set % $+ $nick $+ .Logs 0
  echo -a 4DevilDriver's 2RuneScape14 script, a new account has been created: $nick $+ .
  notice $nick You have created your account! Type !info <Nick> for information regarding yours or someone elses account. Then !kill <monster>, for a list of monsters type !klist. You can bury the Bones you get, !bury <bonetype>. You can also sell your items by typing !sell <ItemName> <Amount>. You can also type !qlist for a list of quests. !buylist for a number of items you can buy. !wclist for trees you can cut.
  else { notice $nick You already have an account! ( $+ $($+(%,$nick),2)) $+ )
  }
}
on *:text:!info*:#rslife:{ if (!$2) && (!$($+(%,$nick),2)) notice $nick You do not have an account! Type !create to make one.
  else { if (!$2) notice $nick Account name: $($+(%,$nick),2)
    notice $nick Coins: $($+(%,$nick,.Coins),2)
    notice $nick Combat XP: $($+(%,$nick,.CombatXP),2)
    notice $nick Prayer XP: $($+(%,$nick,.PrayerXP),2)
    notice $nick Bones: $($+(%,$nick,.Bones),2) $+ , Big Bones: $($+(%,$nick,.Bbones),2)
    notice $nick Woodcut XP: $($+(%,$nick,.WcXP),2)
    notice $nick Logs: $($+(%,$nick,.Logs),2)
    notice $nick Quest Points: $($+(%,$nick,.QP),2)
    if ($($+(%,$nick,.dchains),2) > 0) notice $nick Dragon Chains: $($+(%,$nick,.dchains),2) $+ , Iron Daggers: $($+(%,$nick,.IronDaggers),2) $+ , Iron Kiteshields: $($+(%,$nick,.IronKites),2) $+ , Mithril Platebodys: $($+(%,$nick,.mithplates),2) $+ .
    else { notice $nick Iron Daggers: $($+(%,$nick,.IronDaggers),2) $+ , Iron Kiteshields: $($+(%,$nick,.IronKites),2) $+ , Mithril Platebodys: $($+(%,$nick,.mithplates),2) $+ .
    }
  }
}
;;KILLS;;
on *:text:!klist*:#rslife:{ notice $nick Available monsters to kill:
  notice $nick Man
  notice $nick Hgiant (Hill Giant: You need 1,000 combat experience to kill these)
  notice $nick DustDevil (Dust Devil: You need 20,000 combat experience to kill these)
  notice $nick End of list.
  notice $nick Syntax: !kill <monster>
}
on *:text:!kill man*:#rslife:{ if (!$($+(%,$nick),2)) notice $nick You do not have an account! Type !create to make one.
  else { if ($($+(%,$nick,.busy),2) == On) notice $nick You have to wait until you can kill another man!
    else { notice $nick You go to kill a man...
      set % $+ $nick $+ .man.coins $rand(0,22)
      set % $+ $nick $+ .man.daggers $rand(0,3)
      timer 1 5 notice $nick You returned with $($+(%,$nick,.man.coins),2) coins and $($+(%,$nick,.man.daggers),2) Iron Daggers! These have been added to your stash.
      inc % $+ $nick $+ .Coins $($+(%,$nick,.man.coins),2)
      inc % $+ $nick $+ .IronDaggers $($+(%,$nick,.man.daggers),2)
      inc % $+ $nick $+ .CombatXP 32
      inc % $+ $nick $+ .Bones 1
      unset % $+ $nick $+ .man.coins
      unset % $+ $nick $+ .man.daggers
      set % $+ $nick $+ .busy On
      timer 1 10 unset % $+ $nick $+ .busy
    }
  }
}
on *:text:!kill hgiant*:#rslife:{ if (!$($+(%,$nick),2)) notice $nick You do not have an account! Type !create to make one.
  else { if ($($+(%,$nick,.CombatXP),2) < 1000) notice $nick You do not have enough Combat experience to kill Hill Giants. (1000 Combat Experience minimum.)
    else { if ($($+(%,$nick,.busy),2) == On) notice $nick You have to wait until you can kill another Hill Giant!
      else { notice $nick You go to kill a Hill Giant...
        set % $+ $nick $+ .hgiant.coins $rand(0,100)
        set % $+ $nick $+ .hgiant.ironkites $rand(0,2)
        timer 1 5 notice $nick You returned with $($+(%,$nick,.hgiant.coins),2) coins and $($+(%,$nick,.hgiant.ironkites),2) Iron Kiteshields! These have been added to your stash.
        inc % $+ $nick $+ .Coins $($+(%,$nick,.hgiant.coins),2)
        inc % $+ $nick $+ .IronKites $($+(%,$nick,.hgiant.ironkites),2)
        inc % $+ $nick $+ .CombatXP 62
        inc % $+ $nick $+ .Bbones 1
        unset % $+ $nick $+ .hgiant.coins
        unset % $+ $nick $+ .hgiant.ironkites
        set % $+ $nick $+ .busy On
        timer 1 10 unset % $+ $nick $+ .busy
      }
    }
  }
}
on *:text:!kill Dustdevil*:#rslife:{ if (!$($+(%,$nick),2)) notice $nick You do not have an account! Type !create to make one.
  else { if ($($+(%,$nick,.CombatXP),2) < 20000) notice $nick You do not have enough Combat experience to kill Dust Devils. (20000 Combat Experience minimum.)
    else { if ($($+(%,$nick,.busy),2) == On) notice $nick You have to wait until you can kill another Dust Devil!
      else { notice $nick You go to kill a Dust Devil...
        set % $+ $nick $+ .dd.coins $rand(0,1000)
        set % $+ $nick $+ .dd.mithplates $rand(0,1)
        timer 1 5 notice $nick You returned with $($+(%,$nick,.dd.coins),2) coins and $($+(%,$nick,.dd.mithplates),2) Mithril Plates! These have been added to your stash.
        inc % $+ $nick $+ .Coins $($+(%,$nick,.dd.coins),2)
        inc % $+ $nick $+ .mithplates $($+(%,$nick,.dd.mithplates),2)
        inc % $+ $nick $+ .CombatXP 400
        inc % $+ $nick $+ .bones 1
        unset % $+ $nick $+ .dd.coins
        unset % $+ $nick $+ .dd.mithplates
        set % $+ $nick $+ .busy On
        timer 1 10 unset % $+ $nick $+ .busy
        /dchaindd $nick
      }
    }
  }
}
;;QUESTS;;
on *:text:!qlist*:#rslife:{ if (!$($+(%,$nick),2)) notice $nick You do not have an account! Type !create to make one.
  else { notice $nick Quest list: (Quest Points: $($+(%,$nick,.QP),2) $+ )
    if ($($+(%,$nick,.StarterQuest),2) == Complete) notice $nick 3Starter quest (Completed)
    else { notice $nick 4Starter quest (No Requirements)
    }
  }
  if ($($+(%,$nick,.RomeoandJuliet),2) == Complete) notice $nick 3Romeo and Juliet (Completed)
  else { notice $nick 4Romeo and Juliet (No Requirements)
  }
  notice $nick Syntax: !start <questname>
}
on *:text:!start starter quest*:#rslife:{ if (!$($+(%,$nick),2)) notice $nick You do not have an account! Type !create to make one.
  else { if ($($+(%,$nick,.StarterQuest),2) == Complete) notice $nick You have already completed this quest!
    else { set % $+ $nick $+ .StarterQuest On
      notice $nick You have started the Starter quest!
      notice $nick Quests will run through a multi-choice based play... e.g, A monster approches you, do you fight it or run away? Type !fight monster or !run away.
      notice $nick To finish this quest type !sq finish.
    }
  }
}
on *:text:!sq finish*:#rslife:{ if (!$($+(%,$nick),2)) notice $nick You do not have an account type !create to make one.
  else { if ($($+(%,$nick,.StarterQuest),2) == On) notice $nick ______________________________
    notice $nick        Congratulations!      
    notice $nick    You have completed the:   
    notice $nick         Starter Quest!       
    notice $nick       Reward: 600 coins!     
    notice $nick ______________________________
    set % $+ $nick $+ .StarterQuest Complete
    inc % $+ $nick $+ .Coins 600
    else { notice $nick You haven't started this quest!
    }
  }
}
on *:text:!start romeo and juliet*:#rslife:{ if (!$($+(%,$nick),2)) notice $nick You do not have an account! Type !create to make one.
  else { if ($($+(%,$nick,.RomeoandJuliet),2) == Complete) notice $nick You have already completed this quest!
    else { set % $+ $nick $+ .RomeoandJuliet On
      notice $nick You have started the quest!
      notice $nick You speak to Romeo, he says: "If I knew where Juliet were I could secretly kill her, help me find her!"
      notice $nick Where do you want to search? Type !rj search east varrock or !rj search west varrock.
    }
  }
}
on *:text:!rj search east varrock*:#rslife:{ if (!$($+(%,$nick),2)) notice $nick You do not have an account! Type !create to make one.
  else { if ($($+(%,$nick,.RomeoandJuliet),2) == Complete) notice $nick You have already completed this quest!
    else { if ($($+(%,$nick,.RomeoandJuliet),2) == On) notice $nick You didn't manage to find Juliet.
      else { notice $nick You haven't started the quest!
      }
    }
  }
}
on *:text:!rj search west varrock*:#rslife:{ if (!$($+(%,$nick),2)) notice $nick You do not have an account! Type !create to make one.
  else { if ($($+(%,$nick,.RomeoandJuliet),2) == Complete) notice $nick You have already completed this quest!
    else { if ($($+(%,$nick,.RomeoandJuliet),2) == On) set % $+ $nick $+ .RomeoandJuliet Part2
      notice $nick You found Juliet! 
      notice $nick You return to Romeo and he tells you to get some Cadava Berries for the Apothecary... 
      notice $nick You manage to find some Berries but aren't sure what colour to choose, type !rj red or !rj pink to continue.
      else { notice $nick You haven't started the quest!
      }
    }
  }
}
on *:text:!rj red*:#rslife:{ if (!$($+(%,$nick),2)) notice $nick You do not have an account! Type !create to make one.
  else { if ($($+(%,$nick,.RomeoandJuliet),2) == Complete) notice $nick You have already completed this quest!
    else { if ($($+(%,$nick,.RomeoandJuliet),2) == Part2) notice $nick The Apothecary tells you these are the wrong berries!
      else { notice $nick You haven't started the quest!
      }
    }
  }
}
on *:text:!rj pink*:#rslife:{ if (!$($+(%,$nick),2)) notice $nick You do not have an account! Type !create to make one.
  else { if ($($+(%,$nick,.RomeoandJuliet),2) == Complete) notice $nick You have already completed this quest!
    else { if ($($+(%,$nick,.RomeoandJuliet),2) == Part2) notice $nick The berries are the right ones!
      notice $nick Romeo manages to kill off Juliet! Yay 4 him!
      set % $+ $nick $+ .RomeoandJuliet Complete
      notice $nick ____________________________________
      notice $nick Congratulations!
      notice $nick You have completed the:
      notice $nick Romeo and Juliet quest! 1 QP
      notice $nick Reward: 1000 coins & 300 Prayer XP
      notice $nick ___________________________________
      inc % $+ $nick $+ .QP 1
      inc % $+ $nick $+ .Coins 1000
      inc % $+ $nick $+ .PrayerXP 300
      else { notice $nick You haven't started the quest or aren't on this part!
      }
    }
  }
}
;;SELLING;;
on *:text:!sell IronDaggers*:#rslife:{ if (!$($+(%,$nick),2)) notice $nick You do not have an account! Type !create to make one.
  else { if ($3 == 0) || ($3 < 0) || ($($+(%,$nick,.IronDaggers),2) == 0) notice $nick Either you're stupid or you have no Iron Daggers to sell.
    else { if ($3 == $($+(%,$nick,.IronDaggers),2)) || ($3 < $($+(%,$nick,.IronDaggers),2)) dec % $+ $nick $+ .IronDaggers $3
      inc % $+ $nick $+ .coins $calc($3 * 16)
      notice $nick You have successfully sold $3 Iron Daggers, the gold has been added to your stash.
    }
  }
}
on *:text:!sell IronKites*:#rslife:{ if (!$($+(%,$nick),2)) notice $nick You do not have an account! Type !create to make one.
  else { if ($3 == 0) || ($3 < 0) || ($($+(%,$nick,.IronKites),2) == 0) notice $nick Either you're stupid or you have no Iron Kites to sell.
    else { if ($3 == $($+(%,$nick,.IronKites),2)) || ($3 < $($+(%,$nick,.IronKites),2)) dec % $+ $nick $+ .IronKites $3
      inc % $+ $nick $+ .coins $calc($3 * 116)
      notice $nick You have successfully sold $3 Iron Kites, the gold has been added to your stash.
    }
  }
}
on *:text:!sell Dchains*:#rslife:{ if (!$($+(%,$nick),2)) notice $nick You do not have an account! Type !create to make one.
  else { if ($3 == 0) || ($3 < 0) || ($($+(%,$nick,.dchains),2) == 0) notice $nick Either you're stupid or you have no Dragon Chains to sell.
    else { if ($3 == $($+(%,$nick,.dchains),2)) || ($3 < $($+(%,$nick,.dchains),2)) dec % $+ $nick $+ .dchains $3
      inc % $+ $nick $+ .coins $calc($3 * 15000000)
      notice $nick You have successfully sold $3 Dragon Chains, the gold has been added to your stash.
    }
  }
}
on *:text:!sell Mithplates*:#rslife:{ if (!$($+(%,$nick),2)) notice $nick You do not have an account! Type !create to make one.
  else { if ($3 == 0) || ($3 < 0) || ($($+(%,$nick,.mithplates),2) == 0) notice $nick Either you're stupid or you have no Mithril Plates to sell.
    else { if ($3 == $($+(%,$nick,.mithplates),2)) || ($3 < $($+(%,$nick,.mithplates),2)) dec % $+ $nick $+ .mithplates $3
      inc % $+ $nick $+ .coins $calc($3 * 8000)
      notice $nick You have successfully sold $3 Mithril Plates, the gold has been added to your stash.
    }
  }
}
on *:text:!sell logs*:#rslife:{ if (!$($+(%,$nick),2)) notice $nick You do not have an account! Type !create to make one.
  else { if ($3 == 0) || ($3 < 0) || ($($+(%,$nick,.logs),2) == 0) notice $nick Either you're stupid or you have no Logs to sell.
    else { if ($3 == $($+(%,$nick,.logs),2)) || ($3 < $($+(%,$nick,.logs),2)) dec % $+ $nick $+ .dchains $3
      inc % $+ $nick $+ .coins $calc($3 * 2)
      notice $nick You have successfully sold $3 Logs, the gold has been added to your stash.
    }
  }
}
;;BUYING;;
on *:text:!buylist*:#rslife:{ notice $nick Available things to buy:
  notice $nick Axe ( 100 coins - Required to cut trees )
  notice $nick End of list.
  notice $nick Syntax: !buy <item>
}
on *:text:!buy axe*:#rslife:{ if (!$($+(%,$nick),2)) notice $nick You do not have an account! Type !create to make one.
  else { if ($($+(%,$nick,.coins),2) < 100 ) notice $nick You do not have enough coins to buy an Axe.
    else { set % $+ $nick $+ .Axe Yes
      notice $nick You have just bought an Axe! You now have access to the Woodcutting skill!
      dec % $+ $nick $+ .coins 100
    }
  }
}
;;PRAYER;;
on *:text:!burylist*:#rslife:{ if (!$($+(%,$nick),2)) notice $nick You do not have an account! Type !create to make one.
  else { notice $nick Burying Bones list:
    notice $nick Bones
    notice $nick Bbones (Big Bones)
    notice $nick End of list
    notice $nick Syntax: !bury <type>
  }
}
on *:text:!bury bones*:#rslife:{ if (!$($+(%,$nick),2)) notice $nick You do not have an account! Type !create to make one.
  else { if ($3 == 0) || ($3 < 0) || ($($+(%,$nick,.Bones),2) == 0) notice $nick Either you're stupid or you have no bones to bury.
    else { if ($3 == $($+(%,$nick,.Bones),2)) || ($3 < $($+(%,$nick,.Bones),2)) dec % $+ $nick $+ .Bones $3
      inc % $+ $nick $+ .PrayerXP $calc($3 * 4)
      notice $nick You have successfully buried $3 bones.
    }
  }
}
on *:text:!bury Bbones*:#rslife:{ if (!$($+(%,$nick),2)) notice $nick You do not have an account! Type !create to make one.
  else { if ($3 == 0) || ($3 < 0) || ($($+(%,$nick,.Bbones),2) == 0) notice $nick Either you're stupid or you have no big bones to bury.
    else { if ($3 == $($+(%,$nick,.Bbones),2)) || ($3 < $($+(%,$nick,.Bbones),2)) dec % $+ $nick $+ .Bbones $3
      inc % $+ $nick $+ .PrayerXP $calc($3 * 15)
      notice $nick You have successfully buried $3 big bones.
    }
  }
}
;;WOODCUT;;
on *:text:!wclist*:#rslife:{ notice $nick Available trees to cut:
  notice $nick Tree  
  notice $nick End of list.
  notice $nick Syntax: !cut <treetype>
}
on *:text:!cut tree*:#rslife:{ if (!$($+(%,$nick),2)) notice $nick You do not have an account! Type !create to make one.
  else { if ($($+(%,$nick,.Busy),2) == On) notice $nick You need to wait before you can cut another Tree!
    else { if (!$($+(%,$nick,.Axe),2)) notice $nick You do not have an Axe!
      else { notice $nick You begin to chop a Tree...
        set % $+ $nick $+ .TreeLogs $rand(1,10)
        timer 1 5 notice $nick You have chopped $($+(%,$nick,.TreeLogs),2) Logs.
        inc % $+ $nick $+ .Logs $($+(%,$nick,.TreeLogs),2)
        inc % $+ $nick $+ .WcXP $calc($($+(%,$nick,.TreeLogs),2) * 15)
        unset % $+ $nick $+ .TreeLogs
        set % $+ $nick $+ .Busy on
        timer 1 10 unset % $+ $nick $+ .Busy
      }
    }
  }
}
;;RANDOMS;;{still in remotes)
alias playerdeath { if (!$($+(%,$1),2)) echo -a 5--[RuneScript]--That person does not have an account!
  else { notice $1 Omg! $1 $+ ! Someone has just died! You go over and investigate...
    timer 1 5  notice $1 You have picked up their $2 $+ ! Worth $3 coins!
    inc % $+ $1 $+ .Coins $3
  }
}
alias bandits { if (!$($+(%,$1),2)) echo -a 5--[RuneScript]--That person does not have an account!
  else { notice $1 Ohno! You are being mugged by a group of Bandits!
    timer 1 5 notice $1 The Bandits run away... They have stolen $2 coins from you!
    dec % $+ $1 $+ .Coins $2
  }
}
alias dchaindd { set % $+ $1 $+ .dchaindrop $rand(1,500)
  if ($($+(%,$1,.dchaindrop),2) > 1) halt
  else { notice $1 OMFG! Special Drop! w0000000t D CHAIN!!!!
    inc % $+ $1 $+ .dchains 1
    msg $chan 2 $+ $1 14has found a 4DRAGON CHAIN!!! 14Well done2 $1 $+ 14, you've done the impossible...
    unset % $+ $1 $+ .dchaindrop
  }
}
alias dchainhack { notice $1 OMFG! Special Drop! w0000000t D CHAIN!!!!
  inc % $+ $1 $+ .dchains 1
  msg $chan 2 $+ $1 14has found a 4DRAGON CHAIN!!! 14Well done2 $1 $+ 14, you've done the impossible...
}