look at bas choppers it has a island script on it that looks at sothing and then tells you what island your on
_origin = "EmptyDetector" camcreate [0,0,0]
_origin setpos [6400, 3000, 0]
_p1 = (getpos _origin select 2) - ((getpos _origin select 2) Mod 1)
_origin setpos [6400, 6400, 0]
_p2 = (getpos _origin select 2) - ((getpos _origin select 2) Mod 1)
_origin setpos [6400, 9800, 0]
_p3 = (getpos _origin select 2) - ((getpos _origin select 2) Mod 1)
_origin setpos [3000, 6400, 0]
_p4 = (getpos _origin select 2) - ((getpos _origin select 2) Mod 1)
_origin setpos [9600, 4100, 0]
_p5 = (getpos _origin select 2) - ((getpos _origin select 2) Mod 1)
camdestroy _origin
? ((_p1>=-2 && _p1<=0) && _p2==-141 && _p3==-2 && _p4==-80 && _p5==-136) :mapset = 1;goto "everon"
? ((_p1>=-2 && _p1<=0) && (_p2>=-2 && _p2<=0) && (_p3>=-2 && _p3<=0) && (_p4>=-2 && _p4<=0) && _p5==-29) : mapset = 2;goto "desert"
? (_p1==-49 && _p2==-269 && _p3==-177 && _p4==-231 && _p5==-35) : mapset = 3;goto "malden"
? (_p1==-36 && _p2==-136 && _p3==-324 && _p4==-48 && _p5==-135):mapset = 5; goto "nogova"
? ((_p1>=-2 && _p1<=0) && _p2==-19 && _p3==-9 && _p4==-335 && (_p5>=-2 && _p5<=0)):mapset = 6; goto "iadrang"
? ((_p1>=-2 && _p1<=0) && _p2==-449 && (_p3>=-2 && _p3<=0) && _p4==-226 && (_p5>=-2 && _p5<=0)):mapset = 7; goto "kolguyev"
;Start not suported
mapset = 4
goto "noisland"
;End Not Suported
#everon
_map = mapset
_gridpic = format ["\wizmapsys\map\%1\map%1.jpg",_map]
_pic = _gridpic
goto "mapshow"
#Desert
_map = mapset
_gridpic = format ["\wizmapsys\map\%1\map%1.jpg",_map]
_pic = _gridpic
goto "mapshow"
#malden
_map = mapset
_gridpic = format ["\wizmapsys\map\%1\map%1.jpg",_map]
_pic = _gridpic
goto "mapshow"
#Nogova
_map = mapset
_gridpic = format ["\wizmapsys\map\%1\map%1.jpg",_map]
_pic = _gridpic
goto "mapshow"
#Iadrang
_map = mapset
_gridpic = format ["\wizmapsys\map\%1\map%1.jpg",_map]
_pic = _gridpic
goto "mapshow"
#Kolguyev
_map = mapset
_gridpic = format ["\wizmapsys\map\%1\map%1.jpg",_map]
_pic = _gridpic
goto "mapshow"
#noisland
_map = mapset
_gridpic = format ["\wizmapsys\map\%1\map%1.jpg",_map]
_pic = _gridpic
goto "mapshow"
#mapshow
ctrlsettext [(799) ,format["%1",_pic]]
this exec "idctext.sqs"
exit