Results 1 to 3 of 3

Thread: Unknown identifier player

  1. #1
    Join Date
    Dec 2008
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Unknown identifier player

    [Error] C:\Simba\Scripts\Iron miner.simba(25:22): Unknown identifier 'deathslayer000' at line 24

    Getting this error for this bot: http://villavu.com/forum/showthread.php?t=100245

    This is what the script looks like:

    program SaikekMiner;
    {$DEFINE SMART8}
    {$I SRL-OSR\SRL.simba}

    var
    GFailSafe, SInv, Mined: Integer;
    PBox: TBox;
    STime: LongWord;
    const
    ORECOLOUR = 2306125; //Set this to the vein colour of your choice. Currently set to iron.
    GASCOLOUR = 10072509;
    PSHIFT = 350;
    GTHRESHOLD = 25;
    PLAYER_NAME = 'deathslayer000@gmail.com'; //Username here.
    PLAYER_PASS = 'edited out for obvious reasons'; //Password here.
    PLAYER_NICK = 'rang'; // 3-4 characters of your in-game name. NOT the first character.
    M1D1 = True; //Set to True if you would like to mine one and drop one.
    LOG_INT = 5; //Interval to display a log report in minutes.

    procedure DeclarePlayers;
    begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    Players[0].Name := deathslayer000@gmail.com;
    Players[0].Pass := edited out for obvious reasons;
    Players[0].Nick := rang;
    Players[0].Active := True;
    end;

    procedure Setup;
    begin
    KeyDown(VK_UP);
    wait(randomrange(1500,2500));
    KeyUp(VK_UP);
    SInv := InvCount;
    PBox := IntToBox(200,114,312,225);
    STime := GetSystemTime;
    end;

    function IsMining: Boolean;
    begin
    Result := (AveragePixelShift(PBox, 250, 500) > PSHIFT);
    end;

    procedure DropAllOre;
    var i: Integer;
    begin
    for i:= 2 to 28 do
    if ExistsItem(i) then
    begin
    MouseItem(i, mouse_right);
    WaitOptionEx('rop', 'action', ClickLeft, 150);
    end;
    end;

    function GetState: Integer;
    var x, y: Integer;
    begin
    if(GFailSafe >= GTHRESHOLD) then
    Result := 5
    else if(FindColorTolerance(x, y, GASCOLOUR, MSX1, MSY1, MSX2, MSY2, 3)) then
    Result := 4
    else if(IsMining) then
    Result := 1
    else if((InvCount > 1) and(M1D1)) then
    Result := 2
    else if((InvFull) and (not M1D1)) then
    Result := 2
    else if(not IsMining) then
    Result := 3
    end;

    procedure MineRock;
    var x, y: Integer;
    begin
    if(FindObjCustom(x, y, ['Mine', 'Rocks'], [ORECOLOUR], 5)) then
    begin
    GFailSafe := 0;
    MMouse(x, y, 3, 3);
    wait(randomrange(50, 80));
    if(pos('ake', GetUpText) = 0) then
    ClickMouse2(mouse_left);
    wait(randomrange(300,1500));
    end
    else
    inc(GFailSafe);
    end;

    procedure AntiBan;
    var ran1, ran2: Integer;
    begin
    ran1 := random(1000);
    if(ran1 <= 8) then
    begin
    SetRun(True);
    writeln('Anti-Ban Engaged.');
    ran2 := random(10);
    case(ran2) of
    1: BoredHuman;
    2: RandomRClick;
    3: wait(1500 + randomrange(1000,3000));
    4: BoredHuman;
    5: PickUpMouse;
    6: wait(1500 + randomrange(1000,3000));
    7: RandomRClick;
    8: HoverSkill('Mining', false);
    end;
    wait(randomrange(500,1000));
    end;
    end;
    procedure Log;
    var Avg, RT: Extended;
    begin
    if(Mined <= 0) then
    exit;
    Writeln('------SaikekMiner Log Report-----');
    Writeln('Running for: ' + IntToStr(GetTimeRunning / 60000) + ' minutes.');
    Writeln('Mined: ' + IntToStr(Mined) + ' veins.');
    RT := GetTimeRunning / 60000;
    Avg := Mined / RT;
    Writeln('Average: '+ toStr(Avg) + ' veins / minute.');
    end;

    procedure Logger;
    begin
    if(InvCount > SInv) then
    begin
    Mined := (InvCount - SInv) + Mined;
    SInv := InvCount;
    end;
    if((GetSystemTime - STime) >= (LOG_INT * 60000)) then
    begin
    STime := GetSystemTime;
    Log;
    end
    end;

    begin
    DeclarePlayers;
    SetupSRL;
    SetScreenName(Players[0].Nick);
    ActivateClient;
    if(not LoggedIn) then
    LogInPlayer;
    Setup;
    while(GFailSafe < GTHRESHOLD) do
    begin
    Logger;
    FindNormalRandoms;
    case(GetState) of
    5:
    begin
    break;
    end;
    1:
    begin
    AntiBan;
    wait(randomrange(50,200));
    end;
    2:
    begin
    DropAllOre;
    end;
    3:
    begin
    MineRock;
    end;
    4:
    begin
    writeln('Vein is gasing! Waiting.');
    wait(randomrange(25000, 35000));
    end;
    end;
    end;
    Log;
    WriteLn('FailSafe initilized, stuck in random or got lost.');
    TerminateScript;
    end.
    Last edited by nathangibbs; 04-09-2013 at 08:37 AM.

  2. #2
    Join Date
    Mar 2006
    Location
    Belgium
    Posts
    3,564
    Mentioned
    111 Post(s)
    Quoted
    1475 Post(s)

    Default

    strings '' 'deathslayer000@gmail.com'

    Creds to DannyRS for this wonderful sig!

  3. #3
    Join Date
    Oct 2012
    Posts
    758
    Mentioned
    6 Post(s)
    Quoted
    282 Post(s)

    Default

    what Sjoe means is that all strings is surrounded by apostrophe

    and string is a type
    like there is string, integer and many more ! (but sadly not in SimbaPascal hurr hurr)

Thread Information

Users Browsing this Thread

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

Posting Permissions

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