Daniel
2007-11-23 05:33:02
Well, i decided to make my very own Prayer Script. It is a bone picker and buryer, it will be an excellent script. I am still in progress and only started at least 30 minute's ago. So, what do you think so far:
This will pick-up bone's then bury them. It can only, so far, bury big bones, monkey bones, burnt bones.
Just give me some idea's while the script is in progress of being made. Suggestion's would be cool as i might add them as i want this to be made by me (95%) and the community (5%),
Hope you'll like it! I know i will!
P.S: If you want to help. Please, only once, click on the picture of AW.Survey's. Thanks!
program BBAP;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\Prayer.scar}
{.include SRL\SRL\skill\Fighting.scar}
{.include SRL\SRL\misc\Wilderness.scar}
{.include SRL\SRL\misc\DungeonWalk.scar}
{.include SRL\SRL\misc\Trade.scar}
{.include SRL\SRL\misc\ItemList.scar}
procedure SetupBBAP;
begin
AutoColour := True; //Turn False if UsingScarS is set to True.
SwithWorld := True; //Switch World's if it cannot find bones for more than 3 mins?
ChatToFriend := False; //Chat To Your Friend's That Are Online (ALPHA VERSION).
AutoRespond := True; //Auto Respond to the people around you?
UsingScarS := False; //Are you using SCAR-SCAPE?
SetLampTo := 'prayer'; //Which skill to train if it find's a lamp.
SetKBookTo := 'prayer'; //Which skill to train if it finish's the School Random and get's the book.
UseTradeSys := True; //Use the trading system? Accept trade's if somebody is offering free bones?
InWildyTrue := False; //Are you burying bones in the wilderness?
WhereRUBury := 'Chaos Temple'; //If the above is set to True, which area are you burying bones in. Please use the name's on the World Map and using Capital's when needed.
InDungeonTr := False; //Are you burying bone's in a dungeon?
SpeakToRand := True; //Speak after random's and before randoms.
WhichBoneBu := 'Big Bones'; //Which type of bone's are you mainly burying?
WhichBneBu2 := 'Bones'; //Which type of bone's to bury if the above is not found?
EatFoodLowHP := True; //Eat food if you are low on HP (If just been in fight etc.)?
EatAtHPLevel := 10; //If above is set to True, choose what HP level you'll eat food at?
LogOutAtHpLv := 5; //If your HP is or lower than the value specified, it will log out.
FightRandoms := False; //Do you want to find random's that you can attack (i.e Rock Golem).
RunDirFight := 'south'; //If it find's a swarm or a random fight, which direction do you want it to run? It will return to that spot 3 second's later.
FightPlayers := False; //If it find's a player that you can fight, do you want to fight it?
UsePrayerInF := True; //If FightPlayersF or FightRandoms is set to True, do you want it to use prayer to increase level's or use Block Missiles etc.?
end;
procedure DeclarePlayers;
begin
HowManyPlayers := 10; //Keep this one correct! May cause error's if you don't!
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := StartPlayer;
Players[0].Name :='Username'; //Your Username?
Players[0].Pass :='Password'; //Your Password?
Players[0].Nick :='ern'; //3-4 letter's from the middle of your name.
Players[0].Active := True; //Will you be using this player?
Players[0].Integers[0] := 10; //Number of bone's to bury.
Players[1].Name :='Username'; //Your Username?
Players[1].Pass :='Password'; //Your Password?
Players[1].Nick :='ern'; //3-4 letter's from the middle of your name.
Players[1].Active := True; //Will you be using this player?
Players[1].Integers[0] := 10; //Number of bone's to bury.
Players[2].Name :='Username'; //Your Username?
Players[2].Pass :='Password'; //Your Password?
Players[2].Nick :='ern'; //3-4 letter's from the middle of your name.
Players[2].Active := True; //Will you be using this player?
Players[2].Integers[0] := 10; //Number of bone's to bury.
Players[3].Name :='Username'; //Your Username?
Players[3].Pass :='Password'; //Your Password?
Players[3].Nick :='ern'; //3-4 letter's from the middle of your name.
Players[3].Active := True; //Will you be using this player?
Players[3].Integers[0] := 10; //Number of bone's to bury.
Players[4].Name :='Username'; //Your Username?
Players[4].Pass :='Password'; //Your Password?
Players[4].Nick :='ern'; //3-4 letter's from the middle of your name.
Players[4].Active := True; //Will you be using this player?
Players[4].Integers[0] := 10; //Number of bone's to bury.
Players[5].Name :='Username'; //Your Username?
Players[5].Pass :='Password'; //Your Password?
Players[5].Nick :='ern'; //3-4 letter's from the middle of your name.
Players[5].Active := True; //Will you be using this player?
Players[5].Integers[0] := 10; //Number of bone's to bury.
Players[6].Name :='Username'; //Your Username?
Players[6].Pass :='Password'; //Your Password?
Players[6].Nick :='ern'; //3-4 letter's from the middle of your name.
Players[6].Active := True; //Will you be using this player?
Players[6].Integers[0] := 10; //Number of bone's to bury.
Players[7].Name :='Username'; //Your Username?
Players[7].Pass :='Password'; //Your Password?
Players[7].Nick :='ern'; //3-4 letter's from the middle of your name.
Players[7].Active := True; //Will you be using this player?
Players[7].Integers[0] := 10; //Number of bone's to bury.
Players[8].Name :='Username'; //Your Username?
Players[8].Pass :='Password'; //Your Password?
Players[8].Nick :='ern'; //3-4 letter's from the middle of your name.
Players[8].Active := True; //Will you be using this player?
Players[8].Integers[0] := 10; //Number of bone's to bury.
Players[9].Name :='Username'; //Your Username?
Players[9].Pass :='Password'; //Your Password?
Players[9].Nick :='ern'; //3-4 letter's from the middle of your name.
Players[9].Active := True; //Will you be using this player?
Players[9].Integers[0] := 10; //Number of bone's to bury.
end;This will pick-up bone's then bury them. It can only, so far, bury big bones, monkey bones, burnt bones.
Just give me some idea's while the script is in progress of being made. Suggestion's would be cool as i might add them as i want this to be made by me (95%) and the community (5%),
Hope you'll like it! I know i will!
P.S: If you want to help. Please, only once, click on the picture of AW.Survey's. Thanks!