Statistics: Posted by Sinuvoid — Mon Jan 07, 2008 7:34 pm
Statistics: Posted by Dav — Fri Jan 04, 2008 4:12 pm
Statistics: Posted by burger2227 — Tue Dec 25, 2007 5:38 pm
Statistics: Posted by Nodtveidt — Mon Dec 24, 2007 11:28 pm
Statistics: Posted by Sinuvoid — Mon Dec 24, 2007 3:06 pm
Statistics: Posted by Sinuvoid — Mon Dec 24, 2007 3:00 pm
Statistics: Posted by Nodtveidt — Mon Dec 24, 2007 2:58 pm
Code:
DECLARE SUB Popup (A AS INTEGER, B AS INTEGER, c AS INTEGER, d AS INTEGER, text AS STRING, x AS INTEGER, y AS INTEGER)DECLARE SUB Textbox (A AS INTEGER, B AS INTEGER, c AS INTEGER, d AS INTEGER, text AS STRING, x AS INTEGER, y AS INTEGER)DECLARE SUB Checkbox (A AS INTEGER, B AS INTEGER, c AS INTEGER, d AS INTEGER)DECLARE SUB Backround (A AS INTEGER)'**********************************************************************************************'* This is Interface Library Created and Coded by Souylsin *'* Backround Command *'* x 1 TO 63 color of backround. 1 being black to 63 being white. *'* Checkbox Command *'* x,x, top left corner x, length x height *'* Popup Command *'* Stynax: a,b,c,d,"text",e,f *'* a,b, top left corner c, length d, height "", text here e, x plane to put text f, *'* y plane to put text *'* Textbox Command *'* Same as Above *'**********************************************************************************************'Testing area'Backround CommandSUB Backround (A AS INTEGER)PALETTE 1, A + (A * 256) + (A * 65536)LINE (0, 0)-(320, 320), 1, BFEND SUB'Checkbox CommandSUB Checkbox (A AS INTEGER, B AS INTEGER, c AS INTEGER, d AS INTEGER)PALETTE 12, 0 + (0 * 256) + (0 * 65536)LINE (A, B)-(c, d), 12, BFPALETTE 11, 63 + (63 * 256) + (63 * 65536)LINE (A, B)-(c, d), 11, BPALETTE 10, 63 + (63 * 256) + (63 * 65536)LINE (A + 10, B + 10)-(c - 10, d - 10), 10, BEND SUB'Popup CommandSUB Popup (A AS INTEGER, B AS INTEGER, c AS INTEGER, d AS INTEGER, text AS STRING, x AS INTEGER, y AS INTEGER)PALETTE 7, 63 + (63 * 256) + (63 * 65536)LINE (A + 0, B + 0)-(c + 6, d + 5), 7, BFPALETTE 9, 0 + (0 * 256) + (0 * 65536)LINE (A, B)-(c, d), 9, BFPALETTE 10, 63LINE (A - 1, B - 1)-(c + 1, d + 1), 10, BPALETTE 6, 63LINE (A + 1, B + 1)-(c - 1, d - 1), 6, BLOCATE x, yPRINT textEND SUB'Textbox CommandSUB Textbox (A AS INTEGER, B AS INTEGER, c AS INTEGER, d AS INTEGER, text AS STRING, x AS INTEGER, y AS INTEGER)PALETTE 13, 0 + (0 * 256) + (0 * 65536)LINE (A, B)-(c, d), 13, BFPALETTE 11, 63 + (63 * 256) + (63 * 65536)LINE (A, B)-(c, d), 11, BEND SUB
Statistics: Posted by Sinuvoid — Mon Dec 24, 2007 2:46 pm
Statistics: Posted by Nodtveidt — Mon Dec 24, 2007 1:45 pm
Statistics: Posted by Sinuvoid — Mon Dec 24, 2007 12:13 pm