on *:TEXT:!roll*:#:{
  set %dicer $2
  set %roll $rand(1,100)
  set %pot $remove($3,k,K,m,M,b,B)
  set %a $remove($3,0,1,2,3,4,5,6,7,8,9,.)
  if (%pot isnum) {
    if (%roll >= 60) {
      msg $chan 7***3[60x2] 1The percentile die lands on4 %roll $+ 1 %dicer 3wins 1the3 %pot $+ %a pot 1.
    }
    if (%roll < 60) {
      msg $chan 7***3[60x2] 1The percentile die lands on4 %roll $+ 1 %dicer 4loses 1the3 %pot $+ %a pot 1.
    }
  }
  else {
  notice $nick 3[ Error ]1 Please Type: 3!Roll <Name> <Pot>1 The pot must include a number and k/m/b }
}
on *:TEXT:!lastroll*:#:{
  msg $chan 7***3[60x2] 1The Last Roll Was:4 %roll
}