unit vectormath;
interface
uses Math;
type
TVector = array[1..3] of real;
implementation
function Add(a, b : TVector) : TVector;
var i : integer;
begin
for i := 1 to 3 do
result[i] := a[i] + b[i];
end;
function Sub(a, b : TVector) : TVector;
var i : integer;
begin
for i := 1 to 3 do
result[i] := a[i] - b[i];
end;
function Product(a : TVector; x : real) : TVector;
var i : integer;
begin
for i := 1 to 3 do
result[i] := a[i] * x;
end;
function Divison(a : TVector; x : real) : TVector;
var i : integer;
begin
for i := 1 to 3 do
result[i] := a[i] / x;
end;
function Length(a : TVector) : real;
begin
result := sqrt((a[1] * a[1]) + (a[2] * a[2]) + (a[3] * a[3]))
end;
function Normalize(a : TVector) : TVector;
begin
result := Product(a, (1 / Length(a)));
end;
function DotProduct(a, b : TVector) : real;
begin
result := (a[1] * b[1]) + (a[2] * b[2]) + (a[3] * b[3])
end;
function Angle(a, b : TVector) : real;
begin
result := RadToDeg(ArcCos(DotProduct(a,b) / (Length(a) * Length(b))));
end;
function IsOrthogonal(a, b : TVector) : boolean;
begin
result := false;
if DotProduct(a, b) = 0 then result := true;
end;
function CrossProduct(a, b : TVector) : TVector;
begin
result[1] := (a[2] * b[3]) - (a[3] * b[2]);
result[2] := (a[3] * b[1]) - (a[1] * b[3]);
result[3] := (a[1] * b[2]) - (a[2] * b[1]);
end;
function IsCollinear(a, b : TVector) : boolean;
var x : TVector;
begin
result := false;
x := CrossProduct(a, b);
if (x[1] = 0) and (x[2] = 0) and (x[3] = 0) then result := true;
end;
function BoxProduct(a, b, c : TVector) : real;
begin
result := DotProduct(CrossProduct(a,b), c);
end;
function IsCoplanar(a, b, c : TVector) : boolean;
begin
result := false;
if BoxProduct(a,b,c) = 0 then result := true;
end;
function Translation(A, B : TVector) : TVector //Verbindungsvektor AB
var i : integer;
begin
for i := 1 to 3 do
result[i] := b[i] - a[i];
end;
end.
Zu dem "Cyberrazzer hat STW WTW Memory gefunden" stimmt nicht er hat sie aus
R3d_L!n3's Hack gesaugt. R3d_L!n3 ist der der STW und WTW und wer weiss was sonst noch gefunden hat er hat sie jedeglich gezogen.
Public machen: Cyber
Finden: R3d_L!n3
fast alles was Cyber als ASM->MEM in seiner Sig hat ist größtenteils von R3d_L!n3
naja ich hab auch ne selbst gefundene wtw addy ^^ nicht die die redline gefunden hat. :b
naja ich hab auch ne selbst gefundene wtw addy ^^ nicht die die redline gefunden hat. :b
Wer wollte das jetzt wissen
Büny wir wissen das du deine eigenden Memory Adressen hast und sie nciht geklaut hast
Zu dem möchte ich hinzufügen, das ich seine Dll ganz sicher nicht entschlüsselt habe.
Alle guten Freunde wie Angel-Piece usw. wissen das ich die Memory Adressen selbst gesucht habe und sie nicht von den sein Virus verseuchten Hack entschlüsselt habe
unit vectormath;
interface
uses Math;
type
TVector = array[1..3] of real;
implementation
function Add(a, b : TVector) : TVector;
var i : integer;
begin
for i := 1 to 3 do
result[i] := a[i] + b[i];
end;
function Sub(a, b : TVector) : TVector;
var i : integer;
begin
for i := 1 to 3 do
result[i] := a[i] - b[i];
end;
function Product(a : TVector; x : real) : TVector;
var i : integer;
begin
for i := 1 to 3 do
result[i] := a[i] * x;
end;
function Divison(a : TVector; x : real) : TVector;
var i : integer;
begin
for i := 1 to 3 do
result[i] := a[i] / x;
end;
function Length(a : TVector) : real;
begin
result := sqrt((a[1] * a[1]) + (a[2] * a[2]) + (a[3] * a[3]))
end;
function Normalize(a : TVector) : TVector;
begin
result := Product(a, (1 / Length(a)));
end;
function DotProduct(a, b : TVector) : real;
begin
result := (a[1] * b[1]) + (a[2] * b[2]) + (a[3] * b[3])
end;
function Angle(a, b : TVector) : real;
begin
result := RadToDeg(ArcCos(DotProduct(a,b) / (Length(a) * Length(b))));
end;
function IsOrthogonal(a, b : TVector) : boolean;
begin
result := false;
if DotProduct(a, b) = 0 then result := true;
end;
function CrossProduct(a, b : TVector) : TVector;
begin
result[1] := (a[2] * b[3]) - (a[3] * b[2]);
result[2] := (a[3] * b[1]) - (a[1] * b[3]);
result[3] := (a[1] * b[2]) - (a[2] * b[1]);
end;
function IsCollinear(a, b : TVector) : boolean;
var x : TVector;
begin
result := false;
x := CrossProduct(a, b);
if (x[1] = 0) and (x[2] = 0) and (x[3] = 0) then result := true;
end;
function BoxProduct(a, b, c : TVector) : real;
begin
result := DotProduct(CrossProduct(a,b), c);
end;
function IsCoplanar(a, b, c : TVector) : boolean;
begin
result := false;
if BoxProduct(a,b,c) = 0 then result := true;
end;
function Translation(A, B : TVector) : TVector //Verbindungsvektor AB
var i : integer;
begin
for i := 1 to 3 do
result[i] := b[i] - a[i];
end;
end.
Der Aimbot gefällt mir nicht so.. ICh hätte mein ja gerne gepostet aber dann gäbe es stress xD
Ich hatte Windows Xp hatte da meine Menu hacks ertc. funkzte auch alles.
Jez habn wir WIndows 7 neu gekauft hab neuen base i wo runtergeladen.
leute wer kann mir bei mein Base jetzt helfen ?
Hab irgendwie Start Probleme.
Habe all mein alten Menu sachen verloren nun fang ich neu an.
Hatte auch mein ersten Menu hack mit zombie etc. bei **** ejdoch released.
Hallo.
ich habe 4 Fehler in meiner Base
1.warning C4018: '<': Konflikt zwischen 'signed' und 'unsigned'
2.warning C4018: '<': Konflikt zwischen 'signed' und 'unsigned'
3.D3DXCreateFont(lpDevice, 12, 0, FW_BOLD, 1, FALSE, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH | FF_DONTCARE, "Arial", &m_lpFont);
4.Im Crosshair
Bitte schnell PM schreiben oder Antworten.
Ich würde mich über hilfe freuen.
TeamViewer daten über PM
MfG
WTB Flyff Source code snippets 04/01/2012 - Flyff Trading - 0 Replies Hellow I posted this because I wanted to buy a fix scroll of unbinding.Which removes soul-link of an item.If you have its code snippets PM me.Don't sell me a code which is release because all of them are not working.I wanted to buy a fix one and a non-buggy code
Payment:via Paypal
[Autoit] Youtube Code Snippets 07/29/2011 - AutoIt - 5 Replies Tag Zusammen.
Wie wohl die meisten von euch mitbekommen haben, bieten derzeit sehr viele User hier sogenannte Youtube Services an, bei denen man Abos, Likes, Dislikes etc. kaufen kann.
Doch wer wirklich Erfolg haben will, braucht natürlich viele Abonnenten und Likes, was per Hand Tage dauern würde.
Deshalb werden hier in letzter Zeit immer mehr Youtube Bots verkauft.
Was, wie ich finde, ein ziemliche Abzocke ist, da das meist nur sehr schlechte Bots sind, die lediglich den Internet...
Some Code-Snippets[PSERVER] 07/15/2011 - Kal Hacks, Bots, Cheats & Exploits - 17 Replies This is the code of the hack which Fremo released..
I got new methods so I dont need this anymore & maybe it'll help some people...
G31 Adult Skill
if(comboBox4->Text=="Panther'crit'")
{
KC->Chat(255," Panther Skill ON");
KC->Threads=1;
KC->lasttime = timeGetTime()-15000;
}
else if(comboBox4->Text=="Tiger'otp'")
[Release] Code Snippets Manager 01/21/2011 - Coding Releases - 0 Replies Code Snippets Manager
http://upit.cc/images/1d47d78e.jpg
Hab mich heute mal rangesetzt, und einen kleinen Manager für
Code-Snippets(Code-Fetzen) gecodet, da ich alles sortiert
in einer Anwendung wollte.
Da es sicherlich jemand nützlich finden wird, lad ich es hier mal hoch.