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
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
| 'LOLcode for FreeBASIC version 1.02
'Not to be cornfuzzled with LOLcode version 1.0
'This supports somewhere between LOLcode version 1 and LOLcode version 1.2
'Copyright (c) 2007 Ebben Feagan (sir_mud)
'Licenced under the terms of the GNU General Public License
'General Section
#define CAN_HAS #include once
#define STDIO "lolcode.bi"
#define HAI Declare Sub main(): main(): Sub main()
#define KTHXBYE End Sub 'ends the program
#define BTW Rem 'The real way to make a comment
#define BRB(x) Sleep x
#define CANDLEJACK(x,y,z) Mid(x,y,z)
#define EPIC_FAIL End
#macro HALP(x)
Print "DO NOT WANT: " & #x
End 255
#endmacro
'Graphics
#define IT_CAN_BE_PRETY_PICTRS_TIEM_NOW screenres
#define CHEX_MAH_SKILZ glbegin 'Requires CAN_HAS "GL/gl.bi"
#define DEMS_TITE_RITE glend
#define GIT_MAH_PIX Bload
#define HAS_MAH_PIX Bsave
#define DOODL Draw
#define DOT Pset
#define UNDOT Preset
#define MAH_LAZER Line
#define A_MOUF Circle
#define ITZ_MINE_NOW Get
#define U_CAN_HAS Put
#define FLIPN_MAH_LIDZ flip
#define SPLL_MAH_PANT Paint
#define BUNCHA_KEYZ multikey
#define GETZ_DAT_MOUS getmouse
#define FORGETS Cls
'Types, supporting private and public directives
#define THIS_SAMMICH_IS Type
#define MINE_ONLY Private:
#define I_SHAR_DEES Public:
#define NO_MOAR_SAMMICH End Type
'Subroutine - no return value
'O_HAI_IM must come before the HAI line
#define O_HAI_IM Declare Sub
#define HAI_IM Sub
#define THXBYE End Sub
'Function - returns a value
'O_HAI_U_HAS_A must come before the HAI line
'example function prototype: O_HAI_U_HAS_A two( foo as NUMBR ) I_GIEF NUMBR
#define O_HAI_U_HAS_A Declare Function
#define I_GIEF As
#define HAI_U_HAS_A Function
#define HAR_YA_GO(x) Return x
#define DONE_GIEFING End Function
'Da Maths
#define UP +
#define UPZ +=
#define NERF -
#define NERFZ -=
#define TIEMZ *
#define TIEMZD *=
#define OVAR /
#define OVARD /=
#define LIEK = 'equality operator
#define R = 'assignment operator
#define LEFTOVER Mod
#define BOOM ^
#define BOOMZ ^=
#define BIGR_THAN >
#define LES_THAN <
#define XORZ Xor
#define ORZ Or
'Variable creation::example: I_HAS_A longcat ITZ_A YARN ITZ "Longcat is long"
'or this: I_HAS_A tacgnol ITZ_A NUMBR ''dim tacgnol as integer
'continued: LOL tacgnol R 23 ''tacgnol = 23
#define I_HAS_A Dim
#define BIG_OL Shared
#define ITZ_A As
#define ITZ =
#define LOL Let
'Variable types
#define NUMBR Integer
#define BIG_NUMBER Long
#define YARN String
#define NUMBAR Single
#define BIG_NUMBAR Double
#define TROOF Byte
#define WATCHR Ptr
'I/O
#define GIMMEH Input
#define VISIBLE Print
#define WIF Using
#define GIMMEH_THAT Open
#define I_WANNA For
#define REED_IT Input
#define STROK_IT Binary
#define WRIT_IT Output
#define FINIS_IT Append
#define PUT_IN As
#define MAH_MOUF #1
#define MAH_LEF_HAND #2
#define MAH_RITE_HAND #3
#define MAH_LEF_FEET #4
#define MAH_RITE_FEET #5
#define MAH_POOPR #6
'If...then...else...end if
#define IZ If
#define O_RLY Then
#define YA_RLY Rem
#define NOWAI Else
#define KTHX End
#define IZ_K If
'Select...case
#define SRSLY_WHAT_IZ Select Case
#define MEBBE_ITZ Case
#define WHATEVAR Case Else
#define OK_SRSLY End Select
'Looping
#define IM_IN_YUR_LOOP Do
#define TIL Until
#define WILE While
#define GTFO Exit
#define YUR_LOOP Loop
#define IM_OUTTA_YUR_LOOP Loop
'For...Next
#define OMG For
#define TOO To
#define WTF Next
'True and False
#define WIN 1
#define FAIL 0
'Miscellaneous
#macro LET_ME_SHOW_YOU_MY_POKEMANS()
Scope
Randomize Timer
Dim As Integer n
Dim As Integer MAXPKMN = 3
n = Int(Rnd(1)*MAXPKMN)
Select Case n
Case 0
Print "/----------------------------------------\"
Print "<PIPE>._ _.-<PIPE> <PIPE>"
Print "<PIPE><PIPE>_~~`--._ _.-~ / <PIPE>"
Print "<PIPE> ~-._ ~-._.-~~~~~~~-.-~ _.~ <PIPE>"
Print "<PIPE> ~-._ / \_.-~ <PIPE>"
Print "<PIPE> <PIPE> .-. .-. <PIPE> <PIPE>"
Print "<PIPE> <PIPE>. <PIPE>_<PIPE> . <PIPE>_<PIPE> <PIPE> __.-<PIPE><PIPE>"
Print "<PIPE> / .__, <PIPE> _.--~ <PIPE><PIPE>"
Print "<PIPE> \ /_--~~ \ / <PIPE>"
Print "<PIPE> /~-._______.-~ \ <PIPE>____<PIPE> <PIPE>"
Print "<PIPE> <PIPE> / \ <PIPE> / <PIPE>"
Print "<PIPE> ~<PIPE>_ <PIPE>_<PIPE>_-~~ / <PIPE>"
Print "<PIPE> <PIPE> ~-\_/-~ <PIPE> _~ <PIPE>"
Print "<PIPE> <PIPE> <PIPE> <PIPE> / _-~ <PIPE>"
Print "<PIPE> <PIPE> <PIPE> / <PIPE>__---~ <PIPE>"
Print "<PIPE> <PIPE>,_<PIPE>,_<PIPE>____( <PIPE>"
Print "<PIPE>----------------------------------------<PIPE>"
Print "<PIPE> #113 Evee |"
Print "\----------------------------------------/"
Case 1
Print "/---------------------------------------------\"
Print "<PIPE>.__ __. <PIPE>"
Print "<PIPE> \ `\~~---..---~~~~~~--.---~~<PIPE> / <PIPE>"
Print "<PIPE> `~-. ` .~ _____<PIPE>"
Print "<PIPE> ~. .--~~ .---~~~ /<PIPE>"
Print "<PIPE> / .-. .-. <PIPE> <~~ __/ <PIPE>"
Print "<PIPE> <PIPE> <PIPE>_<PIPE> <PIPE>_<PIPE> \ \ .--' |"
Print "| /-. - .-. | \_ \_ |"
Print "| \-' -..-..- `-' | \__ \_ |"
Print "| `. | _/ _/ |"
Print "| ~- .,-\ _/ _/ |"
Print "| / -~~~~\ /_ /_ |"
Print "| | / | \ \_ \_ |"
Print "| | / / / | _/ _/ |"
Print "| | | | / .,-|/ _/ |"
Print "| )__/ \_/ -~~~| _/ |"
Print "| \ / \ |"
Print "| | | /_---` |"
Print "| \ .______| ./ |"
Print "| ( / \ / |"
Print "| `--' /__/ |"
Print "|---------------------------------------------|"
Print "| #25 Pikachu |"
Print "\---------------------------------------------/"
Case Else
Print "/--------------------------------\"
Print "<PIPE> ___ <PIPE>"
Print "<PIPE> _.-~~ ~~~-. <PIPE>"
Print "<PIPE> / _ ~. <PIPE>"
Print "<PIPE> <PIPE>#` /#` \ |"
Print "| |-'| |-'| | |"
Print "| /-- -- |-. |"
Print "| \__ . . / /\_ |"
Print "| \ ~~--___---~~/\| | ~-. |"
Print "| .---`~~--____---_) \ \-__ \ |"
Print "| ) < |__ __\_ \ \ | |"
Print "| ~-.__ / ~~~~ \ \ \ | |"
Print "| ~-. | .~-.-' | | |"
Print "| | \___|___/ / / ||"
Print "| | / | \ | | / ||"
Print "| \ | ~-___ \ \/ / |"
Print "| /\__ / `._ / ~-\ \_/ |"
Print "| / \_____| |`~ |"
Print "| | | | | |"
Print "| \ | | | |"
Print "| >______) /_/\/\_\ |"
Print "|--------------------------------|"
Print "| #7 Squirtle |"
Print "\--------------------------------/"
End Select
End Scope
#endmacro |
Post new comment