ON INIT {
 SETNAME [description_emerald]
 SET_MATERIAL GLASS
 SET_GROUP JEWELRY
 SET_PRICE 290
 PLAYERSTACKSIZE 20
 SET_STEAL 50
 SET_WEIGHT 0
 SET §scale 70
 SET §rnd ~^RND_20~
 INC §scale §rnd
 SETSCALE §scale
 ACCEPT
}

ON CUSTOM {
 IF (^$PARAM1 == "DIE") DESTROY SELF
 ACCEPT
}