PalaceChat RBScript Compendium

Script Name:	Prop Editroom
Author:	Marius_Th
Sections:	OUTCHAT

Say pedit to paint a small edit room.

if chatstr="pedit" then
	dim ny, oy, ox as integer
	
	CLEARPAINT
	pensize 8
	penfront false
	
	pencolor RGB(255,255,255)
	ox = 0
	oy = 8
	ny = 204
	
	while ox<171
	ox = ox + 8
	drawline(ox, oy, ox, ny)
	wend
	
	pencolor RGB(128,128,128)
	ox = 171
	
	while ox<341
	ox = ox + 8
	drawline(ox, oy, ox, ny)
	wend
	
	pencolor RGB(0,0,0)
	ox = 341
	
	while ox<512
	ox = ox + 8
	drawline(ox, oy, ox, ny)
	wend
	
	chatstr=""
end if