28 lines
503 B
Lua
28 lines
503 B
Lua
local oldprint = print
|
|
function print(t,x,y,col1,col2)
|
|
if col2 then
|
|
for i=-1,1 do
|
|
for j=-1,1 do
|
|
oldprint(t, x+i, y+j, col2)
|
|
end
|
|
end
|
|
end
|
|
oldprint(t, x, y, col1)
|
|
end
|
|
|
|
function str_width(str)
|
|
return print(str,0,-8)
|
|
end
|
|
|
|
function print_shade(t,x,y,col1,col2)
|
|
print(t,x,y+1,col2)
|
|
print(t,x+1,y+1,col2)
|
|
print(t,x,y,col1)
|
|
end
|
|
|
|
function set_state(state, ...)
|
|
local args = {...}
|
|
if gs and gs._leave then gs._leave() end
|
|
gs = state
|
|
if gs and gs._enter then gs._enter(unpack(args)) end
|
|
end |