Mudlet - Forum

Code: Select all

function FunStatusMonde2(mond,richtung)
dim moon
select case mond
 case "foie"
  select case richtung
    case "westen" moon="NO Ashar"
    case "suedwesten" moon="SO Miobaas"
    case "sueden" moon="NO Miobas"
    case "suedosten" moon="NO Usagoor"
    case "osten" moon="S Klerikerabtei"
    case "nordosten" moon="Orkland"
    case "norden" moon="SW Alotria"
    case "nordwesten" moon="NW Ashar"
  end select
 case "jani"
  select case richtung
    case "westen" moon="Losaria" 
    case "suedwesten" moon="Tolsgal"
    case "sueden" moon="Dolphinia"
    case "suedosten" moon="Lorinand"
    case "osten" moon="Tintagel"
    case "nordosten" moon="Amphibos"
    case "norden" moon="Nirgendwo"
    case "nordwesten" moon="Holbytla"
  end select
 end select
FunStatusMonde2=moon
end function