PDA

View Full Version : Scar IPainter...


Zyt3x
04-25-2008, 02:05 PM
This will paint a human on paint :)

program iPaint;

procedure DragCorner(x, y : integer);
var
Corner : array [0..1] of Integer;
xx, yy, i : integer;
begin
Corner[0] := BitmapFromString(4, 4, 'beNrLOvr///8GJGCYdRSCsLMB' +
'ggMYXg==');
Corner[1] := BitmapFromString(3, 3, 'beNrLOmqYhQMBAK9cDGE=');
for i := 0 to 1 do
if FindBitmap(Corner[i], xx, yy) then
begin
HoldMouse(xx+2, yy+2, true);
Wait(10);
MoveMouse(x + 100, y + 100);
Wait(10);
MoveMouse(x+3, y+3);
Wait(10);
ReleaseMouse(x+3, y+3, true);
Wait(10);
WriteLn('Made window size ' + IntToStr(x) + ', ' + IntToStr(y) + '.');
Break;
end;
for i := 0 to 1 do
FreeBitmap(Corner[i]);
end;

procedure CC(Row, Cell : integer; left : boolean);
var
Row2, Cell2 : integer;
begin
Row2 := (-16 - (-16 * Row) - 16);
case Cell of
1: Cell2 := 758;
2: Cell2 := 775;
end;
ClickMouse(Row2, Cell2, left);
wait(0);
end;

procedure ChooseColor(Color : string; left : boolean);
begin
case Color of
'Black': CC(1, 1, Left);
'White': CC(1, 2, Left);
'LtGray': CC(2, 1, Left);
'Gray': CC(2, 2, Left);
'DrkRed': CC(3, 1, Left);
'Red': CC(3, 2, Left);
'DrkYellow': CC(4, 1, Left);
'Yellow': CC(4, 2, Left);
'DrkGreen': CC(5, 1, Left);
'Green': CC(5, 2, Left);
'DrkAqua': CC(6, 1, Left);
'Aqua': CC(6, 2, Left);
'DrkBlue': CC(7, 1, Left);
'Blue': CC(7, 2, Left);
'DrkPink': CC(8, 1, Left);
'Pink': CC(8, 2, Left);
'DrkLtYellow': CC(9, 1, Left);
'LtYellow': CC(9, 2, Left);
'DrkLtGreen': CC(10, 1, Left);
'LtGreen': CC(10, 2, Left);
'DrkLtLtBlue': CC(11, 1, Left);
'LtLtBlue': CC(11, 2, Left);
'DarkLtBlue': CC(12, 1, Left);
'LtBlue': CC(12, 2, Left);
'Purple': CC(13, 1, Left);
'PinkRed': CC(13, 2, Left);
'Brown': CC(14, 1, Left);
'Orange': CC(14, 2, Left);
else
WriteLn('Wrong color.');
end;
Wait(10);
end;

procedure CT(Row, Cell : integer);
var
Row2, Cell2 : integer;
begin
case Row of
1: Row2 := -45;
2: Row2 := -20;
end;
Cell2 := Cell * 25;
ClickMouse(Row2, Cell2, true);
wait(0);
end;

procedure ChooseTool(Tool : string);
begin
case Tool of
'StarMark': CT(1, 1);
'SquareMark': CT(2, 1);
'Rubber': CT(1, 2);
'Bucket': CT(2, 2);
'ColorPicker': CT(1, 3);
'MagnifyGlass': CT(2, 3);
'Pencil': CT(1, 4);
'Brush': CT(2, 4);
'Spray': CT(1, 5);
'Text': CT(2, 5);
'Line': CT(1, 6);
'Curve': CT(2, 6);
'Square': CT(1, 7);
'L': CT(2, 7);
'Circle': CT(1, 8);
'CircleSquare': CT(2, 8);
else
WriteLn('Wrong tool.');
end;
Wait(10);
end;

procedure MakeHuman;
begin
ChooseTool('Line');
ChooseColor('Gray', true);
ChooseColor('White', false);
DragCorner(400, 400);
wait(10);
HoldMouse(50, 372, true);
Wait(10);
MoveMouse(121, 272);
Wait(10);
ReleaseMouse(121, 272, true);
Wait(10);
HoldMouse(31, 345, true);
Wait(10);
MoveMouse(102, 266);
Wait(10);
ReleaseMouse(102, 266, true);
Wait(10);
HoldMouse(111, 370, true);
Wait(10);
MoveMouse(147, 278);
Wait(10);
ReleaseMouse(147, 278, true);
Wait(10);
HoldMouse(143, 367, true);
Wait(10);
MoveMouse(166, 279);
Wait(10);
ReleaseMouse(166, 279, true);
Wait(10);
HoldMouse(205, 258, true);
Wait(10);
MoveMouse(180, 285);
Wait(10);
ReleaseMouse(180, 285, true);
Wait(10);
HoldMouse(179, 290, true);
Wait(10);
MoveMouse(192, 320);
Wait(10);
ReleaseMouse(192, 320, true);
Wait(10);
HoldMouse(188, 329, true);
Wait(10);
MoveMouse(146, 411);
Wait(10);
ReleaseMouse(146, 411, true);
Wait(10);
HoldMouse(202, 334, true);
Wait(10);
MoveMouse(208, 450);
Wait(10);
ReleaseMouse(208, 450, true);
Wait(10);
HoldMouse(209, 318, true);
Wait(10);
MoveMouse(223, 296);
Wait(10);
ReleaseMouse(223, 296, true);
Wait(10);
HoldMouse(213, 261, true);
Wait(10);
MoveMouse(222, 289);
Wait(10);
ReleaseMouse(222, 289, true);
Wait(10);
HoldMouse(164, 244, true);
Wait(10);
MoveMouse(93, 354);
Wait(10);
ReleaseMouse(93, 354, true);
Wait(10);
HoldMouse(241, 255, true);
Wait(10);
MoveMouse(244, 312);
Wait(10);
ReleaseMouse(244, 312, true);
Wait(10);
HoldMouse(244, 312, true);
Wait(10);
MoveMouse(233, 322);
Wait(10);
ReleaseMouse(233, 322, true);
Wait(10);
HoldMouse(233, 322, true);
Wait(10);
MoveMouse(237, 341);
Wait(10);
ReleaseMouse(237, 341, true);
Wait(10);
HoldMouse(237, 341, true);
Wait(10);
MoveMouse(225, 359);
Wait(10);
ReleaseMouse(225, 359, true);
Wait(10);
HoldMouse(225, 359, true);
Wait(10);
MoveMouse(232, 379);
Wait(10);
ReleaseMouse(232, 379, true);
Wait(10);
HoldMouse(232, 379, true);
Wait(10);
MoveMouse(234, 447);
Wait(10);
ReleaseMouse(234, 447, true);
Wait(10);
HoldMouse(189, 244, true);
Wait(10);
MoveMouse(166, 280);
Wait(10);
ReleaseMouse(166, 280, true);
Wait(10);
HoldMouse(143, 368, true);
Wait(10);
MoveMouse(115, 426);
Wait(10);
ReleaseMouse(115, 426, true);
Wait(10);
HoldMouse(114, 249, true);
Wait(10);
MoveMouse(50, 301);
Wait(10);
ReleaseMouse(50, 301, true);
Wait(10);
HoldMouse(50, 301, true);
Wait(10);
MoveMouse(-8, 363);
Wait(10);
ReleaseMouse(-8, 363, true);
Wait(10);
HoldMouse(64, 372, true);
Wait(10);
MoveMouse(43, 405);
Wait(10);
ReleaseMouse(43, 405, true);
Wait(10);
HoldMouse(296, 258, true);
Wait(10);
MoveMouse(360, 329);
Wait(10);
ReleaseMouse(360, 329, true);
Wait(10);
HoldMouse(295, 328, true);
Wait(10);
MoveMouse(332, 405);
Wait(10);
ReleaseMouse(332, 405, true);
Wait(10);
HoldMouse(361, 329, true);
Wait(10);
MoveMouse(387, 428);
Wait(10);
ReleaseMouse(387, 428, true);
Wait(10);
HoldMouse(297, 259, true);
Wait(10);
MoveMouse(287, 263);
Wait(10);
ReleaseMouse(287, 263, true);
Wait(10);
HoldMouse(298, 258, true);
Wait(10);
MoveMouse(266, 247);
Wait(10);
ReleaseMouse(266, 247, true);
Wait(10);
HoldMouse(117, 248, true);
Wait(10);
MoveMouse(125, 257);
Wait(10);
ReleaseMouse(125, 257, true);
Wait(10);
HoldMouse(119, 248, true);
Wait(10);
MoveMouse(158, 234);
Wait(10);
ReleaseMouse(158, 234, true);
Wait(10);
HoldMouse(158, 234, true);
Wait(10);
MoveMouse(186, 238);
Wait(10);
ReleaseMouse(186, 238, true);
Wait(10);
HoldMouse(186, 238, true);
Wait(10);
MoveMouse(199, 247);
Wait(10);
ReleaseMouse(199, 247, true);
Wait(10);
HoldMouse(199, 247, true);
Wait(10);
MoveMouse(226, 249);
Wait(10);
ReleaseMouse(226, 249, true);
Wait(10);
HoldMouse(226, 249, true);
Wait(10);
MoveMouse(238, 244);
Wait(10);
ReleaseMouse(238, 244, true);
Wait(10);
HoldMouse(238, 244, true);
Wait(10);
MoveMouse(265, 246);
Wait(10);
ReleaseMouse(265, 246, true);
Wait(10);
HoldMouse(249, 357, true);
Wait(10);
MoveMouse(271, 419);
Wait(10);
ReleaseMouse(271, 419, true);
Wait(10);
HoldMouse(269, 338, true);
Wait(10);
MoveMouse(295, 417);
Wait(10);
ReleaseMouse(295, 417, true);
Wait(10);
HoldMouse(267, 273, true);
Wait(10);
MoveMouse(294, 370);
Wait(10);
ReleaseMouse(294, 370, true);
Wait(10);
HoldMouse(294, 284, true);
Wait(10);
MoveMouse(336, 320);
Wait(10);
ReleaseMouse(336, 320, true);
Wait(10);
HoldMouse(300, 314, true);
Wait(10);
MoveMouse(344, 374);
Wait(10);
ReleaseMouse(344, 374, true);
Wait(10);
HoldMouse(342, 336, true);
Wait(10);
MoveMouse(362, 389);
Wait(10);
ReleaseMouse(362, 389, true);
Wait(10);
HoldMouse(34, 362, true);
Wait(10);
MoveMouse(10, 394);
Wait(10);
ReleaseMouse(10, 394, true);
Wait(10);
HoldMouse(96, 376, true);
Wait(10);
MoveMouse(83, 409);
Wait(10);
ReleaseMouse(83, 409, true);
Wait(10);
HoldMouse(239, 243, true);
Wait(10);
MoveMouse(241, 253);
Wait(10);
ReleaseMouse(241, 253, true);
Wait(10);
HoldMouse(190, 240, true);
Wait(10);
MoveMouse(187, 245);
Wait(10);
ReleaseMouse(187, 245, true);
Wait(10);
HoldMouse(206, 257, true);
Wait(10);
MoveMouse(213, 260);
Wait(10);
ReleaseMouse(213, 260, true);
Wait(10);
HoldMouse(191, 319, true);
Wait(10);
MoveMouse(186, 329);
Wait(10);
ReleaseMouse(186, 329, true);
Wait(10);
HoldMouse(206, 318, true);
Wait(10);
MoveMouse(201, 335);
Wait(10);
ReleaseMouse(201, 335, true);
Wait(10);
HoldMouse(222, 289, true);
Wait(10);
MoveMouse(221, 298);
Wait(10);
ReleaseMouse(221, 298, true);
Wait(10);
HoldMouse(182, 282, true);
Wait(10);
MoveMouse(177, 291);
Wait(10);
ReleaseMouse(177, 291, true);
Wait(10);
HoldMouse(114, 249, true);
Wait(10);
MoveMouse(120, 245);
Wait(10);
ReleaseMouse(120, 245, true);
Wait(10);
HoldMouse(205, 321, true);
Wait(10);
MoveMouse(215, 308);
Wait(10);
ReleaseMouse(215, 308, true);
Wait(10);
ChooseTool('Bucket');
ChooseColor('DrkBlue', true);
HoldMouse(255, 328, true);
Wait(10);
MoveMouse(255, 328);
Wait(10);
ReleaseMouse(255, 328, true);
Wait(10);
HoldMouse(164, 263, true);
Wait(10);
MoveMouse(164, 263);
Wait(10);
ReleaseMouse(164, 263, true);
Wait(10);
ChooseColor('Red', true);
HoldMouse(204, 291, true);
Wait(10);
MoveMouse(204, 291);
Wait(10);
ReleaseMouse(204, 291, true);
Wait(10);
ChooseColor('Black', true);
HoldMouse(233, 278, true);
Wait(10);
MoveMouse(233, 278);
Wait(10);
ReleaseMouse(233, 278, true);
Wait(10);
ChooseTool('Line');
ChooseColor('Gray', true);
HoldMouse(175, 127, true);
Wait(10);
MoveMouse(143, 136);
Wait(10);
ReleaseMouse(143, 136, true);
Wait(10);
HoldMouse(143, 136, true);
Wait(10);
MoveMouse(139, 143);
Wait(10);
ReleaseMouse(139, 143, true);
Wait(10);
HoldMouse(139, 143, true);
Wait(10);
MoveMouse(209, 154);
Wait(10);
ReleaseMouse(209, 154, true);
Wait(10);
HoldMouse(209, 154, true);
Wait(10);
MoveMouse(282, 154);
Wait(10);
ReleaseMouse(282, 154, true);
Wait(10);
HoldMouse(282, 154, true);
Wait(10);
MoveMouse(311, 144);
Wait(10);
ReleaseMouse(311, 144, true);
Wait(10);
HoldMouse(311, 144, true);
Wait(10);
MoveMouse(314, 139);
Wait(10);
ReleaseMouse(314, 139, true);
Wait(10);
HoldMouse(314, 139, true);
Wait(10);
MoveMouse(304, 132);
Wait(10);
ReleaseMouse(304, 132, true);
Wait(10);
HoldMouse(304, 132, true);
Wait(10);
MoveMouse(269, 128);
Wait(10);
ReleaseMouse(269, 128, true);
Wait(10);
HoldMouse(168, 136, true);
Wait(10);
MoveMouse(180, 130);
Wait(10);
ReleaseMouse(180, 130, true);
Wait(10);
HoldMouse(180, 130, true);
Wait(10);
MoveMouse(192, 109);
Wait(10);
ReleaseMouse(192, 109, true);
Wait(10);
HoldMouse(192, 109, true);
Wait(10);
MoveMouse(206, 91);
Wait(10);
ReleaseMouse(206, 91, true);
Wait(10);
HoldMouse(206, 91, true);
Wait(10);
MoveMouse(215, 88);
Wait(10);
ReleaseMouse(215, 88, true);
Wait(10);
HoldMouse(215, 88, true);
Wait(10);
MoveMouse(225, 90);
Wait(10);
ReleaseMouse(225, 90, true);
Wait(10);
HoldMouse(225, 90, true);
Wait(10);
MoveMouse(228, 98);
Wait(10);
ReleaseMouse(228, 98, true);
Wait(10);
HoldMouse(222, 113, true);
Wait(10);
MoveMouse(233, 94);
Wait(10);
ReleaseMouse(233, 94, true);
Wait(10);
HoldMouse(233, 94, true);
Wait(10);
MoveMouse(241, 90);
Wait(10);
ReleaseMouse(241, 90, true);
Wait(10);
HoldMouse(241, 90, true);
Wait(10);
MoveMouse(253, 90);
Wait(10);
ReleaseMouse(253, 90, true);
Wait(10);
HoldMouse(253, 90, true);
Wait(10);
MoveMouse(259, 97);
Wait(10);
ReleaseMouse(259, 97, true);
Wait(10);
HoldMouse(259, 97, true);
Wait(10);
MoveMouse(264, 129);
Wait(10);
ReleaseMouse(264, 129, true);
Wait(10);
HoldMouse(264, 129, true);
Wait(10);
MoveMouse(271, 137);
Wait(10);
ReleaseMouse(271, 137, true);
Wait(10);
HoldMouse(268, 128, true);
Wait(10);
MoveMouse(263, 127);
Wait(10);
ReleaseMouse(263, 127, true);
Wait(10);
HoldMouse(174, 127, true);
Wait(10);
MoveMouse(184, 124);
Wait(10);
ReleaseMouse(184, 124, true);
Wait(10);
HoldMouse(171, 149, true);
Wait(10);
MoveMouse(148, 162);
Wait(10);
ReleaseMouse(148, 162, true);
Wait(10);
HoldMouse(148, 162, true);
Wait(10);
MoveMouse(164, 160);
Wait(10);
ReleaseMouse(164, 160, true);
Wait(10);
HoldMouse(164, 160, true);
Wait(10);
MoveMouse(153, 173);
Wait(10);
ReleaseMouse(153, 173, true);
Wait(10);
HoldMouse(153, 173, true);
Wait(10);
MoveMouse(175, 159);
Wait(10);
ReleaseMouse(175, 159, true);
Wait(10);
HoldMouse(175, 159, true);
Wait(10);
MoveMouse(175, 173);
Wait(10);
ReleaseMouse(175, 173, true);
Wait(10);
HoldMouse(175, 173, true);
Wait(10);
MoveMouse(185, 158);
Wait(10);
ReleaseMouse(185, 158, true);
Wait(10);
HoldMouse(185, 158, true);
Wait(10);
MoveMouse(186, 174);
Wait(10);
ReleaseMouse(186, 174, true);
Wait(10);
HoldMouse(186, 174, true);
Wait(10);
MoveMouse(198, 159);
Wait(10);
ReleaseMouse(198, 159, true);
Wait(10);
HoldMouse(198, 159, true);
Wait(10);
MoveMouse(203, 175);
Wait(10);
ReleaseMouse(203, 175, true);
Wait(10);
HoldMouse(203, 175, true);
Wait(10);
MoveMouse(225, 159);
Wait(10);
ReleaseMouse(225, 159, true);
Wait(10);
HoldMouse(225, 159, true);
Wait(10);
MoveMouse(231, 190);
Wait(10);
ReleaseMouse(231, 190, true);
Wait(10);
HoldMouse(231, 190, true);
Wait(10);
MoveMouse(244, 170);
Wait(10);
ReleaseMouse(244, 170, true);
Wait(10);
HoldMouse(244, 170, true);
Wait(10);
MoveMouse(251, 175);
Wait(10);
ReleaseMouse(251, 175, true);
Wait(10);
HoldMouse(252, 174, true);
Wait(10);
MoveMouse(258, 158);
Wait(10);
ReleaseMouse(258, 158, true);
Wait(10);
HoldMouse(258, 158, true);
Wait(10);
MoveMouse(261, 173);
Wait(10);
ReleaseMouse(261, 173, true);
Wait(10);
HoldMouse(261, 173, true);
Wait(10);
MoveMouse(274, 165);
Wait(10);
ReleaseMouse(274, 165, true);
Wait(10);
HoldMouse(274, 165, true);
Wait(10);
MoveMouse(287, 168);
Wait(10);
ReleaseMouse(287, 168, true);
Wait(10);
HoldMouse(287, 168, true);
Wait(10);
MoveMouse(288, 152);
Wait(10);
ReleaseMouse(288, 152, true);
Wait(10);
HoldMouse(165, 166, true);
Wait(10);
MoveMouse(162, 179);
Wait(10);
ReleaseMouse(162, 179, true);
Wait(10);
HoldMouse(162, 179, true);
Wait(10);
MoveMouse(174, 166);
Wait(10);
ReleaseMouse(174, 166, true);
Wait(10);
HoldMouse(178, 167, true);
Wait(10);
MoveMouse(182, 183);
Wait(10);
ReleaseMouse(182, 183, true);
Wait(10);
HoldMouse(182, 183, true);
Wait(10);
MoveMouse(185, 170);
Wait(10);
ReleaseMouse(185, 170, true);
Wait(10);
HoldMouse(191, 167, true);
Wait(10);
MoveMouse(201, 180);
Wait(10);
ReleaseMouse(201, 180, true);
Wait(10);
HoldMouse(201, 180, true);
Wait(10);
MoveMouse(212, 170);
Wait(10);
ReleaseMouse(212, 170, true);
Wait(10);
HoldMouse(226, 168, true);
Wait(10);
MoveMouse(216, 176);
Wait(10);
ReleaseMouse(216, 176, true);
Wait(10);
HoldMouse(216, 176, true);
Wait(10);
MoveMouse(214, 167);
Wait(10);
ReleaseMouse(214, 167, true);
Wait(10);
HoldMouse(240, 178, true);
Wait(10);
MoveMouse(247, 184);
Wait(10);
ReleaseMouse(247, 184, true);
Wait(10);
HoldMouse(248, 184, true);
Wait(10);
MoveMouse(249, 174);
Wait(10);
ReleaseMouse(249, 174, true);
Wait(10);
HoldMouse(252, 170, true);
Wait(10);
MoveMouse(261, 181);
Wait(10);
ReleaseMouse(261, 181, true);
Wait(10);
HoldMouse(261, 181, true);
Wait(10);
MoveMouse(259, 170);
Wait(10);
ReleaseMouse(259, 170, true);
Wait(10);
HoldMouse(177, 149, true);
Wait(10);
MoveMouse(168, 159);
Wait(10);
ReleaseMouse(168, 159, true);
Wait(10);
HoldMouse(187, 152, true);
Wait(10);
MoveMouse(190, 161);
Wait(10);
ReleaseMouse(190, 161, true);
Wait(10);
HoldMouse(201, 153, true);
Wait(10);
MoveMouse(195, 164);
Wait(10);
ReleaseMouse(195, 164, true);
Wait(10);
HoldMouse(182, 154, true);
Wait(10);
MoveMouse(179, 163);
Wait(10);
ReleaseMouse(179, 163, true);
Wait(10);
HoldMouse(210, 155, true);
Wait(10);
MoveMouse(210, 165);
Wait(10);
ReleaseMouse(210, 165, true);
Wait(10);
HoldMouse(201, 156, true);
Wait(10);
MoveMouse(205, 164);
Wait(10);
ReleaseMouse(205, 164, true);
Wait(10);
HoldMouse(224, 157, true);
Wait(10);
MoveMouse(232, 169);
Wait(10);
ReleaseMouse(232, 169, true);
Wait(10);
HoldMouse(241, 157, true);
Wait(10);
MoveMouse(237, 170);
Wait(10);
ReleaseMouse(237, 170, true);
Wait(10);
HoldMouse(235, 160, true);
Wait(10);
MoveMouse(234, 171);
Wait(10);
ReleaseMouse(234, 171, true);
Wait(10);
HoldMouse(220, 160, true);
Wait(10);
MoveMouse(222, 169);
Wait(10);
ReleaseMouse(222, 169, true);
Wait(10);
HoldMouse(239, 168, true);
Wait(10);
MoveMouse(233, 181);
Wait(10);
ReleaseMouse(233, 181, true);
Wait(10);
HoldMouse(249, 157, true);
Wait(10);
MoveMouse(251, 167);
Wait(10);
ReleaseMouse(251, 167, true);
Wait(10);
HoldMouse(243, 161, true);
Wait(10);
MoveMouse(246, 171);
Wait(10);
ReleaseMouse(246, 171, true);
Wait(10);
HoldMouse(263, 159, true);
Wait(10);
MoveMouse(261, 169);
Wait(10);
ReleaseMouse(261, 169, true);
Wait(10);
HoldMouse(254, 159, true);
Wait(10);
MoveMouse(270, 164);
Wait(10);
ReleaseMouse(270, 164, true);
Wait(10);
HoldMouse(280, 159, true);
Wait(10);
MoveMouse(284, 161);
Wait(10);
ReleaseMouse(284, 161, true);
Wait(10);
HoldMouse(273, 157, true);
Wait(10);
MoveMouse(276, 161);
Wait(10);
ReleaseMouse(276, 161, true);
Wait(10);
HoldMouse(266, 160, true);
Wait(10);
MoveMouse(268, 166);
Wait(10);
ReleaseMouse(268, 166, true);
Wait(10);
HoldMouse(181, 136, true);
Wait(10);
MoveMouse(193, 133);
Wait(10);
ReleaseMouse(193, 133, true);
Wait(10);
HoldMouse(193, 133, true);
Wait(10);
MoveMouse(203, 113);
Wait(10);
ReleaseMouse(203, 113, true);
Wait(10);
HoldMouse(206, 106, true);
Wait(10);
MoveMouse(211, 99);
Wait(10);
ReleaseMouse(211, 99, true);
Wait(10);
HoldMouse(219, 100, true);
Wait(10);
MoveMouse(219, 108);
Wait(10);
ReleaseMouse(219, 108, true);
Wait(10);
HoldMouse(213, 114, true);
Wait(10);
MoveMouse(208, 125);
Wait(10);
ReleaseMouse(208, 125, true);
Wait(10);
HoldMouse(237, 105, true);
Wait(10);
MoveMouse(228, 117);
Wait(10);
ReleaseMouse(228, 117, true);
Wait(10);
HoldMouse(243, 100, true);
Wait(10);
MoveMouse(248, 98);
Wait(10);
ReleaseMouse(248, 98, true);
Wait(10);
HoldMouse(252, 100, true);
Wait(10);
MoveMouse(255, 118);
Wait(10);
ReleaseMouse(255, 118, true);
Wait(10);
HoldMouse(246, 112, true);
Wait(10);
MoveMouse(253, 129);
Wait(10);
ReleaseMouse(253, 129, true);
Wait(10);
HoldMouse(235, 118, true);
Wait(10);
MoveMouse(235, 132);
Wait(10);
ReleaseMouse(235, 132, true);
Wait(10);
HoldMouse(217, 123, true);
Wait(10);
MoveMouse(217, 137);
Wait(10);
ReleaseMouse(217, 137, true);
Wait(10);
HoldMouse(250, 136, true);
Wait(10);
MoveMouse(259, 143);
Wait(10);
ReleaseMouse(259, 143, true);
Wait(10);
HoldMouse(268, 143, true);
Wait(10);
MoveMouse(282, 142);
Wait(10);
ReleaseMouse(282, 142, true);
Wait(10);
HoldMouse(284, 137, true);
Wait(10);
MoveMouse(293, 138);
Wait(10);
ReleaseMouse(293, 138, true);
Wait(10);
HoldMouse(235, 142, true);
Wait(10);
MoveMouse(244, 142);
Wait(10);
ReleaseMouse(244, 142, true);
Wait(10);
HoldMouse(223, 144, true);
Wait(10);
MoveMouse(217, 144);
Wait(10);
ReleaseMouse(217, 144, true);
Wait(10);
HoldMouse(196, 142, true);
Wait(10);
MoveMouse(186, 141);
Wait(10);
ReleaseMouse(186, 141, true);
Wait(10);
HoldMouse(171, 140, true);
Wait(10);
MoveMouse(163, 139);
Wait(10);
ReleaseMouse(163, 139, true);
Wait(10);
HoldMouse(155, 139, true);
Wait(10);
MoveMouse(149, 139);
Wait(10);
ReleaseMouse(149, 139, true);
Wait(10);
HoldMouse(226, 65, true);
Wait(10);
MoveMouse(230, 75);
Wait(10);
ReleaseMouse(230, 75, true);
Wait(10);
HoldMouse(227, 95, true);
Wait(10);
MoveMouse(230, 103);
Wait(10);
ReleaseMouse(230, 103, true);
Wait(10);
HoldMouse(281, 129, true);
Wait(10);
MoveMouse(264, 127);
Wait(10);
ReleaseMouse(264, 127, true);
Wait(10);
ChooseTool('SquareMark');
HoldMouse(105, 53, true);
Wait(10);
MoveMouse(325, 225);
Wait(10);
ReleaseMouse(325, 225, true);
Wait(10);
HoldMouse(224, 150, true);
Wait(10);
MoveMouse(224, 124);
Wait(10);
ReleaseMouse(224, 124, true);
Wait(10);
ChooseTool('Square');
ChooseColor('LtGray', true);
HoldMouse(-30, 260, true);
Wait(10);
MoveMouse(-30, 260);
Wait(10);
ReleaseMouse(-30, 260, true);
Wait(10);
HoldMouse(132, 146, true);
Wait(10);
MoveMouse(304, 262);
Wait(10);
ReleaseMouse(304, 262, true);
Wait(10);
ChooseTool('Bucket');
ChooseColor('Black', true);
HoldMouse(227, 100, true);
Wait(10);
MoveMouse(227, 100);
Wait(10);
ReleaseMouse(227, 100, true);
Wait(10);
ChooseTool('Rubber');
ChooseColor('White', true);
ChooseColor('LtYellow', false);
HoldMouse(152, 136, false);
Wait(10);
MoveMouse(286, 133);
Wait(10);
ReleaseMouse(286, 133, false);
Wait(10);
HoldMouse(172, 127, false);
Wait(10);
MoveMouse(265, 142);
Wait(10);
ReleaseMouse(265, 142, false);
Wait(10);
HoldMouse(161, 142, false);
Wait(10);
MoveMouse(286, 138);
Wait(10);
ReleaseMouse(286, 138, false);
Wait(10);
HoldMouse(286, 138, false);
Wait(10);
MoveMouse(195, 139);
Wait(10);
ReleaseMouse(195, 139, false);
Wait(10);
HoldMouse(163, 131, false);
Wait(10);
MoveMouse(202, 132);
Wait(10);
ReleaseMouse(202, 132, false);
Wait(10);
HoldMouse(203, 133, false);
Wait(10);
MoveMouse(176, 128);
Wait(10);
ReleaseMouse(176, 128, false);
Wait(10);
ChooseColor('White', false);
HoldMouse(227, 37, true);
Wait(10);
MoveMouse(233, 52);
Wait(10);
ReleaseMouse(233, 52, true);
Wait(10);
ChooseColor('Black', true);
ChooseColor('White', false);
ChooseTool('Pencil');
WriteLn('Made a human!');
end;

begin
ActivateClient;
ClearDeBug;
Wait(200);
MakeHuman;
end.

The head is so hard to make, so i just made a box there :D

See :D:
http://i25.tinypic.com/x2o5mf.jpg
Naum
04-25-2008, 05:28 PM
Very nice tool zytex, Rep ++ to you :)
Zyt3x
04-25-2008, 06:19 PM
lol, thanks!

im happy someone got use of this unuseful tingy :P
Brain
04-25-2008, 09:37 PM
that is really cool!
youre program is a way better drawer than me :(
lol
nielsie95
04-26-2008, 08:50 AM
I like the idea! :)
Nice work.
Zyt3x
04-26-2008, 08:52 AM
lol ty xD

it was to experience with row and cell :)
and so i just had to make a picture of something.. first i had to make the man by myself, and later i found out i could do like this: procedure PaintLine(SX, SY, EX, EY:integer; left:boolean); instead of all those hold, wait, move, wait, release, wait things.. :S
Da 0wner
04-26-2008, 08:57 AM
Well, with my screen res it dosent switch colors. (1440x900);
Zyt3x
04-26-2008, 09:06 AM
I made it for 1152x864...