on *:text:!mine cop*:#: {
  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
       var %gem = $rand(0,20)
       var %copo = $rand(1,6)
       var %mlvl = $calc( %copo * 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
        if (%gem == 7) { /notice $nick 3 You found a gem! |  /inc $+(%,gem,$nick) 1  }
      }
    }
  }
}