SRL Archive - Other Scripts

Well, I was going to make this into a fun program, but I started on a more important project, so here it is, messy, but fun to mess with. Idc if you add forms, saving, you can change the chars to the smallchars, and make a chatbox fake, possibilities are endless. Except for making item amount fakes, the Tradechars are cropped weird (on purpose), chopping off the top part. =[

btw i dont mind any posts of fake-maker programs. I'd like to see :)

program FakeMaker;
var
  frmDesign : TForm;
  Image1 : TImage;
  testbmp : integer;
  h,w : integer;
  temptest : integer;
  buffer : integer;

procedure RemoveBack(var thebitmap : integer);
begin
  SetTransparentColor(thebitmap, 0);
end;

function ColorText(text : string; thechars : integer; color : integer) : integer;
var
  whitespots : TPointArray;
  w2, h2, myi : integer;
  thetext : integer;
begin
  thetext := CreateBitmapMaskFromText(text, thechars);
  GetBitmapSize(thetext, w2, h2);
  SetTargetBitmap(thetext);
  FindColorsTolerance(whitespots, 16777215, 0, 0, w2, h2, 0);
  for myi := 0 to GetArrayLength(whitespots) - 1 do
  begin
    FastSetPixel(thetext, whitespots[myi].x, whitespots[myi].y, color);
  end;
  result := Thetext;
  exit;
end;

function CreateText(text : string; thechars : integer; color : integer) : integer;
var
  mybuffer : integer;
  thetext, shadow : integer;
  w2, h2 : integer;
begin
  thetext := ColorText(text, thechars, color);
  shadow := ColorText(text, thechars, 65793); //black, but not rgb(0, 0, 0); because removeback
  GetBitmapSize(thetext, w2, h2);
  mybuffer := BitmapFromString(w2 + 1, h2 + 1, '');
  //+1 +1 allow for shadow offset
  FastDrawSizeTransparent(1, 1, w2 + 1, h2 + 1, shadow, mybuffer);
  RemoveBack(thetext);
  FastDrawSizeTransparent(0, 0, w2, h2, thetext, mybuffer);
  result := mybuffer;
end;

function AddText(bitmap : integer; text : string; thechars, color : integer) : integer;
var
  thetext : integer;
  mybuffer : integer;
  w2, w3, h2, h3 : integer;
begin
  thetext := CreateText(text, thechars, color);
  GetBitmapSize(bitmap, w2, h2);
  GetBitmapSize(thetext, w3, h3);
  if w2 = 0 then
    result := thetext
  else
  begin
    mybuffer := BitmapFromString(w2 + w3, h3, '');
    FastDrawSizeTransparent(0, 0, w2, h2, bitmap, mybuffer);
    FastDrawSizeTransparent(w2, 0, w3 + w2, h3, thetext, mybuffer);
    result := mybuffer;
  end;
end;

procedure InitForm;
begin
  frmDesign := CreateForm;
  frmDesign.Left := 372;
  frmDesign.Top := 207;
  frmDesign.Width := 112;
  frmDesign.Height := 127;
  frmDesign.Caption := 'Preview';
  frmDesign.Color := clBtnFace;
  frmDesign.Font.Color := clWindowText;
  frmDesign.Font.Height := -11;
  frmDesign.Font.Name := 'MS Sans Serif';
  frmDesign.Font.Style := [];
  frmDesign.Visible := False;
  frmDesign.PixelsPerInch := 96;
  Image1 := TImage.Create(frmDesign);
  Image1.Parent := frmDesign;
  Image1.Left := 45;
  Image1.Top := 30;
  Image1.Width := 103;
  Image1.Height := 100;
  testbmp := CreateText('Walk here The Rs Monkey', UpChars, 15397872);
  testbmp := AddText(testbmp, ' (level 126)', UpChars, 923104);
  testbmp := AddText(testbmp, ' / 1337 more options', UpChars, 15397872);
  RemoveBack(testbmp);
  GetBitmapSize(testbmp, W, H);
  buffer := BitmapFromString(W + 100, H + 100, '');
  FastDrawSizeTransparent(0, 0, W + 1, H + 1, temptest, buffer);
  FastDrawSizeTransparent(1, 1, W + 1, H + 1, testbmp, buffer);

  frmDesign.Width := W + 200;
  frmDesign.Height := H + 200;

  Image1.Width := W + 100;
  Image1.Height := H + 100;

  testbmp := ColorText('This is what the chatbox text looks like!', SmallChars, 16711680);
  //the color may not be right^^
  GetBitmapSize(testbmp, W, H);
  FastDrawSizeTransparent(5, 80, W + 5, H + 80, testbmp, buffer);
  SafeDrawBitmap(buffer, Image1.canvas, 0, 0);
end;

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

function ShowFormModal: Boolean;
begin
  Result:= False;
  if(frmDesign.ShowModal = mrOk)then
    Result:= True;
end;

function SafeShowFormModal: Boolean;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  result:= ThreadSafeCall('ShowFormModal', v);
end;

begin
  temptest := BitmapFromString(316, 22, 'z78DAED9DEB92E2300E855F29E4E' +
       'AFC246EF2FE8FB4C61220231F59A161BA77B76B6A54A96042A093' +
       '7C3EBAB9EF4EDB69EAFFB76DDF9F4E973FFB677FA9FD7FB807FFE' +
       'C9FFD3FB67358C2BAA7FFDD39D0B6B46BB786335B3952DADBFED0' +
       '9D7BDA538EBFEE2FC73C46EA31F2BDF255DA2F8F905F8D646FE72' +
       '33FEBB1A736FEF9ACF4E7AA736BBCABFC46F6F9547FEDE2F8F27B' +
       '8933979F12E56F82CE5F1E2784356C5FD25EF7C6711AC7FEF455D' +
       '838AE7D57B1619C0CAB8F43B61BF6D386ECB80DB16A976139851F' +
       'B0E07CEC6F51D8DAEFB0546D378ED777796D3A93FD905DD29907B' +
       '2CB1286FE22F720AB472EA725F65F729BEC7C59D67ED34798B765' +
       'BAED9FE7EBF6DCCD212C64A730776120CBFBAF77C657DA13C244D' +
       'BF791F73DB42DEF2075974570BFEF603B823B7DD7776E79C7D5EF' +
       '74F44C2B9F7BD52357EE56F434B09FD5BECF7DEC299FAB8F23876' +
       'DE9C7D31CE6BE1FD98ED35EDA73FA738F1BD9750DFD3493DD9675' +
       '9B83B6724C1CCED3BC933DAF6B377764D35FB81BB76D4FE71AA53' +
       'DF7E13CB12D5E1DD7755EB4E5E37C9D4F73C5D2AB64E599F0F9C4' +
       'F5349FC886B82C534736F6E771BE485B9C39184356FDC2FA692FD' +
       '957B956D1DFDDF3B736B723622EBA4AF567E9ABC8E42FBC02D11C' +
       'A0769D3FDF0B98E0E86EAADF11E817A8FD0E35CA6F6B83AD3661D' +
       '1788F75B0E917D1F6DD9CFD19C202BBA44B65E8206189A16A8C9F' +
       'B3F3AAF664CE5EAFC6B56F1056B055EE798C2CAF7FDF33A7CE3EF' +
       '41CC34F0C7D4F59DCF48C044F801D3DFDF43D8E8E2F9FD8E6DCFE' +
       '769EDB3CF74B612561016DD77549D74462E83C4D3661D39FAF1F2' +
       '35BE25126DAD6ADF33C9225EA2DE3DC8F7D4158C132B2150AAB31' +
       '4B3AE23822EA857EBE8CAB26ECD6AFE98DD2D2D9CEDB949E01056' +
       '12FEB30F7D286F3328D7B8BB3C7AE044D2BCF8C0E5CED1171D626' +
       '08A06144F355CFF58909FEF85CCD533DBFB5D5319A21203F406D2' +
       '650F724D495759A6C66B6D2B664EEDB08EB6710E2EC4FA9D7F712' +
       'B6E4EC8F6BD8D7EC3286AEBF48DA4AB63639DBF72B6FA73BB8BB1' +
       '067999BFDF5D527AA5E999BDF059E24D156A0FA5DFABDB591862E' +
       'DE11616D8F59EBAEB466084857DAFE465BABA2E7CCBCCF6B22A9B' +
       '60EB6169C8DCB3E86754912B2C1D984E2659CA465AE49161367F3' +
       'ABCC5041E1C22ACE925D6318A740D656C4640BC2A21982A2A7663' +
       '1131970F63C85385D34B36CD6E06BA3EE9BAD5D0388DDF59140A3' +
       '45CF95EFBB1AD1DD67789F9A34F778873CE750E7B87DE7DA77FD4' +
       '734EC6B5AF5F7F88ADFCDD91F24ACD49E90A45F61C5AA567A8F25' +
       '552BCCCD44666E6656929E955AF5EE37DEFB87C7586A55DA4F1AF' +
       '6F1AAF294DA5AC0A44C6CA906DB5F64E941BF9FCDEFCB457E391C' +
       'A5329E5DFB9228D26FDA42AABA699BA653EB387A384B0C22CB245' +
       '5BEDC25CEE771210B79BDCF710C88B3211D7B3A918563B292957A' +
       '16FA96E96CB3BE2E388B3CD559AD23AFB2FD97423E0D3406C5086' +
       'A9CADDF41782EDA1CDFF0E5CAABD41FCBB0670EC863ECF0EE4678' +
       '5F34E6D5D2BB559DBDEF3A9E7BD84BFC6F22B0BF93B6DFE7EF9B3' +
       '8CB743BCAD9AC43898036494317E2D0176A34538FB7FB34515FF8' +
       '68F94C3842AA38CBDA76BEBEF7FABC4CDB9B189FC73CF1F46AE3F' +
       '5F8C87B2CA3BA82BC8D2715F4B09DE6AFEE627BE1F0DCDE98EB46' +
       'ED83F2C4C8ECC8AC1D95AB3C1F123F92A452B6A243B57FD8ED25A' +
       'E70F6B4CC37CE7A62B264D39324CDF1E294CEBBB0C43EF2D0224A' +
       '36382B180AC7103DF371B4DF98ACF4724BFFF3B6AE5FF3AAAD262' +
       'C7356C4794DC6ED9E6C01C72C31FAF2043C7781BDDFA270ED8EB0' +
       'F20A30DFDB4ADF33D2F65ADBDF0EC58EF5AFFAB384FD2FE3AC8BA' +
       '7C758C9F61BE465CDF892C2254D3A8F4BD741E68621ECC3584445' +
       '8971C459E269D6BF443DC4D9BBAA5D4B2F71612537F3F1F9732F7' +
       '3BA800BC292CD672E33A3F80ACFD4B6E7F9C5DDCD9C45335B2BCF' +
       '01C7AD9AACF4E897E88FC11DE069B6539C42DF1DD6AD2FF98D255' +
       'BCF4BB84CBBB648C9B27E243E0A852839252D3C428EA5DA2C4E73' +
       '836D1A0A8F31F04E17FADA934F65466FB53EC2D938563E2D2685F' +
       'F1A6EFB7B759EAD99C715EDAB5D4551A31D0BF6DC7DDFF10E3934' +
       'B527E61BE5AFF441C2FEEF7276FFA4657A829C04F857266296994' +
       '2772FABCECB25ADCA8A326B52620DFB75852586F2112E0FAFEF94' +
       '3E39895D41553AA6242CC75549CFF60FBFB1642E5B11A5A523B3C' +
       '225C2CA3B8B084B674B56CE1BB30A268BAA1BA42D8F5FCF693C42' +
       '5EEBBE0631D6885433D22605430FB28FD8FA36C2DA7EE34BC8C95' +
       '0969ED591594458CD5969D72574D34416518F5E459C45D9CED2CA' +
       '082F1D47FB8D8B7C2AC0591DBDB5AFAB96CAABC7118EC4EBB517B' +
       '44D251D21ADE50A5A8AD5E7CB45F3D2575889BEA9FD8CF5E43AEA' +
       '6A9DB43F6C33D90F1236DBC30CFD053C2DFC93422B552976CDD2B' +
       '9F12B6DEBBCD927FBA84C11F6FEAEFB91E527D6F2EB406C82BCB8' +
       'F72B531DF9395397CE3CB386799AB7E51826F8BA8CDDC35E59A93' +
       '83B2702DF152EBD2B73995FED9244ED99DD44F64B56BB73D6C294' +
       '757CCAEF52242DBE2F9DC3BEC4AEC81E91BA183D7FB4BA949CB5E' +
       '3356CBB694BDF425BE4414554421E5A9483F48D7CA48FB0D5F418' +
       'CBBA1ECA3AD60A8E759C206C7AD734AC0519C7253D473C9CB5497' +
       'DEED2E5CC1671166540151E63C14D5D61647F473B7A0BE7548D68' +
       '639B29767403E8E8DD13A3D433529091B523F56AE71BD8F538283' +
       '350E75DD8D5B876D52DF04D3DD70BDF792A6B7668FB1CB62E4626' +
       'E66F23ECC7388BEA2E0BF6D56A399FAB481473256D2BF5292ACEF' +
       '8E032FE6BDA997BF0AE242F2E88446885CBDF251387346951912A' +
       '63AFFDBC2496E5EA570F678B5789B3C21261D3F37FE8D9520C771' +
       '93285334FE5AB7AA4DCB3ACE9EB95E3C3B8A7911752D0D76D6925' +
       'C7F5AB3C469D335949AE82629FA6B01D2D059FFE11F5EA60EE39F' +
       'D1DC728AB7B28B7565BE62CC55E89B04239BA384BEA5271B652D1' +
       'A338ABC740CE52BE16E02C54C74458B3A609C74CBD19E9769E9EE' +
       '7551C61AC7B5A34A9FD5E1DC0D0E8CEC96F64539BBE5C58A163FB' +
       '8A912E46FA57CF3A7E98B36F25A95670061F9F941DBD57774B40E' +
       '39F3B24DCDE2BB735D9E5984239C2887CBD138B1DB920623EB889' +
       'F2E1EF338D1CEB5CD23B127D72C5CD32CDE79C7DFA6493AA1A12E' +
       '3B6794C4F54E919067A966D4853FA91F6DFC978F55D4B561261E9' +
       'D3E750E5EC2D6E5B276341499A0FC8FDF1F15EE6B89BAD3FC65CB' +
       'F96FCDC27BE7456E774C18E5F92B35C4B2B18CA3E58CD4741619B' +
       'B0927AC571407D4DBA0EC3B0D99541D06F9CA3B71ECE1679CBC4D' +
       '92DDD81676D25673D99C6668C3582BE49D1AE9BF6A8369C7B6CD5' +
       '88D93565AD6CEA665D5EE537D1DD997066F5132B0FE454EB4A58D' +
       '2AD52C9DEBCC78F3A59A47C6FC779BC5ABEEBBAFDEF39DB64E85D' +
       '454AA5A97DB3A8BF90DC5FD010685E6D35673549519E8C9D5103B' +
       'CC711CD45298BA9B81A33A768CFF577E86FC727BAAD69FABD556C' +
       '56B2D212C598A199B092B3BC47719663AFB4AD184A4A9C09ABE99' +
       '9DFEB22EC4A75B8C59EBBAA659F33CD280E52F557D0D6D4ADFCB9' +
       '9F66ABC36F1C2E4B7A1268CE326D33B3C872F70922ACCA6B6A705' +
       '67464B233A948C9B26A362B832067B33E757156E42D7BB2A4B0E7' +
       'B6AE8CEC1ADBA3B9C49EE8A7DD6BC2D30D46F5B38A282AAABB5EF' +
       '8BE8BEE8E687BD4EBBFA49D518CB669A426ACC74A0FB3A6F69DC2' +
       'E6DFA27CF54E28A5071B7A53795FF5719EBCB24F1EDD8AAE44E34' +
       'BBDF9A46A3D517B4FA4C353D1DCAA85CC963CB4E84A2072C9B35A' +
       '1F114CE66C9CF74446DA9FB76D254B567A86899BAC58E51E93B3E' +
       '9697CBE59D6B9889BE425F610D6319238FE46C26ACFF631E61E65' +
       '31E26CC87AFF87D4AB3E439BB36459CDA55F68182149016725A9C' +
       '916D9C83A4E9AA93786E1D2AF766550A5D7A288F0BAFCC6347FA0' +
       'A339B2A4FC1DC674C763ACBF74EEBA5549EDEB7C62CFFF9B1D512' +
       '250BBD1CE36B4E721ADF3B4D8E488F946ED3100F39C58CE8E1E94' +
       'D459527522B7FA6E595EF15203B2D6538C83D15215D3ACF7DC7BE' +
       '235381AF400AB6D948FD4EAAF6277B136AA33745793E8E924C69F' +
       'C21950750AD3D14297487A21F2D2F6744DCFE898A1599F166C256' +
       '29297B8CBA420CE0A0FF0EDF8CF9C95FDA0D892C624CE4AC252ED' +
       '0F57D16672214A8EE396BD2555CBFEE4E13A73285EA53D20CE5BF' +
       '14B6B92AE94FFFC227FDFA3737F8F7FF8A89ECD55B488B3CBD7BC' +
       '0C2B597F458FCE316625ABC6141950A49AA58605BEE50A67A51FD' +
       'B1D992D5E457DA2F2D10E2A4AD8C7CCA7D7ACBC237F5D0C8A6DE1' +
       '6CA8660FB4E839075CD36AC54C5BFD15DBB5F02D7FBEFD37B2BC9' +
       '7682D06CFCA0EBE3EAECF67AB7BDB6A7FACEE76ABC7489A43A50C' +
       '63E25696512BF3CDAA1337FBBD477BBEE7EA854BEA95356C1E491' +
       '5374362E8852C138D745FE62CD396F8A838AB956CA1672973D8A1' +
       '67299ECB515DCA83E25AA44CA5BDCE329BAD6CC99FDCD177C97BD' +
       'C54456C95D9D12FE8D9671B807D49F9CA23B8B8FCCFFDC6C4563F' +
       '67B7CB9ABE375B1D33D584BD84793A4B8B38CB8A38F780421E635' +
       'DC90B570D3095ACEEDCE819C399D2A0A790DFBB6B3FC11C1D1A77' +
       '10C9DD516ED2C14AF01729EF5997C7AE2F06F5B9D193ED6C7F8AE' +
       '91BDF71DF396FE7F36FCC7CF83BEA8C5CDB7B0C7DC8D5BC5FDF4C' +
       'AF95CBDDCE423F9A1388BD2BD675EBA9F5AEACA8B22EDBC0B940A' +
       '45E59CF121949BDCA082C51356F937A2D3A4E704C56C461F3716E' +
       '7956C738CBEA9BCE447056EE211BC29A0429D34A6B589575FC2E2' +
       'B73B4DEC0590773FDFEE4C6F89FF51BE773A08E8BC459B295F86C' +
       'AEABAD7036DB8256529F2A4E91E59A204FD58F7BB520A43D3D6B1' +
       '9A0150DA457997DCBD4EF0268BD96D2B49E60FE3CE45647947AB7' +
       '617B9D0BACD7DADDCF7C59C49E6FDAFC16BBBD3A83C733EF793E1' +
       'FF1CC3B57EF8A9EDFE1F90C71FC54FB759F2A558BF1380BDDAFB5' +
       '3DBDCBEC5C6E5F4F69BBCF7C3D16EFB1212E5F43CF9CCD24A26DB' +
       '6B29B044563C90A9EB225E5AB329D2467A50798FDC0C459DA23FD' +
       'C6C04BCC7161EA6A05D924A2AB2263F973F69BF15993B3D21F7E4' +
       'CE77E3C93F95D9CCD0C459C95EBE521CE92A5FA59262C605943C9' +
       '669FB34D58B85A90EEA0489CCDBD16ED8C657F0748B2B67E7C699' +
       '59CC3753D881A8ED8A8AB6B99AFC77E5D1B9A3954BBBD9A80E70C' +
       '711CB9ADCB6097B9FA9A86AFE92C57A619CAE3D2E78034ACAC9D4' +
       '1F538FE7884A74F085A89CC936F6FBE1ACD594D44156AF2C8B25A' +
       '478E67C20ACE924E949C652D495E5FAD672567658CF535CE8A3D9' +
       '5D57C8853A470A94A17512F3FC36FDD1D49D38118AE7C57CE2BFE' +
       '34915F25EC31DA7E2B9EFBEFFDC639F74973F6FC152E5327ADCDD' +
       '930CCDB103D3D2E2067E5DA04FE9E54284BCABD964183B3AA8BB2' +
       'BB273FAC76D1BEB2D62A9076178BA767A92BDBD39F9B84FC84666' +
       'D2C5C2DDAEEA866AFDB8E7A5DFAF5B2E3D736BA505A3DB2ECB599' +
       '7CABA5D83EED6319E6ADD5D0AC2A2D7F4E9D6FD6D75E9DF968E6B' +
       'CDD7797F3C92561C9A6874CEE9778CD02CA7E60DA03B38B250765' +
       '1E94E6AC622BE42CC5618B5E16D4F749509522B6E45B566C65C27' +
       '21FE6876222CA1B753D638BB0DCD751EF77BCF7DD9CB598FBB62C' +
       'E57FA864A5DF784E1819AE6B6FA68B4ADB907EEF61AB285952C49' +
       '9B30D6FF069EE86DDCE466EE859B55A905EC540AE6560AF4460D7' +
       'F29042272B398BD67AB355A4A7DF424D09D69FCCADFEF9EDA7165' +
       '207B647CED733BCBD329D673DBE5763D9FEA8A29D49D55E4FD0F3' +
       'E447B32F5F4D93B56282BFB334D6FE56FC02AC70B4E375BDAB1E9' +
       '5E8E9DD675685EFAD59C7F3774484AD5819A51559C7D2BB5B54C8' +
       '4AAFAFD2B3366D8BBE4F92B3A2AF85A42D57F582A7F75DFFDE694' +
       '2715BA86DA97B24222CD5D27227E4DFA0676137AADF4558776456' +
       'E6416DDDDA4D27B2E72DC471975672B6F2EA8DB363F61E27ABD7F' +
       '7618E4BC2AA31FED582EC9C6794F92CB39AC942CEAA0EC988B3B8' +
       '1EC7F6FDD663AF4789D3EA0B61C5D13C7953F8D9EBE943E559D7A' +
       'F9DA5ECA906F2647DB7A290F5B836F2F3DB6B37B4D689F8CE6ABF' +
       '562D98BD6A58EBD7B0AF1F4F5640BB72C7EEF959EB68DD5E9F943' +
       '39D3461A592151A562A59B21CA5256D2B392BB38B256769CF4B15' +
       'A6055575B746EAC17BABF7D9852216EBB5D12A78767650DB93CC3' +
       '6D7E9B0FD053C2D32BB64A7C4FF2ECEAA4C63CD59B2BCBE40B6CB' +
       '3C9F8605F98DE7AF691D7AC9596997F33C94B94F9A774CBD37AD1' +
       '6F4AD1ECBBADB2429DF7C56DD25FD8B7FF6CFFED93FFB67FFEC9F' +
       'FD84FD0FF1EAA2B0');
  SafeInitForm;
  SafeShowFormModal;
end.

Wow!

That's a pretty cool idea!

A bit messy, but still…inspiring in a way


I think I might just make one of these tomorrow

:) Brilliant!

very nice.. :D

lol i never thought of that before :p
nice….

I was thinking of making something like this for the Forums :p.

Very cool, nice job on thinking up the idea, creative!

Ya, sure nielsie..:rolleyes:

Haha, very cool :)

the script dosent run?

From: lalaji
the script dosent run?

you need scar divi. I tested 3.06.

Cool This is funny :D

You might be interested in a function i just written :)

Procedure ColorTheText(var TheText:integer; SearchColor,ReplaceColor:integer);
var
  w,h,XX,YY,TempColor:integer;
  Temp:TCanvas;
begin;
  GetBitmapSize(TheText,W,H);
  Temp:=GetBitmapCanvas(TheText);
  for XX:=0 to W do
    for YY:=0 to H do
    begin;
      TempColor:=temp.pixels[xx,yy];
      if(TempColor=SearchColor) then
      FastSetPixel(TheText,XX,YY,ReplaceColor);
    end;
end;

Very simple. For example how to make text Black and remove background do:

      ColorTheText(TheText,16777215,255);
      ColorTheText(TheText,0,clwhite);
      ColorTheText(TheText,255,0);
      SetTransparentColor(TheText,clwhite);

:spot:

Maybe in the future i will make a Faker that Recolors runescape text at the client itself or something like that:p

woot my main became lvl 126 in 1 sec :D