pwnaz0r
2007-12-21 16:15:46
Hah, couldn't think of a better name :). Well, now that we can grab the settings and their numbers, why not make a list of the addresses that are useful? Post here anything that you think might be useful along with the address and I will add it to the list soon.
EDIT: If you do not know how to find settings and their address's, here is the program Smartzkid made.
just run that and change settings, it will update in the debug everytime something happens.
18- Music mode (1: auto, 0: manual)
19- Music loop (0-1)
43- Attack style (0-3)
118- Last (NPC) trade interface opened; if there's a trade window up, you can check this to find out which one it is
166- Brightness (1-4)
168- Music volume (4-0)
169- Sound effects volume (4-0)
170- # Mouse buttons
171- Chat effects (0-1)
172- Auto retaliate (0-1)
173- Run on (0-1)
287- Split private chat (0-1)
427- Accept aid
570- The slot of the bank that was withdrawn from/deposited to last
872- 'Area Sound Effects' volume (4-0)
1002- Achievement diary/Quest log (0: quests, -2147483648 diary)
1036- Something with doors closing; resets after a certain amount of time
EDIT: If you do not know how to find settings and their address's, here is the program Smartzkid made.
var
TheInts: Array of Array [0..1999] of Integer;
const
SettingsArray = 'jb.k';
PlayerX = 'nf.j.db';
PlayerY = 'nf.j.nb';
BaseX = 'oa.a';
BaseY = 'dd.b';
procedure dumpSettingArray;
var
i, c: Integer;
begin
SetLength(TheInts, Length(TheInts) + 1);
c := High(TheInts);
for i:= 0 to 1999 do
TheInts[c][i] := SmartGetFieldArrayInt(SettingsArray,i);
end;
procedure checkForDifferences(a1, a2: Array of Integer);
var
i, l: Integer;
begin
l := High(a1);
if(High(a2) < l)then
l := High(a2);
for i := 0 to l do
if(a1[i] <> a2[i])then
begin
writeln(inttostr(i) + ': ' + inttostr(a1[i]) + ' -> ' + inttostr(a2[i]));
PlaySound('C:\WINDOWS\Media\ding.wav');
end;
end;
var
x,y,b: Integer;
c: TCanvas;
begin
SmartSetup('at1',true,true);
b:= BitmapFromString(765,503,'');
c:= GetBitmapCanvas(b);
c.Handle:= SmartGetDebugDC;
c.Pen.Color:= $FF;
c.LineTo(100,100);
SmartSetDebug(true);
repeat
dumpSettingArray;
try
checkForDifferences(TheInts[High(TheInts) - 1], Theints[High(TheInts)]);
except
writeln('ERROR');
end;
wait(500);
until(isfkeydown(12))
end.
just run that and change settings, it will update in the debug everytime something happens.