All pastes #60549 Raw Edit

Unnamed

public text v1 · immutable
#60549 ·published 2006-06-01 08:49 UTC
rendered paste body
alias c1 { return $+(04,$1-) } 
alias c2 { return $+(07,$1-) } 

on *:text:*:*: { 
  if ($left($1,1) !isin @!.) || (!$setskill($remove($1,@,!,.))) halt 
  inc %ID 
  set %display $iif($left($1,1) == @,msg $chan,notice $nick) 
  set $+(%,stats.display.,%ID) $iif($left($1,1) == @,msg $chan,notice $nick) 
  if ($len($2-) > 12) { $($+(%,stats.display.,%ID),2) $c1(The nick) $c2($2-) $c1(is too long) | cleanup %ID } 
  elseif (!$2) && (%name [ $+ [ $nick ] ] != $null) {
    set $+(%,stats.rsn.,%ID) $replace(%name [ $+ [ $nick ] ],$chr(32),-,+,-) 
    set $+(%,stats.skill.,%ID) $setskill($remove($1,@,!,.))
    set %skill $setskill($remove($1,@,!,.)) 
    sockopen $+(stats.,%ID) spaldox.com 80 
  }
  else { 
    set $+(%,stats.rsn.,%ID) $replace($2-,$chr(32),-,+,-) 
    set %skill $setskill($remove($1,@,!,.)) 
    set $+(%,stats.skill.,%ID) $setskill($remove($1,@,!,.)) 
    sockopen $+(stats.,%ID) spaldox.com 80 
  } 
} 
on *:sockopen:stats.*: { 
  var %id = $gettok($sockname,2,46) 
  sockwrite -n $sockname GET /statbots/BotStats.php?user= $+ $($+(%,stats.rsn.,%ID),2) HTTP/1.0 
  sockwrite -n $sockname Host: spaldox.com $+ $crlf $+ $crlf 
} 
on *:sockread:stats.*: { 
  var -s %ID = $gettok($sockname,2,46), $& 
    %stats.rsn = $($+(%,stats.rsn.,%ID),2), $& 
    %stats.skill = $($+(%,stats.skill.,%ID),2), $& 
    %stats.display = $($+(%,stats.display.,%ID),2) 

  if ($sockerr > 0) { $($+(%,stats.display.,%ID),2) $c1(Socket error - try again later) | cleanup %ID } 
  var %t 
  sockread %t 
  tokenize 32 %t 
  if ($replace($1,$chr(32),+) == $+(%stats.rsn,:)) { 
    if (NIH == $gettok($1-,2,58) ) { 
      %stats.display $c1(The nick) $c2(%stats.rsn) $c1(does not appear in the hi-scores) 
      cleanup %ID 
    } 
    elseif ($2 == %stats.skill) { 
      set %level1234 $bytes($4,b)
      set %level123456 $calc( %level1234 + 1 )
      set %exp1234 $remove($5,$chr(44))
      set %level123 $calc($exp($calc( %level1234) + 1 )) 
      set %level1236 $round(%level123,0)
      set %level12345 $calc( %level123 - ( %level1234 / 11 ) - %exp1234 )
      set %level19 $bytes(%level12345,b)
      %stats.display $c2(%stats.skill) $c2(stats for) $c1(%stats.rsn) $+ $c2(:) 
      %stats.display $c2(Rank:) $c2($3) $c2(Level:) $c2($bytes($4,b)) $c2(Exp:) $c2($5) 
      %stats.display $c2(Exp Until Level %level123456 $+ :) $c2(%level19)
      monster
    } 
  } 
} 
alias cleanup { 
  sockclose $+(Stats.,$1) 
  unset $+(%,stats.display.,$1) 
  unset $+(%,stats.skill.,$1) 
  unset $+(%,stats.rsn.,$1) 
  unset %level1234
  unset %level123456
  unset %exp1234
  unset %level123
  unset %level12345
  unset %level1236
  unset %level19
} 
alias setskill { 
  if ($regex($1,/(st|(skill)?total|overall)^/Si)) return Overall 
  elseif ($regex($1,/construct(ion)?/Si)) return Construction   
  elseif ($regex($1,/at(t|k|tack)/Si)) return Attack  
  elseif ($regex($1,/def(en[cs]e)?/Si)) return Defence 
  elseif ($regex($1,/str(ength)?/Si)) return Strength 
  elseif ($regex($1,/hp|hit(s|points?)?/Si)) return Hitpoints 
  elseif ($regex($1,/range(r|d|ing)?/Si)) return Ranged 
  elseif ($regex($1,/Pray(er)?/Si)) return Prayer 
  elseif ($regex($1,/mag(e|ic)/Si)) return Magic 
  elseif ($regex($1,/cook(ing)?/Si)) return Cooking 
  elseif ($regex($1,/wc|wood(cut(ting)?)?/Si)) return Woodcutting 
  elseif ($regex($1,/fletch(ing)?/Si)) return Fletching 
  elseif ($regex($1,/fish(ing)?/Si)) return Fishing 
  elseif ($regex($1,/(fire|fm)(make?(ing)?|ing)?/Si)) return Firemaking 
  elseif ($regex($1,/crafti(ng)?/Si)) return Crafting 
  elseif ($regex($1,/(smith|smelt)(ing)?/Si)) return Smithing 
  elseif ($regex($1,/min(e|ing)/Si)) return Mining 
  elseif ($regex($1,/herb(law|lore)?/Si)) return Herblore 
  elseif ($regex($1,/agil(ity)?/Si)) return Agility 
  elseif ($regex($1,/(th(ei|ie)[fv](e|ing)?)/Si)) return Thieving 
  elseif ($regex($1,/slay(er|ing)?/Si)) return Slayer 
  elseif ($regex($1,/farm(er|ing)?/Si)) return Farming 
  elseif ($regex($1,/(rc|runecraft)(er|ing)?/Si)) return Runecraft 
} 


alias exp {
  var %a = 1
  .set %exp123 0
  var %a1 = $eval($1)
  while (%a < %a1) {
    var %expvalue = $calc((%a + 300 * 2^(%a / 7)) /4)
    inc %exp123 %expvalue
    inc %a
  }
  return $floor(%exp123)
}


alias monster {
  if (%skill == strength) || (%skill == attack) || (%skill == defence) {
    attk
  }
  if (%skill == hitpoints) {
    hp
  }
  if (%skill == Ranged) {
    range
  }
  if (%skill == magic) {
    magic
  }
  if (%skill == mining) {
    mining
  }
  if (%skill == woodcutting) {
    woodcutting
  }
  if (%skill == prayer) {
    prayer
  }
  if (%skill == smithing) {
    smithing
  }
  if (%skill == runecraft) {
    runecraft
  }
  if (%skill == firemaking) {
    firemaking
  }
  if (%skill == fishing) {
    fishing
  }
  if (%skill == cooking) {
    cooking
  }
  if (%skill == crafting) {
    crafting
  }
  if (%skill == farming) {
    farming
  }
  if (%skill == herblore) {
    herblore
  }
  if (%skill == fletching) {
    fletch
  }
  if (%skill == thieving) {
    thieving
  }
  if (%skill == agility) {
    agility
  }
  if (%skill == construction) {
    construction
  }
}
alias construction {
  .set %imp $calc(%level12345 / 150)
  .set %imp1 $ceil(%imp)    
  .set %mapt $calc(%level12345 / 122)
  .set %mapt1 $ceil(%mapt) 
  .set %yt $calc(%level12345 / 141)
  .set %yt1 $ceil(%yt) 
  .set %magt $calc(%level12345 / 223)
  .set %magt1 $ceil(%magt) 
  .set %pts $calc(%level12345 / 100)
  .set %pts1 $ceil(%pts) 
  .set %mahogarm $calc(%level12345 / 280)
  .set %mahogarm1 $ceil(%mahogarm) 
  .set %teakarm $calc(%level12345 / 180)
  .set %teakarm1 $ceil(%teakarm) 
  .set %oprug $calc(%level12345 / 360)
  .set %oprug1 $ceil(%oprug) 
  .set %stonefp $calc(%level12345 / 40)
  .set %stonefp1 $ceil(%stonefp) 
  .set %marblefp $calc(%level12345 / 500)
  .set %marblefp1 $ceil(%marblefp) 
  .set %mbooks $calc(%level12345 / 420)
  .set %mbooks1 $ceil(%mbooks) 
  .set %oaks $calc(%level12345 / 60)
  .set %oaks1 $ceil(%oaks)
  .set %teaks $calc(%level12345 / 90)
  .set %teaks1 $ceil(%teaks)
  .set %mahogany $calc(%level12345 / 140)
  .set %mahogany1 $ceil(%mahogany)
  .set %monsterline1 3Furniture For Level %level123456 $+ : Imp Statues: 10 $+ %imp1 $+ ,  3Oak/Teak Armchairs: 10 $+ %teakarm1 $+ ,  3Mahogany Armchairs: 10 $+ %mahogarm1 $+ ,  3Opulant Rugs: 10 $+ %oprug1 $+ ,  3Stone Fireplaces: 10 $+ %stonefp1 $+ ,  3Marble Fireplaces: 10 $+ %marblefp1 $+ ,  3Mahogany Bookcases: 10 $+ %mbooks1
  .set %monsterline2  3Plants for Level %level123456 $+ : Maple Trees: 10 $+ %mapt1 $+ , 3Yew Trees: 10 $+ %yt1 $+ , 3Magic Trees: 10 $+ %magt1 $+ , 3 Reeds/ Tall or Huge Plants: 10 $+ %pts1
  .set %monsterline3 3Planks Needed for Level %level123456 $+ : Oak: 10 $+ %oaks1 $+ ,  3Teak: 10 $+ %teaks1 $+ ,  3Mahogany: 10 $+ %mahogany1
  %display %monsterline1
  %display %monsterline2
  %display %monsterline3
  .unset %gd
  .unset %gd1
  cleanup %ID
}
alias attk {
  .set %fgiant $calc(%level12345 / 447)
  .set %fgiant1 $ceil(%fgiant)    
  .set %bandit $calc(%level12345 / 204)
  .set %bandit1 $ceil(%bandit)
  .set %dag92 $calc(%level12345 / 491)
  .set %dag921 $ceil(%dag92)
  .set %dag74 $calc(%level12345 / 271)
  .set %dag741 $ceil(%dag74)
  .set %experiments $calc(%level12345 / 400)
  .set %experiments1 $ceil(%experiments)
  .set %abby $calc(%level12345 / 600)
  .set %abby1 $ceil(%abby)
  .set %shadow $calc(%level12345 / 268)
  .set %shadow1 $ceil(%shadow)
  .set %ogre $calc(%level12345 / 240)
  .set %ogre1 $ceil(%ogre)
  .set %gd $calc(%level12345 / 316)
  .set %gd1 $ceil(%gd)
  .set %monsterline 3Monsters For Level %level123456 $+ : Dagganoths(92): 10 $+ %dag921 $+ , 3 $+ Dagganoths(74): 10 $+ %dag741 $+ , 3 Bandits: 10 $+ %bandit1 $+ , 3 Experiments: 10 $+ %experiments1 $+ , 3 Fire Giant: 10 $+ %fgiant1 $+ , 3 Abbyssal Demons: 10 $+ %abby1 $+ , 3 Shadow Warriors: 10 $+ %shadow1 $+ , 3 Ogres: 10 $+ %ogre1  $+ , 3 Green Dragons: 10 $+ %gd1  $+ , 3 Void Knight Points: 10 $+ $ceil($calc(%level12345 / (( (%level123456 - 1)^2) / 6 )))
  .unset %fgiant 
  .unset %fgiant1    
  .unset %abby 
  .unset %abby1 
  .unset %dag92
  .unset %dag921 
  .unset %dag74 
  .unset %dag741 
  .unset %experiments 
  .unset %experiments1 
  .unset %Bandit 
  .unset %bandit1 
  .unset %shadow 
  .unset %shadow1 
  .unset %ogre
  .unset %ogre1
  %display %monsterline
  .unset %gd
  .unset %gd1
  cleanup %ID
}
alias hp {
  .set %fgiant $calc(%level12345 / 147)
  .set %fgiant1 $ceil(%fgiant)    
  .set %abby $calc(%level12345 / 195)
  .set %abby1 $ceil(%abby)
  .set %dag92 $calc(%level12345 / 159)
  .set %dag921 $ceil(%dag92)
  .set %dag74 $calc(%level12345 / 93)
  .set %dag741 $ceil(%dag74)
  .set %experiments $calc(%level12345 / 133)
  .set %experiments1 $ceil(%experiments)
  .set %Bandit $calc(%level12345 / 66.3)
  .set %bandit1 $ceil(%bandit)
  .set %shadow $calc(%level12345 / 89)
  .set %shadow1 $ceil(%shadow)
  .set %gd $calc(%level12345 / 102)
  .set %gd1 $ceil(%gd)
  .set %monsterline 3 $+ Monsters For Level %level123456 $+ : Dagganoths(92): 10 $+ %dag921 $+ , 3 $+ Dagganoths(74): 10 $+ %dag741 $+ , 3 Abbyssal Demons: 10 $+ %abby1 $+ , 3 Experiments: 10 $+ %experiments1 $+ , 3 Fire Giant: 10 $+ %fgiant1 $+ , 3 Bandits: 10 $+ %bandit1 $+ , 3 Shadow Warriors: 10 $+ %shadow1 $+ , 3 Green Dragons: 10 $+ %gd1  $+ , 3 Void Knight Points: 10 $+ $ceil($calc(%level12345 / (( (%level123456 - 1)^2) / 6 )))
  .unset %fgiant 
  .unset %fgiant1    
  .unset %abby 
  .unset %abby1 
  .unset %dag92
  .unset %dag921 
  .unset %gd
  .unset %gd1
  .unset %dag74 
  .unset %dag741 
  .unset %experiments 
  .unset %experiments1 
  .unset %Bandit 
  .unset %bandit1 
  .unset %shadow 
  .unset %shadow1 
  .unset %ogre
  .unset %ogre1
  %display %monsterline
  cleanup %ID
}

alias range {
  .set %fgiant $calc(%level12345 / 447.583908)
  .set %fgiant1 $ceil(%fgiant)    
  .set %bdrag $calc(%level12345 / 427.90989)
  .set %bdrag1 $ceil(%bdrag)
  .set %moss $calc(%level12345 / 240)
  .set %moss1 $ceil(%moss)
  .set %gdrag $calc(%level12345 / 340)
  .set %gdrag1 $ceil(%gdrag)
  .set %experiments $calc(%level12345 / 400)
  .set %experiments1 $ceil(%experiments)
  .set %ogre $calc(%level12345 / 240)
  .set %ogre1 $ceil(%ogre)
  .set %dustdevil $calc(%level12345 / 420)
  .set %dustdevil1 $ceil(%dustdevil)
  .set %monsterline 3 $+ Monsters For Level %level123456 $+ : Moss Giants: 10 $+ %moss1 $+ , 3 $+ Green Dragons: 10 $+ %gdrag1 $+ , 3 Blue Dragons: 10 $+ %bdrag1 $+ , 3 Experiments: 10 $+ %experiments1 $+ , 3 Fire Giant: 10 $+ %fgiant1 $+ , 3 Ogres: 10 $+ %ogre1 $+ , 3 Dust Devils: 10 $+ %dustdevil1  $+ , 3 Void Knight Points: 10 $+ $ceil($calc(%level12345 / (( (%level123456 - 1)^2) / 6 )))
  .unset %fgiant 
  .unset %fgiant1   
  .unset %bdrag 
  .unset %bdrag1 
  .unset %moss 
  .unset %moss1 
  .unset %gdrag 
  .unset %gdrag1 
  .unset %experiments 
  .unset %experiments1 
  .unset %ogre 
  .unset %ogre1 
  .unset %dustdevil
  .unset %dustdevil1
  %display %monsterline
  cleanup %ID
}

alias magic {
  .set %highalc $calc(%level12345 / 65)
  .set %highalc1 $ceil(%highalc)
  .set %6ench $calc(%level12345 / 97)
  .set %6ench1 $ceil(%6ench)    
  .set %camtel $calc(%level12345 / 55)
  .set %camtel1 $ceil(%camtel)
  .set %heat $calc(%level12345 / 53)
  .set %heat1 $ceil(%heat)
  .set %charge $calc(%level12345 / 80)
  .set %charge1 $ceil(%charge)
  .set %stun $calc(%level12345 / 90)
  .set %genies $calc(%level1245 / (%level1234 * 10))
  .set %genies1 $ceil(%genies)
  .set %stun1 $ceil(%stun)
  if (%level1234 > 86) {
    .set %monsterline 3 $+ Spells To Cast For Level %level123456 $+ : Enchant Level-6 Jewlery : 10 $+ %6ench1 $+ , 3 $+ High Alchemy: 10 $+ %highalc1 $+ , 3 $+ Camelot Teleports: 10 $+ %camtel1 $+ , 3 $+ SuperHeat Item: 10 $+ %heat1 $+ , 3 $+ Charge: 10 $+ %charge1 $+ , 3 $+ Stun: 10 $+ %Stun1  $+ , 3 Void Knight Points: 10 $+ $ceil($calc(%level12345 / (( (%level123456 - 1)^2) / 6 )))
  }
  if (%level1234 > 79) && (%level1234 < 87) {
    .set %monsterline 3 $+ Spells To Cast For Level %level123456 $+ : High Alchemy: 10 $+ %highalc1 $+ , 3 $+ Camelot Teleports: 10 $+ %camtel1 $+ , 3 $+ SuperHeat Item: 10 $+ %heat1 $+ , 3 $+ Charge: 10 $+ %charge1 $+ , 3 $+ Stun: 10 $+ %Stun1  $+ , 3 Void Knight Points: 10 $+ $ceil($calc(%level12345 / (( (%level123456 - 1)^2) / 6 )))
  }
  if (%level1234 > 54) && (%level1234 < 80) {
    .set %monsterline 3 $+ Spells To Cast For Level %level123456 $+ : High Alchemy: 10 $+ %highalc1 $+ , 3 $+ Camelot Teleports: 10 $+ %camtel1 $+ , 3 $+ SuperHeat Item: 10 $+ %heat1  $+ , 3 Void Knight Points: 10 $+ $ceil($calc(%level12345 / (( (%level123456 - 1)^2) / 6 )))
  }
  if (%level1234 < 55) {
    .set %monsterline 3 $+ Spells To Cast For Level %level123456 $+ : Camelot Teleports: 10 $+ %camtel1 $+ , 3 $+ SuperHeat Item: 10 $+ %heat1 $+ , 3 $+ Genies: 10 $+ %Genies1   $+ , 3 Void Knight Points: 10 $+ $ceil($calc(%level12345 / (( (%level123456 - 1)^2) / 6 )))
  }
  .unset %highalc
  .unset %highalc1 
  .unset %6ench 
  .unset %6ench1 
  .unset %camtel 
  .unset %camtel1 
  .unset %heat 
  .unset %heat1 
  .unset %charge 
  .unset %charge1 
  .unset %genies 
  .unset %genies1
  .unset %stun 
  .unset %stun1 
  %display %monsterline
  cleanup %ID
}
alias mining {
  .set %ess $calc(%level12345 / 5)
  .set %ess1 $ceil(%ess)    
  .set %copper $calc(%level12345 / 17.5)
  .set %copper1 $ceil(%copper)
  .set %iron $calc(%level12345 / 35)
  .set %iron1 $ceil(%iron)
  .set %coal $calc(%level12345 / 50)
  .set %coal1 $ceil(%coal)
  .set %gold $calc(%level12345 / 65)
  .set %gold1 $ceil(%gold)
  .set %mith $calc(%level12345 / 80)
  .set %mith1 $ceil(%gold)
  .set %addy $calc(%level12345 / 95)
  .set %addy1 $ceil(%addy)
  .set %rune $calc(%level12345 / 120)
  .set %rune1 $ceil(%rune)
  .set %monsterline 3 $+ Ores For Level %level123456 $+ : Rune Essence: 10 $+ %ess1 $+ , 3 $+ Copper: 10 $+ %copper1 $+ , 3 Iron: 10 $+ %iron1 $+ , 3 Coal: 10 $+ %coal1 $+ , 3 Gold: 10 $+ %gold1 $+ , 3 Adamantite: 10 $+ %addy1 $+ , 3 Runite: 10 $+ %rune1 
  .unset %ess 
  .unset %ess1   
  .unset %copper 
  .unset %copper1 
  .unset %iron 
  .unset %iron1 
  .unset %coal 
  .unset %coal1 
  .unset %gold 
  .unset %gold1 
  .unset %mith
  .unset %mith1
  .unset %addy 
  .unset %addy1
  .unset %rune
  .unset %rune1 
  %display %monsterline
  cleanup %ID
}
alias woodcutting {
  .set %norm $calc(%level12345 / 25)
  .set %norm1 $ceil(%norm)    
  .set %oak $calc(%level12345 / 37.5)
  .set %oak1 $ceil(%oak)
  .set %willow $calc(%level12345 / 67.5)
  .set %willow1 $ceil(%willow)
  .set %maple $calc(%level12345 / 100)
  .set %maple1 $ceil(%maple)
  .set %yew $calc(%level12345 / 175)
  .set %yew1 $ceil(%yew)
  .set %mage $calc(%level12345 / 250)
  .set %mage1 $ceil(%mage)
  .set %monsterline 3 $+ Logs For Level %level123456 $+ : Normal: 10 $+ %norm1 $+ , 3 $+ Oak: 10 $+ %oak1 $+ , 3 Willow: 10 $+ %willow1 $+ , 3 Maple: 10 $+ %maple1 $+ , 3 Yew: 10 $+ %yew1 $+ , 3 Magic: 10 $+ %mage1   
  .unset %norm 
  .unset %norm1   
  .unset %oak 
  .unset %oak1 
  .unset %willow 
  .unset %willow1 
  .unset %maple 
  .unset %maple1 
  .unset %yew 
  .unset %yew1 
  .unset %mage
  .unset %mage1
  %display %monsterline
  cleanup %ID
}
alias prayer {
  .set %bones $calc(%level12345 / 4.5)
  .set %bones1 $ceil(%bones)    
  .set %bat $calc(%level12345 / 5.33)
  .set %bat1 $ceil(%bat)
  .set %bigjogre $calc(%level12345 / 15)
  .set %bigjogre1 $ceil(%bigjogre)
  .set %babyd $calc(%level12345 / 30)
  .set %babyd1 $ceil(%babyd)
  .set %Wyvern $calc(%level12345 / 50)
  .set %Wyvern1 $ceil(%Wyvern)
  .set %drag $calc(%level12345 / 72)
  .set %drag1 $ceil(%drag)
  .set %monsterline 3 $+ Bones For Level %level123456 $+ : Normal Bones: 10 $+ %bones1 $+ , 3 $+ Bat Bones: 10 $+ %bat1 $+ , 3 Big/Jogre Bones: 10 $+ %bigjogre1 $+ , 3 Baby Dragon Bones: 10 $+ %babyd1 $+ , 3 Skeletal Wyvern Bones: 10 $+ %Wyvern1 $+ , 3 Dragon Bones: 10 $+ %drag1  $+ , 3 Void Knight Points: 10 $+ $ceil($calc(%level12345 / (( (%level123456 - 1)^2) / 12 )))
  .unset %bones 
  .unset %bones1   
  .unset %bat 
  .unset %bat1 
  .unset %bigjogre 
  .unset %bigjogre1 
  .unset %babyd 
  .unset %babyd1 
  .unset %wyvern 
  .unset %wyvern1 
  .unset %drag
  .unset %drag1
  %display %monsterline
  cleanup %ID
}
alias smithing {
  .set %bronze $calc(%level12345 / 6.5)
  .set %bronze1 $ceil(%bronze)    
  .set %ironb $calc(%level12345 / 12.5)
  .set %ironb1 $ceil(%ironb)
  .set %elemental $calc(%level12345 / 18)
  .set %elemental1 $ceil(%elemental)
  .set %silver $calc(%level12345 / 13.5)
  .set %silver1 $ceil(%silver)
  .set %steel $calc(%level12345 / 17.5)
  .set %steel1 $ceil(%steel)
  .set %Gold $calc(%level12345 / 22.5)
  .set %gold1 $ceil(%gold)
  .set %goldgaunt $calc(%level12345 / 56.5)
  .set %gold1gaunt1 $ceil(%goldgaunt)
  .set %mith $calc(%level12345 / 30)
  .set %mith1 $ceil(%mith)
  .set %addy $calc(%level12345 / 37.5)
  .set %addy1 $ceil(%addy)
  .set %rune $calc(%level12345 / 50)
  .set %rune1 $ceil(%rune)
  .set %monsterline 3 $+ Bars For Level %level123456 $+ : Bronze: 10 $+ %bronze1 $+ , 3 $+ Iron: 10 $+ %ironb1 $+ , 3 Elemental: 10 $+ %elemental1 $+ , 3 Silver: 10 $+ %silver1 $+ , 3 Steel: 10 $+ %steel1 $+ , 3 Gold: 10 $+ %gold1 $+ , 3 Gold With Gauntlets: 10 $+ %gold1gaunt1 $+ , 3 Mithril: 10 $+ %mith1 $+ , 3 Adamant: 10 $+ %addy1 $+ , 3 Runite: 10 $+ %rune1 
  .unset %bronze 
  .unset %bronze1   
  .unset %ironb 
  .unset %ironb1 
  .unset %elemental 
  .unset %elemental1 
  .unset %silver 
  .unset %silver1 
  .unset %steel 
  .unset %steel1 
  .unset %gold
  .unset %gold1
  .unset %goldgaunt
  .unset %goldgaunt1
  .unset %mith
  .unset %mith1
  .unset %addy
  .unset %addy1
  .unset %rune
  .unset %rune1
  %display %monsterline
  cleanup %ID
}
alias runecraft {
  .set %air $calc(%level12345 / 5)
  .set %air1 $ceil(%air)    
  .set %mind $calc(%level12345 / 5.5)
  .set %mind1 $ceil(%mind)
  .set %waterl $calc(%level12345 / 6)
  .set %water1 $ceil(%water)
  .set %earth $calc(%level12345 / 6.5)
  .set %earth1 $ceil(%earth)
  .set %fire $calc(%level12345 / 7)
  .set %fire1 $ceil(%fire)
  .set %body $calc(%level12345 / 7.5)
  .set %body1 $ceil(%body)
  .set %cosmic $calc(%level12345 / 8)
  .set %cosmic1 $ceil(%cosmic)
  .set %chaos $calc(%level12345 / 8.5)
  .set %chaos1 $ceil(%chaos)
  .set %nature $calc(%level12345 / 9)
  .set %nature1 $ceil(%nature)
  .set %law $calc(%level12345 / 9.5)
  .set %law1 $ceil(%law)
  .set %death $calc(%level12345 / 10)
  .set %death1 $ceil(%death)
  .set %monsterline 3 $+ Runes For Level %level123456 $+ : Air: 10 $+ %air1 $+ , 3 $+ Mind: 10 $+ %mind1 $+ , 3 Water: 10 $+ %water1 $+ , 3 Earth: 10 $+ %earth1 $+ , 3 Fire: 10 $+ %fire1 $+ , 3 Body: 10 $+ %body1 $+ , 3 Cosmic: 10 $+ %cosmic1 $+ , 3 Chaos: 10 $+ %chaos1 $+ , 3 Nature: 10 $+ %nature1 $+ , 3 Law: 10 $+ %law1 $+ , 3 Death: 10 $+ %death1 
  .unset %air
  .unset %air1   
  .unset %mind 
  .unset %mind1 
  .unset %waterl 
  .unset %water1 
  .unset %earth 
  .unset %earth1 
  .unset %fire 
  .unset %fire1 
  .unset %body
  .unset %body1
  .unset %cosmic
  .unset %cosmic1
  .unset %chaos
  .unset %chaos1
  .unset %nature
  .unset %nature1
  .unset %law
  .unset %law1
  .unset %death
  .unset %death1
  %display %monsterline
  cleanup %ID
}
alias firemaking {
  .set %normal $calc(%level12345 / 40)
  .set %normal1 $ceil(%normal)    
  .set %oakb $calc(%level12345 / 60)
  .set %oakb1 $ceil(%oakb)
  .set %willowb $calc(%level12345 / 90)
  .set %willowb1 $ceil(%willowb)
  .set %mapleb $calc(%level12345 / 135)
  .set %mapleb1 $ceil(%mapleb)
  .set %yewb $calc(%level12345 / 202.5)
  .set %yewb1 $ceil(%yewb)
  .set %magicb $calc(%level12345 / 303.75)
  .set %magicb1 $ceil(%magicb)
  .set %monsterline 3 $+ Logs To Burn For Level %level123456 $+ : Normal: 10 $+ %normal1 $+ , 3 $+ Oak: 10 $+ %oakb1 $+ , 3 Willow: 10 $+ %willowb1 $+ , 3 Maple: 10 $+ %mapleb1 $+ , 3 Yew: 10 $+ %yewb1 $+ , 3 Magic: 10 $+ %magicb1    
  .unset %normal
  .unset %normal1   
  .unset %oakb 
  .unset %oakb1 
  .unset %willowbl 
  .unset %willowb1 
  .unset %mapleb 
  .unset %mapleb1 
  .unset %yewb 
  .unset %yewb1 
  .unset %magicb
  .unset %magicb1
  %display %monsterline
  cleanup %ID
}
alias fishing {
  .set %pike $calc(%level12345 / 60)
  .set %pike1 $ceil(%pike)    
  .set %salmon $calc(%level12345 / 70)
  .set %salmon1 $ceil(%salmon)
  .set %tuna $calc(%level12345 / 80)
  .set %tuna1 $ceil(%tuna)
  .set %lobster $calc(%level12345 / 90)
  .set %lobster1 $ceil(%lobster)
  .set %swordfish $calc(%level12345 / 100)
  .set %swordfish1 $ceil(%swordfish)
  .set %shark $calc(%level12345 / 110)
  .set %shark1 $ceil(%shark)
  .set %turtle $calc(%level12345 / 105)
  .set %turtle1 $ceil(%turtle)
  .set %manta $calc(%level12345 / 115)
  .set %manta1 $ceil(%manta)
  .set %monsterline 3 $+ Fish To Catch For Level %level123456 $+ : Pike: 10 $+ %pike1 $+ , 3 $+ Salmon: 10 $+ %salmon1 $+ , 3 Tuna: 10 $+ %tuna1 $+ , 3 Lobster: 10 $+ %lobster1 $+ , 3 Swordfish: 10 $+ %swordfish1 $+ , 3 Shark: 10 $+ %shark1 $+ , 3 Sea Turtle: 10 $+ %turtle1 $+ , 3 Manta Ray: 10 $+ %manta1   
  .unset %pike
  .unset %pike1   
  .unset %salmon 
  .unset %salmon1 
  .unset %tuna 
  .unset %tuna1 
  .unset %lobster 
  .unset %lobster1 
  .unset %swordfish 
  .unset %swordfish1 
  .unset %shark
  .unset %shark1
  .unset %turtle
  .unset %turtle1
  .unset %manta
  .unset %manta1
  %display %monsterline
  cleanup %ID
}
alias cooking {
  .set %pikec $calc(%level12345 / 80)
  .set %pikec1 $ceil(%pikec)    
  .set %salmonc $calc(%level12345 / 90)
  .set %salmonc1 $ceil(%salmonc)
  .set %tunac $calc(%level12345 / 100)
  .set %tunac1 $ceil(%tunac)
  .set %lobsterc $calc(%level12345 / 120)
  .set %lobsterc1 $ceil(%lobsterc)
  .set %swordfishc $calc(%level12345 / 140)
  .set %swordfishc1 $ceil(%swordfishc)
  .set %sharkc $calc(%level12345 / 210)
  .set %sharkc1 $ceil(%sharkc)
  .set %monsterline 3 $+ Fish To Cook For Level %level123456 $+ : Pike: 10 $+ %pikec1 $+ , 3 $+ Salmon: 10 $+ %salmonc1 $+ , 3 Tuna: 10 $+ %tunac1 $+ , 3 Lobster: 10 $+ %lobsterc1 $+ , 3 Swordfish: 10 $+ %swordfishc1 $+ , 3 Shark: 10 $+ %sharkc1    
  .unset %pikec
  .unset %pikec1   
  .unset %salmonc 
  .unset %salmonc1 
  .unset %tunac 
  .unset %tunac1 
  .unset %lobsterc 
  .unset %lobsterc1 
  .unset %swordfishc 
  .unset %swordfishc1 
  .unset %sharkc
  .unset %sharkc1
  %display %monsterline
  cleanup %ID
}
alias crafting {
  .set %waterb $calc(%level12345 / 100)
  .set %waterb1 $ceil(%waterb)    
  .set %earthb $calc(%level12345 / 112.5)
  .set %earthb1 $ceil(%earthb)
  .set %fireb $calc(%level12345 / 125)
  .set %fireb1 $ceil(%fireb)
  .set %airb $calc(%level12345 / 137.5)
  .set %airb1 $ceil(%airb)
  .set %dstone $calc(%level12345 / 127.5)
  .set %dstone1 $ceil(%dstone)
  .set %gdhide $calc(%level12345 / 372)
  .set %gdhide1 $ceil(%gdhide)
  .set %bdhide $calc(%level12345 / 420)
  .set %bdhide1 $ceil(%bdhide)
  .set %monsterline 3 $+ Items To Craft For Level %level123456 $+ : Water Battlestaff: 10 $+ %waterb1 $+ , 3 $+ Earth Battlestaff: 10 $+ %earthb1 $+ , 3 Fire Battlestaff: 10 $+ %fireb1 $+ , 3 Air Battlestaff: 10 $+ %airb1 $+ , 3 Cut Dragonstone: 10 $+ %dstone1 $+ , 3 Green Dragonhide Sets: 10 $+ %gdhide1 $+ , 3 Blue Dragonhide Sets: 10 $+ %bdhide1    
  .unset %waterb
  .unset %waterb1   
  .unset %earthb 
  .unset %earthb1 
  .unset %fireb
  .unset %fireb1 
  .unset %airb 
  .unset %airb1 
  .unset %dstone 
  .unset %dstone1 
  .unset %gdhide
  .unset %gdhide1
  .unset %bdhide
  .unset %bdhide1
  %display %monsterline
  cleanup %ID
}
alias farming {
  .set %comp $calc(%level12345 / 4.5)
  .set %comp1 $ceil(%comp)    
  .set %scomp $calc(%level12345 / 8.5)
  .set %scomp1 $ceil(%scomp)
  .set %ran $calc(%level12345 / 57)
  .set %ran1 $ceil(%ran)
  .set %kwu $calc(%level12345 / 151)
  .set %kwu1 $ceil(%kwu)
  .set %oakt $calc(%level12345 / 485.5)
  .set %oakt1 $ceil(%oakt)
  .set %maplet $calc(%level12345 / 3448)
  .set %maplet1 $ceil(%maplet)
  .set %yewt $calc(%level12345 / 7150.5)
  .set %yewt1 $ceil(%yewt)
  .set %monsterline 3 $+ Items To Farm For Level %level123456 $+ : Compost: 10 $+ %comp1 $+ , 3 $+ Super Compost: 10 $+ %scomp1 $+ , 3 Ranarr Weed Herb: 10 $+ %ran1 $+ , 3 Kwuarm Herb: 10 $+ %kwu1 $+ , 3 Oak Tree(Acorn): 10 $+ %oakt1 $+ , 3 Maple Tree: 10 $+ %maplet1 $+ , 3 Yew Tree: 10 $+ %yewt1    
  .unset %comp
  .unset %comp1   
  .unset %scomp 
  .unset %scomp1 
  .unset %ran
  .unset %ran1 
  .unset %kwu 
  .unset %kwu1 
  .unset %oakt 
  .unset %oakt1 
  .unset %maplet
  .unset %maplet1
  .unset %yewt
  .unset %yewt1
  %display %monsterline
  cleanup %ID
}
alias herblore {
  .set %pray $calc(%level12345 / 87.5)
  .set %pray1 $ceil(%pray)    
  .set %satk $calc(%level12345 / 100)
  .set %satk1 $ceil(%satk)
  .set %fish $calc(%level12345 / 122.5)
  .set %fish1 $ceil(%fish)
  .set %senergy $calc(%level12345 / 117.5)
  .set %senergy1 $ceil(%senergy)
  .set %sstr $calc(%level12345 / 125)
  .set %sstr1 $ceil(%sstr)
  .set %wepp $calc(%level12345 / 137.5)
  .set %wepp1 $ceil(%wepp)
  .set %sdef $calc(%level12345 / 150)
  .set %sdef1 $ceil(%sdef)
  .set %idkwu $calc(%level12345 / 11.25)
  .set %idkwu1 $ceil(%idkwu)
  .set %idran $calc(%level12345 / 8)
  .set %idran1 $ceil(%idran)
  .set %monsterline 3 $+ Herblore Items For Level %level123456 $+ : Prayer Potion: 10 $+ %pray1 $+ , 3 $+ Super Attack Potion: 10 $+ %satk1 $+ , 3 Fishing Potion: 10 $+ %fish1 $+ , 3 Super Energy Potion: 10 $+ %senergy1 $+ , 3 Super Strength Potion: 10 $+ %sstr1 $+ , 3 Weapon Posion: 10 $+ %wepp1 $+ , 3 Super Defence Potion: 10 $+ %sdef1 $+ , 3 Ident Ranarr Weed: 10 $+ %idran1 $+ , 3 Ident Kwuarm: 10 $+ %idkwu1     
  .unset %pray
  .unset %pray1   
  .unset %satk 
  .unset %satk1 
  .unset %fish
  .unset %fish1 
  .unset %senergy 
  .unset %senergy1 
  .unset %sstr
  .unset %sstr1 
  .unset %wepp
  .unset %wepp1
  .unset %sdef
  .unset %sdef
  .unset %idkwu
  .unset %idkwu1
  .unset %idran
  .unset %idran1
  %display %monsterline
  cleanup %ID
}
alias fletch {
  .set %willshou $calc(%level12345 / 33.3)
  .set %willshou1 $ceil(%willshou)
  .set %willshos $calc(%level12345 / 66.6)
  .set %willshos1 $ceil(%willshos)
  .set %willlonu $calc(%level12345 / 38)
  .set %willlonu1 $ceil(%willlonu)    
  .set %mapshou $calc(%level12345 / 50)
  .set %mapshou1 $ceil(%mapshou)
  .set %mapshos $calc(%level12345 / 100)
  .set %mapshos1 $ceil(%mapshos)
  .set %maplonu $calc(%level12345 / 58.3)
  .set %maplonu1 $ceil(%maplonu)
  .set %maplons $calc(%level12345 / 166.6)
  .set %maplons1 $ceil(%maplons)
  .set %yewshou $calc(%level12345 / 66.5)
  .set %yewshou1 $ceil(%yewshou)
  .set %yewshos $calc(%level12345 / 133)
  .set %yewshos1 $ceil(%yewshos)
  .set %yewlonu $calc(%level12345 / 75)
  .set %yewlonu1 $ceil(%yewlonu)
  .set %yewlons $calc(%level12345 / 150)
  .set %yewlons1 $ceil(%yewlons)
  .set %magshou $calc(%level12345 / 83.3)
  .set %magshou1 $ceil(%magshou)
  .set %magshos $calc(%level12345 / 166.6)
  .set %magshos1 $ceil(%magshos)
  .set %maglonu $calc(%level12345 / 91.5)
  .set %maglonu1 $ceil(%maglonu)
  .set %maglons $calc(%level12345 / 183)
  .set %maglons1 $ceil(%maglons)
  if (%level1234 > 84) {
    .set %monsterline 3 $+ Bows To Fletch For Level %level123456 $+ : Willow Short(u): 10 $+ %willshou1 $+ , 3 $+ Willow Short(s): 10 $+ %willshos1 $+ , 3 $+ Willow Long(u): 10 $+ %willlonu1 $+ , 3 $+ Maple Short(u): 10 $+ %mapshou1 $+ , 3 $+ Maple Short(s): 10 $+ %mapshos1 
    .set %monsterline1 3 $+ Maple Long(u): 10 $+ %maplonu1 $+ , 3 $+ Maple Long(s): 10 $+ %maplons1 $+ , 3 $+ Yew Short(u): 10 $+ %yewshou1 $+ , 3 $+ Yew Short(s): 10 $+ %yewshos1 $+ , 3 $+ Yew Long(u): 10 $+ %yewlonu1 $+ , 3 $+ Yew Long(s): 10 $+ %yewlons1 $+ , 3 $+ Magic Short(s): 10 $+ %magshos1 $+ , 3 $+ Magic Long(s): 10 $+ %maglons1  
  }
  if (%level1234 > 79) && (%level1234 < 85) {
    .set %monsterline 3 $+ Bows To Fletch For Level %level123456 $+ : Willow Short(u): 10 $+ %willshou1 $+ , 3 $+ Willow Short(s): 10 $+ %willshos1 $+ , 3 $+ Willow Long(u): 10 $+ %willlonu1 $+ , 3 $+ Maple Short(u): 10 $+ %mapshou1 $+ , 3 $+ Maple Short(s): 10 $+ %mapshos1 
    .set %monsterline1 3 $+ Maple Long(u): 10 $+ %maplonu1 $+ , 3 $+ Maple Long(s): 10 $+ %maplons1 $+ , 3 $+ Yew Short(u): 10 $+ %yewshou1 $+ , 3 $+ Yew Short(s): 10 $+ %yewshos1 $+ , 3 $+ Yew Long(u): 10 $+ %yewlonu1 $+ , 3 $+ Yew Long(s): 10 $+ %yewlons1 $+ , 3 $+ Magic Short(s): 10 $+ %magshos1 
  }
  if (%level1234 > 69) && (%level1234 < 80) {
    .set %monsterline 3 $+ Bows To Fletch For Level %level123456 $+ : Willow Short(u): 10 $+ %willshou1 $+ , 3 $+ Willow Short(s): 10 $+ %willshos1 $+ , 3 $+ Willow Long(u): 10 $+ %willlonu1 $+ , 3 $+ Maple Short(u): 10 $+ %mapshou1 $+ , 3 $+ Maple Short(s): 10 $+ %mapshos1 
    .set %monsterline1 3 $+ Maple Long(u): 10 $+ %maplonu1 $+ , 3 $+ Maple Long(s): 10 $+ %maplons1 $+ , 3 $+ Yew Short(u): 10 $+ %yewshou1 $+ , 3 $+ Yew Short(s): 10 $+ %yewshos1 $+ , 3 $+ Yew Long(u): 10 $+ %yewlonu1 $+ , 3 $+ Yew Long(s): 10 $+ %yewlons1 
  }
  if (%level1234 > 64) && (%level1234 < 70) {
    .set %monsterline 3 $+ Bows To Fletch For Level %level123456 $+ : Willow Short(u): 10 $+ %willshou1 $+ , 3 $+ Willow Short(s): 10 $+ %willshos1 $+ , 3 $+ Willow Long(u): 10 $+ %willlonu1 $+ , 3 $+ Maple Short(u): 10 $+ %mapshou1 $+ , 3 $+ Maple Short(s): 10 $+ %mapshos1 
    .set %monsterline1 3 $+ Maple Long(u): 10 $+ %maplonu1 $+ , 3 $+ Maple Long(s): 10 $+ %maplons1 $+ , 3 $+ Yew Short(u): 10 $+ %yewshou1 $+ , 3 $+ Yew Short(s): 10 $+ %yewshos1 $+ , 3 $+ Yew Long(u): 10 $+ %yewlonu1 
  }
  if (%level1234 > 49) && (%level1234 < 65) {
    .set %monsterline 3 $+ Bows To Fletch For Level %level123456 $+ : Willow Short(u): 10 $+ %willshou1 $+ , 3 $+ Willow Short(s): 10 $+ %willshos1 $+ , 3 $+ Willow Long(u): 10 $+ %willlonu1 $+ , 3 $+ Maple Short(u): 10 $+ %mapshou1 $+ , 3 $+ Maple Short(s): 10 $+ %mapshos1 
    .set %monsterline1 3 $+ Maple Long(u): 10 $+ %maplonu1 $+ , 3 $+ Maple Long(s): 10 $+ %maplons1
  }
  .unset %willshou 
  .unset %willshou1 
  .unset %willshos 
  .unset %willshos1 
  .unset %willlonu 
  .unset %willlonu1   
  .unset %mapshou 
  .unset %mapshou1 
  .unset %mapshos 
  .unset %mapshos1 
  .unset %maplonu 
  .unset %maplonu1 
  .unset %maplons 
  .unset %maplons1 
  .unset %yewshou 
  .unset %yewshou1 
  .unset %yewshos 
  .unset %yewshos1 
  .unset %yewlonu 
  .unset %yewlonu1 
  .unset %yewlons 
  .unset %yewlons1 
  .unset %magshou 
  .unset %magshou1 
  .unset %magshos 
  .unset %magshos1 
  .unset %maglonu 
  .unset %maglonu1 
  .unset %maglons
  .unset %maglons1 
  %display %monsterline
  %display %monsterline1
  cleanup %ID
}
alias thieving {
  .set %warrior $calc(%level12345 / 25)
  .set %warrior1 $ceil(%warrior)
  .set %guard $calc(%level12345 / 40)
  .set %guard1 $ceil(%guard)
  .set %knight $calc(%level12345 / 84.3)
  .set %knight1 $ceil(%knight)
  .set %watch $calc(%level12345 / 137.5)
  .set %watch1 $ceil(%watch)
  .set %nats $calc(%level12345 / 25)
  .set %nats1 $ceil(%nats)  
  .set %blood $calc(%level12345 / 250)
  .set %blood1 $ceil(%blood)
  .set %pal $calc(%level12345 / 151.75)
  .set %pal1 $ceil(%pal)
  .set %hero $calc(%level12345 / 275)
  .set %hero1 $ceil(%hero)
  .set %cake $calc(%level12345 / 16)
  .set %cakes1 $ceil(%cake)
  .set %seeds $calc(%level12345 / 10)
  .set %seeds1 $ceil(%seeds)
  .set %farm $calc(%level12345 / 43)
  .set %farm1 $ceil(%farm)
  .set %silk $calc(%level12345 / 24)
  .set %silk1 $ceil(%silk)  
  .set %monsterline 3 $+ NPC's to Pickpocket for Level %level123456 $+ :  $+ Warriors: 10  $+ %warrior1 $+ , 3 $+ Gaurds: 10 $+ %guard1 $+ , 3 $+ Knights: 10 $+ %knight1 $+ , 3 $+ Watchmen: 10 $+ %watch1 $+ , 3 $+ Paladins: 10 $+  %pal1 $+ , 3 $+  Heros: 10 $+ %hero1 $+ , 3 $+  Master Farmer: 10 $+ %farm1  
  .set %monsterline1 3 $+ Stalls/Chests to Steal From for Level %level123456 $+ : $+ Nature: 10 $+ %nats1 $+ , 3 $+ Blood: 10 $+ %blood1 $+ , 3 $+ Cake Stall: 10 $+ %cakes1 $+ , 3 $+ Silk Stall: 10 $+ %silk1 $+ , 3 $+ Seed Stall: 10 $+ %seeds1
  .unset %warrior
  .unset %warrior1
  .unset %guard
  .unset %guard1
  .unset %knight
  .unset %knight1
  .unset %blood
  .unset %blood1
  .unset %watch
  .unset %watch1
  .unset %pal
  .unset %pal1
  .unset %hero
  .unset %hero1
  .unset %nats
  .unset %nats1
  .unset %blood
  .unset %blood1
  .unset %pal
  .unset %pal1
  .unset %hero
  .unset %hero1
  .unset %cake
  .unset %cakes1
  .unset %seeds
  .unset %seeds1
  .unset %farm
  .unset %farm1
  .unset %silk
  .unset %silk1
  %display %monsterline
  %display %monsterline1
  cleanup %ID
}
alias agility {
  .set %gnome $calc(%level12345 / 86)
  .set %gnome1 $ceil(%gnome)
  .set %barb $calc(%level12345 / 153)
  .set %barb1 $ceil(%barb)
  .set %pyr $calc(%level12345 / 1114)
  .set %pyr1 $ceil(%pyr)
  .set %wild $calc(%level12345 / 571.5)
  .set %wild1 $ceil(%wild)
  .set %were $calc(%level12345 / 540)
  .set %were1 $ceil(%were)  
  .set %1tik $calc(%level12345 / 240)
  .set %1tik1 $ceil(%1tik)
  .set %10tik $calc(%level12345 / 2480)
  .set %10tik1 $ceil(%10tik)
  .set %100tik $calc(%level12345 / 28000)
  .set %100tik1 $round(%100tik,0)
  .set %1000tik $calc(%level12345 /  320000)
  .set %1000tik1 $round(%1000tik,0)
  .set %monsterline 3 $+ Agility Courses For Level %level123456 $+ :  $+ Gnomes' Agility Course: 10  $+ %gnome1 $+ , 3 $+ Barbarians' Agility Course: 10 $+ %barb1 $+ , 3 $+ Agility Pyramid: 10 $+ %pyr1 $+ , 3 $+ Wilderness Course: 10 $+ %wild1 $+ , 3 $+ Werewolves' Course: 10 $+  %were1 $+ , 3 1 Agility Ticket: 10 $+ %1tik1 $+ , 3 10 Agility Tickets: 10 $+ %10tik1 $+ , 3 100 Agility Tickets: 10 $+ %100tik1 $+ , 3 1,000 Agility Tickets: 10 $+ %1000tik1   
  .unset %gnome
  .unset %gnome1
  .unset %barb
  .unset %barb1
  .unset %pyr  
  .unset %pyr1
  .unset %wild
  .unset %wild1
  .unset %were
  .unset %were1
  .unset %1tik
  .unset %1tik1
  .unset %10tik
  .unset %10tik1
  .unset %100tik
  .unset %100tik1
  .unset %1000tik
  .unset %1000tik1
  %display %monsterline
  cleanup %ID
}