pretty ok for a beginner but this procedure is very bad!
Procedure RandomTalking;
SCAR Code:
begin repeat
wait(TalkWait+random(60000))
TypeSend('lalala') or
TypeSend('Yes WC lvl!') or
TypeSend('Hey Heyeveryone') or
TypeSend('700 more to go....') or
TypeSend('Bored....') or
TypeSend('Almost there!') or
TypeSend('he he he') or
TypeSend('I whish i was a higher lvl')) Until(false)
first you are missing an end.
are then if you look though it
it would continue typing that
stuff until(false) meaning FOREVER
instead use a case
SCAR Code:
Procedure RandomTalkig;
Begin
Case Random(7) of
0:TypeSend('lalala')
1:TypeSend('Yes WC lvl!')
2:TypeSend('Hey Hey everyone')
3:TypeSend('700 more to go....')
4:TypeSend('Bored....')
5:TypeSend('Almost there!')
6:TypeSend('he he he')
7:TypeSend('I whish i was a higher lvl'):
end;
end;
and yeah. ill look though more of it later.
what are u asking about random chooping? i don't understand
This should also be change
holdmouse and releasemouse are very detactable
and the 2 second wait should be longer/shorter according to the user
SCAR Code:
const
WaitTime=5 //Seconds to wait
Procedure Cut;
begin
repeat
if findcolorspiral(x,y,TreeColor1,3,3,515,336)or
findcolorspiral(x,y,TreeColor2,3,3,515,336)or
findcolorspiral(x,y,TreeColor3,3,3,515,336)then begin
mmouse(x,y)
if istextat2(9,9,'Chop',20) then
Mouse(x,y,0,0,true)
wait((WAITTIME*1000)+Random(500))
until(invcount=28)
end;
EDIT: oh just relized you have cutwait as a const. but you don't use it in the right spot =p
you also dot search for randoms enough at all!
SCAR Code:
repeat
if findcolorspiral(x,y,TreeColor1,3,3,515,336)or
findcolorspiral(x,y,TreeColor2,3,3,515,336)or
findcolorspiral(x,y,TreeColor3,3,3,515,336)then begin
mmouse(x,y)
if istextat2(9,9,'Chop',20) then
Mouse(x,y,0,0,true)
wait((WAITTIME*1000)+Random(500))
until(invcount=28)
that makes it cut 28 logs. without looking for randoms at all!
you may want to add randomfinding in there !
ahh also. these lines are VERY VERY specific and i belive they are un-needed.
they are just too specific and i doubt anyone would ask these questiosn much
SCAR Code:
If (InChat('Yes')) Begin
wait(2000)
TypeSend('Sorry,I dont recall'))
If (InChat('No')) Then Begin
wait(2000)
TypeSend('Well, sorry I cant talk Im busy'))
If (InChat('Want to be friends') or (InChat('Wanna be freinds') or (InChat('Want 2 be friends') or (InChat('Wanna be friends') or (InChat('Wanna b friends') or (InChat('Want 2 b friends') or (InChat('Want to be friends?')or (InChat('Wanna be friends?') or (InChat('Want 2 be friends?') or (InChat('Want 2 b friends?') or (InChat('Wanna b friends?') or (InChat('Want 2 b freinds?') or (InChat('Want 2 b freinds') or (InChat('want to be friends') or (InChat('wanna be freinds') or (InChat('want 2 be friends') or (InChat('wanna be friends') or (InChat('wanna b friends') or (InChat('want 2 b friends') or (InChat('want to be friends?')or (InChat('wanna be friends?') or (InChat('want 2 be friends?') or (InChat('want 2 b friends?') or (InChat('wanna b friends?') or (InChat('want 2 b freinds?') or (InChat('want 2 b freinds')) then Begin
wait(2000)
TypeSend('No,sorry'))
If (InChat('Wanna trade?') or (InChat('Wanna trade') or (InChat('Wanna trade?') or (InChat('Wanna trade?') or (InChat('Want to trade?') or (InChat('Want to trade') or (InChat('Want 2 trade?') or (InChat('Want 2 trade') or (InChat('wanna trade?') or (InChat('wanna trade') or (InChat('wanna trade?') or (InChat('wanna trade?') or (InChat('want to trade?') or (InChat('want to trade') or (InChat('want 2 trade?') or (InChat('want 2 trade')) then Begin
wait(2000)
TypeSend('No thanks'))
Procedure macrono;
If (InChat('are you a macro')or (InChat('are you a macro?') or (InChat('Are you a macro?') or (InChat('Are you a macro') or (InChat('Are you macroing?')or (InChat('Are you macroing') or (InChat('are you macroing?') or (InChat('are you macroing')) then Begin
wait(2000)
TypeSend('No')
i could go on for days =p but hey im glad you are learning to script.
ill come back later after you update a bit more for more feedback.