Beiträge von L3viathan

[autoit]

#include <String.au3>

[/autoit] [autoit][/autoit] [autoit]

$weather=BinaryToString(InetRead("http://api.wetter.com/forecast/weather/city/GRXXX0026/project/weathervoice/cs/40798025cf6c488f476f1ec63b33c0a6"),4)
$weather=_StringBetween($weather,"<w_txt>","</w_txt>")
$alt=0

[/autoit] [autoit][/autoit] [autoit]

sayforday(0,"Today")
Sleep(400)
sayforday(1,"Tomorrow")
Sleep(400)
sayforday(2,"The day after tomorrow")
Sleep(600)
_Say("All in all: Today " & t($weather[4]) & ". Tomorrow " & t($weather[9]) & ". The day after: " & t($weather[14]) & ".")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func sayforday($i,$day)
If $weather[0+5*$i]=$weather[1+5*$i] And $weather[1+5*$i]=$weather[2+5*$i] And $weather[2+5*$i]=$weather[3+5*$i] Then
_Say($day & ", the whole day " & t($weather[0+5*$i]))
ElseIf $weather[0+5*$i]=$weather[1+5*$i] And $weather[1+5*$i]=$weather[2+5*$i] Then
_Say($day & ", until the afternoon " & t($weather[0+5*$i]) & ", in the night " & t($weather[3+5*$i]))
ElseIf $weather[0+5*$i]=$weather[1+5*$i] And $weather[2+5*$i]=$weather[3+5*$i] Then
_Say($day & ", until noon, " & t($weather[0+5*$i]) & ", later " & t($weather[3+5*$i]))
ElseIf $weather[0+5*$i]=$weather[1+5*$i] Then
_Say($day & ", until noon, " & t($weather[0+5*$i]) & ", in the afternoon " & t($weather[2+5*$i]) & " and in the night " & t($weather[3+5*$i]))
ElseIf $weather[1+5*$i]=$weather[2+5*$i] And $weather[2+5*$i]=$weather[3+5*$i] Then
_Say($day & ", " & t($weather[0+5*$i]) & " in the morning, later it gets" & t($weather[2+5*$i]))
ElseIf $weather[1+5*$i]=$weather[2+5*$i] Then
_Say($day & ", " & t($weather[0+5*$i]) & " in the morning, later it gets" & t($weather[2+5*$i]) & " and in the night " & t($weather[3+5*$i]))
ElseIf $weather[2+5*$i]=$weather[3+5*$i] Then
_Say($day & ", " & t($weather[0+5*$i]) & " in the morning, " & t($weather[1+5*$i]) & " at noon, later it gets" & t($weather[3+5*$i]))
Else
_Say($day & ", " & t($weather[0+5*$i]) & " in the morning, " & t($weather[1+5*$i]) & " at noon, " & t($weather[2+5*$i]) & " in the afternoon and " & t($weather[3+5*$i]) & " at night.")
EndIf
EndFunc
Func _Say($sText, $iRate = 1, $iVolume = 100)
If $iRate > 10 Or $iVolume > 100 Then Return
Local $oTalk = ObjCreate('SAPI.SpVoice')
If Not @error Then
$oTalk.Rate = $iRate
$oTalk.Volume = $iVolume
$oTalk.Speak($sText)
EndIf
ConsoleWrite($sText & @CRLF)
EndFunc
Func t($what)
Switch $what
Case "heiter"
Return "sunny"
Case "leicht bewölkt"
Return "partly cloudy"
Case "wolkig"
Return "cloudy"
Case "regen","Regen"
Return "rainy"
Case Else
Return $what
EndSwitch
EndFunc

[/autoit]

[autoit;FABSIL AutoIt based stupid interpreter Language
#include <Array.au3>
#include <File.au3>
Global $V=False, $MEM, $POINTER=0, $DIR=1
If $CMDLINE[0] Then
For $i = 1 To $CMDLINE[0]
Switch $CMDLINE[$i]
Case '-?','--help'
MsgBox(0x40000, 'FABSIL Commandline Options', _
'The only possible switch oder than -? / --help is -v / --versatile before the filename to output everything that''s happening')
Exit
Case '-v','--versatile'
$V = True
Case Else
If not FileExists($CMDLINE[$i]) Then Exit MsgBox(16,"FABSIL Error","File doesn't exist")
$FILE=$CMDLINE[$i]
EndSwitch
Next
Else
$FILE=FileOpenDialog("FABSIL Interpreter",@WorkingDir,"FABSIL File (*.fabsil)|All files (*.*)",1)
If not FileExists($FILE) Then Exit
EndIf

_FileReadToArray($FILE,$MEM)
If $MEM[0] = 0 Then Exit MsgBox(16,"FABSIL Error","The file is empty")
_ArrayDelete($MEM,0)

Func w($data)
;Write Data to the current pointer position
guarantee($POINTER)
$MEM[$POINTER] = $data
EndFunc
Func r()
;Read Data from the current pointer position
If UBound($MEM) > $POINTER Then Return $MEM[$POINTER]
Return 0
EndFunc
Func i()
$POINTER += $DIR
EndFunc
Func d()
$POINTER -= $DIR
EndFunc

#cs commands
NET = NextElement'sTarget
0 do nothing
1 put the element from the next in the element of the following element (1,2,3: put content from 2 in 3)
2 change the direction
3 quit
4 output the data of the next element ( 4,2: output $MEM[2]
5 input data into next element ( 5,2: input into $MEM[2]
6 jump to position of the next element
7 relative jump of the number of the next element
8 increment the element of the next element
9 decrement the element of the next element
10 if next elements target is zero, jump to the next but one. otherwise jump to next but second one.
#ce

;Interpreter:
ConsoleWrite(@CRLF & @CRLF)
While 1
Switch r()
Case 0;do nothing
V("Doing nothing" & @CRLF)
Case 1;put
i()
$from=r()
guarantee($from)
V("Copying from " & $POINTER & " (" & r() & ") to")
i()
guarantee(r())
$MEM[r()]=$MEM[$from]
V(r() & @CRLF)
Case 2;decrease
$DIR *= -1
V("Changing direction (now " & $DIR & ")" & @CRLF)
Case 3;quit
V("Exiting")
ConsoleWrite(@CRLF & @CRLF)
ExitLoop
Case 4;output
i()
V("Outputting the data from " & r() & ":" & @CRLF)
$oldP = $POINTER
guarantee($POINTER)
$POINTER = r()
ConsoleWrite(StringReplace(r(),"@CRLF",@CRLF))
$POINTER = $oldP
Case 5;input
i()
$oldP=$POINTER
$POINTER=r()
guarantee($POINTER)
V("Demanding input")
w(InputBox("Machine","Eingabe verlangt:"))
V(" (" & r() & ")" & @CRLF)
$POINTER=$oldP
Case 6;jumpto
i()
$POINTER = r()-$DIR
V("Jumping to " & $POINTER+$DIR & @CRLF)
If UBound($MEM) <= $POINTER Then
V("Exiting because of pointer beyond memory")
Exit
EndIf
Case 7;jumprelative
i()
V("Jumping " & r() & " steps forward (now ")
$POINTER += (r()-$DIR)
If UBound($MEM) <= $POINTER Then
V(@CRLF & "Exiting because of pointer beyond memory")
Exit
EndIf
V($POINTER+$DIR & ")" & @CRLF)
Case 8;increment
i()
$oldP=$POINTER
$POINTER=r()
guarantee($POINTER)
V("Incrementing " & $POINTER & " (now " & r()+1 & ")" & @CRLF)
w(r()+1)
$POINTER=$oldP
Case 9;decrement
i()
$oldP=$POINTER
$POINTER=r()
guarantee($POINTER)
V("Decrementing " & $POINTER & " (now " & r()-1 & ")" & @CRLF)
w(r()-1)
$POINTER=$oldP
Case 10
i()
V("If " & $MEM[r()] & "is zero (is")
If $MEM[r()] = 0 Then
i()
$POINTER = r()-$DIR
V("), thus jumping to " & $POINTER+$DIR & @CRLF)
If UBound($MEM) <= $POINTER Then
V(@CRLF & "Exiting because of pointer beyond memory")
Exit
EndIf
Else
i()
i()
$POINTER = r()-$DIR
V(" not), thus jumping to " & $POINTER+$DIR & @CRLF)
If UBound($MEM) <= $POINTER Then
V(@CRLF & "Exiting because of pointer beyond memory")
Exit
EndIf
EndIf
EndSwitch
i()
WEnd

Func V($data)
If $V Then ConsoleWrite($data)
EndFunc
Func guarantee($num)
While UBound($MEM) <= $num
_ArrayAdd($MEM,0)
WEnd
EndFunc[/autoit]

Edit: Erklärung des Beispielcodes:
[4,2,"Wie heißt du?",5,14,4,7,@CRLF & "Hallo, ",4,14,4,13,3,"!",0]
4,2: Gib den Inhalt von Position 2 aus.
Danach ist der Pointer auf dem String, aber da der Interpreter keinen Befehl sieht, überspringt er es.
5,14: Verlange eine Eingabe und speichere sie in Position 14.
4,7: Gib den Inhalt von Position 7 aus (@CRLF & "Hallo ")
String wird wieder übersprungen.
4,14: Gib Position 14 aus (den Namen)
4,13: Und jetzt das Ausrufezeichen von Position 13.
3: Skript wird beendet.