Results 1 to 7 of 7

Thread: Stupid error

  1. #1
    Join Date
    Jun 2007
    Location
    Mianus
    Posts
    863
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Stupid error

    Ok so my bowstringer looks like this right now
    SCAR Code:
    program BowStringer;
    {.include SRL/SRL.scar}



    type
    TBowType = (Short,Long,OakShort,OakLong,WillowShort,WillowLong,MapleShort,MapleLong,YewShort,YewLong);

    const
    MyBow = YewLong;//which bow+type(short or long)you can choose,yewlong,yewshort


    x,y : integer;




    procedure DeclarePlayers;
    begin
      HowManyPlayers:=4;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:=0;

         Players[0].Name :='Username';
         Players[0].Pass :='Password';
         Players[0].Nick :='Nickname';
         Players[0].Active:=True;

         Players[1].Name :='Username';
         Players[1].Pass :='Password';
         Players[1].Nick :='Nickname';
         Players[1].Active:=True;

         Players[2].Name :='Username';
         Players[2].Pass :='Password';
         Players[2].Nick :='Nickname';
         Players[2].Active:=True;

         Players[3].Name :='Username';
         Players[3].Pass :='Password';
         Players[3].Nick :='Nickname';
         Players[3].Active:=True;
    end;

    procedure LoadBitmap;
      begin
    Short := DTMFromString('78DA6314606060E0634001C5FEBC609A11CA6' +
           '7140712ECA86A422D3950D53001093102E6F00009615435060A0A' +
           'A86A405A0418D00023AA1A0920C184AA22C00CCD3D92408219BF5' +
           'D007EE50478');

    Long := DTMFromString('78DA6364656060006124D016CD0BA619A17C4' +
           '67620C18EAA26CE9E03550D3F90E0415563A0A080AA46144888A3' +
           'AAA90F43B34B004808A0AAC9F14053C382E9E6627F34352079365' +
           '43501661C24BB0700B45506B5');

    OakShort:= DTMFromString('78DA6314646060E06540016DB9100146289F5' +
           '11C4830A1AA490FE140550392176340038CA86A9831D518282860' +
           'AA11465533AB4E10550D3F90E027E066414C35E8760100C002059' +
           '8');

    OakLong := DTMFromString('78DA636465606060634001C9011C609A11CA6' +
           '7E40712FCA86ABA0A0451D5880009315435CD59BCA86A4431D5C0' +
           '64E16AC430D5182828A0AA110712B2F8DD030033DE0527');

    WillowShort := DTMFromString('78DA6314606060E0634001D525DA609A11CA6' +
           '71403125CA86AE2A21451D5480009565435060A0AA86AC431D5C0' +
           '64E16AD8808430AA8A965A7D54359C404208554D53952EAA1A264' +
           'C7326761AA3A80100194F06D9');

    WillowLong := DTMFromString('78DA63E461606060634001AB16D8806946289' +
           'F910F487032A001464C353CA82A5A6AF551D580E4B950D504F9CA' +
           'A0AA610712ACA86AF2D25551D588000911543515859AA86A58800' +
           '4337EF7000072580751');

    MapleShort := DTMFromString('78DA6314616060E064400193AA8BC1342394C' +
           'F0892174455D35F5984AA861548081330871B538D818202AA1A31' +
           '20C184AAA6262309558D38A69AE4107F5435A240821B554D51623' +
           '4A65DDCF8CD0100234D0A5A');

    MapleLong := DTMFromString('78DA63E461606060674001DB664D00D38C503' +
           'E232B90604555931CE28FAA460C4848A0AA99D15081AA4614534D' +
           '69720CAA1A3E20C18BAAA6BFB208530D0FAA9A432B17A2AAE1071' +
           '2DCA86A0C141450D40000668D0A76');

    YewShort := DTMFromString('78DA63E4676060106040016DA5BC609A11CA6' +
           '764061222A86A66B50BA2AA110512EC04CC01A9E14155539C8AA6' +
           '4602538D818202AA1A3120C18AAAA63C03CD1C7120C18CAA263D8' +
           'A03550D1790104655D35581EA2F00DBC30859');

    YewLong := DTMFromString('78DA63E4676060E06340015D1582609A11CA6' +
           '7E404126CA86A964F124155C304249851D5D4E7F3A2AA11031292' +
           'A86AA634A1D9250A242450D59467A09903D2C28FAA66E72234F78' +
           '0E4B951D5182828A0A801002F400823');
      end;





    procedure Bank;
    begin
    openbankquiet('veb');
    fixbank;
    if
    end;

    begin
    DeclarePlayers;
    If Not Loggedin Then
    Bank;
    end.
    If u run that ull notice ull get a error
    Line 13: [Error] (12244:2): is ('=') expected in script
    and i want it to work...

  2. #2
    Join Date
    Feb 2006
    Posts
    433
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Where you declare x and y, you need a var keyword.

  3. #3
    Join Date
    Jun 2007
    Location
    Mianus
    Posts
    863
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    now i get Line 47: [Error] (12278:1): Variable Expected in script

  4. #4
    Join Date
    Mar 2007
    Posts
    3,042
    Mentioned
    1 Post(s)
    Quoted
    14 Post(s)

    Default

    You need to declare all of your DTMs as integers too. Place those with the x and y variables.
    :-)

  5. #5
    Join Date
    Nov 2006
    Location
    In an Amish Paradise
    Posts
    729
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This is what Spky said...
    var
    x,y : integer;

    And you don't use x,y yet in the script so it will tell you to use them by saying...Duplicate identifier

    Hope this helps,
    ~Stupedspam

    Edit: You will also need to declare the DTMs as Variables too... Like what Metho D said

  6. #6
    Join Date
    Aug 2007
    Posts
    429
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Yeah it needs some work

    And you never do anything w/ your DTMs, I'm guessing you want to do this?

    SCAR Code:
    procedure LoadBitmap;
    begin
      Case MyBow of
        'Short' : ShortB := DTMFromString('78DA6314606060E0634001C5FEBC609A11CA6' +
           '7140712ECA86A422D3950D53001093102E6F00009615435060A0A' +
           'A86A405A0418D00023AA1A0920C184AA22C00CCD3D92408219BF5' +
           'D007EE50478');

        'Long' : LongB := DTMFromString('78DA6364656060006124D016CD0BA619A17C4' +
           '67620C18EAA26CE9E03550D3F90E0415563A0A080AA46144888A3' +
           'AAA90F43B34B004808A0AAC9F14053C382E9E6627F34352079365' +
           '43501661C24BB0700B45506B5');

        'OakShort' : OakShortB := DTMFromString('78DA6314646060E06540016DB9100146289F5' +
           '11C4830A1AA490FE140550392176340038CA86A9831D518282860' +
           'AA11465533AB4E10550D3F90E027E066414C35E8760100C002059' +
           '8');

        'OakLong' : OakLongB := DTMFromString('78DA636465606060634001C9011C609A11CA6' +
           '7E40712FCA86ABA0A0451D5880009315435CD59BCA86A4431D5C0' +
           '64E16AC430D5182828A0AA110712B2F8DD030033DE0527');

        'WillowShort' : WillowShortB := DTMFromString('78DA6314606060E0634001D525DA609A11CA6' +
           '71403125CA86AE2A21451D5480009565435060A0AA86AC431D5C0' +
           '64E16AD8808430AA8A965A7D54359C404208554D53952EAA1A264' +
           'C7326761AA3A80100194F06D9');

        'WillowLong' : WillowLongB := DTMFromString('78DA63E461606060634001AB16D8806946289' +
           'F910F487032A001464C353CA82A5A6AF551D580E4B950D504F9CA' +
           'A0AA610712ACA86AF2D25551D588000911543515859AA86A58800' +
           '4337EF7000072580751');

        'MapleShort' : MapleShortB := DTMFromString('78DA6314616060E064400193AA8BC1342394C' +
           'F0892174455D35F5984AA861548081330871B538D818202AA1A31' +
           '20C184AAA6262309558D38A69AE4107F5435A240821B554D51623' +
           '4A65DDCF8CD0100234D0A5A');

        'MapleLong' : MapleLongB := DTMFromString('78DA63E461606060674001DB664D00D38C503' +
           'E232B90604555931CE28FAA460C4848A0AA99D15081AA4614534D' +
           '69720CAA1A3E20C18BAAA6BFB208530D0FAA9A432B17A2AAE1071' +
           '2DCA86A0C141450D40000668D0A76');

        'YewShort' : YewShortB := DTMFromString('78DA63E4676060106040016DA5BC609A11CA6' +
           '764061222A86A66B50BA2AA110512EC04CC01A9E14155539C8AA6' +
           '4602538D818202AA1A3120C18AAAA63C03CD1C7120C18CAA263D8' +
           'A03550D1790104655D35581EA2F00DBC30859');

        'YewLong' : YewLongB := DTMFromString('78DA63E4676060E06340015D1582609A11CA6' +
           '7E404126CA86A964F124155C304249851D5D4E7F3A2AA11031292' +
           'A86AA634A1D9250A242450D59467A09903D2C28FAA66E72234F78' +
           '0E4B951D5182828A0A801002F400823');
      end;
    end;

    So whatever they enter into the 'MyBow' constant is the DTM it will load(or use)?
    idk.
    but remember to set up DTMs as variables
    SCAR Code:
    var
      YewLongB, YewShortB, MapleLongB, MapleShortB: Integer;
      WillowLongB, WillowShortB, OakLongB, OakShortB, LongB, ShortB: Integer;

    Hope that helps =]

  7. #7
    Join Date
    Jun 2007
    Location
    Mianus
    Posts
    863
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Derek- View Post
    Yeah it needs some work

    And you never do anything w/ your DTMs, I'm guessing you want to do this?

    SCAR Code:
    procedure LoadBitmap;
    begin
      Case MyBow of
        'Short' : ShortB := DTMFromString('78DA6314606060E0634001C5FEBC609A11CA6' +
           '7140712ECA86A422D3950D53001093102E6F00009615435060A0A' +
           'A86A405A0418D00023AA1A0920C184AA22C00CCD3D92408219BF5' +
           'D007EE50478');

        'Long' : LongB := DTMFromString('78DA6364656060006124D016CD0BA619A17C4' +
           '67620C18EAA26CE9E03550D3F90E0415563A0A080AA46144888A3' +
           'AAA90F43B34B004808A0AAC9F14053C382E9E6627F34352079365' +
           '43501661C24BB0700B45506B5');

        'OakShort' : OakShortB := DTMFromString('78DA6314646060E06540016DB9100146289F5' +
           '11C4830A1AA490FE140550392176340038CA86A9831D518282860' +
           'AA11465533AB4E10550D3F90E027E066414C35E8760100C002059' +
           '8');

        'OakLong' : OakLongB := DTMFromString('78DA636465606060634001C9011C609A11CA6' +
           '7E40712FCA86ABA0A0451D5880009315435CD59BCA86A4431D5C0' +
           '64E16AC430D5182828A0AA110712B2F8DD030033DE0527');

        'WillowShort' : WillowShortB := DTMFromString('78DA6314606060E0634001D525DA609A11CA6' +
           '71403125CA86AE2A21451D5480009565435060A0AA86AC431D5C0' +
           '64E16AD8808430AA8A965A7D54359C404208554D53952EAA1A264' +
           'C7326761AA3A80100194F06D9');

        'WillowLong' : WillowLongB := DTMFromString('78DA63E461606060634001AB16D8806946289' +
           'F910F487032A001464C353CA82A5A6AF551D580E4B950D504F9CA' +
           'A0AA610712ACA86AF2D25551D588000911543515859AA86A58800' +
           '4337EF7000072580751');

        'MapleShort' : MapleShortB := DTMFromString('78DA6314616060E064400193AA8BC1342394C' +
           'F0892174455D35F5984AA861548081330871B538D818202AA1A31' +
           '20C184AAA6262309558D38A69AE4107F5435A240821B554D51623' +
           '4A65DDCF8CD0100234D0A5A');

        'MapleLong' : MapleLongB := DTMFromString('78DA63E461606060674001DB664D00D38C503' +
           'E232B90604555931CE28FAA460C4848A0AA99D15081AA4614534D' +
           '69720CAA1A3E20C18BAAA6BFB208530D0FAA9A432B17A2AAE1071' +
           '2DCA86A0C141450D40000668D0A76');

        'YewShort' : YewShortB := DTMFromString('78DA63E4676060106040016DA5BC609A11CA6' +
           '764061222A86A66B50BA2AA110512EC04CC01A9E14155539C8AA6' +
           '4602538D818202AA1A3120C18AAAA63C03CD1C7120C18CAA263D8' +
           'A03550D1790104655D35581EA2F00DBC30859');

        'YewLong' : YewLongB := DTMFromString('78DA63E4676060E06340015D1582609A11CA6' +
           '7E404126CA86A964F124155C304249851D5D4E7F3A2AA11031292' +
           'A86AA634A1D9250A242450D59467A09903D2C28FAA66E72234F78' +
           '0E4B951D5182828A0A801002F400823');
      end;
    end;

    So whatever they enter into the 'MyBow' constant is the DTM it will load(or use)?
    idk.
    but remember to set up DTMs as variables
    SCAR Code:
    var
      YewLongB, YewShortB, MapleLongB, MapleShortB: Integer;
      WillowLongB, WillowShortB, OakLongB, OakShortB, LongB, ShortB: Integer;

    Hope that helps =]
    Yes!!! thx Derek!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. STUPID error...
    By Drakan in forum OSR Help
    Replies: 11
    Last Post: 05-20-2008, 07:32 PM
  2. a stupid form error -.-
    By RudeBoiAlex in forum OSR Help
    Replies: 5
    Last Post: 10-26-2007, 12:27 AM

Posting Permissions

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