2008-08-31 09:08:24 +00:00
|
|
|
; Hey, here's some test code
|
2009-05-05 18:14:05 +00:00
|
|
|
echo TEST Code line match [ 2 = $line ]
|
|
|
|
; Test comment
|
|
|
|
echo TEST Code line match [ 4 = $line ]
|
2008-08-31 09:08:24 +00:00
|
|
|
set name Correl
|
2008-08-31 17:00:39 +00:00
|
|
|
%first = Correl
|
2009-05-08 20:58:19 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
2009-04-17 02:45:22 +00:00
|
|
|
%middle = Joseph
|
2008-08-31 17:00:39 +00:00
|
|
|
%name = %first $&
|
2009-04-22 18:24:39 +00:00
|
|
|
%middle Roush
|
|
|
|
echo Hello %name $+ ! $&
|
|
|
|
How $lower(ArE YoU) $+ ?
|
2009-04-23 15:29:37 +00:00
|
|
|
showversion
|
2008-08-31 09:08:24 +00:00
|
|
|
alias dostuff {
|
|
|
|
; Not very useful, but good for testing the parser!
|
|
|
|
var %b = 42
|
|
|
|
%b = $calc(%b * 3)
|
|
|
|
return %b;
|
|
|
|
}
|
2009-04-23 15:29:37 +00:00
|
|
|
alias -l getversion {
|
|
|
|
var %version = version $version
|
|
|
|
return %version
|
2008-08-31 09:08:24 +00:00
|
|
|
}
|
2009-04-23 15:29:37 +00:00
|
|
|
alias -l showversion {
|
|
|
|
echo You're testing Mercenary $getversion
|
2009-05-08 20:58:19 +00:00
|
|
|
echo TEST Code line match [ 25 = $line ]
|
|
|
|
}
|
|
|
|
on *:TEXT:something:echo hey I got a message
|
|
|
|
|
|
|
|
on *:QUIT:{
|
|
|
|
echo Quitting!
|
2009-04-23 15:29:37 +00:00
|
|
|
}
|
|
|
|
dostuff
|