среда, 30 сентября 2009 г.

вторник, 29 сентября 2009 г.

Художественный фильм "ЧЕЛЮСТИ", действие развёртывается в центральном Лондоне

#include <iostream>
#include <string>
#include <vector>
#include <algorithm>

class Citizen
{
std::string FullName;
std::string Address;
std::string Phone;
public:
Citizen(std::string arg1, std::string arg2, std::string arg3)
{
FullName = arg1;
Address = arg2;
Phone = arg3;
}
void PrintOut()
{
std::cout << "\nCitizen details:" << std::endl;
std::cout << "====================\n";
std::cout << FullName << std::endl;
std::cout << Address << std::endl;
std::cout << Phone << std::endl;
}
};

void INVOKE_NONSTATIC(Citizen cit)
{
cit.PrintOut();
}

int main()
{
std::vector<Citizen> Flat;
Flat.push_back(Citizen("Aleksandr Derbeev", "Belarus, Gomel, kozhara59_1_10", "+375-023-278-63-58"));
Flat.push_back(Citizen("Galina Derbeeva", "Belarus, Gomel, kozhara59_1_10", "+375-023-278-63-58"));
std::for_each(Flat.begin(), Flat.end(), INVOKE_NONSTATIC);
}

Citizen details:
====================
Aleksandr Derbeev
Belarus, Gomel, kozhara59_1_10
+375-023-278-63-58

Citizen details:
====================
Galina Derbeeva
Belarus, Gomel, kozhara59_1_10
+375-023-278-63-58

понедельник, 28 сентября 2009 г.

Чат с Градусником (Бог, Внеземная Жизнь)

  1. mount stadium turbulent wench amaze beleaguer
  2. assert agriculturist understate superfluity slab
  3. scoot ransom promise platitudinous promise rot
  4. seduction swimmingly yugoslav cheap director
  5. extinguisher furl herself impair inhale legality
  6. oppe properly sixtieth trousers annual capsule
  7. exchequer inclusive nunery sparrow aden coach
  8. enslave fuzzy indelicacy oilcloth prosecelyte
  9. sentinel underwritten crooked mansion transit gap
  10. stationer compensate ill reverie synonymous
  11. buckskin hump programming cinderella pellucid
  12. cathedral ridiculous party thresher foppish fiord
  13. everybody cep void naughty excessive berry slum
  14. never endue around microscope cheering shift
  15. medium diatribe rebellious doughnut phonetics tiff
  16. assemble broach enervate noun stile discussion
  17. warble superstructure solicitation sceptical
  18. preoccupy lullaby nod demure cepe bill apathetic
  19. bill cepe constituent demure demure dullard
  20. exemplary evoke essence daylight complex camphor
  21. barley agronomic trounce superintend smoulder
  22. sufferance subjection site stride sideways stock
  23. thill stationer squad spider scrub sort scare
  24. readily popularize overcharge miscarriage
  25. metaphysics miscarriage overcharge monopolize
  26. pageantry prapaid preposses parishioner lisp
  27. internationalism invisible immoral icy humbug
  28. instigator honourable instigator humbug gird
  29. fervency encomium fervency gave elude disagreeable
  30. crop cloy braid civic arrogant abdomen utensil
  31. venom trace virago addition australia advocate
  32. calorie bachelor compact calorie concert compact
  33. burglar australia broken collegiate curd dishonour
  34. crop craft cosignatory bode abdomen thriller
  35. stratum subdivision sisterly quail ossify oncoming
  36. mediaeval kit midway kit jug jaguar gulf
  37. inadequate jug inadequate jaguar impassable
  38. greengrocer idealist goody fireball fertile gimlet
  39. fireball flip greengrocer flip eruption
  40. distribution cutthroat commemorate crusade
  41. commemorate cafe compressed barb weaver syllable
  42. spine tartar stability stench stability shark
  43. programmer pent nihilism malawi nuance perspire
  44. masterly jiff impotent hallway freckle extinction
  45. fumy familiarity diet despoil chubby bourgeois
  46. clerical assort accountant vex translator suddenly
  47. snow supertax sop swept twit alder when alder
  48. calibre baron alder warning twit uncommon
  49. telegraphist sex retaliate prostitution pictorial
  50. ocean message ineffable gait gee fidelity gee gird
  51. gee feather employer dishwater commiserate burly
  52. aggravate weariness allegory weariness tabular
  53. spouse taxicab white unary tabular turgid swarm
  54. spectacle selection remembrance prolixity petrel
  55. objurgation marxian malady lumber impediment
  56. haberdasher forgery exotic duly deputy conveyer
  57. construct dedication doctrinal congestion besiege
  58. apec wrap thole streamlet subjection skunk rubbish
  59. pool pan mouthful light internee hydrangea flown
  60. erasure downpour decorate divide downpour erasure
  61. flown erasure divide decorate delinquency chatty
  62. blank centenarian betroth xylograph upwards vat
  63. accountant arisen blank chatty constrict
  64. delinquency conveyer cosily conveyer chatty
  65. constrict blank betroth xylograph upwards ably vat
  66. vigilant trajectory vat ably blank annihilation
  67. bedroom ambler bankruptsy bushy cog bushy
  68. bankruptsy ambler woe unpromising xylograph
  69. upwards tommy stupor skimp signature steersman
  70. unavares tale tungsten sway tremble toy sunstroke
  71. scoot prime perishable meal jury indolent komsomol
  72. infrequent hooligan insemination hunchbacked
  73. interbreed gratify force forum frige failing
  74. furthest feathery encumbrance embankment
  75. encumbrance enticement disqualification cutlery
  76. concomitant catering binary certitude conjugal
  77. concomitant captain compatib calculate colombia
  78. calculate battery anchor withdrawal unpleasant
  79. thunderstorm strap slag sandal scarce smartness
  80. slag thunderstorm strap simmer shore robin radiant
  81. politics pleasant pincers pugnacious pincers
  82. opening laurel insipid husky got ether deliver cop
  83. bowler admiral visionary truncheon tactless spit
  84. sewerage revoluntionary quality ploughman
  85. pulverize outstretched ploughman pulverize pistil
  86. orchard phlegmatic progression permeate odium
  87. orchard moderate likely intelligible lees
  88. mincemeat orchard pistil outstretched ploughman
  89. pistil orchard phlegmatic orchard lees insatantly
  90. hunt folk gosh horny hunt greenish hunt greenish
  91. guilty frantic fabricate eguine diamond cowherd
  92. clinical bulky bamboo caddy cohesion bulky bride
  93. cigarette bride afghanistan administer ask bloated
  94. arbor verdant treatise township supervise solstice
  95. remake proposition option mincemeat lassitude
  96. memory mincemeat insignificance hourly ingrained
  97. hoary her gentlefolk environment fiddle fix dot
  98. deduct contravene cipher correlate close
  99. azerbaijanian ago under theorem stilt sick stall
  100. shawl splinter stall tact twofold under unique
  101. woman alphabet anatomic woman barkeeper
  102. calumniator barkeeper woman untold vain tramp
  103. surreptitious sound reprimand pshychology pinpoint
  104. outweigh pacify nationality maiden jaunty hearsay
  105. inaudible jaunty iris harass furrowed ferocity
  106. financier ghoul gnome evacuation drawl deprave
  107. deterioration cogged bare woodentter unnerve
  108. wilderness airman australia baby alternative
  109. wilderness thoroughness strange slick redouble
  110. producer omnipresent peroxide omnipresent
  111. obscurity pendant paticularize noun obscurity
  112. melodious kolkhoz injurious humpback grill
  113. identity gully fretwork exuberant expire forebear
  114. grill gully handicraft havana fungous female
  115. distinguished deathly disparity dad conguer
  116. charger born assessor aeroplane warehouse twit
  117. statue simply ruck salesman rectification
  118. pretender merit insensitive hysteria guile
  119. immanent halter function farther enema decidedly
  120. consistency chieftain boozy bloodshot bisect
  121. aqualung berth apathetical abstain violin acorn
  122. aqualung bisect berth apathetical zinc uzbek
  123. unsupported suffice sot supertax topic spice shark
  124. revoke respect publicity plymouth pushing plymouth
  125. navigate mandated jugglery lyrical loguacious limp
  126. legislation insular imitate handicap imitate guile
  127. fad fearful enamel disorganize decathlon
  128. contradiction clamber bulky bacteriology
  129. autobiographic alliance woodentter unruly
  130. sufferance sofa sluice scram relieve pious
  131. overshoe pandemonium manganese infinite jungle
  132. indignity incognito hesitantly genesis financial
  133. esquire duresse cretinous complement bite bequeath
  134. apex anchovy altar wired uphill superintendent
  135. sound servitude retouch quirk portfolio pawn
  136. merciles master laos iceberg insulating laos
  137. master merciles leeds minor omnipotent momentum
  138. moustache overjoyed pike proposition regards
  139. scarcity sky silk ruff recline profane pike oslo
  140. loft irredeemable heirloom flagship erroneous
  141. despair criterion comprise centrifugal bootlace
  142. agronomics astronomer artillery acute advisable
  143. whiriwind unquiet tilt subsequent thiller strident
  144. singularity shoulder rearm perspicuous moneylender
  145. perspicuous oscillation loop isle indent
  146. florescence fishman everything dunkirk drama enter
  147. denial crab capsule bequeath acquaint wash
  148. unequalled tiptoe spaceship shapeless rid
  149. predispose price phonetics overbear naturalize
  150. kinship inquisitor illimitable intelligent harass
  151. gunner greyhound frequent fur illimitable gunner
  152. fur feeler ephemeral etherial ephemeral downpour
  153. enlarge diverse demure cradle compassion
  154. crossbreed desire dictate duck desire compassion
  155. celery bootlace avoid ammoniacal answerable ban
  156. ammoniacal ban beaker buffoon breed avoid bootlace
  157. blind asia blind carnal compassion concurrence
  158. compassion college clot circle considering
  159. controversy clot bunk anything accuracy arable
  160. anything vitriol tenure stoolpigeon tar tungsten
  161. slacken scoop smoker reshuffle scoop stoolpigeon
  162. smoker secretariate solvent series reverse quarry
  163. precise perishable offend monopolize mufti
  164. lubricate jerk incursion irk hexagon gigantic
  165. exertion fledgeling gigantic hearing gigantic
  166. following exertion editor duration cultivator
  167. conceivable cremation commercial boost awfully
  168. analyse apathetical arc adore aslope aggregate
  169. woke valise transfuse unwelcome whistle aggregate
  170. woke yap amuse yap trivet stipendiary scocth slush
  171. seasoned scocth removable scocth slush stipendiary
  172. stank skinner stipendiary slush soggy southwest
  173. spiritlamp ruffle redouble professorship override
  174. mysterious knee iniquitous hansom headstrong
  175. gastric exalt exopo else disobey debauch cool
  176. coerce costume defenceless distinction else
  177. defenceless coerce captivity assailable agronomics
  178. aeroplane wheerze unseemly wind wheerze tongue
  179. sprite sped shortbread similitude relax saying
  180. similitude saltaway rude saltaway prosper plaster
  181. paramour messmate inversion highball inapt gown
  182. homily highball foresaw faint enclosure extendible
  183. denunciator concoct cubic conical ceremonial
  184. brawny banish angola accentuate voice abbreviation
  185. ulster voice thistle spangle submerge spangle
  186. suggestion shipmate rove seventeen rebuke pinpoint
  187. oversea nicety matrimony leastways merchant
  188. liberate indecent liberate notch liberate
  189. invidious international instil imbibe handy gear
  190. flank embankment encroachment divinity crass
  191. conceit crass crow conceit crass depute downcast
  192. detrain downcast faggot encroachment divinity
  193. depute crow detrain depute crass delusive crass
  194. crow conceit century communicate crass conceit
  195. crow conceit barefooted anonymous acetous wakeful
  196. visibility uncound timid uncound typhoid terrace
  197. trowel striped snip reality prince pipeline
  198. project plenty protection recur project pipeline
  199. pant numb mislay lisbon numb midway medicament
  200. lest midway lisbon italian indefatigable inception
  201. hobby france fruitless gull gallant handkerchief
  202. gull fruitless finis fled focus extradition family
  203. enjoin drift determinant conguest crucible
  204. determinant depravity crucible currency crucible
  205. conguest chambermaid brink chambermaid chicory
  206. conguest currency crucible chicory chambermaid
  207. compassion cautious carburettor clammy buoyancy
  208. chilly bristol appease bristol bower annotate
  209. abreast vision underhand ugly successor souvenir
  210. severance rural souvenir severance rectification
  211. ravish racial priestes ravish racial predominate
  212. purvew performance possessive peaked moonlit king
  213. joke inmate king majestic opera moonlit miscarry
  214. lotion inmate insulator impair gouge forgetful
  215. eyesight drank differential contemporary campus
  216. blister aviation annular absorbent yet versatility
  217. womanly utilize unremitting torpid tag temperature
  218. stream snatch serried rising recuperate point
  219. particularity military ironic internationalism
  220. impromptu imagination heighten gin hardihood
  221. garbage fizz experimental endow experimental fizz
  222. foam gin forlorn factious experimental ewer editor
  223. equation famine equation editor ewer editor
  224. deferential daw correlate coheir capacity
  225. birmingham alongside afresh weakly voice trough
  226. velvety unasked voice unfounded weakly voice
  227. velvety trough thesis submit sonority saboteur
  228. render pule preconcerted princess physician
  229. nominal miserable literal legacy indivertible
  230. habitual furtively green frantic glower fatty
  231. ether exhilarate elective dispel deduct dispel
  232. dirigible deduct depart conformable cult devoted
  233. drove devoted dodder encompass drove data context
  234. cult conformable compatible coexist compatible
  235. crankshaft compatible coexist canter cistern
  236. bunker biplane aspirant afterwards apprehend
  237. adamant abolish ungainly transistor syrup
  238. steelyard spook sonority seriousness risk refuse
  239. reproduce press pestle palatial oblivious
  240. patronage prolong recourse rake puerily recourse
  241. pony puerily prolong patronage pony orchestra
  242. oblivious miserable lithesome kilogram
  243. interjection lattice irresistible indeed gutter
  244. husk holster gutter husk haystack impassioned husk
  245. gutter holster indeed husk gently gutter husk
  246. gently fork fahrenheit dustbin dilute douche
  247. engrain fahrenheit fork gorge impassioned haystack
  248. fork fetching erect fahrenheit engrain douche
  249. dilute cynic conspire circus blackness axe
  250. appendix afternoon wiscet usher unit tread soppy
  251. severity reliable rooster pubescence perpetrator
  252. oscillate melancholy leftist kurdish instance
  253. impartial hire incommensurable immensely
  254. gormandize grueling flippancy exoc fadaway enjoin
  255. eligible downy disablet dart crutch courtier
  256. deadbeat commotion chieftain confiscation
  257. commotion cco browse appliance aspire amorous
  258. acuity apparition bashful agency virulence topic
  259. tribulation utilitarian wayside unknown taxicab
  260. succulance spectacular schoolmaster reservation
  261. razor provide policeman ought mutter liberate
  262. messmate lost mockery observer padlock mockery
  263. mural mentality lest inhibition impregnated herd
  264. goddaughter formality gee florist fanatical
  265. education evacuation entrancing druggist explain
  266. fillet evening effective dizzy deprave cynic
  267. consumptive cringe deprave consumptive clergyman
  268. calm cathedral brotherinlow cheering callous clef
  269. callous billow awning assist algebraic aptitude
  270. and ado tying tolerable swab starch soft streak
  271. startup spice shrill soft streak spice suction
  272. spice soft shrill retch sane remit recompence
  273. radiogram propeller recompence puppy pout pacc
  274. obstinate mystify marrow lukewarm laundress
  275. intonation insemination jab lift kidnap lukewarm
  276. kidnap ineradicable incautious gymnasium gallery
  277. flange exemplify enrapture dressing decry crop
  278. confession commemorative chintz bullet beirut
  279. bullet armourer abduct when addicted ambiguous
  280. armourer affliction without affliction volintary
  281. undergone valve tingle tantrum translator tantrum
  282. spinach social stager rondhead reparation pustile
  283. procrastinate pittance precinct pappy operation
  284. movies meritorious moment liver intercourse
  285. ineffable hump glower finite engrave eddy espy
  286. embryonic doeskin deserve doeskin dishwater
  287. deserve cubical connotation county compendious
  288. contingency cluster condemnatory chiefly amputate
  289. adulterate win vituperative travel tax
  290. surroundings striven tax sundries tax terminate
  291. subscribe sylvan suggestion still subscribe
  292. spearmint sleazy stark spearmint smock selection
  293. spoil selection smock spoil route requirement
  294. propencity preclude persuasion parody perfect
  295. ostensible nappy objectionable parody
  296. objectionable neorosis lukewarm mellow kindred
  297. indict implement hale grandeur garrulity hale
  298. inability highness harangue greediness genesis
  299. garrulity hale foundry flora exponent etching
  300. educational dislodge deterrent curiosity
  301. constellation communist conscript cue correlative
  302. commanding buxom celery brainless assimilate
  303. alpine zymotic upwards undecided treatment techy
  304. tinkle tricycle undecided visible techy
  305. supplication stair scrath retrace regular pugilism
  306. rajah refuge restriction rajah regular restriction
  307. rajah posse perception osier number match
  308. lookafter league jury league insatiable indigent
  309. hemorrhage ganger found felicitous essay
  310. encirclement explicit felicitous float foyer goody
  311. float essay exposition float fern foyer goody
  312. foyer gardening florid fervent ethiopia effigy
  313. dictate drawback endurance fervent expunge educe
  314. disparity diagnostic delightful contributor coffee
  315. concord chilly boot baghdad apathetical aden zap
  316. whitewash usurper volatile troublesome undertook
  317. tetchy swoon success snort serial rubble regale
  318. procession plantain perplexity occur morsel mica
  319. management lathe juicy investigate jurist loan
  320. manifesto laundry jurist insensate humpbacked
  321. grapple hamster humpbacked impetuous hamster
  322. frizzle fallow epeco earshot devastate donkey
  323. earshot doggie define devastate disengage
  324. disingenuous dairy confident cipher calculate
  325. blackout bashful archaeology amnesty afire worn
  326. writhe agile armlet acqiescent whet tumultuous
  327. tangle standstill superstitious twelfth thrash
  328. superstitious tangle thiller standstill sliver
  329. scandal rub schoolboy sensuality scandal rondhead
  330. respecting precocious pectoral pharmacy plentiful
  331. patronize overnight partisan perhaps pink position
  332. perhaps outshine paramount monstrous lithuanian
  333. laze ireland inapplicable infinity horizontal
  334. gummy gluttonous fervour eyeball fluke exclaim
  335. entomb domino echo deaf diggins cubical computer
  336. cloy constancy cubical decomposition couresy
  337. coincide cavern breach blight aspirant allure
  338. abjure womenfolk veto tropical tough tandem
  339. stronghold spaceship slaw shudder rural rhythm
  340. rural reluctantly rasher proletariat pillowcase
  341. poet petroleum peg poet peg overcome nobility
  342. overcome patrician opa mute meal mining lost larva
  343. magyar molasses meticulous moulder maritime leg
  344. interrogate incumbent inform institution inaudible
  345. home helium grace guesswork gaol glasier fortnight
  346. fly gaol grace helium hulking incumbent inform
  347. imagine inaudible guesswork grace helium frigidity
  348. foretold extortioner flivver fuzzy foozle
  349. exploratory engulf erode effervescent dues
  350. discomfit dissociable emergence enticing
  351. extortioner emergence downpour effervescent dues
  352. elininate dome discomfit devotion crutch dapple
  353. cornet cupidity cornet cornet constitution
  354. covetous constitution cock challenge commandeer
  355. cicatrize buckskin barrier arm admission witticism
  356. admission witticism well accent antitank avoid
  357. antitank arm admission well unjust venture uphill
  358. truly technics synoptical stream snatch shy
  359. secondary roguery reappear roguery retort reappear
  360. prosecutor purgative repose reveal saleswoman
  361. schemer repose racy rebound prostration pluck
  362. persecutor premise originate muddle midday
  363. mobilization material levy last jesuitical
  364. interchangeable impose historical graceless girl
  365. graceless fortnight feudal drawing disintegration
  366. decorative cracked cyclone cruelty confederacy
  367. clamber cherish centennial compendious
  368. collaboration contented centennial carnal
  369. appertain arrow affirmative writer variance
  370. unacceptable trumpery this squirm siskin shown
  371. sooth shaky slatternly still solicitation service
  372. skid secretion prognostic protection plate preview
  373. predicament poca paticularize oppressor outsize
  374. oppressor paradox nugget mischief nineteenth month
  375. mischief lofty knobby irony interwoven indisposed
  376. hysteria gentlefolk globe gambia foliage forgather
  377. fruitless extol eighteenth eclipsetic dissatisfy
  378. course condiment clamor callosity captor clamor
  379. clump catering clamor completely broom bravery
  380. bookeas blink backwardness anything addle veil
  381. typesetter threshold treaty truncate unlawful
  382. unsupported walnut yet acquittal allure abate
  383. unrivalled trophy taper sugar stamina septic
  384. repulation remote prince plaid pilferage present
  385. particularly pappy phew pappy operate particularly
  386. misconduct milestone necklace oddity mutter lining
  387. maritime impasse hire heroic hedgehog hedgehog
  388. 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());
}
//---------------------------------------------------------------------------