SRL Archive - SRL Archives

I don't know what you think of this but anyways, I got bored so I did it…

Here is a better ghost speak which randomly types it with actions too (colours for the words i.e. white:scroll:)

[PHP]var
colourEffects: array[1..11] of String;
actionEffects: array[1..5] of String;
procedure loadEffects;
begin
colourEffects[1]:= 'red:'
colourEffects[2]:= 'white:'
colourEffects[3]:= 'green:'
colourEffects[4]:= 'purple:'
colourEffects[5]:= 'cyan:'
colourEffects[6]:= 'flash1:'
colourEffects[7]:= 'flash2:'
colourEffects[8]:= 'flash3:'
colourEffects[9]:= 'glow1:'
colourEffects[10]:= 'glow2:'
colourEffects[11]:= 'glow3:'

actionEffects[1]:= 'scroll:'
actionEffects[2]:= 'shake:'
actionEffects[3]:= 'slide:'
actionEffects[4]:= 'wave:'
actionEffects[5]:= 'wave2:'
end;

procedure ghostSpeak(action:String);
var
rn: array[1..5] of integer;
begin
rn[1]:= random(25) + 1;

if(rn[1] = 1)then
begin

rn[2]:= random(30) + 1;
rn[3]:= random(100) + 1;
rn[4]:= random(11) + 1;
rn[5]:= random(5) + 1;

loadEffects;
loadGhostSpeakWords(action);

if((rn[3] > 0) and (rn[3] < 10))then
begin
typeSend(colourEffects[rn[4]] + ' ' + say[rn[2]]);
wait(100+random(100));
end

else if((rn[3] > 10) and (rn[3] < 20))then
begin
typeSend(actionEffects[rn[5]] + ' ' + say[rn[2]]);
wait(100+random(100));
end

else if((rn[3] > 20) and (rn[3] < 25))then
begin
typeSend(colourEffects[rn[4]] + actionEffects[rn[5]] + ' ' + say[rn[2]]);
wait(100+random(100));
end

else
begin
typeSend(say[rn[2]]);
wait(100+random(100));
end;

end;

end;[/PHP]

now lets ease up :P looks pretty good i should have made ghost do that a long long time ago XD but no matter hopefully there will be no need for these anymore (soon enough well… lets hope)

I was also thinking about making it be able to interact with other players and ask them questions and stuff but I will do that later…

Thanks for saying it good =)

There is nothing wrong with the old one, this just makes it a bit more random…

lol dont do that because once u ask questions they think your real and when u randomly ask stupid questions then your moving into being an auto talker not really a random word sayer haha (im working on an auto talker with AI)

what he sais :)

You can respond, but you dont ask questions….

Look at my PotatoPicker. That script responds :)

I just meant quetions like "lvls?" and that sort of thing. Not like really large questions which will make people want to talk to you.

yeah fawki.. your potato picker responds with the entire history of a potato.. stupid potatos ;)

No it doesnt, Thats potatoorate (Sp?)
He has potato respond :p