SCAR Code:
{fill in the constants in lines 10 through 14, but don't change NumLines unless you
know what you're doing. This is V1. Pm me any bugs, and I'll try to fix em.}
//BTW, you've gotta b logged in. I didn't put any failsafes in.
program AutoTalker;//By Rotflmfwao
{.Include SRL/SRL.scar}
Var
Text, Style, Color: Array of String;
Const
NumLines=5;
BuyingOrSelling='Selling';
WhatKind='rune';
What='scimy';
Price='30k';
PlayerName='your characters name here';
Function RandomEffect(i:string):string;//Put 'style' for style and 'color' for a color effect.
Var
q:Integer;
Begin
Case i of
'style': Begin
q:=random(4);
Case q of
0: Result:='wave';
1: Result:='wave2';
2: Result:='shake';
3: Result:='scroll';
End;
end;
'color': Begin
q:=random(11);
Case q of
0: Result:='red';
1: Result:='white';
2: Result:='cyan';
3: Result:='purple';
4: Result:='green';
5: Result:='flash1';
6: Result:='flash2';
7: Result:='flash3';
8: Result:='glow1';
9: Result:='glow2';
10: Result:='glow3';
End;
End;
End;
End;
Procedure DefineVars;
Begin
SetArrayLength(Text,NumLines);
SetArrayLength(Style,NumLines);
SetArrayLength(Color,NumLines);
Begin
Text[0]:=BuyingOrSelling +' ' +WhatKind +' ' +What +' ' +Price +' ' +PlayerName;//Any text
Style[0]:=RandomEffect('style');//Shake, Scroll, Wave, wave2, whatever
Color[0]:=RandomEffect('color');//Glow1-3, Flash1-3, cyan, white, red, whatever
Text[1]:=BuyingOrSelling +' ' +WhatKind +' ' +What +' ' +Price +' ' +PlayerName;//Any text
Style[1]:=RandomEffect('style');//Shake, Scroll, Wave, wave2, whatever
Color[1]:=RandomEffect('color');//Glow1-3, Flash1-3, cyan, white, red, whatever
Text[2]:=BuyingOrSelling +' ' +WhatKind +' ' +What +' ' +Price +' ' +PlayerName;//Any text
Style[2]:=RandomEffect('style');//Shake, Scroll, Wave, wave2, whatever
Color[2]:=RandomEffect('color');//Glow1-3, Flash1-3, cyan, white, red, whatever
Text[3]:=BuyingOrSelling +' ' +WhatKind +' ' +What +' ' +Price +' ' +PlayerName;//Any text
Style[3]:=RandomEffect('style');//Shake, Scroll, Wave, wave2, whatever
Color[3]:=RandomEffect('color');//Glow1-3, Flash1-3, cyan, white, red, whatever
Text[4]:=BuyingOrSelling +' ' +WhatKind +' ' +What +' ' +Price +' ' +PlayerName;//Any text
Style[4]:=RandomEffect('style');//Shake, Scroll, Wave, wave2, whatever
Color[4]:=RandomEffect('color');//Glow1-3, Flash1-3, cyan, white, red, whatever
End;
End;
Procedure SayStuff;
Var i:Integer;
Begin
For i:=0 to NumLines-1 do
Begin
TypeSend(Color[i] +':' +Style[i] +':' +Text[i]);
Writeln('You said ' +Color[i] +':' +Style[i] +':' +Text[i]);
End;
End;
Procedure SetupEverything;
Begin
SetupSRL;
DefineVars;
clearDebug;
Writeln('Thanks for using Rotflmfwao''s autotexter');
Wait(1000);
ActivateClient;
Wait(1000);
End;
begin
SetupEverything;
Repeat
SayStuff;
Until(False);
end.