Func RndTravel($aMapID)

    ; Local $UseDistricts = 7 ; 7=eu-only, 8=eu+int, 11=all(excluding America)
    Local $UseDistricts = 7 ; 7=eu-pol/it/sp/ru+asia

    ; ;Region/Language order: eu-en, eu-fr, eu-ge, eu-it, eu-sp, eu-po, eu-ru, us-en, int, asia-ko, asia-ch, asia-ja
    ; Local   $Region[11] = [2, 2, 2, 2, 2, 2, 2, -2, 1, 3, 4]
    ; Local $Language[11] = [0, 2, 3, 4, 5, 9, 10, 0, 0, 0, 0]

    ; Region/Language order: eu-it, eu-sp, eu-po, eu-ru, int, asia-ko, asia-ch, asia-ja
    Local   $Region[7] = [2, 2, 2,  2, 1, 3, 4]
    Local $Language[7] = [4, 5, 9, 10, 0, 0, 0]
    Local $Random = Random(0, $UseDistricts - 1, 1)
    MoveMap($aMapID, $Region[$Random], 0, $Language[$Random])
    waitmaploading($amapid)
EndFunc   ;==>RndTravel