SRL Archive - Other Scripts

just test this,

Left click on the button on the form and click the "Click the Secret"
and a new form will come up and show me getting ranover by Kaitnieks BullDozer

program New;



var
  frmDesign,frmDesign2  : TForm;
  Timer:TTimer;
  KImage:TImage;
  Button1 : TButton;
  Iteam, Iteam2:TMenuItem;
  Main:TMAINMENU;
  PopUp:TPopUpMenu;
  Width, Height, x, y, y2:Integer;
  Scripter, Kaitnieks, Splat, Blank:TCanvas;
 Var
   SelfImageBox:TImage;

procedure AllSender(sender: TObject; Button:TMouseButton; Shift:TShiftState; x,y:integer);
begin
If (Sender = Button1) then
 begin
   GetMousePos(x,y);
   if Button = mbRight then
   PopUp.POPUP(x,y);
   if Button = mbLeft then
    frmDesign.MODALRESULT:= 1;
 end;
end;

Procedure LoadBox;
begin
SelfImageBox:= TImage.Create(GetSelf);
SelfImageBox.SetBounds(0,0,GetSelf.Width,70);
SelfImageBox.Parent:=GetSelf;
SelfImageBox.align:= albottom;
SelfImageBox.SHow;
end;


Procedure BoxColor(bgcolor:Integer; Shade:Boolean);
var Canvas:TCanvas;
  y :Integer;
begin
Canvas:= GetBitmapCanvas(BitmapFromString(GetSelf.Width, 70,''));
for y:= 0 to 70 do
begin
if (Shade) then
 bgcolor:= bgcolor-Random(7);
 canvas.pen.color:= bgcolor;
 Canvas.LineTo(0,y);
 Canvas.MoveTo(GetSelf.Width,y);
end;
  try
  SafeCopyCanvas(Canvas, SelfImageBox.Canvas, 0,0,GetSelf.Width,70,0,0,GetSelf.Width,70)
  except
  GetApplication.MESSAGEBOX('[ERROR] Can not find a box to copy','ERROR: Using Box Color',1 );
  end;
end;

Procedure TimeIt(Sender:TObject);
begin
x:= x - 10;
SafeCopyCanvas(Blank, KImage.CANVAS,0,0,383,290,0,0,383,390);
If (X>80) then
begin
SafeCopyCanvas(Scripter, KImage.CANVAS,0,0,403,290,50,y,383+50,390+y);
SafeCopyCanvas(Kaitnieks, KImage.CANVAS,0,0,383,290,x,y,383+x,390+y);
end;
if (X <80) then
SafeCopyCanvas(Splat, KImage.CANVAS,0,0,403,390,x,y,583+x,630+y);
If (X < 10) then
Timer.ENABLED:=False;
end;

procedure AllSender2(sender: TObject);
begin
if (Sender = Iteam2) then
begin
Timer := TTimer.Create(frmDesign2);
Timer.INTERVAL := 30;
Timer.ONTIMER:= @TimeIt;

KImage:= TImage.Create(frmDesign2);
KImage.Parent:=frmDesign2;
KImage.SetBounds(0,0,383, 290)
 Kaitnieks.Pen.COLOR:= clWhite;
 Kaitnieks.LineTo(165, 0);
 Kaitnieks.LineTo(165, 95);
 Kaitnieks.LineTo(-1, 95);

Blank.Pen.COLOR:=clWhite;
For y2:=0 to 290 do
begin
 Blank.MoveTo(0,y2);
 Blank.LineTo(383,y2);
end;
x:= 400;
y:= 100;
KImage.CANVAS.Pen.COLOR:= 0;

frmDesign2.Show;
end;
end;

procedure InitForm;
begin
  frmDesign := CreateForm;
  frmDesign.Left := 259;
  frmDesign.Top := 132;
  frmDesign.Width := 354;
  frmDesign.Height := 254;
  frmDesign.Caption := 'frmDesign';
  frmDesign.Color := clBtnFace;

  frmDesign2 := TForm.Create(frmDesign);
  frmDesign2.Left := 299;
  frmDesign2.Top := 162;
  frmDesign2.Width := 420;
  frmDesign2.Height := 330;
  frmDesign2.Caption := 'frmDesign';
  frmDesign2.Color := 0;

  Width:= frmDesign.Width;
  Height:= frmDesign.Height;

  Main := TMainMenu.Create(frmDesign);

  Iteam:= TMenuItem.Create(frmDesign);
  Iteam.CAPTION:= 'hello';

  Iteam2:= TMenuItem.Create(frmDesign);
  Iteam2.CAPTION:= 'Click The Secret';
  Iteam2.DEFAULT:= True;
  Iteam2.ONCLICK:= @AllSender2;

  PopUp:= TPopUpMenu.Create(frmDesign);
  PopUp.ITEMS.ADD(iteam2);

  Main.ITEMS.ADD(Iteam);

  Button1 := TButton.Create(frmDesign);
  Button1.ONMOUSEDOWN:= @AllSender;
  Button1.Parent := frmDesign;
  Button1.Left := 69;
  Button1.Top := 61;
  Button1.Width := 75;
  Button1.Height := 25;
  Button1.Caption := 'Button1';
  Button1.TabOrder := 8;
end;

procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;

procedure Loadcanvas;
begin
Scripter:=GetBitMapCanvas(BitmapFromString(184, 93,
       'z78DAEDDDDD72DA301040E157828' +
       '933E05B6078FF476A0DF5F84F362292696C7DE72A11CE4ADE664F' +
       '56C269EE770048E5F0401E00F009003E01C027E8E70DD81F7CF27' +
       '987C806F4187C224BC07A3F3D558AFC00B9AA40BDC80FC0274C02' +
       'FCB68A50353203F0099F007CC227009FC81EA022540D9F007CB22' +
       '79F4C9F6A3E5597BFE3B77B7DADCEA1A79E9BD74F5577E594F6F5' +
       '3ED5B9BEDE6666EC5E8BE1D5ECF923A4CF78FF97D1C3B9B9DB35C' +
       '61FFF566FE5914F903F339D37C2D5127A3DAEBEE6A23EE37DCE06' +
       '291186564DF34967D935C673AC904FF8646D9FFCBC7EC751DB99B' +
       'EAAAF2AD7FAEBFBB15ABB8E5E67E8BDB58EEF3DCFF873E458D52A' +
       '824F36E69377FB93DB1B3DC9DC3E2BB49ED06EECABEAD6368CB57' +
       '447A159E73234DDCDCDC5B8D8EFF049B13E79C5B39AFAB514E393' +
       '77CE49C26E7B7CE5A1F9CACB68F67A74FDB8CEDBF9E623B4CE19A' +
       'E6CB886904FC677328ED27C5E5FC33E3955F715C69B151E8BDCED' +
       'F0C9B6FB93D8FE3FE667FAB2DF9AFA6C3FEE576A1BB99EAC24BCB' +
       '6E748BB17185E13EE72FA361A1B3774D7612B4F33F9FD30D11AE3' +
       '53C7A9083ED9AB4FA6EB0F7DF787F751C34EFEE73E095FF37AE7D' +
       '65DFF5DB51FBDAADDB079425D4BAEF166A456117CF2CB7D728BAC' +
       'D9789FF47B82615DB6AF0C478723B97DD27DD69FB5BFA7993F3F1' +
       '99EBFF42BFC794DB91D039F94EA93F79F3F797D26B2FCFCC9F20E' +
       '633AEBD22AFA3BA2F0AB97E6B46171FD732B0EE7A03A87CE5D63F' +
       '63BDE2FE693FDFB04E013D99307804FF804E0133E01F8844F0015' +
       'A16A6406E0133E01F8642B799319804F00F0893D0EC0277C02A80' +
       'E15240F009F3009C0274C02F0099F00E093F4CC700EC0272977CD' +
       '24009FE43289DD10C02729FDC6F41A3E01F824A527B11304F824A' +
       'F49F804E093BCBD079F00AAA67F5F737FEF804F003E59BB27E113' +
       '804F96EF28E51E590588AF823DD54B5E93F00950A64F52CE49580' +
       '598FB9E2FF394E033CFA1790E1FBA917DFBE47F3DD17A00764A99' +
       '9DBC67E3813DF5364C02E0933EC9DB4D39C7004AF349FAB3A9FB3' +
       'EF301F8246FE790F26E149F00E5F8648DEB390428C7279E6907C0' +
       '27004ADBEF0028CD27F1319904E093F8986BFF8E1E80127C32E71' +
       '02601F8642BB300D88A4FBC8303206FA597FCBFAC0058BBEB88FF' +
       'EB7BB20DF0497A343E01F824574C3E01F8243DB2778A013ED9E22' +
       'C00F804009FF009003E01C02700F8844F003EC9159F4F003EC965' +
       '125601F8648DC8AC02F049AE987C02F049DE98AC02F049DE98CE5' +
       '5003EC91B934F003EC9158D4F003EC9BB73B1F701F8448F018007' +
       '00F009003E01C0270010EF1300C8C51F72CBB44A'));

Kaitnieks:=GetBitMapCanvas(BitmapFromString(166, 96,
      'z78DAEDDD5B6EA3301400D02DA51' +
       '2529ADFA493FD2F69DA3252D20432A660736D9F8BE48FA844CDC5' +
       '073F0073BD0A21DA8CC377C883108C0B211817AFF32C4479718C1' +
       '7CDF39FF7C3E14DD973C938E34AC619675CC938E38C2B19673C82' +
       '71B34FD5CC92312E5618979F7EFA608C332E18679C71C138E38C0' +
       'BC61967FCF93F74EF19E3A26DE38E11E3A23DE3EA00E3A255E36D' +
       '1CFDE1339187F7D3E523534E1817351A6FE9B88FBFE5389C33E58' +
       '771C138E38C8BF68C1F8794B9EA2979E77FFB6EA572DBBE3AE382' +
       'F1FBF8B89E2EDFC61EC4DE3EBFC5F0E9309BF103E38C335ED2F85' +
       '4BBFDA53CC76F390EC3C6AD38E382F125C6EFDBF4E9767CAAD567' +
       '9C71C66B317EDF92DF8FE2C73DBEF6FF69F4FFDFF7334E97CF2D6' +
       '37E18178CBF3679BABE0DB7D6F9718FB9D9BAF4B6D9BC3AE38CEF' +
       '67FC7C37FF3EFEC594F16D7D32CE38E3E5E7D5A7C6DEB7BEFA63B' +
       'B7DCE32C6663CAA8B68AB55EF6BFC7506D2B354E6FAF8A3D3F3D3' +
       '5EE35F9C27BE4D3BDE8FF168198B637CCEF5EBCFF5DF18673CBEF' +
       '1AD8E32E92939619C71C619679CF1DCE3F1F5EB9CF0EEF971C6DB' +
       '6BC75346EE3DB8B6D613E3BDF5D5ADE1C638E3B5189F1B5DEA996' +
       'F5B0F19673CDFB5B3F4E34B37E38CC7379EE27DEE5A39AD8C335E' +
       '97713D70C619EFCD388F8C33CEB8609C71C605E38C33CE38E38C3' +
       '3CE38E38C33CE38E38C33CE38E38C33CE38E3CFDFBCC313108C33' +
       'CE7841E35B1DB508479C71C6196FDBB8609CF1E75E7A1CE3A29AE' +
       '7CD190F6C3C9A6E659F25E3B98DAB634AC6DB33AE055746335E72' +
       'F5AA98C6D33D2E5871541D5376D943E8C1B8A3AF649C71A592F1B' +
       'A8CEBA52B196FC978EE6B9A4A25E331EF296A7BC655AD5E3353CD' +
       '38E3E5EBDEFBF77649DEDAABD5BFD37A59B8B57A4E886FBCC673E' +
       'CB666736FE56B726EADD1B2B76F1D8E6CBC16DDF1156F5B8797E6' +
       '67CC462D66E3E7B33DE3F175B7247A692D4D3FEF5D6C3B79677C4' +
       'DABDD9BEED7D2EFDB6B7EF39D3FDB301EF949CF9E5DA78F43E527' +
       '476EC77368EDC6B98EBCA58CAC49CF6D7F3C0A351A8FA69BEB39D' +
       'D4BEBA4ECED2B3D82F1383D73BAB7D24D7A39E9BF7DCEBA8CF168' +
       'BAD5C6F43E39E9D146EE73DE2318A73B66CDA9EB9B6D4BD7F1EEC' +
       '138DD397AE68C471BA797341EED5E5FF56DAFF970992F7985BDBC' +
       'F19877B3A81B25F320E73BDC4197CD78CC7BCEDDB311C19DCCB76' +
       '43CFE5324C6E08C33DED253638C33CEF856C6233F2FA6A631CE78' +
       '3FCF7D336ECE8DF1F6566462DCBC3AE36DBF13D0A8BCBC3BD9AEC' +
       '5784BAB59AA7525A5CB7304DDAF8DB7BD3EAD1A986F6C2EB725EF' +
       '654D7FA7676FEB9C7BB674AE2DD03FAFBDD55EDF576F2F485FDFF' +
       'E725DE6E8B4F7FEF1F22B57F4EC7D69EF5DAB5DBE67CEF856DE8D' +
       'D353F22057F175339E3E36E9AD7D7F5E1FC6F5C7F223EEF5BA195' +
       'F9AA59EDFA1E01D2865329C718516F1AB56BEF17721CD8477286C' +
       '9BED42AB30892EE7EBD65C91993BEFF19B23CF8C471ECBC779377' +
       '1EE9AD6F328BE7CB619EFE12CD1DE6FAC5771FC9CF325EAED0BE5' +
       '6873DB38A3322E7A3E33F4961FF54408E7402144BDF11796FFABB' +
       '4'));

Splat:=GetBitMapCanvas(BitmapFromString(142, 78,
       'z78DAEDDDDB72A3300C80E1574A3' +
       'BCC94DC966EDEFF91765B968913C754E0932CFD62C617A4C92EC6' +
       '1F1606C3ED4610044110044110C4EBB8FCC4EDCF7CB9BC518E55F' +
       'EDF7704A6283185294A4C1198C214A1C6147B6A94A3197B0A5304' +
       'A63045608AB064EA62223085A9BE7B4ADE2607AB614C614A41AB2' +
       '3F7C314A6AC9BFABA5D97E95F254DF375F9CADC524C59CD55FA9A' +
       '1AADC63E6F1FD3FA7FFE983EE9A72A3992ACC714A63095DF1246D' +
       '9DE714DC946DD1EDBFE66E2AC88DCDC0F53F96D40FF568F6B6A6B' +
       'DFCF42D6F5F74FC3CF37536FD365DED41DF1F1F3ABDF5FC254B7B' +
       'D8FA9F6A6E2DFFF56735DB6AC6D357515FF46FCAF5E97CF2A358F' +
       '294C8D626AFB3CECBB9EA3443687A976B9DF32BFCFEFD35A620A5' +
       '39E4DA514845218A3D07F3E157F633D230A472E30A5D354A93BC1' +
       'C635155FD34C5D716833EE7797721F05FF6D6C10533D4C85B95C4' +
       'A4AF8377169C954BCEDFB57EE4A9932721EE1C654EA0C4862645B' +
       'FF5C63EB1AABA672FEDE8F2CEE4D4A094AB97B58F3A0E9798DD57' +
       'E2A27EFB52D2B7924719CFBA50425734567A64AF553CCF5F0D94F' +
       'ED97A1A95813A6E4B91F73123D983A626DAFC67C9A62BE0FA6CE9' +
       '98A733FDBA6E45E18F1C3547EEEE7C794FCCC084D3E4D9D741486' +
       '4B53A8C1D4BEA9D4DD7AA2D1754C11984A980AD7BCB0137D8B7E0' +
       'A5398929BDACFFA3085294C49CEA7E20C90310A4C612A7FDB432F' +
       'A25951982230251EFDDBCF093185294C1DEDAD5277FDD53355FDF' +
       'E194C61AA570DC476A2318DFD167BB836785318A69C994ACEA32F' +
       '541BEDDF637821DADF67EBFE192FA2BB29863545C9BB477BF5563' +
       '9391BA62831F54BA657D4547E5640E9C754CB395F35C6D50FCC68' +
       '38650A4D947EFA3EF9132FF34DB167296D9B3AFA14594C51622A3' +
       'FDF3B67AAECC82A25A56653F534D93E0B664C60F47AA8DD4FD936' +
       '25691B73B02C8265AC5677F488B1889771F5D53395F59C93A11C2' +
       'D9D96F6ED4ACFB6CBF5D93375F4CAAC06533A5B4E4E1BCBE97116' +
       '434B9C3F8C62EADCD3BCB569B2D78AEC1D3D74F6F26D4C8964297' +
       '0243FEB19B715CDF7D7F03A1274B4675F6B498329F9F3787B657A' +
       '7E04C5AD25F529A6CAF668354CE93C7BF2E3685DE4E38DC83A56A' +
       'B67EF46A867AABDA6B51EBC1D51CF7D1735925A6A63EA68BED7BE' +
       '87F2B0AFF5FC8E6759654DEDBF9F97F1706D7D93FC9C1D47FB633' +
       'EB54DC5F3E27B8DE6B1DFE9B9DAC9DAAE76D5C8FD3085294CE508' +
       '7A912708DE2040D6576A648F56ADF4DE95EC1189174F6BE96ACAC' +
       '3311653F64CE9718429167BFD94B6D907986219CB54EAAC4AE78C' +
       '0CF63863142D35157BB2B7FAB94EECFDBED7BC30656956BB870C9' +
       '0FB28FAD6BCBDFE88FBFDF22DA0E9E8A2E11D0A7DFBA9F961E690' +
       'B57BD4E3ED92E46F7EC6736AD433EF55495E11309D99A48E1B08C' +
       'AA955ECEC9BF230B797FE88BEA9AF32ABCFA3283B9AE1C111226A' +
       'C832F2DCA4209025A93172BC96CA74E68AE7F2139E9B447F64A3D' +
       '7D3F0DE224B3DF8B8F54910F9478C52525043109EE32F1C98C2E7' +
       ''));

Blank:=GetBitMapCanvas(BitmapFromString(383, 290,''));
end;




begin
LoadBox;
BoxColor(255,True);
SelfImageBox.CANVAS.Brush.STYLE:= bsClear;
SelfImageBox.CANVAS.Font.Size:=18;
SelfImageBox.CANVAS.Font.Color:=ClWhite;
SelfImageBox.CANVAS.TextOut(80,20,'Created By Sky Scripter');
 Loadcanvas;
  SafeInitForm;
  SafeShowFormModal;
end.

Hey this is pretty cool!

Nice work and I haven't seen anyone use TPopupMenu before. I've seen it in scar, but couldn't find a use for it. :)

Post a pic of what it looks like, should be interesting :)

Hey this is pretty cool!

Nice work and I haven't seen anyone use TPopupMenu before. I've seen it in scar, but couldn't find a use for it.

your the one who showed me how to make the main menus ;)

i looked at that high score thing you made it's a very nice script =)

Heh VERY cool! I've never seen anyone do much with scar in the way of graphics

btw…kinda messed with your script cause i was too lazy to figure out how to get the click the secret thing to work…:P just made the 'hello' menu show the anim

From: SKy Scripter
your the one who showed me how to make the main menus ;)

i looked at that high score thing you made it's a very nice script =)

Really? Cool and thank you. :)

I don't remember using TPopupMenu though. I'll look through code later, it's been a while.

lol pretty neat man. good job

This one of the reasons why i wanted to remove references to scar's form and application, lol, this just aint right :)… but good job anyway, someone was bound to discover it :)

Really? Cool and thank you.

I don't remember using TPopupMenu though. I'll look through code later, it's been a while.

well i didn't see it too, i just figured out how to use it because your script showed me how to use TMAIN MENU
thank you very much

This one of the reasons why i wanted to remove references to scar's form and application, lol, this just aint right … but good job anyway, someone was bound to discover it

yah.. lol thanks

lol pretty neat man. good job

THANKS

Heh VERY cool! I've never seen anyone do much with scar in the way of graphics

btw…kinda messed with your script cause i was too lazy to figure out how to get the click the secret thing to work…:P just made the 'hello' menu show the anim

lol….. thanks,
yah canvas i the coolest to make pretty IMAGES!!!!!!

kool :)

lol sweet