this is my script what I have made
Procedure Kopplaat;
VAR
eventID, eventMessage : LONGINT;
d,h,b:REAL;
bp,kop,db,ab,tk:STRING;
objectHandle:HANDLE;
boolResult:BOOLEAN;
BEGIN
PushAttrs;
b:=PLineLength;
h:=Pboxwidth;
d:=Pd;
ab:=Pab;
db:=Pdb;
kop:=Pkop;
bp:=Pbp;
tk:=Ptk;
BeginXtrd(0,d);
Rect(0,0,b,h);
objectHandle := LNewObj;
SetDropShadowData(objectHandle, 0,0.1,0.05,#315.0000000000d,75,0,0,0);
EnableDropShadow(objectHandle, FALSE);
objectHandle := LNewObj;
SetObjectVariableBoolean(objectHandle, 1160, FALSE);
boolResult := SetEntityMatrix(objectHandle, 0,0,0,0,-0,0);
EndXtrd;
SetZVals(0,0);
PopAttrs;
END;
Run (Kopplaat);