Results 1 to 16 of 16

Thread: Adding things to RS screen

  1. #1
    Join Date
    Feb 2007
    Posts
    849
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Adding things to RS screen

    Is it possible using scar to add some text onto the RS screen (such as usersdata and proggys)?

    I know you can add BMPs to the screen but can you add Strings (from ints - IntToStr eg).


    Thanks.
    ________________________________________
    14:19 < cycrosism> I wonder what she would have done without it
    14:19 < cycrosism> without me*
    Cycrosism is now an it.
    Quote Originally Posted by Dervish View Post
    /Facedesk.

  2. #2
    Join Date
    May 2008
    Posts
    1,345
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I think it's possible to make a bitmap on the fly from strings, but I'm not 100% sure. If it's possible, I believe you can just paint it on.

  3. #3
    Join Date
    Feb 2007
    Posts
    849
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program New;

    var
      a, b, mx, my, i, Bmp, Bph, BluePhat, Wear, Options, Chain: integer;
      Canvas: TCanvas;

    const
      //D chain coords
      x = 562;
      y = 215;
      //Blue phat coords
      x2 = 608;
      y2 = 216;
     
     
     
    procedure DrawTransparent(x, y, Height, Width, Color, Bmp: integer);
    var
      Bmp2: integer;
    begin
      Bmp2 := BitmapFromString(Width, Height, '');
      CopyClientToBitmap(Bmp2, x, y, x + Width, y + Height);
      SetTransparencyFromBitmap(Bmp, Bmp2);
      SetTransparentColor(Bmp, Color);
      FastDrawTransparent(0, 0, Bmp, Bmp2);
      SafeDrawBitmap(Bmp2, GetClientCanvas, x, y);
      FreeBitmap(Bmp2);
    end;





    begin
      Wear := BitmapFromString(33, 11, 'beNqtUm1yokAUBIIQ+QqLArpJ' +
           'ZS+Qvf8FhmEgMigyiiT+SFXu4TYOsFj56yuq0H5Dd79+c7lQmuCxb' +
           'eMyVEIJkMv9CoQoVVVGBPwdoin3khgI1f+iHUBWL+p9JRRF+SFh3k' +
           '0i7WOBFshnxoMUXSzd8Uz7yQ8Nb9r861tMvy229NAUVZ3tBZ/i7xs' +
           'iju+f57oS7LqLjlB7UKV5TVMhwTJqWf0FaFq+3eXLlRH9NuCHsVTi' +
           'h1N2PJVhbIfxHHjKyFSaUoItW5bpOKacAkHJH9ACIcuSlz9P8jxJC' +
           'Vp+YL79fa3qIk1pEM5kK2Uwk9SibM8FXLlP816izGjHrxuGfg1Kmh' +
           '8ktE4iz1m06ndR8BwtHGvaXX0o/GBuexrw3X4jxCaMPf+XDX7MHiw' +
           'fB4kEThxPH+ci16JUvknBie1qjtsHdWx2sBqtzWhtxGvH9y2J1zXH' +
           'FMGi+1tVmC5ZPXuyxbcZLCGl6YLIUDCD0Fz/pptlFD6btjx9YOnli' +
           'KeMMkY/ztu92MDGMu4DFEeOq6PrN9deua2fFy/EurspPM83gmg24k' +
           'EwRz7+Qve8x8UExyIs5+rzH6yPNa0=');
      Options := BitmapFromString(111, 17, 'beNrtl/lO4lAUxiP/zKgs' +
           'ItAWEJcxmjG+yDw43K5sVZaWHVTikvAIznc59HoHKzqJ40TDyRdze' +
           'ril7c/vnFseH0UMh53RqPO4jvcIwLQss1BQ1yj+NczpdHh3NyatWb' +
           '1G0gfMvT01FObNzQA6Pd2HHMcql+3P+Iy+50EfA3N1j//4kQdJJHA' +
           'mYJ6dHX06mPW6bRqGksn8d5gi7u8nnxcmY6VY7JuoeJc69L5XGQzQ' +
           '4/7enrICJmbm7e0IJCGQDIU5GXVmsynUvKh5rSq0tKDXuWw3qyRRb' +
           'Lj8sNWo+u2aKHa8i4t6ifQinFpJSK63GnW37kC1cuk5TAiJKCo7kX' +
           'QiIs+BpWnQ8TxZ8hd2fF8WFasVC7YEzNXMT04KEGwZOjNns5thv5X' +
           'TkuWyY5q6psQNgyF5gnZR9ZrVrLpTyGdMg+FTqve7TV1n0E58S0lH' +
           '5zQqUCq5BemsCL1EMhbdgBgrsmANkUwlY5BhWdDTDdQZOZPEaTR0S' +
           'CaJIQBhGkACJh2qS/U5QFVRZKHu2OYc5pteih4erkLbHIYEOiUV7X' +
           'cblmmAKhJDZ0gWPdWsAmBmd5v3QrcJnul53vHquHpe292Jb9PKS7d' +
           'qcLbbIk/ENp7DBECQDM1BEnl7MAbMdH6fTmm6bKnNBz3fNEowJ8G0' +
           'bfvo4IByMV1FDhFYNZi6xJY7NrAlSFbK3JZvhPnSBsRhGkxm6LVqn' +
           'F4qGvR4g0PLpvhjzsGqmVgA04BdxVdduhXT0CGcQhZV0vG/gkn5Am' +
           'auQKe0XQaTyzDHwwFuiWBOr68dxzk9PubPOJ3qRTMeyXI/6xMBdgk' +
           'mAjkMac4DhxXHxP9rdY9PJj28Gi1g3r4E8wYw4cyu71KbY3KCqhLA' +
           '7HqugIkcfb1wZrsuXLrouDY/EQyzahJSM4nQNn8VJuXCmZyt/ifMf' +
           's+2rHxWW8C07ePDQ+Qu67GiGY1wd7l6H7nsUvXZ+8ACsqJwmCUMn+' +
           '+rDWnbJgSS0OnJfihMTMvz82NYFAkYYgMC1d3EEyW0PyrjoT/otWB' +
           'FAii7VAQ5E7bETgSF3hKNSnl4CoDP6xSAyT8KNqAhYNoLmPwZLQu6' +
           'Go9H/X4hl8tluTNrzA+FubQxiZkZi27m88qrDX50lKM9CApdAJIQJ' +
           'WRINLuYmRRkNi0Tx19RTMa3ZWcGHZTAGtqGsDeFXpFYycSEM5fqIn' +
           'bjEdmcIFkIYCI0RYFymkZkED83f8Uimng7peH51OOSvt5PObnN17G' +
           'GuYb5VSN0VH5E/AaQFl26');
      Chain := BitmapFromString(86, 15, 'beNrlls9OwkAQxg8WuEgrRVH' +
           '+vASJqanEl+JmgjcVAfGp9A1Qg4knAQ/CM+BXp0ynu120BpMaNl/M' +
           'uGR35vt1hrJcvg9OWcvsrbe+T+KdyY0PbTAFjL90PKdk4S+UQfvuf' +
           'm50fgwxgXHH27V3Nk4AcaYgsH0I/3LwpwRm/SC296wsEJgMfDx3ch' +
           '3bT0ng47Y1H7a+JUCuJYFJ1w8lhm7a81nyktGlx5L7T9ceSxlk1no' +
           'C5QOVwPSLAKQfN5VXci3IlNpIYJUItAk43Vx0diD6iO0/XnmVah66' +
           'bzchaf+wlofkPlso2rF70hJQjpvKWwxbi1UPJJ41TQE3m+w3OkW5g' +
           'nuc4CPYhzvYV2LYRwz7HNfqeS4DNUAcpyVAhSkTkVje4q71enHili' +
           '1TaklA9oM+brOeD9kCsokAuX7ueg/t5lE9ihUCUeykJkDHZZGm8oh' +
           'AyTWm1glQrD8d3B/wccJ0nEJ/1jqBsU7ACSfLRCCYr9VLEDQgncA0' +
           'TiCxvAQC8dTkGqIfRbBvIsCvS6XNsGjMafCZABZcQ7APwX5IoPdTA' +
           'gwB9tEM1A8mAqby5sOziIAhNblmcXaaF6UkQCbRdw7vy288JoBVbx' +
           'RY0c3iLN225m1VruTYvl6YUmRiebBPBNKm/sWSnb89C66hbSbA804' +
           'oqo1CVTT89iwy/v/sfwJzAq1Z');
      Bmp := BitmapFromString(32, 26, 'beNqdVvlTG0cW7rk090xfc8jCI' +
           'AnMGgkhoQtdIHHIGIKJA5hybBMbWPCBIdiQlNcYAwITG8ep1FZt7W' +
           '7tT7uVquTH/Inbwl6HwjibclXPVM/r7u+9972jp5a9XGsOAUhvJ2c' +
           'ODXAfCgHPf2w/z4OTnxwA//rHvwEvBgAQARAESQK/bZAB+FxXAGgK' +
           'Ac9WObafjYyogRM4TMKW2boEuMV7KzKv/LbEgV/+8+ubo78trX0T5' +
           'oEPQAhITNOxkeA61a+gwCDkcppQ0kBR4SqG0iuCdhV0MXuk420CuA' +
           'rRsA76Ff7WzcW11W0OiJnz4XeeAvmnn3/9+z9/WXz4qKIJKQFkeU4' +
           '4xr9GrUu6NG6Jn0FlwgxcMkHdBDWDq2mgooGqxHUHJI4Hd7F929Gm' +
           'XWHSMGfmbl27Psc8TFyIvsWXOPAiZG5QPKLz/TIoKSDGnASB5UTHD' +
           'NK3B4pPBio7hYEZwu2UCzOWtVvp3+wvPKpmazb3bTnXGKwuIflLIt' +
           '+wjWEiF1UQV0SGmW79n/08+NY35ql1GWmfQaOiNEmICWAp1nETBZ5' +
           'Wy0/6q/d7s3NEe1bLXcPas8HiVqmwnE2MmMpeqbA7UnlI9PmgPgOl' +
           'STtQk0GMIXKguyPYBOfERov52LdXsHYHB65gcRKiqiLEVbD8p+gCg' +
           'vOO/JdkJ/PlKyrfQNosVKaYolRqteviFUMpQ7DV2/nA1xawPofNWW' +
           'SMQXXIlDqa8ZaPyZc2XGvNNb6i6h1Xn3a0ScsYQ7AcAMvEXOy6sNA' +
           'TZtwy1YuedgdKc5Y24RpfuIFRQ1mJdy3EL5Z07rFvrlD9DtFvYnWa' +
           'qBO2ltd0pqE72s7s3/LxFtUfePKyI84aYNZWxwy1YoN7jnTPR2vEe' +
           'mwZxLWDFoaOxVgK+cSB9KphjiPAXKhr/DdB4z5W5ql2A0ozUJgl+q' +
           'AkhliqMx94sOnYTzz4tWOuEPUmo5Hqn1tKNQBWiX7/nOmZju1ajkc' +
           'JhpB6fzYUCCEhju85hKBxUxtB4IlvbAThsqsvefqcI08jYcqWyyrg' +
           'BJbmGnVs5CNmkuFABoIxJNR3GCKlhNrkWOgRhm96BBOEXQciohDs2' +
           '+zBFCODYMunTalDXEIIkzfP0eC7+uKbhakASWaVJvDN8mxGh3+ej3' +
           'kMGMrnqOu5GGPqYvQlQQgbjouClusTWHf0Z6VyM5t5RgZ7eJG9RB4' +
           'wGA7Eo+1vVcQjbT2tkWT4fKa1PdMWSba1sW6wn8s8Clmb5xA1KUQq' +
           'A0fQWKYqcU3GDHX1CaQ/TXdudSdlEXS3tPS2R9Ph1mxba/J8KBcJp' +
           '8MtPdGOj/Uojpefe8rXnu5aQUaUgyzmcAvx56noMPp07FAYwmTCbJ' +
           'Y2s7wn2slOjY+U2PidVnmyX3032v8o6Gy6BksbFgiXcY/QIpUYuS5' +
           'ypogxRaXGUG1/qMLKqTfyztST+O/nHyplufV6ZGjdszdC9kF94CGC' +
           'mJWDG3CJRbGzP1SbR8oXjrk3WH2aSrJoJSORUwinfDmlgkXrVT7FC' +
           'mfdNZ8PFX6oV1d9Z9U1Vx11kWiHg6WXI31TRGTVtJ26eAr/j7AEeH' +
           'knn3iZ691PJ/dLmUY2u5vtfJEpNjLdjUJiO5/ayadYAhxkUo3sxTP' +
           't/3/44KmHvytkD7KJTU+56xk7fV0PiLpfSDeysbuOfB1rO7n0QTE7' +
           'DqWP4b/3YrjcexpfArseXaHm5nn6oNVaJ8YGoQ998x5VF5Gw5Bi3b' +
           'HWaCpMOP2EYv28/A/8Qnxe5w0ulfRd9P1o4Ghr+sV5bxeh1fXTNg3' +
           '+9XN0du/Tq8shtqL6u9x/WBz+BHxbf7/tS6+d0Ft83o/UX46X1oL3' +
           'usDZlLNjyD8MDP44NT0Nt2jZYID4BXxRAo5h5k80f5bOHxczrQuoo' +
           'lz4sxI/6Mi/LucO+5uercu9BuftlLvkp8RXBHo7u5VN7xcS6hx57e' +
           'Lsvvh6E+5nYXjbGboTbWGvkEs/yPVdNkRVwPBL9I7An87bZ7Viv45' +
           'u/IwHAS0AKNNvWcTfkBK75NyLxgsxukO5o5H0rOzNbzixhNnJt0b6' +
           'WCLupYxfakuFQT2trIhpOtEfYm80zkUg6GmXzrnDkbJD/AluevNo=' +
           '');
      Bph := BitmapFromString(29, 24, 'beNp9lc1nJFEUxZNtaKU8pZTaR' +
           'FZZxURmFyKEkf9qFrMYZpfFELJohl40IYsxzGJoQsiihaZpimJoIY' +
           'QwhCarOfee6lu3PtIc7fX7+N3z7rvv1fHhp9Oj89OPZ8eH72lra3v' +
           'D6GZxbYuPv+jfP3jDL6JD7Eejd36XGacL/GKaX+uxH3Z3bcg6LXrv' +
           '1hQ7i9OCZE6jpb39N8P6+ejEUGsXyilJlnYyFalhLCeZTMp7M2a+V' +
           '++CZEFlf9mJ3yi5i5J7NVzSsDGx1hs+P5GhkL9yKMkb4cAM2ZPDTq' +
           'LkNk4eiGUnVlEeS6vAhvwfmCFfWX4kXPbUcBt+i1XBFiFbeiaxRu5' +
           'i0bZkCtYZi8LPNXZBLJZQLcPGVL2wzXC0Gqdzww7iazAtvcY0bcZK' +
           'o2IuwHHYEdKLDBCrW1v1kg+OWlglOyZO32F/SHrVMJl9enVy2OwZW' +
           'mOnOHqHHUbhl5QuKuRd7Cpkjw770sCmJZmwV2OjSyVLPWBHazMk1F' +
           'g50IbbGs7Dkvp32J3o+yC+Qj3oqZUoBnpYr2pFsWN6Fg+ipTEH8dh' +
           'hL4BFPejBzSRLAn9UcaGLUtE4upTtpwX8KHME2Qug5G+SinCDoPo+' +
           'KBxbk/u4VFkUpcmuSzUw17OeYLM4esjfu53BV03FGEH1Lhu8UJUij' +
           'UJ7CpyxeHT7ZA6hJvYLDCv5WpLcgM9VC1VRORTmVN+oiW5/qGkUNb' +
           'Gf1fCFThh14A96tWfVHXdA8RluKibSGF36x5n3ujo+rbcO/F7qpAb' +
           '+QakrcEwahM1CrTcfbRaGVxN+2wZKPq9aS8jpftrY3xulV34+hdce' +
           '2vxR7q7qit++etV/zFIORw==');
      BluePhat := BitmapFromString(90, 16, 'beNrll11vEkEUhm9QCjvLsoW2U' +
           'mhvTLzypggsn1Zsov+mbYQSlA/TVAX6ryrRGD5CqyZGq/h90f4JfJ' +
           'dDx2FhgZCSlHTyXhyG3XdmnznnLHQ6Xw9jojoX4106VMuEOvM2zst' +
           'b0NS3g8DblH9tXYIQQDQPFEfbG7aFm1fiGStxaEIa7UJYZmw6Z06D' +
           'x741O+JGNvx6x391aLQLmizfmAUN0VmkcVqJGmjIzHYNaUDUN4CCa' +
           'DSfRlApkl3PjS/lKETXH+ciEHdrZrWTfPx98X4to41NyLPSQ2hw3p' +
           'CuVPtiBzgvx7BnaGy9wB80IASGBmKyVp8zzw1AEPvGSSFZ3Q0wyUo' +
           '03qT8q16d0qfn4eqOX1X0nGk9i9QzYdUpORWpunsPGoEC/CHa6rB5' +
           'fUvi+dIR0ynTnmVmIelb2o9DdL0YcxpMkiZbq89Z7BWoFDy112fnN' +
           'BZVldOgeZFGLRM+2kasV9mH4iZoKPLC6Gyk3WKr9BU/F/Eanu084f' +
           'meuefP0lZjL+hZUYlGPRVwqXbRH6KYm5is1ecs9goxHqRBufExr6G' +
           'fOBjR0EAAHxG0cjEHs0KjaXTjHo3B8zLQ4A5/D+IGGr8PHzf3Ql6P' +
           'G/GvyqPGRSzSFmOztQzOgzTE3FCdzh6NJz0an0t6TDRQKaAh2ayuR' +
           'YfisCEY26kMNPrnTWn8OdBPkAk0vr3YrKcDblX3ab9MIk/MaPRqzW' +
           'QtgzMRwNFTqwQKonGcf8BpYIAABBSQx2tzu2Sa7+bGRisXbWQ1aAQ' +
           'NnqXYxoSVwh3u3lmnK8/K/38fgkYjHQSKH6iadHDZxUbQMFtr0Jne' +
           'I8SBUNAACk4DAxC4xIeVmRVZAcnSmNzg6rtdmOdfiU2DRkK7zSSLL' +
           'iFDbi0rSA9ggVaWFJqkpjHUZ+haQ52vwq+F6YbYRefgv8PsaaBSrj' +
           'ON0/3E91dJ/Y1fTCB2OuzzQqNbvxb5sqsS7xEIr1p0jzlCMbvhW10' +
           'iXY7dP5+hD+I=');
      repeat
        Wait(500);
      until(FindColor(a, b, 16777215, 439, 491, 440, 492));
      Canvas:= GetClientCanvas;
      repeat
        SafeDrawBitmap(Bmp, Canvas, x, y);
        SafeDrawBitmap(Bph, Canvas, x2, y2);
        GetMousePos(mx, my);
        if (mx > 560) then
        if (mx < 602) then
        if (my > 210) then
        if (my < 246) then
        for i:= 1 to 30 do
        begin
          Wait(1);
          DrawTransparent(8, 8, 11, 33, 16777215, Wear);
          DrawTransparent(50, 8, 15, 86, 16777215, Chain);
          DrawTransparent(142, 8, 17, 111, 16777215, Options);
          Wait(1);
        end;
        if (mx > 602) then
        if (mx < 640) then
        if (my > 211) then
        if (my < 246) then
        for i:= 1 to 30 do
        begin
          Wait(1);
          DrawTransparent(8, 8, 11, 33, 16777215, Wear);
          DrawTransparent(50, 8, 15, 90, 16777215, BluePhat);
          DrawTransparent(146, 8, 17, 111, 16777215, Options);
          Wait(1);
        end;
        Wait(1);
      until(false);
      FreeBitmap(Bmp);
      FreeBitmap(Wear);
      FreeBitmap(Options);
      FreeBitmap(Bph);
      FreeBitmap(BluePhat);
    end.

    Yes you can

    How can i turn a string into a bitmap though?
    ________________________________________
    14:19 < cycrosism> I wonder what she would have done without it
    14:19 < cycrosism> without me*
    Cycrosism is now an it.
    Quote Originally Posted by Dervish View Post
    /Facedesk.

  4. #4
    Join Date
    Dec 2006
    Location
    UK!!
    Posts
    910
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Those BMP's are hugeeeee. Would lag a lot with something that size.
    I think its possible to do with canvassing. Not sure but im pretty sure you can do it.
    Ask a dev

    ~Spaz

  5. #5
    Join Date
    Feb 2007
    Posts
    849
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah there huge but for a line of text, shouldnt be too big.
    Maybe like 3 words per BMP EG

    Fished: (IntToStr(Fished));
    EXP Gained: (IntToStr(expgained));
    ________________________________________
    14:19 < cycrosism> I wonder what she would have done without it
    14:19 < cycrosism> without me*
    Cycrosism is now an it.
    Quote Originally Posted by Dervish View Post
    /Facedesk.

  6. #6
    Join Date
    May 2008
    Posts
    1,345
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    CreateBitmapMaskFromText(String123, smallChars);

    Try something like this:

    SCAR Code:
    Program New;
    {.include srl/srl.scar}
    var
     String123 : String;
     Fished, Lolwut : Integer;
     Canvas : TCanvas;

    Begin
    SetupSrl;
    Canvas:= GetClientCanvas;
    Fished:=2;
    Repeat
    String123:= 'Fished: ' + (IntToStr(Fished));
    Lolwut:=CreateBitmapMaskFromText(String123, smallChars);
    SafeDrawBitmap(Lolwut, Canvas, 261, 38);
    Fished:=Fished+1;
    Wait(1000)
    Until(IsFkeyDown(9))
    Freebitmap(Lolwut);
    End.

    That works by targeting the Debug box (what I made it paint to :P).

  7. #7
    Join Date
    Feb 2007
    Posts
    849
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    damn you
    From the script a few posts erliar, i made this:
    program New;

    var
    a, b,StrLevlOutput: integer;
    Canvas: TCanvas;

    const
    x = 562;
    y = 215;

    procedure DrawTransparent(x, y, Height, Width, Color, Bmp: integer);
    var
    Bmp2: integer;
    begin
    Bmp2 := BitmapFromString(Width, Height, '');
    CopyClientToBitmap(Bmp2, x, y, x + Width, y + Height);
    SetTransparencyFromBitmap(Bmp, Bmp2);
    SetTransparentColor(Bmp, Color);
    FastDrawTransparent(0, 0, Bmp, Bmp2);
    SafeDrawBitmap(Bmp2, GetClientCanvas, x, y);
    FreeBitmap(Bmp2);
    end;


    begin
    StrLevlOutput := BitmapFromString(131, 9, 'beNrVllsOhTAIRM/+N8390cTkF' +
    'pyx1AcxJlYKMwUKEZuwP7G/XyiY2PC33ICqNpWZ5bkzt9ajSb8XbS' +
    'NrRnl1rJ3hr1o/S9p/s0N9KwkVasPyyT6RvVyrlJq46AWt0JioRJL' +
    'tViAynO76ikAUBxhmDmRFYRFkAlsLTjT9pRfgTCAsmzcHAgen 5aix' +
    'RyCQZWUgujBMBiKc+7n9aqIc9uqOjNDfyft7MTYXfsXRlLN5o 6Bgz' +
    'S26nU/IR2G3yA+Y7dnP');
    repeat
    Wait(500);
    until(FindColor(a, b, 16777215, 439, 491, 440, 492));
    Canvas:= GetClientCanvas;
    repeat
    begin
    Wait(1);
    DrawTransparent(350, 10, 30, 250, 16711935, StrLevlOutput);
    Wait(1);
    end;
    until(false);
    FreeBitmap(StrLevlOutput);
    end.
    And thanks Sand Storm
    Edit: Sand, is there a way of keeping it up on the screen and then it updates itself?
    ________________________________________
    14:19 < cycrosism> I wonder what she would have done without it
    14:19 < cycrosism> without me*
    Cycrosism is now an it.
    Quote Originally Posted by Dervish View Post
    /Facedesk.

  8. #8
    Join Date
    May 2008
    Posts
    1,345
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm no expert in this, but I'll take a look and see if there's anything I can do to get it to stay there.

  9. #9
    Join Date
    Feb 2007
    Posts
    849
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    the one i made/modified did it, i will try and merge the procedure with yours
    ________________________________________
    14:19 < cycrosism> I wonder what she would have done without it
    14:19 < cycrosism> without me*
    Cycrosism is now an it.
    Quote Originally Posted by Dervish View Post
    /Facedesk.

  10. #10
    Join Date
    Feb 2007
    Posts
    849
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program New;
    {.include srl/srl.scar}
    var
      a, b,StrLevlOutput,SStr: integer;
      Canvas: TCanvas;

    const
      x = 562;
      y = 215;
     
    procedure DrawTransparent(x, y, Height, Width, Color, Bmp: integer);
    var
      Bmp2: integer;
    begin
      Bmp2 := BitmapFromString(Width, Height, '');
      CopyClientToBitmap(Bmp2, x, y, x + Width, y + Height);
      SetTransparencyFromBitmap(Bmp, Bmp2);
      SetTransparentColor(Bmp, Color);
      FastDrawTransparent(0, 0, Bmp, Bmp2);
      SafeDrawBitmap(Bmp2, GetClientCanvas, x, y);
      FreeBitmap(Bmp2);

    end;


    begin
      setupSRL;
      SStr:=    GetSkillInfo('Strength', True);
      StrLevlOutput:=CreateBitmapFromText('Strength Level: ' +IntToStr(SStr), smallChars,16711935);
      repeat
        Wait(500);
      until(FindColor(a, b, 16777215, 439, 491, 440, 492));
      Canvas:= GetClientCanvas;
      repeat
        begin
          Wait(1);
          DrawTransparent(350, 10, 30, 250, 16711935, StrLevlOutput);
          Wait(1);
        end;
      until(false);
      FreeBitmap(StrLevlOutput);
    end.

    That works but doesnt display the correct strength level, could you find out why please?
    Ill brb in 10 minutes. Going to shop.
    ________________________________________
    14:19 < cycrosism> I wonder what she would have done without it
    14:19 < cycrosism> without me*
    Cycrosism is now an it.
    Quote Originally Posted by Dervish View Post
    /Facedesk.

  11. #11
    Join Date
    May 2008
    Posts
    1,345
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I think I fixed it.

    SCAR Code:
    program New;
    {.include srl/srl.scar}
    var
      a, b,StrLevlOutput: integer;
      SStr : String;
      Canvas: TCanvas;

    const
      x = 562;
      y = 215;

    procedure DrawTransparent(x, y, Height, Width, Color, Bmp: integer);
    var
      Bmp2: integer;
    begin
      Bmp2 := BitmapFromString(Width, Height, '');
      CopyClientToBitmap(Bmp2, x, y, x + Width, y + Height);
      SetTransparencyFromBitmap(Bmp, Bmp2);
      SetTransparentColor(Bmp, Color);
      FastDrawTransparent(0, 0, Bmp, Bmp2);
      SafeDrawBitmap(Bmp2, GetClientCanvas, x, y);
      FreeBitmap(Bmp2);

    end;


    begin
      setupSRL;
      SStr:='Strength level: ' +inttostr(GetSkillInfo('Strength', True));
      StrLevlOutput:=CreateBitmapFromText(SStr, smallChars,235);
      repeat
        Wait(500);
      until(FindColor(a, b, 16777215, 439, 491, 440, 492));
      Canvas:= GetClientCanvas;
      repeat
        begin
          Wait(1);
          DrawTransparent(77, 374, 200, 410, 16711935, StrLevlOutput);
          Wait(1);
        end;
      until(isfkeydown(9));
      FreeBitmap(StrLevlOutput);
    end.

  12. #12
    Join Date
    Feb 2007
    Posts
    849
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nope, still displays my strength as 0
    ________________________________________
    14:19 < cycrosism> I wonder what she would have done without it
    14:19 < cycrosism> without me*
    Cycrosism is now an it.
    Quote Originally Posted by Dervish View Post
    /Facedesk.

  13. #13
    Join Date
    May 2008
    Posts
    1,345
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Odd, because it displays my strength as 82 :/. Target the screen and use the shortcut to start it, while on the RS screen.

  14. #14
    Join Date
    Feb 2007
    Posts
    849
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ill use shortcut then, didnt think it mattered as i added ActivateClient;.
    The shortcut didnt work but i added a wait after setupSRL and ActivateClient;#

    woohoo lol, finally you got there
    ________________________________________
    14:19 < cycrosism> I wonder what she would have done without it
    14:19 < cycrosism> without me*
    Cycrosism is now an it.
    Quote Originally Posted by Dervish View Post
    /Facedesk.

  15. #15
    Join Date
    May 2008
    Posts
    1,345
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It worked? . I was actually just typing up a suggestion to add a wait... -.-.

  16. #16
    Join Date
    Feb 2007
    Posts
    849
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol
    I think Scar just needed some time to process as getting the level wasnt in the loop.
    Now to -Includify- it for better use.

    TY
    ________________________________________
    14:19 < cycrosism> I wonder what she would have done without it
    14:19 < cycrosism> without me*
    Cycrosism is now an it.
    Quote Originally Posted by Dervish View Post
    /Facedesk.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Tab adding
    By NiCbaZ in forum OSR Help
    Replies: 1
    Last Post: 12-05-2008, 04:34 AM
  2. Things to do before you die
    By Squigglyo in forum Discussions & Debates
    Replies: 7
    Last Post: 05-20-2008, 12:00 PM
  3. Need Help With 2 Things!
    By AbsurdKid in forum OSR Help
    Replies: 11
    Last Post: 07-16-2007, 06:14 PM
  4. Trade Screen and Duel Screen?
    By Hey321 in forum OSR Help
    Replies: 18
    Last Post: 12-14-2006, 11:13 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •