PSI

#include<GUIConstantsEx.au3>
Opt('MouseCoordMode', 0)
Global $aCoord, $aElements, $aDescription
_InitArray() ; Koordinaten, Elementname und Beschreibung einlesen
Global $iLeft = 80, $iTop = 30, $sSelected = -1
$hGui = GUICreate('PSE', 800, 600)
GUISetBkColor(0xffffff)
$hPic = GUICtrlCreatePic('pse-gross.gif', $iLeft, $iTop, 650, 442)
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $hPic
If $sSelected <> -1 Then
ToolTip('')
MsgBox(64, $aElements[$sSelected], $aDescription[$sSelected], 0, $hGui)
EndIf
EndSwitch
$aInfo = GUIGetCursorInfo($hGui)
$aInfo[0] -= $iLeft
$aInfo[1] -= $iTop
For $i = 0 To UBound($aCoord) - 1
If $aInfo[0] > $aCoord[$i][0] And $aInfo[0] < $aCoord[$i][2] And $aInfo[1] > $aCoord[$i][1] And $aInfo[1] < $aCoord[$i][3] Then ExitLoop
Next
If $i <= UBound($aCoord) -1 Then
$sSelected = $i
ToolTip($aElements[$sSelected])
Else
$sSelected = -1
ToolTip('')
EndIf
WEnd

Func _InitArray()
Global $aCoord[112][4] = [ _
[016,019,050,064], _
[016,065,050,108], _
[016,109,050,152], _
[016,153,050,196], _
[016,197,050,240], _
[016,241,050,284], _
[016,285,050,328], _
[051,065,085,108], _
[051,109,085,152], _
[051,153,085,196], _
[051,197,085,240], _
[051,241,085,284], _
[051,285,085,328], _
[086,153,120,196], _
[086,197,120,240], _
[086,241,120,284], _
[086,285,120,328], _
[121,153,155,196], _
[121,197,155,240], _
[121,241,155,284], _
[121,285,155,328], _
[156,153,190,196], _
[156,197,190,240], _
[156,241,190,284], _
[156,285,190,328], _
[191,153,225,196], _
[191,197,225,240], _
[191,241,225,284], _
[191,285,225,328], _
[226,153,261,196], _
[226,197,261,240], _
[226,241,261,284], _
[226,285,261,328], _
[262,153,296,196], _
[262,197,296,240], _
[262,241,296,284], _
[262,285,296,328], _
[297,153,333,196], _
[297,197,333,240], _
[297,241,333,284], _
[297,285,333,328], _
[334,153,368,196], _
[334,197,368,240], _
[334,241,368,284], _
[334,285,368,328], _
[369,153,402,196], _
[369,197,402,240], _
[369,241,402,284], _
[403,153,437,196], _
[403,197,437,240], _
[403,241,437,284], _
[438,065,473,108], _
[438,109,473,152], _
[438,153,473,196], _
[438,197,473,240], _
[438,241,473,284], _
[474,065,508,108], _
[474,109,508,152], _
[474,153,508,196], _
[474,197,508,240], _
[474,241,508,284], _
[509,065,543,108], _
[509,109,543,152], _
[509,153,543,196], _
[509,197,543,240], _
[509,241,543,284], _
[544,065,578,108], _
[544,109,578,152], _
[544,153,578,196], _
[544,197,578,240], _
[544,241,578,284], _
[579,065,613,108], _
[579,109,613,152], _
[579,153,613,196], _
[579,197,613,240], _
[579,241,613,284], _
[614,019,648,064], _
[614,065,648,108], _
[614,109,648,152], _
[614,153,648,196], _
[614,197,648,240], _
[614,241,648,284], _
[086,353,120,395], _
[121,353,155,395], _
[156,353,190,395], _
[192,353,226,395], _
[227,353,261,395], _
[262,353,296,395], _
[297,353,332,395], _
[333,353,367,395], _
[368,353,402,395], _
[403,353,437,395], _
[438,353,473,395], _
[474,353,508,395], _
[509,353,543,395], _
[544,353,578,395], _
[579,353,613,395], _
[086,397,120,441], _
[121,397,155,441], _
[156,397,190,441], _
[192,397,226,441], _
[227,397,261,441], _
[262,397,296,441], _
[297,397,332,441], _
[333,397,367,441], _
[368,397,402,441], _
[403,397,437,441], _
[438,397,473,441], _
[474,397,508,441], _
[509,397,543,441], _
[544,397,578,441], _
[579,397,613,441] _
]
Global $aElements[112] = [ _
'Wasserstoff', _
'Lithium', _
'Natrium', _
'Kalium', _
'Rubidium', _
'Caesium', _
'Francium', _
'Beryllium', _
'Magnesium', _
'Calcium', _
'Strontium', _
'Barium', _
'Radium', _
'Scandium', _
'Yttrium', _
'Lanthanoide', _
'Actinoide', _
'Titan', _
'Zirconium', _
'Hafnium', _
'Rutherfordium', _
'Vanadium', _
'Niob', _
'Tantal', _
'Dubnium', _
'Chrom', _
'Molybdän', _
'Wolfram', _
'Seaborgium', _
'Mangan', _
'Technetium', _
'Rhenium', _
'Bohrium', _
'Eisen', _
'Ruthenium', _
'Osmium', _
'Hassium', _
'Cobalt', _
'Rhodium', _
'Iridium', _
'Meitnerium', _
'Nickel', _
'Palladium', _
'Platin', _
'Darmstadtium', _
'Kupfer', _
'Silber', _
'Gold', _
'Zink', _
'Cadmium', _
'Quecksilber', _
'Bor', _
'Aluminium', _
'Gallium', _
'Indium', _
'Thallium', _
'Kohlenstoff', _
'Silicium', _
'Germanium', _
'Zinn', _
'Blei', _
'Stickstoff', _
'Phosphor', _
'Arsen', _
'Antimon', _
'Bismut', _
'Sauerstoff', _
'Schwefel', _
'Selen', _
'Tellur', _
'Polonium', _
'Fluor', _
'Chlor', _
'Brom', _
'Iod', _
'Astat', _
'Helium', _
'Neon', _
'Argon', _
'Krypton', _
'Xenon', _
'Radon', _
'Lanthan', _
'Cer', _
'Praseodym', _
'Neodym', _
'Promethium', _
'Samarium', _
'Europium', _
'Gadolinium', _
'Terbium', _
'Dysprosium', _
'Holmium', _
'Erbium', _
'Thulium', _
'Ytterbium', _
'Lutetium', _
'Actinium', _
'Thorium', _
'Protactinium', _
'Uran', _
'Neptunium', _
'Plutonium', _
'Americium', _
'Curium', _
'Berkelium', _
'Californium', _
'Einsteinium', _
'Fermium', _
'Mendelevium', _
'Nobelium', _
'Lawrencium' _
]
Global $aDescription[112] = [ _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung', _
'Beschreibung' _
]
EndFunc