All pastes #253721 Raw Edit

Untitled

public text v1 · immutable
#253721 ·published 2006-11-21 01:01 UTC
rendered paste body
on *:text:!kill chicken*:#: {
  if ($nick isop $chan) || ($nick == wat) {
   var %time = $rand(5,13)
   if ($nick isin $read(names.txt, w, $nick)) { /notice $nick please wait %time seconds to attack again }
   else {
     .timer 1 %time /write -dw $+ $nick names.txt
     var %chi = $rand(1,9)
     var %atk = $calc( %chi * 4)
      inc $+(%,bon.,$nick) %chi
     inc $+(%,atk.,$nick) %atk
     /notice $nick You go hunting and kill %chi chickens to get %chi bones .4wait %time seconds
     /notice $nick You have $eval($+(%,bon.,$nick),2) bones
   }
 }
----- MINING ----- (You Need To Put Xp Needed, You Never Gave Me The Code)
Key: %var + m = Amount of MINED ore - Ex. You just mined %tino tin ores = You just mined 5 tin ores. 
%var + o = Amount of ORE nick has - Ex. I have %tino tin ores = I have 5 tin ores.

Levels: (Shotcut)
1 - Copper
1 - Tin
10 - Blurite (Optional, I'll still include it) (Blur)
15 - Iron
20 - Silver (Silv, maybe)
30 - Coal
40 - Gold
55 - Mithril (Mith)
70 - Adamantite (Addy)
85 - Runite (Rune)

on *:text:!mine cop*:#:{
  if ($nick isop $chan) || ($nick == wat) {
   var %time = $rand(3,10)
   if ($nick isin $read(names.txt, w, $nick)) { /notice $nick please wait %time seconds to mine again }
   else {
     .timer 1 %time /write -dw $+ $nick names.txt
     var %copm = $rand(1,9)
     var %mlvl = $calc( %copm * 4)
      inc $+(%,copo.,$nick) %copm
     inc $+(%,mlvl.,$nick) %mlvl
     /notice $nick You go mine %copo copper ores.4Wait %time seconds
     /notice $nick You have $eval($+(%,copo.,$nick),2) copper ore
   }
 }
}
on *:text:!mine tin*:#:{
  if ($nick isop $chan) || ($nick == wat) {
   var %time = $rand(4,11)
   if ($nick isin $read(names.txt, w, $nick)) { /notice $nick please wait %time seconds to mine again }
   else {
     .timer 1 %time /write -dw $+ $nick names.txt
     var %tinm = $rand(2,9)
     var %mlvl = $calc( %tinm * 10)
      inc $+(%,tino.,$nick) %tinm
     inc $+(%,mlvl.,$nick) %mlvl
     /notice $nick You go mine %tino tin ores.4Wait %time seconds
     /notice $nick You have $eval($+(%,tino.,$nick),2) tin ores
   }
 }
}
on *:text:!mine blur*:#:{
  if ($nick isop $chan) || ($nick == wat) {
   var %time = $rand(4,12)
   if ($nick isin $read(names.txt, w, $nick)) { /notice $nick please wait %time seconds to mine again }
   else {
     .timer 1 %time /write -dw $+ $nick names.txt
     var %blum = $rand(2,9)
     var %mlvl = $calc( %blum * 17)
      inc $+(%,bluo.,$nick) %blum
     inc $+(%,mlvl.,$nick) %mlvl
     /notice $nick You go mine %bluo blurite ores.4Wait %time seconds
     /notice $nick You have $eval($+(%,bluo.,$nick),2) blurite ores
   }
 }
}
on *:text:!mine iron*:#:{
  if ($nick isop $chan) || ($nick == wat) {
   var %time = $rand(4,13)
   if ($nick isin $read(names.txt, w, $nick)) { /notice $nick please wait %time seconds to mine again }
   else {
     .timer 1 %time /write -dw $+ $nick names.txt
     var %ironm = $rand(3,10)
     var %mlvl = $calc( %ironm * 25)
      inc $+(%,irono.,$nick) %ironm
     inc $+(%,mlvl.,$nick) %mlvl
     /notice $nick You go mine %irono iron ores.4Wait %time seconds
     /notice $nick You have $eval($+(%,irono.,$nick),2) iron ores
   }
 }
}
on *:text:!mine silv*:#:{
  if ($nick isop $chan) || ($nick == wat) {
   var %time = $rand(4,14)
   if ($nick isin $read(names.txt, w, $nick)) { /notice $nick please wait %time seconds to mine again }
   else {
     .timer 1 %time /write -dw $+ $nick names.txt
     var %silvm = $rand(2,11)
     var %mlvl = $calc( %silvm * 36)
      inc $+(%,silvo.,$nick) %silvm
     inc $+(%,mlvl.,$nick) %mlvl
     /notice $nick You go mine %silvo silver ores.4Wait %time seconds
     /notice $nick You have $eval($+(%,silvo.,$nick),2) silver ores
   }
 }
}
on *:text:!mine coal*:#:{
  if ($nick isop $chan) || ($nick == wat) {
   var %time = $rand(4,15)
   if ($nick isin $read(names.txt, w, $nick)) { /notice $nick please wait %time seconds to mine again }
   else {
     .timer 1 %time /write -dw $+ $nick names.txt
     var %coalm = $rand(4,12)
     var %mlvl = $calc( %coalm * 45)
      inc $+(%,coalo.,$nick) %coalm
     inc $+(%,mlvl.,$nick) %mlvl
     /notice $nick You go mine %coalo coal ores.4Wait %time seconds
     /notice $nick You have $eval($+(%,coalo.,$nick),2) coal ores
   }
 }
}
on *:text:!mine gold*:#:{
  if ($nick isop $chan) || ($nick == wat) {
   var %time = $rand(4,16)
   if ($nick isin $read(names.txt, w, $nick)) { /notice $nick please wait %time seconds to mine again }
   else {
     .timer 1 %time /write -dw $+ $nick names.txt
     var %goldm = $rand(4,12)
     var %mlvl = $calc( %goldm * 53)
      inc $+(%,goldo.,$nick) %goldm
     inc $+(%,mlvl.,$nick) %mlvl
     /notice $nick You go mine %goldo gold ores.4Wait %time seconds
     /notice $nick You have $eval($+(%,goldo.,$nick),2) gold ores
   }
 }
}
on *:text:!mine mith*:#:{
  if ($nick isop $chan) || ($nick == wat) {
   var %time = $rand(6,16)
   if ($nick isin $read(names.txt, w, $nick)) { /notice $nick please wait %time seconds to mine again }
   else {
     .timer 1 %time /write -dw $+ $nick names.txt
     var %mithm = $rand(4,12)
     var %mlvl = $calc( %mithm * 65)
      inc $+(%,mitho.,$nick) %,mithm
     inc $+(%,mlvl.,$nick) %mlvl
     /notice $nick You go mine %mitho mithril ores.4Wait %time seconds
     /notice $nick You have $eval($+(%,mitho.,$nick),2) mithril ores
   }
 }
}
on *:text:!mine addy*:#:{
  if ($nick isop $chan) || ($nick == wat) {
   var %time = $rand(6,17)
   if ($nick isin $read(names.txt, w, $nick)) { /notice $nick please wait %time seconds to mine again }
   else {
     .timer 1 %time /write -dw $+ $nick names.txt
     var %addym = $rand(4,12)
     var %mlvl = $calc( %addym * 75)
      inc $+(%,addyo.,$nick) %,addym
     inc $+(%,mlvl.,$nick) %mlvl
     /notice $nick You go mine %addyo adamantite ores.4Wait %time seconds
     /notice $nick You have $eval($+(%,addyo.,$nick),2) adamantite ores
   }
 }
}
on *:text:!mine rune*:#:{
  if ($nick isop $chan) || ($nick == wat) {
   var %time = $rand(7,17)
   if ($nick isin $read(names.txt, w, $nick)) { /notice $nick please wait %time seconds to mine again }
   else {
     .timer 1 %time /write -dw $+ $nick names.txt
     var %runem = $rand(4,13)
     var %mlvl = $calc( %runem * 100)
      inc $+(%,runeo.,$nick) %,runem
     inc $+(%,mlvl.,$nick) %mlvl
     /notice $nick You go mine %runeo runite ores.4Wait %time seconds
     /notice $nick You have $eval($+(%,runeo.,$nick),2) runite ores
   }
 }
}
Remember: You need to make the `if` for how much/what xp/lvl they have to mine ------- DONE :)