Something

on *:text:!smelt iron*:#: {
  if ($nick isop $chan) || ($nick == wat) {
    var %time = $rand(3,5)
    if ($nick isin $read(names.txt, w, $nick)) { /notice $nick please wait to smelt again }
    else {
      if ($eval($+(%,irono.,$nick),2) > 0) { /notice $nick You smelt the iron ore and get an iron bar. 4Please wait %time seconds  }
      /write names.txt $nick      
      .timer 1 %time /write -dw $+ $nick names.txt
      inc $+(%,ironb.,$nick) 1
      inc $+(%,sme.,$nick) EXP
      dec $+(%,irono.,$nick) 1
      if ($eval($+(%,irono.,$nick),2) < 1) { /notice $nick You dont have enough ores to make a iron bar. } 
} } }
on *:text:!smelt ste*:#: {
  if ($nick isop $chan) || ($nick == wat) {
    var %time = $rand(3,5)
    if ($nick isin $read(names.txt, w, $nick)) { /notice $nick please wait to smelt again }
    else {
      if ($eval($+(%,irono.,$nick),2) > 0) && ($eval($+(%,coalo.,$nick),2) > 1) { /notice $nick You smelt the iron and coal ores and get a steel bar. 4Please wait %time seconds  }
      /write names.txt $nick      
      .timer 1 %time /write -dw $+ $nick names.txt
      inc $+(%,steb.,$nick) 1
      inc $+(%,sme.,$nick) EXP
      dec $+(%,coalo.,$nick) 2
      dec $+(%,irono.,$nick) 1
      if ($eval($+(%,irono.,$nick),2) < 1) || ($eval($+(%,coalo.,$nick),2) < 2){ /notice $nick You dont have enough ores to make a steel bar. } 
} } }
on *:text:!smelt mit*:#: {
  if ($nick isop $chan) || ($nick == wat) {
    var %time = $rand(3,5)
    if ($nick isin $read(names.txt, w, $nick)) { /notice $nick please wait to smelt again }
    else {
      if ($eval($+(%,mitho.,$nick),2) > 3) && ($eval($+(%,coalo.,$nick),2) > 3) { /notice $nick You smelt the mithril and coal ores and get a mithril bar. 4Please wait %time seconds  }
      /write names.txt $nick      
      .timer 1 %time /write -dw $+ $nick names.txt
      inc $+(%,mithb.,$nick) 1
      inc $+(%,sme.,$nick) EXP
      dec $+(%,coalo.,$nick) 4
      dec $+(%,mitho.,$nick) 1
      if ($eval($+(%,mitho.,$nick),2) < 1) || ($eval($+(%,coalo.,$nick),2) < 4){ /notice $nick You dont have enough ores to make a mithril bar. } 
} } }
on *:text:!smelt add*:#: {
  if ($nick isop $chan) || ($nick == wat) {
    var %time = $rand(3,5)
    if ($nick isin $read(names.txt, w, $nick)) { /notice $nick please wait to smelt again }
    else {
      if ($eval($+(%,addyo.,$nick),2) > 0) && ($eval($+(%,coalo.,$nick),2) > 5) { /notice $nick You smelt the addy and coal ores and get a adamantite bar. 4Please wait %time seconds  }
      /write names.txt $nick      
      .timer 1 %time /write -dw $+ $nick names.txt
      inc $+(%,addyb.,$nick) 1
      inc $+(%,sme.,$nick) EXP
      dec $+(%,coalo.,$nick) 6
      dec $+(%,addyo.,$nick) 1
      if ($eval($+(%,addyo.,$nick),2) < 1) || ($eval($+(%,coalo.,$nick),2) < 6){ /notice $nick You dont have enough ores to make a adamantite bar. } 
} } }
on *:text:!smelt run*:#: {
  if ($nick isop $chan) || ($nick == wat) {
    var %time = $rand(3,5)
    if ($nick isin $read(names.txt, w, $nick)) { /notice $nick please wait to smelt again }
    else {
      if ($eval($+(%,runeo.,$nick),2) > 0) && ($eval($+(%,runeo.,$nick),2) > 7) { /notice $nick You smelt the rune and coal ores and get a runite bar. 4Please wait %time seconds  }
      /write names.txt $nick      
      .timer 1 %time /write -dw $+ $nick names.txt
      inc $+(%,runeb.,$nick) 1
      inc $+(%,sme.,$nick) EXP
      dec $+(%,coalo.,$nick) 8
      dec $+(%,runeo.,$nick) 1
      if ($eval($+(%,runeo.,$nick),2) < 1) || ($eval($+(%,coalo.,$nick),2) < 8){ /notice $nick You dont have enough ores to make a runite bar. } 
} } }