-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathinterpreter.au3
124 lines (110 loc) · 3.19 KB
/
interpreter.au3
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=rtzbf.exe
#AutoIt3Wrapper_UseUpx=y
#AutoIt3Wrapper_Change2CUI=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
rtzbf stupid interpreter
https://github.com/fault2004/rtzbf
Version: 1.0.1
AutoIt Version: 3.3.16.1
Author: fault2004
#ce ----------------------------------------------------------------------------
#cs ----------------------------------------------------------------------------
DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
Version 2, December 2004
Copyright (C) 2004 Sam Hocevar <sam@hocevar.net>
Everyone is permitted to copy and distribute verbatim or modified
copies of this license document, and changing it is allowed as long
as the name is changed.
DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
0. You just DO WHAT THE FUCK YOU WANT TO.
#ce ----------------------------------------------------------------------------
#include <File.au3>
Global $fA, $fB
If $CmdLine[0] = 1 Then
$aL = _FileListToArray($CmdLine[1])
For $x = 1 to UBound($aL) -1
$aLS = StringSplit($aL[$x], "•")
If @error Then Exit
Select
; Utility
;; Create/Update Variable
Case $aLS[2] = "inv"
Assign($aLS[3], "" & $aLS[4], 2)
;; Terminate
Case $aLS[2] = "rip"
Exit
;; Print
Case $aLS[2] = "out"
Local $s1 = Eval($aLS[3])
ConsoleWrite($s1 & @CRLF)
;; Sleep
Case $aLS[2] = "fee"
Sleep($aLS[3])
;; Read pipe
Case $aLS[2] = "rad"
Local $iC = ConsoleRead()
Local $iD = StringReplace($iC, @CRLF, "")
Assign($aLS[3], "" & $iD, 2)
;; Jump to position
Case $aLS[2] = "jmp"
If $aLS[4] = "A" Then
If $fA = 1 Then
$x = $aLS[3]
EndIf
ElseIf $aLS[4] = "B" Then
If $fB = 1 Then
$x = $aLS[3]
EndIf
EndIf
;; Set flags to 0
Case $aLS[2] = "set"
If $aLS[3] = "A" Then
$fA = 0
ElseIf $aLS[3] = "B" Then
$fB = 0
EndIf
;; Replace string
Case $aLS[2] = "rep"
Local $i1 = Eval($aLS[3])
Local $i2 = Eval($aLS[5])
Local $r1 = StringReplace($i1, $aLS[4], $i2, 0, 1)
Assign($aLS[6], $r1, 2)
;; Compare (equal)
Case $aLS[2] = "coe"
Local $i1 = Eval($aLS[3])
Local $i2 = Eval($aLS[4])
If $i1 == $i2 Then
If $aLS[5] = "A" Then
$fA = 1
ElseIf $aLS[5] = "B" Then
$fB = 1
EndIf
EndIf
; Math
;; Add
Case $aLS[2] = "mad"
Local $i1 = Eval($aLS[3])
Local $i2 = Eval($aLS[4])
Assign($aLS[5], $i1+$i2, 2)
;; Sub
Case $aLS[2] = "mst"
Local $i1 = Eval($aLS[3])
Local $i2 = Eval($aLS[4])
Assign($aLS[5], $i1-$i2, 2)
;; Divi
Case $aLS[2] = "mdi"
Local $i1 = Eval($aLS[3])
Local $i2 = Eval($aLS[4])
Assign($aLS[5], $i1/$i2, 2)
;; Multi
Case $aLS[2] = "mmu"
Local $i1 = Eval($aLS[3])
Local $i2 = Eval($aLS[4])
Assign($aLS[5], $i1*$i2, 2)
EndSelect
Next
EndIf