my macro set! : DAOC Submissions

Here is simple script, repeats single keystroke til out of materials

--------------------------------------------------------------------------------
This is a script I have used for almost a year. I never could get the fancy scripts to work where it will sell for you or anything else. This script will hit a hotbar button over and over until you run out of materials. It wont sell, it wont run around for you, but it will help you get the job done. I have found that after 50 or so key repeats it stops on its own. But if you can settle for making the same item 50 times then this is the one for you! Just change the username and server # where it says too, and change the key you want it to be. I have scripts saved for each hotbar key for each toon.


// Enter script code below
// Script: crafting_pixel
// Description: Pushes 2 when timer window closes until out of materials
// Plays a wave when finished. Can log out when finished by
// not commenting out last line (remove the // in front of the line)
// Note: You will need to put your charname and server code in the line
// indicated below. You can find this information in your camelot
// folder. Just look for a file with the name of your character
// followed by the server code .ini. For example, if you char name
// was joe and you played on the Lancelot server, your file would be
// something like 'joe-90.ini'
// Starting procedure: Start a crafting job so that the craft timer window
// is up. Then start the script. It will run until you
// Run out of materials.
// Created: 12/16/02 4:11:24 PM
// Modified: 01/23/02

Var TimerPos, PixelPos: TPoint;
Var Red, Green, Blue: Integer;
Var stop: Boolean;

var KeyToPress: String;
KeyToPress := '2'; // must be a string from '0' to '9'

function IniInit(): Boolean;
var
str, temp, name, code: String;
DAOCiniFile: TiniFile;
GoodInput: Integer;
begin
DAOCiniFile := TiniFile.Create(GetApplicationDirectory+'toonsnamehere-server#here.ini');
// change char name here

str := DAOCiniFile.ReadString('Panels', 'TradeTimer', 'NotFound');
if(str = 'NotFound') then
begin
Debug('DAOC ini File not found');
Break;
end;
temp := TextBeforeToken(str, ',');
TimerPos.x := StrtoInt(temp);
temp := TextAfterToken(str, ',');
temp := TextBeforeToken(temp, ',');
TimerPos.y := StrtoInt(temp);
end;
//////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////
IniInit();

stop := false;

PixelPos.x := TimerPos.x;
PixelPos.y := TimerPos.y + 23;

AddScreenWatch(TimerPos.x, PixelPos.y, 200, 1);
While(stop = false) do
begin
GetPixelColor(PixelPos.x, PixelPos.y, Red, Green, Blue);
//Debug('Red: ' + InttoStr(Red) + ' Green: ' + InttoStr(Green) + ' Blue: ' + InttoStr(Blue));
if((Red + Green + Blue) > 700) then
stop := true
else PixelPos.x := PixelPos.x + 1;
if(PixelPos.x > TimerPos.x + 200) then
begin
Debug('Error: Found no craft timer window');
stop := true;
PixelPos.x := -1;
end;
end;
DeleteScreenWatch(TimerPos.x, PixelPos.y, 200, 1);

if(PixelPos.x > 0) then
stop := false;

AddScreenWatch(PixelPos.x, PixelPos.y, 1, 1);

while(stop = false) do
begin
GetPixelColor(PixelPos.x, PixelPos.y, Red, Green, Blue);
if((Red+Green+Blue) < 700) then
begin
SendKeys(KeyToPress);
Pause(2000);
GetPixelColor(PixelPos.x, PixelPos.y, Red, Green, Blue);
if((Red+Green+Blue) < 700) then
stop := true; // must be out of materials
end;
Pause(3000 + Round(Random * 1000));
end;
// change above pause values to be longer or shorter
DeleteScreenWatch(PixelPos.x, PixelPos.y, 1, 1);

PlayWave(GetXylobotDirectory + 'Audio\startup.wav');
// remove the slashes below and it will quit when out of
//materials. I dont use this.
//SendKeys('/q<CR>');