taultunleashed logomy macro set! : DAOC Submissions
newtopic  postreply
 [ 1 post ] 
blue large dot

my macro set! : DAOC Submissions

Posted: March 2nd, 2004, 7:14 am
Tault_Tault Community

Total Posts: 10213
Joined: August 29th, 2004, 2:46 pm
Tault_Tault Community's Reps: 16
User avatar
Active User > 50 Posts
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;
str, temp, name, code: String;
DAOCiniFile: TiniFile;
GoodInput: Integer;
DAOCiniFile := TiniFile.Create(GetApplicationDirectory+'toonsnamehere-server#here.ini');
// change char name here

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

stop := false;

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

AddScreenWatch(TimerPos.x, PixelPos.y, 200, 1);
While(stop = false) do
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
Debug('Error: Found no craft timer window');
stop := true;
PixelPos.x := -1;
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
GetPixelColor(PixelPos.x, PixelPos.y, Red, Green, Blue);
if((Red+Green+Blue) < 700) then
GetPixelColor(PixelPos.x, PixelPos.y, Red, Green, Blue);
if((Red+Green+Blue) < 700) then
stop := true; // must be out of materials
Pause(3000 + Round(Random * 1000));
// 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.

Reply with quote
Want Advertisements After The Last Post Removed? Create A Free Account!

blue large dot Who is online
Users browsing this forum: No registered users and 3 guests

Popular Sections
SWTOR Cheats
Guild Wars 2 Cheats
Guild Wars 2 Hacks
Guild Wars 2 Bots
Diablo 3 Cheats
Guild Wars 2 Mods

Popular Sections
WoW Cataclysm Cheats & Exploits
WoW Cataclysm Hacks & Bots
Star Wars The Old Republic Cheats
Torchlight 2 Cheats
SWTOR Space Mission Bots
Site Nav and RSS
RSS Feed of DAOC Submissions RSS Feed 
Sitemap of DAOC Submissions Sitemap 
SitemapIndex SitemapIndex
RSS Feed RSS Feed
Channel list Channel list
left bottom corner Site and Contents Copyright 2001-2012 All Rights Reserved TaultUnleashed.com bottom corner
top left
top right
Username:   Password:   Remember Me?