- mount stadium turbulent wench amaze beleaguer
- assert agriculturist understate superfluity slab
- scoot ransom promise platitudinous promise rot
- seduction swimmingly yugoslav cheap director
- extinguisher furl herself impair inhale legality
- oppe properly sixtieth trousers annual capsule
- exchequer inclusive nunery sparrow aden coach
- enslave fuzzy indelicacy oilcloth prosecelyte
- sentinel underwritten crooked mansion transit gap
- stationer compensate ill reverie synonymous
- buckskin hump programming cinderella pellucid
- cathedral ridiculous party thresher foppish fiord
- everybody cep void naughty excessive berry slum
- never endue around microscope cheering shift
- medium diatribe rebellious doughnut phonetics tiff
- assemble broach enervate noun stile discussion
- warble superstructure solicitation sceptical
- preoccupy lullaby nod demure cepe bill apathetic
- bill cepe constituent demure demure dullard
- exemplary evoke essence daylight complex camphor
- barley agronomic trounce superintend smoulder
- sufferance subjection site stride sideways stock
- thill stationer squad spider scrub sort scare
- readily popularize overcharge miscarriage
- metaphysics miscarriage overcharge monopolize
- pageantry prapaid preposses parishioner lisp
- internationalism invisible immoral icy humbug
- instigator honourable instigator humbug gird
- fervency encomium fervency gave elude disagreeable
- crop cloy braid civic arrogant abdomen utensil
- venom trace virago addition australia advocate
- calorie bachelor compact calorie concert compact
- burglar australia broken collegiate curd dishonour
- crop craft cosignatory bode abdomen thriller
- stratum subdivision sisterly quail ossify oncoming
- mediaeval kit midway kit jug jaguar gulf
- inadequate jug inadequate jaguar impassable
- greengrocer idealist goody fireball fertile gimlet
- fireball flip greengrocer flip eruption
- distribution cutthroat commemorate crusade
- commemorate cafe compressed barb weaver syllable
- spine tartar stability stench stability shark
- programmer pent nihilism malawi nuance perspire
- masterly jiff impotent hallway freckle extinction
- fumy familiarity diet despoil chubby bourgeois
- clerical assort accountant vex translator suddenly
- snow supertax sop swept twit alder when alder
- calibre baron alder warning twit uncommon
- telegraphist sex retaliate prostitution pictorial
- ocean message ineffable gait gee fidelity gee gird
- gee feather employer dishwater commiserate burly
- aggravate weariness allegory weariness tabular
- spouse taxicab white unary tabular turgid swarm
- spectacle selection remembrance prolixity petrel
- objurgation marxian malady lumber impediment
- haberdasher forgery exotic duly deputy conveyer
- construct dedication doctrinal congestion besiege
- apec wrap thole streamlet subjection skunk rubbish
- pool pan mouthful light internee hydrangea flown
- erasure downpour decorate divide downpour erasure
- flown erasure divide decorate delinquency chatty
- blank centenarian betroth xylograph upwards vat
- accountant arisen blank chatty constrict
- delinquency conveyer cosily conveyer chatty
- constrict blank betroth xylograph upwards ably vat
- vigilant trajectory vat ably blank annihilation
- bedroom ambler bankruptsy bushy cog bushy
- bankruptsy ambler woe unpromising xylograph
- upwards tommy stupor skimp signature steersman
- unavares tale tungsten sway tremble toy sunstroke
- scoot prime perishable meal jury indolent komsomol
- infrequent hooligan insemination hunchbacked
- interbreed gratify force forum frige failing
- furthest feathery encumbrance embankment
- encumbrance enticement disqualification cutlery
- concomitant catering binary certitude conjugal
- concomitant captain compatib calculate colombia
- calculate battery anchor withdrawal unpleasant
- thunderstorm strap slag sandal scarce smartness
- slag thunderstorm strap simmer shore robin radiant
- politics pleasant pincers pugnacious pincers
- opening laurel insipid husky got ether deliver cop
- bowler admiral visionary truncheon tactless spit
- sewerage revoluntionary quality ploughman
- pulverize outstretched ploughman pulverize pistil
- orchard phlegmatic progression permeate odium
- orchard moderate likely intelligible lees
- mincemeat orchard pistil outstretched ploughman
- pistil orchard phlegmatic orchard lees insatantly
- hunt folk gosh horny hunt greenish hunt greenish
- guilty frantic fabricate eguine diamond cowherd
- clinical bulky bamboo caddy cohesion bulky bride
- cigarette bride afghanistan administer ask bloated
- arbor verdant treatise township supervise solstice
- remake proposition option mincemeat lassitude
- memory mincemeat insignificance hourly ingrained
- hoary her gentlefolk environment fiddle fix dot
- deduct contravene cipher correlate close
- azerbaijanian ago under theorem stilt sick stall
- shawl splinter stall tact twofold under unique
- woman alphabet anatomic woman barkeeper
- calumniator barkeeper woman untold vain tramp
- surreptitious sound reprimand pshychology pinpoint
- outweigh pacify nationality maiden jaunty hearsay
- inaudible jaunty iris harass furrowed ferocity
- financier ghoul gnome evacuation drawl deprave
- deterioration cogged bare woodentter unnerve
- wilderness airman australia baby alternative
- wilderness thoroughness strange slick redouble
- producer omnipresent peroxide omnipresent
- obscurity pendant paticularize noun obscurity
- melodious kolkhoz injurious humpback grill
- identity gully fretwork exuberant expire forebear
- grill gully handicraft havana fungous female
- distinguished deathly disparity dad conguer
- charger born assessor aeroplane warehouse twit
- statue simply ruck salesman rectification
- pretender merit insensitive hysteria guile
- immanent halter function farther enema decidedly
- consistency chieftain boozy bloodshot bisect
- aqualung berth apathetical abstain violin acorn
- aqualung bisect berth apathetical zinc uzbek
- unsupported suffice sot supertax topic spice shark
- revoke respect publicity plymouth pushing plymouth
- navigate mandated jugglery lyrical loguacious limp
- legislation insular imitate handicap imitate guile
- fad fearful enamel disorganize decathlon
- contradiction clamber bulky bacteriology
- autobiographic alliance woodentter unruly
- sufferance sofa sluice scram relieve pious
- overshoe pandemonium manganese infinite jungle
- indignity incognito hesitantly genesis financial
- esquire duresse cretinous complement bite bequeath
- apex anchovy altar wired uphill superintendent
- sound servitude retouch quirk portfolio pawn
- merciles master laos iceberg insulating laos
- master merciles leeds minor omnipotent momentum
- moustache overjoyed pike proposition regards
- scarcity sky silk ruff recline profane pike oslo
- loft irredeemable heirloom flagship erroneous
- despair criterion comprise centrifugal bootlace
- agronomics astronomer artillery acute advisable
- whiriwind unquiet tilt subsequent thiller strident
- singularity shoulder rearm perspicuous moneylender
- perspicuous oscillation loop isle indent
- florescence fishman everything dunkirk drama enter
- denial crab capsule bequeath acquaint wash
- unequalled tiptoe spaceship shapeless rid
- predispose price phonetics overbear naturalize
- kinship inquisitor illimitable intelligent harass
- gunner greyhound frequent fur illimitable gunner
- fur feeler ephemeral etherial ephemeral downpour
- enlarge diverse demure cradle compassion
- crossbreed desire dictate duck desire compassion
- celery bootlace avoid ammoniacal answerable ban
- ammoniacal ban beaker buffoon breed avoid bootlace
- blind asia blind carnal compassion concurrence
- compassion college clot circle considering
- controversy clot bunk anything accuracy arable
- anything vitriol tenure stoolpigeon tar tungsten
- slacken scoop smoker reshuffle scoop stoolpigeon
- smoker secretariate solvent series reverse quarry
- precise perishable offend monopolize mufti
- lubricate jerk incursion irk hexagon gigantic
- exertion fledgeling gigantic hearing gigantic
- following exertion editor duration cultivator
- conceivable cremation commercial boost awfully
- analyse apathetical arc adore aslope aggregate
- woke valise transfuse unwelcome whistle aggregate
- woke yap amuse yap trivet stipendiary scocth slush
- seasoned scocth removable scocth slush stipendiary
- stank skinner stipendiary slush soggy southwest
- spiritlamp ruffle redouble professorship override
- mysterious knee iniquitous hansom headstrong
- gastric exalt exopo else disobey debauch cool
- coerce costume defenceless distinction else
- defenceless coerce captivity assailable agronomics
- aeroplane wheerze unseemly wind wheerze tongue
- sprite sped shortbread similitude relax saying
- similitude saltaway rude saltaway prosper plaster
- paramour messmate inversion highball inapt gown
- homily highball foresaw faint enclosure extendible
- denunciator concoct cubic conical ceremonial
- brawny banish angola accentuate voice abbreviation
- ulster voice thistle spangle submerge spangle
- suggestion shipmate rove seventeen rebuke pinpoint
- oversea nicety matrimony leastways merchant
- liberate indecent liberate notch liberate
- invidious international instil imbibe handy gear
- flank embankment encroachment divinity crass
- conceit crass crow conceit crass depute downcast
- detrain downcast faggot encroachment divinity
- depute crow detrain depute crass delusive crass
- crow conceit century communicate crass conceit
- crow conceit barefooted anonymous acetous wakeful
- visibility uncound timid uncound typhoid terrace
- trowel striped snip reality prince pipeline
- project plenty protection recur project pipeline
- pant numb mislay lisbon numb midway medicament
- lest midway lisbon italian indefatigable inception
- hobby france fruitless gull gallant handkerchief
- gull fruitless finis fled focus extradition family
- enjoin drift determinant conguest crucible
- determinant depravity crucible currency crucible
- conguest chambermaid brink chambermaid chicory
- conguest currency crucible chicory chambermaid
- compassion cautious carburettor clammy buoyancy
- chilly bristol appease bristol bower annotate
- abreast vision underhand ugly successor souvenir
- severance rural souvenir severance rectification
- ravish racial priestes ravish racial predominate
- purvew performance possessive peaked moonlit king
- joke inmate king majestic opera moonlit miscarry
- lotion inmate insulator impair gouge forgetful
- eyesight drank differential contemporary campus
- blister aviation annular absorbent yet versatility
- womanly utilize unremitting torpid tag temperature
- stream snatch serried rising recuperate point
- particularity military ironic internationalism
- impromptu imagination heighten gin hardihood
- garbage fizz experimental endow experimental fizz
- foam gin forlorn factious experimental ewer editor
- equation famine equation editor ewer editor
- deferential daw correlate coheir capacity
- birmingham alongside afresh weakly voice trough
- velvety unasked voice unfounded weakly voice
- velvety trough thesis submit sonority saboteur
- render pule preconcerted princess physician
- nominal miserable literal legacy indivertible
- habitual furtively green frantic glower fatty
- ether exhilarate elective dispel deduct dispel
- dirigible deduct depart conformable cult devoted
- drove devoted dodder encompass drove data context
- cult conformable compatible coexist compatible
- crankshaft compatible coexist canter cistern
- bunker biplane aspirant afterwards apprehend
- adamant abolish ungainly transistor syrup
- steelyard spook sonority seriousness risk refuse
- reproduce press pestle palatial oblivious
- patronage prolong recourse rake puerily recourse
- pony puerily prolong patronage pony orchestra
- oblivious miserable lithesome kilogram
- interjection lattice irresistible indeed gutter
- husk holster gutter husk haystack impassioned husk
- gutter holster indeed husk gently gutter husk
- gently fork fahrenheit dustbin dilute douche
- engrain fahrenheit fork gorge impassioned haystack
- fork fetching erect fahrenheit engrain douche
- dilute cynic conspire circus blackness axe
- appendix afternoon wiscet usher unit tread soppy
- severity reliable rooster pubescence perpetrator
- oscillate melancholy leftist kurdish instance
- impartial hire incommensurable immensely
- gormandize grueling flippancy exoc fadaway enjoin
- eligible downy disablet dart crutch courtier
- deadbeat commotion chieftain confiscation
- commotion cco browse appliance aspire amorous
- acuity apparition bashful agency virulence topic
- tribulation utilitarian wayside unknown taxicab
- succulance spectacular schoolmaster reservation
- razor provide policeman ought mutter liberate
- messmate lost mockery observer padlock mockery
- mural mentality lest inhibition impregnated herd
- goddaughter formality gee florist fanatical
- education evacuation entrancing druggist explain
- fillet evening effective dizzy deprave cynic
- consumptive cringe deprave consumptive clergyman
- calm cathedral brotherinlow cheering callous clef
- callous billow awning assist algebraic aptitude
- and ado tying tolerable swab starch soft streak
- startup spice shrill soft streak spice suction
- spice soft shrill retch sane remit recompence
- radiogram propeller recompence puppy pout pacc
- obstinate mystify marrow lukewarm laundress
- intonation insemination jab lift kidnap lukewarm
- kidnap ineradicable incautious gymnasium gallery
- flange exemplify enrapture dressing decry crop
- confession commemorative chintz bullet beirut
- bullet armourer abduct when addicted ambiguous
- armourer affliction without affliction volintary
- undergone valve tingle tantrum translator tantrum
- spinach social stager rondhead reparation pustile
- procrastinate pittance precinct pappy operation
- movies meritorious moment liver intercourse
- ineffable hump glower finite engrave eddy espy
- embryonic doeskin deserve doeskin dishwater
- deserve cubical connotation county compendious
- contingency cluster condemnatory chiefly amputate
- adulterate win vituperative travel tax
- surroundings striven tax sundries tax terminate
- subscribe sylvan suggestion still subscribe
- spearmint sleazy stark spearmint smock selection
- spoil selection smock spoil route requirement
- propencity preclude persuasion parody perfect
- ostensible nappy objectionable parody
- objectionable neorosis lukewarm mellow kindred
- indict implement hale grandeur garrulity hale
- inability highness harangue greediness genesis
- garrulity hale foundry flora exponent etching
- educational dislodge deterrent curiosity
- constellation communist conscript cue correlative
- commanding buxom celery brainless assimilate
- alpine zymotic upwards undecided treatment techy
- tinkle tricycle undecided visible techy
- supplication stair scrath retrace regular pugilism
- rajah refuge restriction rajah regular restriction
- rajah posse perception osier number match
- lookafter league jury league insatiable indigent
- hemorrhage ganger found felicitous essay
- encirclement explicit felicitous float foyer goody
- float essay exposition float fern foyer goody
- foyer gardening florid fervent ethiopia effigy
- dictate drawback endurance fervent expunge educe
- disparity diagnostic delightful contributor coffee
- concord chilly boot baghdad apathetical aden zap
- whitewash usurper volatile troublesome undertook
- tetchy swoon success snort serial rubble regale
- procession plantain perplexity occur morsel mica
- management lathe juicy investigate jurist loan
- manifesto laundry jurist insensate humpbacked
- grapple hamster humpbacked impetuous hamster
- frizzle fallow epeco earshot devastate donkey
- earshot doggie define devastate disengage
- disingenuous dairy confident cipher calculate
- blackout bashful archaeology amnesty afire worn
- writhe agile armlet acqiescent whet tumultuous
- tangle standstill superstitious twelfth thrash
- superstitious tangle thiller standstill sliver
- scandal rub schoolboy sensuality scandal rondhead
- respecting precocious pectoral pharmacy plentiful
- patronize overnight partisan perhaps pink position
- perhaps outshine paramount monstrous lithuanian
- laze ireland inapplicable infinity horizontal
- gummy gluttonous fervour eyeball fluke exclaim
- entomb domino echo deaf diggins cubical computer
- cloy constancy cubical decomposition couresy
- coincide cavern breach blight aspirant allure
- abjure womenfolk veto tropical tough tandem
- stronghold spaceship slaw shudder rural rhythm
- rural reluctantly rasher proletariat pillowcase
- poet petroleum peg poet peg overcome nobility
- overcome patrician opa mute meal mining lost larva
- magyar molasses meticulous moulder maritime leg
- interrogate incumbent inform institution inaudible
- home helium grace guesswork gaol glasier fortnight
- fly gaol grace helium hulking incumbent inform
- imagine inaudible guesswork grace helium frigidity
- foretold extortioner flivver fuzzy foozle
- exploratory engulf erode effervescent dues
- discomfit dissociable emergence enticing
- extortioner emergence downpour effervescent dues
- elininate dome discomfit devotion crutch dapple
- cornet cupidity cornet cornet constitution
- covetous constitution cock challenge commandeer
- cicatrize buckskin barrier arm admission witticism
- admission witticism well accent antitank avoid
- antitank arm admission well unjust venture uphill
- truly technics synoptical stream snatch shy
- secondary roguery reappear roguery retort reappear
- prosecutor purgative repose reveal saleswoman
- schemer repose racy rebound prostration pluck
- persecutor premise originate muddle midday
- mobilization material levy last jesuitical
- interchangeable impose historical graceless girl
- graceless fortnight feudal drawing disintegration
- decorative cracked cyclone cruelty confederacy
- clamber cherish centennial compendious
- collaboration contented centennial carnal
- appertain arrow affirmative writer variance
- unacceptable trumpery this squirm siskin shown
- sooth shaky slatternly still solicitation service
- skid secretion prognostic protection plate preview
- predicament poca paticularize oppressor outsize
- oppressor paradox nugget mischief nineteenth month
- mischief lofty knobby irony interwoven indisposed
- hysteria gentlefolk globe gambia foliage forgather
- fruitless extol eighteenth eclipsetic dissatisfy
- course condiment clamor callosity captor clamor
- clump catering clamor completely broom bravery
- bookeas blink backwardness anything addle veil
- typesetter threshold treaty truncate unlawful
- unsupported walnut yet acquittal allure abate
- unrivalled trophy taper sugar stamina septic
- repulation remote prince plaid pilferage present
- particularly pappy phew pappy operate particularly
- misconduct milestone necklace oddity mutter lining
- maritime impasse hire heroic hedgehog hedgehog
- gratitude gouge harass harass harass
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
bool form_inited = false;
int buflen = 1;
#define WORD_COUNT 17048
#define VOC_PATH "voc.txt"
#define CHAT_PATH "c:\\chat.log"
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Edit1->SetSelTextBuf("");
Edit1->Refresh();
ListBox1->Clear();
using namespace std;
ifstream f(VOC_PATH);
if (!f)
throw -1;
char buf[80];
TObject *A = new mylink();
Button1->Enabled = false;
while (!f.eof())
{
f.getline(buf, sizeof buf);
ListBox1->AddItem(AnsiString(buf), A);
}
ListBox1->Refresh();
form_inited = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Add_to_chat(const char *prefix, const char *word)
{
Memo2->Clear();
//char *asctime(const struct tm *tblock);
//struct tm *localtime(const time_t *timer);
//time_t _RTLENTRY _EXPFUNC time(time_t *__timer);
time_t mytimer;
char chatline[1024];
time(&mytimer);
strcpy(chatline, asctime(localtime(&mytimer)));
char c = chatline[strlen(chatline)-1];
if (c == '\r' || c == '\n')
chatline[strlen(chatline)-1] = '\0';
c = chatline[strlen(chatline)-1];
if (c == '\r' || c == '\n')
chatline[strlen(chatline)-1] = '\0';
strcat(chatline, " (");
strcat(chatline, prefix);
strcat(chatline, ")> ");
strcat(chatline, word);
{
const char* mylog = CHAT_PATH;
char *buf = new char[1048576];
strcpy(buf, "");
char temp[1024];
std::ifstream f(mylog);
if (!f)
goto BYPASS;
while (!f.eof())
{
f.getline(temp, sizeof temp);
strcat(buf, temp);
strcat(buf, "\r\n");
}
BYPASS:
strcat(buf, chatline);
strcat(buf, "\r\n");
f.close();
std::ofstream ff(mylog, std::ios::app);
ff.write(chatline, strlen(chatline));
ff.write("\n", 1);
ff.close();
Memo2->SetTextBuf(buf);
buflen = strlen(buf);
Memo2->Refresh();
Memo2->SetFocus();
Memo2->SelStart = buflen-1;
Memo2->SelLength = buflen-1;
delete[] buf;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Panel1Click(TObject *Sender)
{
if (!form_inited)
return;
int x = (Mouse->CursorPos).x;
int y = (Mouse->CursorPos).y;
unsigned t = (unsigned)clock();
unsigned entropy = (unsigned) (((double)x/y)*1000000);
int pos = (int)((entropy ^ t) % WORD_COUNT);
Memo1->Clear();
Memo1->SetTextBuf(ListBox1->Items->Strings[pos].c_str());
Memo1->Refresh();
Add_to_chat("hiroshima", ListBox1->Items->Strings[pos].c_str());
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if (!form_inited)
return;
int C = ListBox1->Count;
for (int i=0; i < C; i++)
{
if (ListBox1->Selected[i])
{
Add_to_chat("gradusnik", ListBox1->Items->Strings[i].c_str());
break;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
if (!form_inited)
return;
Edit1->SelectAll();
char buf[4096];
Edit1->GetSelTextBuf(buf, sizeof buf);
Add_to_chat("gradusnik", buf);
Edit1->SetSelTextBuf("");
Edit1->Refresh();
}
//---------------------------------------------------------------------------
std::string last_word = "";
int repeated = 0;
void __fastcall TForm1::Panel1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
if (!form_inited)
return;
int x = (Mouse->CursorPos).x;
int y = (Mouse->CursorPos).y;
// if (X % 2 == 1 && Y % 2 == 1)
// return;
int pos = (int)((X * Y) % WORD_COUNT);
/*
if (std::string(ListBox1->Items->Strings[pos].c_str()) == last_word)
repeated++;
else
{
repeated = 0;
}
last_word = std::string(ListBox1->Items->Strings[pos].c_str());
if (repeated < 10)
return;
if (repeated > 10)
return;
*/
Memo1->Clear();
Memo1->SetTextBuf(ListBox1->Items->Strings[pos].c_str());
Memo1->Refresh();
Add_to_chat("hiroshima", ListBox1->Items->Strings[pos].c_str());
}
//---------------------------------------------------------------------------
Комментариев нет:
Отправить комментарий