All pastes #253800 Raw Edit

Anonymous

public text v1 · immutable
#253800 ·published 2006-11-21 03:00 UTC
rendered paste body
on *:text:!mine coal*:#: {
  if ($nick isop $chan) || ($nick == wat) {
    var %time = $rand(5,13)
    if ($nick isin $read(mnames.txt, w, $nick)) { /notice $nick please wait to mine again }
    else {
      /write mnames.txt $nick 
      .timer 1 %time /write -dw $+ $nick mnames.txt
      if ($eval($+(%,mlvl.,$nick),2) < -----) { /notice $nick You need to be atleast Lvl 30 to mine coal! }
else {
      var %gem = $rand(0,20)
      var %coalo = $rand(2,8)
      var %mlvl = $calc( %coalo * 30)
      inc $+(%,coalo.,$nick) %coalo
      inc $+(%,mlvl.,$nick) %mlvl
      /notice $nick You go mine %coalo coal ores. 4Wait %time seconds
      /notice $nick You have $eval($+(%,coalo.,$nick),2) coal ore
      if (%gem == 7) { /notice $nick 3 You found a gem! |  /inc $+(%,gem.,$nick) 1  }
    }
  }
}
on *:text:!mine mith*:#: {
  if ($nick isop $chan) || ($nick == wat) {
    var %time = $rand(5,13)
    if ($nick isin $read(mnames.txt, w, $nick)) { /notice $nick please wait to mine again }
    else {
      /write mnames.txt $nick 
      .timer 1 %time /write -dw $+ $nick mnames.txt
      if ($eval($+(%,mlvl.,$nick),2) < -----) { /notice $nick You need to be atleast Lvl 55 to mine mith! }
else {
      var %gem = $rand(0,20)
      var %mitho = $rand(2,9)
      var %mlvl = $calc( %mitho * 45)
      inc $+(%,mitho.,$nick) %mitho
      inc $+(%,mlvl.,$nick) %mlvl
      /notice $nick You go mine %mitho mithril ores. 4Wait %time seconds
      /notice $nick You have $eval($+(%,mithrilo.,$nick),2) mithril ore
      if (%gem == 7) { /notice $nick 3 You found a gem! |  /inc $+(%,gem.,$nick) 1  }
    }
  }
}
on *:text:!mine addy*:#: {
  if ($nick isop $chan) || ($nick == wat) {
    var %time = $rand(5,13)
    if ($nick isin $read(mnames.txt, w, $nick)) { /notice $nick please wait to mine again }
    else {
      /write mnames.txt $nick 
      .timer 1 %time /write -dw $+ $nick mnames.txt
      if ($eval($+(%,mlvl.,$nick),2) < -----) { /notice $nick You need to be atleast Lvl 70 to mine addy! }
else {
      var %gem = $rand(0,20)
      var %addyo = $rand(4,10)
      var %mlvl = $calc( %addyo * 60)
      inc $+(%,addyo.,$nick) %addyo
      inc $+(%,mlvl.,$nick) %mlvl
      /notice $nick You go mine %addyo adamantite ores. 4Wait %time seconds
      /notice $nick You have $eval($+(%,addyo.,$nick),2) adamantite ore
      if (%gem == 7) { /notice $nick 3 You found a gem! |  /inc $+(%,gem.,$nick) 1  }
    }
  }
}
on *:text:!mine rune*:#: {
  if ($nick isop $chan) || ($nick == wat) {
    var %time = $rand(5,13)
    if ($nick isin $read(mnames.txt, w, $nick)) { /notice $nick please wait to mine again }
    else {
      /write mnames.txt $nick 
      .timer 1 %time /write -dw $+ $nick mnames.txt
      if ($eval($+(%,mlvl.,$nick),2) < -----) { /notice $nick You need to be atleast Lvl 85 to mine rune! }
else {
      var %gem = $rand(0,20)
      var %runeo = $rand(2,8)
      var %mlvl = $calc( %runeo * 80)
      inc $+(%,runeo.,$nick) %runeo
      inc $+(%,mlvl.,$nick) %mlvl
      /notice $nick You go mine %runeo coal ores. 4Wait %time seconds
      /notice $nick You have $eval($+(%,runeo.,$nick),2) runite ore
      if (%gem == 7) { /notice $nick 3 You found a gem! |  /inc $+(%,gem.,$nick) 1  }
    }
  }
}
on *:text:!orecount*:#:{
notice $nick Tin Ore: $eval($+(%,tino.,$nick),2) . Copper Ore: $eval($+(%,copo.,$nick),2) . Iron Ore: $eval($+(%,irono.,$nick),2) . Coal Ore: $eval($+(%,coalo.,$nick),2) . Mithril Ore: $eval($+(%,mitho.,$nick),2) . Adamantite Ore: $eval($+(%,addyo.,$nick),2) . Runite Ore: $eval($+(%,runeo.,$nick),2) .