[Release] RShinyBot

[altsal]

i go try i use mozilla

Starting RShinyBot: 24.10.2013 00:20:24
Made by xRiDDi
Keep up to date at:

This Script requires the Seafight Custom Client by _Creator_
Get the latest version here:

Starting 5 second start delay - Please switch to your Seafight screen.

HP has been Manually Defined at 604,854, Color: 3876096

SeaChart has been Manually Defined at: x1 = 1, y1 = 71, x2 = 1279, y2 = 982

MiniMap has been Manually Defined at: x1 = 1159, y1 = 113, x2 = 1247, y2 = 200

RepButton has been Manually Defined at 815,916


everything ok , search around map , click in shinehunter see shines in minimap but dont click for go to them , can explain whats wrong ? thank you

or if you can help me , my Arky 1.4 is working very nice collect very fast nly dont click repair after i get sunk , if someone can help me to fix for click repair will be great , thanks

[Treu1]

edit you hp balken
find color 7000888

[altsal]

in line 134 HPBar:=7000888; what need to edit here?

[BloodHunterX]

can anybody help me to use this bot i dont know the scar bot system :-(

[sahpediz]

Originally Posted by Corsaronabbo

Yeah Scar say the same

no working.

[Treu1]

Originally Posted by altsal

in line 134 HPBar:=7000888; what need to edit here?

80
81

[altsal]

hpx:=0;
hpy:=0;

what need to change, i change this to amanually but still dont colelct shines , is found all items good but just dont click in shine do you have skype ?

[NOOBJEWEETZELLUF]

When I download scar 3.22 it says it has a virus named trojan. ( Scanned with AVG and Mcafee

[Arda-]

tentacle is meat ?

[Treu1]

video for chrome

[kuzwifra]

Hello,

My Report:

Type | Line | Message

Compiler Error | | 101 | Type mismatch


Can anyone help me?

Tanks Kuzwifra

[roostaam]

Originally Posted by kuzwifra

Hello,

My Report:

Type | Line | Message

Compiler Error | | 101 | Type mismatch


Can anyone help me?

Tanks Kuzwifra

use scar 3.22, with higher versions you get that error

[altsal]

Originally Posted by Treu1

video seting for chrome made by Treu1

video dont exist

Can someone help how to put this bot in work ? he dont collect shines :/ just come around maps

[roostaam]

Thanks xriddi, your bot rocks, I start using it from last version (1.4) so can't compare with old ones, I just can compare it with the one that I used before, there are some suggestions that could make it more effective:
1- it doesn't collect closest shiny to the boat then it waste a little of time to run over them back and forth.
2- random drive is not much effective as it goes back a lot to the places that the bot just collect shinys there.
3- going away from shinys that covered with monsters in my opinion is not a good idea, if it collect closest one and just drive normally it will be ignored and all shinys around it will be collected not just driving away from all of them.

Thanks again for the time you spend and give them to us for free ( screw Big Point ), I use 2 of your bots and they are awesome.

[sahpediz]

hello, sorryy I dont' speak english
please help me

yakınlardaki pırıltıları topluyor ama uzaktakileri tıklamıyor. benim sorunum ne olabilir?
çok uğraştım ama olmadı. fiddler sorun yok. scar divi 3.22 yeni kurdum.
laptop win7. ekran 15.6 inç.
gemi 5 level.

içerik aşağıdaki gibidir.

{.Script Info:
# ScriptName = RShinyBot
# Author = xRiDDi
# Description = Script for the collection of Shinys.
# Version = v1.4
# Date = 22/10/2013
# Comments =
/Script Info}

program RShinyBot;
var x, y, xx, yy, oldmmxx, oldmmyy, Quarter, hpx, hpy, RepPerc, ShinyX, ShinyY, OldShinyCounter, OldShinyX, OldShinyY, WindowHandle, smx, smy, smx1, smy1, smx2, smy2, smx3, smy3, sms1x, sms1y, sms2x, sms2y :integer; //Other
var wx1, wx2, wy1, wy2, wxm, wym :integer; //Window
var scx1, scx2, scy1, scy2, scxm, scym :integer; //SeaChart
var mmx1, mmx2, mmy1, mmy2, mmxx, mmyy, ShinyMMTol, PlayerMMTol, mmfc1, mmfc2 :integer; //MiniMap
var islx1, isly1, islx2, isly2, islxm, islym, IslandRange :integer; //Island
var repx, repy :integer; //RepairCoords
var HoursToRun, CollectedTime :integer; //Time
var StartWait, RandomWait, SysMsgWait, CheckMoveWait :integer; //Waits
var RepCheckCounter, oldmmcounter, CenterCounterX, CenterCounterY, CheckCounter, CrashCounter, CollectedShinyCounter, SunkCounter :integer; //Counters
var Water, Attacked, PlayerMM, ShinyMMCol, ShinyCol, IslandCol, IslandMMCol, Inventory, ActivateItem, KrakenMeat, Repped, Repping, HPBar, HPBar2, Player, GuildShinyCol, MouseMonster, ChatOnColour, ChatOffColour, CloseBoxColour, SystemMessage, SystemMessageW, SystemMessageI, SystemMessageGI, SystemMessageS, SystemMessageSI :integer; //Colours
var ShinyHunterOnBMP, ShinyHunterOffBMP, HpBMP :integer; //BMPs
var AutoDefineSeaChart, AutoDefineMiniMap, AutoDefineRepButton, AutoDefineHP, FoundShinyOnChart, RepOnCorner, IgnoreMMShiny, SaveSunkImages, AvoidIsland, Level5Rep, Sunk, SystemMessageBool, CollectNormalShiny, DEBUGMODE, CollectGuildShiny, CollectKrakenMeat, Moving, NeedRep, FoundShiny, CanClick, BeingHit, ToolbarH :boolean; //Booleans

procedure UserVariables;
begin
SetClientWindowHandle(WindowHandle);

//##################\\
//##### NEEDED #####\\
//##################\\

DEBUGMODE:=true; //set to true if you would like to active Debug Mode - alot of outputs, false if you just want normal information.

AutoDefineSeaChart:=true; //set to true for autofind seachart, false for manual
AutoDefineMiniMap:=true; //set to true for autofind minimap, false for manual
AutoDefineRepButton:=true; //set to true for autofind repbutton, false for manual
AutoDefineHP:=true; //set to true for autofind HP bar, false for manual

CollectNormalShiny:=true; //Set to true if you would like to collect Normal Shinys, false if you do not.
CollectGuildShiny:=true; //Set to true if you would like to collect Guild Shinys, false if you do not.
CollectKrakenMeat:=false; //Set to true if you would like to collect Kraken Meat, false if you do not.

AvoidIsland:=false; //Set to true if you would like to Avoid Guild Islands, false if you do not.

HoursToRun:=10; //The amount of hours for the bot to run

RepOnCorner:=true; //Set to true if you would like to rep on the corner, false if you do not.
Level5Rep:=false; //Set to true if you have the level 5 repair mate, false if you do not.

SaveSunkImages:=true; //Set to true if you would like to save images when sunk - this should show the thing which sank you (Saved into the same location as the Scar Script, false if you do not.

RepPerc:= 2; // 1 = Rep at 25%
// 2 = Rep at 35%
// 3 = Rep at 50%
// 4 = Rep at 75%



//####################\\
//##### OPTIONAL #####\\
//####################\\

//Sea Chart User Define (Not needed if you have set AutoDefineSeaChart to true)
scx1:=298;
scy1:=93;
scx2:=1097;
scy2:=679;

//MiniMap User Define (Not needed if you have set AutoDefineMiniMap to true)
mmx1:=1134;
mmy1:=99;
mmx2:=1223;
mmy2:=188;

//Rep Button User Define (Not needed if you have set AutoDefineRepButton to true)
repx:=694;
repy:=702;

//HP Bar User Define (Not needed if you have set AutoDefineHP to true)
hpx:=1169;
hpy:=347;
end;


//################################################## ######################\\
//##################### #####################\\
//##################### DO NOT CHANGE ANYTHING BELOW #####################\\
//##################### #####################\\
//################################################## ######################\\


procedure Variables;
begin
SetClientWindowHandle(WindowHandle);
DisguiseClient('SF - RShinyBot (made by xRiDDi)');
GetClientDimensions(x,y);
wx1:=8;
wy1:=59;
wx2:=1373;
wy2:=734;
wxm:=wx2/2;
wym:=wy2/2;

CollectedShinyCounter:=0;
SunkCounter:=0;

StartWait:=5000;
RandomWait:=50;
SysMsgWait:=1000;
CheckMoveWait:=1000;

IslandRange:=10;

ShinyMMTol:=30;
PlayerMMTol:=20;

HoursToRun:=HoursToRun*3600000;

ShinyCol:=0;
GuildShinyCol:=16776978;
KrakenMeat:=16776984;
IslandCol:=5592490;
IslandMMCol:=8026812;
Water:=3876096;
Attacked:=8388863;
MouseMonster:=12040119;
PlayerMM:=65280;
Player:=393390;
ShinyMMCol:=65019;
Inventory:=1605887;
ActivateItem:=229631;
Repped:=2644878;
Repping:=819455;
HPBar:=7000888;
HPBar2:=7656248;
ChatOnColour:=10454834;
ChatOffColour:=10456114;
CloseBoxColour:=16580391;
SystemMessage:=328965;
SystemMessageW:=5535596;
SystemMessageI:=5601390;
SystemMessageGI:=5535599;
SystemMessageS:=5535597;
SystemMessageSI:=5667183;

CenterCounterX:=1;
CenterCounterY:=1;

smx1:=wx2;
smy1:=wy2;
smx2:=wx2;
smy2:=wy2;
smx3:=wx2;
smy3:=wy2;
sms1x:=wx2;
sms1y:=wy2;
sms2x:=wx2;
sms2y:=wy2;

hata ayıklama sonuçları aşağıdaki gibidir.
DB (25.10.2013 03:36:55): WindowHandle: 984356
DB (25.10.2013 03:36:55): PROCEDURE: SysMessage - END
DB (25.10.2013 03:36:55): x: 927 y:558 Color: 11711154
DB (25.10.2013 03:36:55): Color Did Not Matched - Can Not Click
DB (25.10.2013 03:36:55): PROCEDURE: SysMessage - START
DB (25.10.2013 03:36:55): WindowHandle: 984356
DB (25.10.2013 03:36:55): PROCEDURE: SysMessage - END
DB (25.10.2013 03:36:55): x: 761 y:391 Color: 8944485
DB (25.10.2013 03:36:55): Color Did Not Matched - Can Not Click
DB (25.10.2013 03:36:55): PROCEDURE: SysMessage - START
DB (25.10.2013 03:36:55): WindowHandle: 984356
DB (25.10.2013 03:36:55): PROCEDURE: SysMessage - END
DB (25.10.2013 03:36:55): x: 797 y:131 Color: 8944485
DB (25.10.2013 03:36:55): Color Did Not Matched - Can Not Click
DB (25.10.2013 03:36:55): PROCEDURE: SysMessage - START
DB (25.10.2013 03:36:55): WindowHandle: 984356
DB (25.10.2013 03:36:55): PROCEDURE: SysMessage - END
DB (25.10.2013 03:36:55): x: 608 y:619 Color: 11711154
DB (25.10.2013 03:36:55): Color Did Not Matched - Can Not Click
DB (25.10.2013 03:36:55): PROCEDURE: SysMessage - START
DB (25.10.2013 03:36:55): WindowHandle: 984356
Successfully executed


lütfen bir yardımcı olunuz. help me