Untitled

on *:TEXT:!fairyring*:#: { 
if ($len($2) != 3) { .notice $nick Error: must be a 3 letter code | halt } 
if ($fairyring.code.1($mid($2,1,1)) == $false) { .notice $nick Error: !fairyring (abcd)(ijkl)(pqrs) | halt } 
if ($fairyring.code.2($mid($2,2,1)) == $false) { .notice $nick Error: !fairyring (abcd)(ijkl)(pqrs) | halt } 
if ($fairyring.code.3($mid($2,3,1)) == $false) { .notice $nick Error: !fairyring (abcd)(ijkl)(pqrs) | halt } 
$iif($left($1,1) == @,msg $chan,notice $nick) $upper($2) = $fairyring.location($2) 
}
alias ring.location { 
if ($1- == Muddskipper Point) { return AIQ } 
if ($1- == Desert Island) { return AIR } 
if ($1- == Slayer Dungeon) { return AJR } 
if ($1- == Pengiun isle) { return AJS } 
if ($1- == Fishing Colony) { return AKQ } 
if ($1- == Feldip Hills) { return AKS } 
if ($1- == Abyssal area) { return ALR } 
if ($1- == McGrubor's Wood) { return ALS } 
if ($1- == Island in the River Salve) { return BIP } 
if ($1- == Desert) { return BIQ } 
if ($1- == Ardougne ) { return BIS } 
if ($1- == Fisher King's Realm { return  BJR } 
if ($1- == Feldip Hills Swamp) { return BKP (south of Castle Wars) } 
if ($1- == Enchanted Valley) { return BKQ } 
if ($1- == Mort Myre Swamp) { return BKR } 
if ($1- == TzHaar) { return BLP } 
if ($1- == Legends Guild) { return BLR } 
if ($1- == Miscellania) { return CIP } 
if ($1- == Tree Gnome Village) { return CIQ } 
if ($1- == Sinclair Mansion) { return CJR } 
if ($1- == Higher Planes) { return CKP } 
if ($1- == Shilo Village) { return CKR } 
if ($1- == Canifis) { return CKS } 
if ($1- == Wizards Tower's Island) { return CLP } 
if ($1- == Hazelmere's house) { return CLS } 
if ($1- == Goraks and Cloud Banks) { return DIR } 
if ($1- == Wizard Tower) { return DIS } 
if ($1- == Necromancer Tower) { return DJP } 
if ($1- == Northwest of Sinclair Mansion) { return DJR } 
if ($1- == Nature Altar) { return DKP } 
if ($1- == Edgeville) { return DKR } 
if ($1- == Hunting Grounds) { return DKS) } 
if ($1- == Nardah) { return DLQ } 
if ($1- == Isafdar) { return DLR } 
if ($1- == Myreque) { return DLS } 
else { return N/A } 
} 
on *:TEXT:!ring*:#: { 
notice $nick $2- == $ring.location($2-)
}