NotePad script

[Incommodious]

This is a script that I made with help from Janilabo to get the Ctrl+A done. The only problem with this is if you decide to type your set of lines more than once, after the 2nd time it wont press Enter again, havnt figured out why yet. Also the amount of times you decide to tell Scar to write the lines only goes up to 3 because I cant think of a way to make it repeat like that the amount of times given in the Const. If you would like to fix these problems that is fine but if not it seems to be working fine Best used in NotePad, Word, NotePad+, ect. and must select program you are using before you start. Enjoy

 

[sCAR]program NotePad;

var

a :Byte;

const

 

{Settings}

Line1='Hello...'; // What you want Line 1 to say?

Line2='How have you been?'; // What you want Line 2 to say?

Line3='Well, I have to go.'; // What you want Line 3 to say?

Line4='Have a nice day '; // What you want line 4 to say?

 

DeleteAll=1; // After typeing all lines Delete all? 1=Yes anything else=no

HowManyTimes=3; // How many times do you want Scar type the Lines? (1-3 for now, infinit soon)

 

{End of settings}

Procedure FirstTalk;

begin

PressKey(VK_RETURN);

TypeText(Line1);

Wait(500)

PressKey(VK_RETURN);

TypeText(Line2);

Wait(500)

PressKey(VK_RETURN);

TypeText(Line3);

Wait(500)

PressKey(VK_RETURN);

TypeText(Line4);

Wait(500)

end;

 

Procedure RestTalk;

begin

PressVKey(VK_RETURN);

TypeText(Line1);

Wait(500)

PressKey(VK_RETURN);

TypeText(Line2);

Wait(500)

PressKey(VK_RETURN);

TypeText(Line3);

Wait(500)

PressKey(VK_RETURN);

TypeText(Line4);

Wait(500)

end;

 

Procedure ResetWords;

begin

GetClient.Activate;

if (DeleteAll=1) then

begin

a := CharToVKey('a');

VKeyDown(VK_CONTROL);

VKeyDown(a);

Wait(40 + Random(30));

VKeyUp(a);

VKeyUp(VK_CONTROL);

PressVKey(VK_DELETE);

FirstTalk;

end;

 

if (HowManyTimes=1) then

begin

FirstTalk;

end;

if (HowManyTimes=2) then

begin

PressVKey(VK_RETURN);

FirstTalk;

RestTalk;

end;

if (HowManyTimes=3) then

begin

PressVKey(VK_Return)

FirstTalk;

FirstTalk;

RestTalk;

end;

end;

 

 

begin

ResetWords;

end.

[/sCAR]

[Incommodious]

I really need to pay attention to where I'm posting my stuff cause i put this in the Script Help section on accident -.-

[AnthonyPhics]

オンライン カジノは、プレイヤーが自宅にいながらにしてポーカー、ルーレット、ブラックジャック、スロットなどのギャンブル ゲームを楽しむ機会を提供する仮想プラットフォームです。 オンラインカジノは、アクセスのしやすさ、ゲームの種類の多さ、そして大金を獲得する機会があるため、年々人気が高まっています。

オンラインカジノの主な利点は、利便性とアクセスしやすさです。 プレイヤーは、通常のカジノの営業時間に制限されず、いつでもゲームを楽しむことができます。 必要なのは、インターネットにアクセスできるデバイスと、カジノのウェブサイトにアクセスできることだけです。 これにより、プレイヤーは従来のカジノによくありがちなストレスや緊張を感じることなく、快適な環境でプレイすることができます。

オンラインカジノのもう1つの利点は、ゲームの選択肢が豊富なことです。 ユーザーは、それぞれ独自のルールと勝利の機会を提供する何百もの異なるゲームから選択できます。 技術革新のおかげで、オンライン ゲームのグラフィックとサウンドは高品質になり、プレイヤーは興奮と情熱の雰囲気に浸ることができます。

さまざまなゲームに加えて、オンライン カジノはプレーヤーにさまざまなボーナスやプロモーションも提供します。 これらは、スロットのフリースピン、プレイのための追加のお金、または貴重な賞品が得られる特別なトーナメントなどです。 このようなボーナスにより、勝利の可能性が高まり、ゲームがさらに楽しくなります。

もちろん、オンラインカジノでのプレイにはリスクがあります。 ギャンブルには依存性がある可能性があるため、自分の感情を監視し、支出をコントロールすることが重要であることを覚えておくことが重要です。 カジノはまた、責任あるゲーミングをサポートし、自己排除や賭け金制限の機会を提供します casinotop5.jp

全体として、オンライン カジノはギャンブル愛好家にとって便利でエキサイティングなエンターテイメントを提供します。 幅広いゲーム、ボーナスの選択肢があり、いつでもプレイできるため、世界中のプレイヤーの間で人気が高まっています。 ただし、責任あるゲームと、ゲームが単なる楽しみと娯楽の源であるように自分の行動を制御する能力について覚えておくことが重要です。