Ok, I get some kind of access violation when I try to run this, line 103 in GameTab.scar
Tried to fix but I cant... I'm not to sure on what went wrong, can anyone help me out?
SCAR Code:
program New;
{.include SRL/SRL.scar}
procedure RandomChatHorse;
var
RandomChatList: array[0..20] of string;
begin
RandomChatList[0] := 'hehe';
RandomChatList[1] := 'lol';
RandomChatList[2] := 'Im so random...';
RandomChatList[3] := 'idk why i think thats funny...';
RandomChatList[4] := 'lol';
RandomChatList[5] := 'This breaks my bordom..';
RandomChatList[6] := 'i love my staillion';
RandomChatList[7] := 'horse - nfs';
RandomChatList[8] := 'this is how i get my kicks';
RandomChatList[9] := '*takes quick break from alc*';
RandomChatList[10] := 'now back to working..sigh';
RandomChatList[11] := 'fun.';
RandomChatList[12] := 'gets better and better every time lol';
RandomChatList[13] := 'w00tness!!!11';
RandomChatList[14] := 'woot1';
RandomChatList[15] := 'flash2:fear my horse';
RandomChatList[16] := 'heh';
RandomChatList[17] := 'kidyup!';
RandomChatList[18] := 'moo';
RandomChatList[19] := 'hehehe...';
RandomChatList[20] := 'i <3 my horse';
TypeSend(RandomChatList[Random(20)] + Chr(13));
end;
procedure HorseMissuse(mins: Integer);
var
horsemissusemark : integer;
begin
if ((TimeFromMark(HorseMissuseMark) / 1000) / 60 >= mins) then
begin
MarkTime(HorseMissuseMark);
Useitem(7);
wait(1000);
RandomChatHorse;
end;
end;
procedure GrapeSodaAntiBan;
begin
HorseMissuse(1);
end;
begin
setupSRL;
GrapeSodaAntiBan;
end.
O yeah, don't ask my I'm making this
Also, I know I should use a DTM =X, but I'm not in the mood for reading tuts; I'll add it later...