Was die Langeweile alles erschaffen kann

Naja, was das unter Skripte zu suchen haben soll...
Es hätte zumindest etwas Reiz, wenn es ein Einzeiler wär:

MsgBox(0, 'Ergebnis', InputBox('Eingabe', 'Zahl 1') + InputBox('Eingabe', 'Zahl 2'))

Ich hoffe du hast Verständnis, dass ich das nach OT verschiebe.

sowas kriegen wir doch auch hin

If $bHunger Then
$ret = _ModemSetState('Call', 'McDonalds')
If $ret Then Send('Bestell-Liste' & 'Paypalkennung')
$start = TimerInit()
While Not 'Türglocke'
Sleep(60*60*1000)
If TimerDiff($start) > 10*60*60*1000 Then $FeelMe = 'Genervt'
WEnd
Run('auf_Essen_stürz')
EndIf

Damit kann man ja richtig kleine Geschichten schreiben (ist mir gerade passiert):

Global $oNotebook = ObjGet('Notebook', 'Hardware')
If $oNotebook.DVD_Writer = 'Defekt' Then
$sPriceList = InetGet('Computer-Shop', 'Preisliste')
$sDVDWriter = StringInStr($sPriceList, 'DVD-Brenner', 0)
_INetMail('computer-shop', 'Bestellung', $sDVDWriter & $sMyAdress)
ProcessWait('Bestellung eingetroffen', 3*24*60*60*1000)
Global $oCar = ObjGet('Street', 'My Car')
$oCar.DriveTo('Computer-Shop')
ControlSend('Computer-Shop-Kasse', 'Preis', Default)
$oCar.DriveTo('Home')
$oNotebook.Remove('Defekter DVD-Brenner')
$oNotebook.Add('Neuer DVD-Brenner')
$rc = CDTray('D:', 'open')
If $rc = 'ERROR' Then
_INetMail('Computer-Shop', 'Grrr...*#$*§!', '')
$oNotebook.Remove('Neuer, defekter DVD-Brenner')
$oCar.DriveTo('Computer-Shop')
ControlSend('Computer-Shop', 'Reklamation')
ControlGetText('Computer-Shop', 'Nicht vorrätig! Bestellen!')
$oCar.DriveTo('Home')
ProcessWait('Bestellung eingetroffen', 3*24*60*60*1000)
$oCar.DriveTo('Computer-Shop')
ControlSend('Computer-Shop', 'Umtausch')
$oCar.DriveTo('Home')
$oNotebook.Add('Neuer DVD-Brenner')
$rc = CDTray('D:', 'open')
If $rc = 'Ok' Then MsgBox(0, 'Notebook wieder in Ordnung', 'Hurra!')
EndIf
EndIf

Oh Mann, da wird der Bill aber sauer, wenn Du hier Teile des Windows-Quellcodes veröffentlichst.

Naja, sagen wir mal so: Bei Windows wäre die Variable $BugAnzahl > 1