#!/usr/bin/perl

# GamaScript v.0.01 for XChat
# 
# Apollon Koutlides (aka GnuLxUsr, aka gn00 - on GRnet)
# apollon@planewalk.net

# Usage: /gama nick

$gama_vnum ="0.03";
$gama_vdate="Oct 7, 2003";
IRC::add_command_handler("gama", "gama");

@gama_manners = ( "askardamukti ", "", "me xara ", "", "sta krufa ", "",
	"sth zoula ", "", "dhmosiws ", ""
);

@gama_places = ( "ston boreio polo", "edw, sth rwgmh tou xronou",
	"edw kai twra", "kapou, kapws, kapote", "opou bre8ei ki opou sta8ei",
	"mesa sth nuxta twn allwn", "sthn korufh tou purgou tou Eiffel",
	"sto Aousbits", "sto Aousterlits", "sto Baterlw",
	"sth gwnia tou dromou, gurw stis 9", "sto feggari",
	"katw ap' th lampsh tou feggariou", "panw ap' ta sunnefa",
	"ston 13o orofo ths mikrhs 3aderfoulas twn didumwn purgwn",
	"odhgwntas me 230 xiliometra mia F55 sthn autobahn",
	"astamathta mexri na kanei compile to OpenOffice,org",
	"sth limnoula", "katamesis sth limnh twn Iwanninwn",
	"sta temph", "sthn Afrikh", "panw sta foreia tou ery8rou stayrou",
	"mesa sta xarakwmata tou ery8rou stratou", "katw apo to kampanario",
	"erwthmatika men t'ouxi erwtika", "se leofwreia", "se ta3i",
	"me entelws bareto tropo se bareta merh", "ston ambwna ths I.M. A8hnwn",
	"panw sto kainourio trapezomanthlo", "se spitia suggenwn",
	"mesa sthn krustallinh sfaira pou skotwse ton JFK",
	"sto mpalaouro tou Mayflower", "sthn oikodomh, me mpoliko ammoxaliko",
	"(among other androids) in his electric dreams",
	"sto mpalkoni", "stous agrous katw apo ton kauto hlio",
	"twn pagwn panw sta xionismena bouna", "sth broxh",
	"sthn kouzina", "sth sphlia", "pisw ap' thn kourtina",
	"katw ap' to psugeio", "sthn taratsa", "panw sthn aplwstra",
	"se giapia", "se e3aklines kampines trenwn", "se toualetes aeroplanwn",
	"se kakofhma nightclubs", "se akriba estiatoria", "sth skhnh tou Mulou",
	"sta backstages tou rodon", "se 8alassines sphlies",
	"ta3ideuontas anamesa se kitrina dentra kai skoteines plagies",
	"se phrynika katafygia", "se pagkous tou xasaph",
	"Paraskeuh th nuxta tou fonia", "se ayles kai se mpalkonia",
	"xilia muria kumata makria ap' t' aibali",
	"sthn kabatza tou strath kai ta rixnei sth gkomena tou tasou",
	"katw apo mia porta xamhlh, se mia skoteinh aulh",
	"panw se kati kakokourdismenes ki8ares", "mesa sto psugeio",
	"panw sta dentra", "ston afro ths 8alassas",
	"me ano3eidwto profulaktiko me akides titaniou gia au3hmenh hdonh",
	"pasaleimmena me xoirino lipos", "panw sto windsurf",
	"me megales, gualisteres, mwb melitzanes", "me mikroulia kotera",
	"mesa se tasakia", "me th fterna", "kabala se ippokampous",
	"se fwlies peristeriwn", "stous ntokous", "kabala se mia strou8okamhlo",
	"ston diadromo tou 2 1/2 orofou", "se karafes retsinas",
	"se 8eoskoteina stena", "stou braxou th sxismada",
	"sth broxh kai sth liakada", "me th labh tou tomaxwk",
	"sthn fwlia tou Spanish Hawk ", "kradainontas to labaro tou Mao",
	"diabazontas Komfoukio kai Tao", "forwntas th maska tou Jason",
	"ston tafo toy David Sasson", "katw ston kampo",
	"sto stratopedo ekpaideyshs tou Rambo", "pleontas ston 8ermaiko",
	"kourniasmenos sto perbazi", "agnanteyontas to agiazi ",
	"xunontas baltoxionokotes aberta", "katw apo ta goalpost",
	"kai diabazei paradise Lost",
	"panw ston bwmo tou Nyalathotepp me upokroush ton Christopher Lee na apaggelei John Milton",
	"koitazontas t'asteria me ypokroush Miles Davis panw sthn taratsa toy Hilton",
	"plenontas me ariel", "se phges kai se phgadia", "apogeymata kai bradia",
	"mesa se masonikes stoes", "psareuontas maroulia",
	"stis stoes tou Par8enwna", "sto gonato", "ki as eperasan ta xronia",
	"opou fusaei o anemos", "stou modiano tis stoes",
	"sthn trata tou Zeppou", "stous propodes tou Kilimanjaro",
	"salternontas panw apo tis fwties tou Ah-Gianniou",
	"opou brei", "katw apo th fullwsia tou platanou",
	"mia nuxta xwris feggari", "parafusin", "eis thn fysin",
	"stwn karabiwn tis brwmikes skoteiniasmenes plwres", "Larissas",
	"gia to gousto", "ws to mpousto", "kai me mousto",
	"ap' to ous", "sketa neta", "sthn petseta", "ws th larissa",
	"meta fasoulh kai periklettou", "me fwsforize kapotes",
	"stis rwsikes steppes", "panw sto kampanario", "panw sto fysero",
	"stis ox8es tou Bolga",
	"sto nyfiko ths bassilishs olgas", "sth giourth tou Tzengkis Xan",
	"pisw apo eklogika paraban", "sta upogeia tou Taj Mahal",
	"sta gnomish mines tou nethack", "stis katakombes",
	"sth nufikh souita tou Holiday Inn",
	"sta egkateleimena skhnika tou Silverado",
	"sthn apo8hkh tou Sam ka8ws kinduneuei h Lola",
	"epeufhmoumenos apo to koino sth skhnh tou Royal Albert Hall",
	"sto Occult Section ths biblio8hkhs ths Ale3andreias",
	"sto Maxim's", "sto projection booth tsontokinhmatografou",
	"sto Hammersmith Odeon", "sto kamarini ths Bandh",
	"sthn kabatza tou strath", "sto ampari tou Titanikou",
	"mesa s'ena for() loop", "mesa s'ena LDDR loop",
	"se mia limnoula apo memory leaks", "paizontas bioli sth stegh",
	"stous staulous tou argeia", "panw se peukobelones",
	"on all base that are belong to us", "se mpouria",
	"sthn kouzina tou Palo Alto Research Facility",
	"sto ntous tou NASA Ames Research Center",
	"sto Control Center tou CERN", "se lab tou Los Alamos",
	"sto grafeio toy Andrew Wiles", "sto upogeio tou manabikou",
	"kabala se mia sigmoidal logistic function",
	"sthn pisina ths Angelica Houston",
	"panw se biblia ths CISCO Press",
	"sthn kaminada tou Chernobyl Complex 7",
	"panw sthn plath ths angelina tsouli", "sto Tower of London",
	"pisw apo to Big Ben", "sto kollosaio ", "sto Seiniko teixos",
	"anamesa stous 8amnous ths elafonhsou", "sth Mordor", "sto Rivendell",
	"sto trito aristero feggari tou KSX-23771",
	"sto parking tou Carrefour N. Iwnias",
	"sto kotero (auto pou hmouna ki egw, nte)", "sto ETH-Zurich",
	"sto University of Pennsylvania",
	"panw s' ena megalo aplwmeno xeri kapou sto Rio De Janeiro",
	"sto University of Illinois at Urbana-Champaign",
	"sthn Capella Sistina", "sthn Notre Damme",
	"sth skia tou purgou ths Pizas", "sthn Pyramida tou Xeopa",
	"mesa sto tsantaki tou Sport Billy",
	"kremasmenos apo tous khpous ths Babulwnas",
	"sto Teixos twn Dakrywn",
	"sto faro ths aleksandroupolhs", "sth biblio8hkh ths ale3andreias",
	"sthn Agia Sofia", "sto Temenos tou Orous", "sto Temenos tou Omar",
	"sth Mekka", "sth gefura tou Brooklyn", "sto Cape Canaveral",
	"sto world trade center", "sto Sears Towers", "sto top kapi",
	"sto empire state building", "stou pappou tou to mantri",
	"sto kindergarten prin kataf8asei o krom",
	"sthn taratsa ths amerikanikhs presbeias sthn a8hna",
	"sth mesh tou dromou apenanti apo th XAN 8es/khs tragoudwntas YMCA",
	"sto sta8mo toy Kings Cross", "sth Rue de la Loi, Brussels",
	"sth Beethovenstrasse sth Biennh", "sth Marienplatz sto Monaxo",
	"sto megaro ths ERT sthn Ag. Paraskeuh", "stis akrogialies",
	"stis skepes", "stis kolwnes", "stis mouries", "se koitwnes", "3apla",
	"me oura", "sth boulh taizontas kai ta peristeria", "ston gorgopotamo",
	"sto asanser tou aerodromiou", "sto megaro ma3imou",
	"sth biblio8hkh tou e8nikou khpou", "sto Leningrad",
	"sthn plateia tien an men", "anamesa sta xasisodentra tou orous A8ws",
	"sto 8ibet", "sthn xersonhso tou aimou",
	"panw stis grammes toy trainou", "sto tunnel ths magxhs",
	"sth Downing Street 10 ", "sth rhgillhs", "sto Capital Hall",
	"sto megaro Rockfeller", "sto megaro mousikhs", "sto kapitwlio",
	"ston leuko oiko", "sto spiti tou Kemal", "sta galapagos",
	"ston is8mo ths Korin8ou", "sthn Xwra ths Santorinhs",
	"sto iero twn kabeirwn", "sth sphlia tou filokthth",
	"stis ennia tou makarith", "sthn kentrikh laxanagora",
	"sta xamena logia kai ta xronia", "ekei poy prwta hsouna pantou",
	"mesa sto kryo kai ta xionia", "sthn kokkinh plateia",
	"sto oros twn elaiwn", "ston graniko potamo",
	"sto manteio twn delfwn", "sto dromokaiteio",
	"sth sphlia tou lhstarxou Ntabellh ",
	"sth billa tou sidereniou sthn ekalh",
	"me borderline personality disorder", "me sklhrunsh kata plakas",
	"sth xobolh", "me loimwdh monopurhnwsh", "sto ayti tou htampaki",
	"sta trikala sta duo stena", "sthn kopsh tou 3yrafiou",
	"mesa stou man8ou ton teke", "stou 8wma to magazi",
	"stou botanikou ton khpo", "kapote sthn agria dush",
	"mes ton prasino to mylo", "sto spiti tou anatellontos hliou",
	"pera apo to xlwmo", "apa3 entos mple selhnhs", "me powerbooks",
	"sth fwlia tou aetou", "sth fwlia tou koukou", "sto grammatokibwtio",
	"ston purgo tou OTE sth DE8 trabwntas me th videocamera skhnes me kai xwris sex",
	"me tria3onika 3ulina peh ", "apo sunh8eia", "petwntas",
	"kapnizontas ena thleskopiko fougaro me pleurikes dokous sthri3hs",
	"panw stis partitoures tou Mussorgsky", "sto nero",
	"panw sthn trapezaria ths Nikki Tyler", "ston kanape ths Nikki Tyler",
	"panw sto lerwmeno forema ths Monica Lewinski",
	"dipla sto kyma", "parea me ton Ricky Martin", "mazi me ton robocop",
	"stwn psarrwn thn olomaurh raxh", "panw se kapela gelwtopoiou",
	"tragoudwntas th die8nh", "neta sketa",
	"se 8alamous aeriwn sto Auschwitz", "katw apo thn apsida tou 8riambou",
	"sto pshlotero kladi enos binary search tree",
	"panw ston pagko me ta kerasia", "panw ston pagko tou xasaph",
	"sto mhxanostasio tou Samina Express", "sthn Apsida toy 8riambou",
	"mesa se freatio ths EYDAP", "katameshmero sthn paralia ths Barkizas",
	"stis stenes grammes twn orizontwn", "me ena kokkalo baltoxionokotas",
	"mesa se mia BMW Z3",  "sth diwruga tou Souez",
	"mesa s'ena IBM Z/System ",  "panw se ena HP MPE3000",
	"mesa se enan klwbo Faraday",  "mesa sto spiti ths Doris Day",
	"panw sth biblio8hkh tou Kastoriadh",
	"anamesa sta b00bs ths Doris Day",  "me papoutsia apo fello",
	"sto logisthrio ths Intracom",  "sthn kounisth poly8rona tou Kokkalh",
	"sth nhsida upologistwn tou auth",
	"sto ergometriko tou olumpiakou stadiou",
	"sthn psuxometrikh monada tou duth",
	"sth fylakh tou tmhmatos psyxologias tou Standorf",
	"parea me 12 e3agriwmenous albanous sto proaulio tou swfronistikou idrumatos Korudallou",
	"kabala se enan puraulo Cruz se dieiphrwtikh troxia",
	"panw sthn protomh tou robespierou",  "sta mpouzoukia",
	"me mpouzoukia",  "sta ereipia tou WTC",  "sto faraggi ths samarias",
	"sta Metewra",  "ston 8essaliko kampo",  "sto Redmond",  "sto Wnaseio",
	"sthn laikh",  "sto pentagwno",  "se enan khpo zen",  "ston Taugeto",
	"ston Pentadaktulo",  "with salt 'n' peppah",  "sth Eurovision",
	"sto Taj Mahal",  "sto oros Fujiyiama",  "sth Monh Megisths Lauras",
	"stous kataraktes ths limnhs Victorias",  "panw se noname monitors",
	"panw se catalyst switches",  "me fardia kanalia Legrand",
	"se mia 8alassa mikrh",  "panw ston arampa",
	"panw se kammenh motherboard",  "panw se krebati fakirh",
	"mesa sto pi8ari tou diogenh",  "mesa se pyrhnikous antidrasthres",
	"mesa se upogeia kaphleia",  "stou paradeisou thn porta",
	"mesa se upai8rious katanemhtes",  "sthn taratsa tou Caravel",
	"sta stena tou Bosporou",  "se xasisofuteies",  "sto megaro Maksimou",
	"sto proedriko megaro",  "panw sta mousia tou Xristodoulou",
	"se type 5 keyboards",  "sto kentriko amfi8eatro ths gewponikhs a8hnwn",
	"sto tmhma plhroforikhs tou panepisthmiou a8hnwn",
	"mesa ston founro mikrokumatwn",  "panw sto vt420 tou stallman",
	"panw sta switches tou NOC ths IH",  "panw s'ena piano Yamaha 4/4",
	"sto Camel Club katw apo tis skales",  "sthn pylh tou bradembourgou",
	"sto kotero tou makarith tou Latsh",
	"panw se apala fountwta synnefakia ka8ws petaei strifogyrizontas san elika thn oura tou panw apo xwres magikes kai oneiremenes me perierga polyxrwma zwa na tous koitane paraksenemena ka8ws feygoun pros th meria tou xlwmou kitrinou hliou poy dyei anamesa sta panypshla gkriza xionismena bouna daneizontas tis antaygeies tou sto paixnidisma twn kymatismwn ths galhnias 8alassas",
	"panw se clark",  "kolumpwntas se 8alasses loosefill",
	"sta upogeia tou Batikanou",  "sto retire tou NYSE",
	"ston pagko tou a3onikou tomografou tou kuanou staurou",
	"mesa sto magnhtiko tomografo tou CERN",
	"mesa sto kotetsi tou xionismenou baltou",  "sto oros Ararat",
	"live sto website tou bowie",  "sto fourfouri tou amd 2000xp+",
	"sta grafeia ths EPAE",  "sta grafeia tou OAED",
	"sth skoteinh pleura ths selhnhs",  "sth Mare Imbrium",
	"sto Mouseio Fusikhs Istorias Mpenakh",  "sthn limnh Baikalh",
	"sth Victoria Lake",  "sto bretaniko mouseio",
	"sto aerodromio leyterhs benizelos",  "katamesesis sthn Trafalqar Sq.",
	"sto Chek Lap Kok airport",  "backstage sto Hrwdeio",
	"10.000 leuges katw apo thn thalassa",  "sthn Rue Morgue",
	"apo th Gh sth Selhnh",  "sto Albatross",
	"parea me ton Mixahl Strogkwf",
	"parea me olous tous nauagous tou Iwna8an",
	"sto aerostato tou Filea Fogk",
	"enw pairnoune mati ta tekna tou ploiarxou Grant",
	"sto bagoni tou Kaisara Kaskampel",
	"sthn polh pou ktisthke me ta 500 Ekatommuria ths Mpegkoum",
	"sto nhsi me tis elikes",  "ston 88o orofo tou IFC II building",
	"sto tameio anergeia OAED",  "mesa se microkernels",
	"sto kazanaki tou WC",  "sta studio ths Finos Films",
	"mesa s'ena elikotoptero",  "sthn paragka ths EPAE",
	"sth stanh tou mparmpa Lazou",  "ston Teixos twn Dakrywn",
	"kabala sth rouketa tou Flash Gordon",
	"mesa se rwssika T28's sto Stalingrad",
	"sthn skhnh tou Rommel katamesis sthn erhmo",
	"mesa se klwbo faraday",  "mesa se taperakia tupperware",
	"sth skala tou Milanou tragoudwntas Figaro",  "sth skala tou mpetatzh",
	"ston arktiko kyklo",  "sto alpha tou kentayrou",
	"3 kiloparsec deksia apo ton galaksia tis andromedas",
	"sto asanser tou YPEP8",  "fatsa sthn grid",
	"Kallidopoulou me Delfwn gwnia",  "stis ox8es tou Gaggh",
	"me doseis",  "tois metrhtois",  "epi pistwsei",
	"panw sto air-con unit tou",  "se ena stash gemato hash",
	"panw ston peristrefomeno anemisthra dapedou",
	"mesa sto genti koule",  "sto Top Kapi",  "sto express tou mesonuktiou",
	"me to blemma sthn anatolh",  "mesa sthn kasa tou Bonham",
	"panw se kati channelbanks",  "sto #bdsm",
	"sto digital video cameras production line ths sony",
	"sto nekrotafeio ths petroupolhs",  "sthn akropolh",
	"panw se ena bouno apo illegal CDs",
	"sto 3o upogeio ths asfaleias a8hnwn",
	"panw ste kampines xeiropoihtwn hxeiwn",
	"panw se traina",  "panw se ena stack apo help manuals",
	"panw se ena TWAIN Spec manual",  "panw se videocameres sony",
	"panw se montazieres Panasonic",  "sth gefura twn stenagmwn",
	"panw se ena piano Petrof",  "panw se mia stoiba SUN keyboardz",
	"panw stis prwtotupes partitoures tou Don Giovanni",
	"tragoudwntas 'La Donna e mobile' apo ton Rigolleto",
	"panw se mia kouta apo ypnwtika xapia",
	"during idle time",  "panw se stoibes MultiVAX",  "stegna xwris salio",
	"ston atmo",  "sto parke",  "panw se mia torpilh Brennan",
	"sto Roller Coaster ths Disneyland",  "me to peos tou John Holmes",
	"sta koudounia twn odwn kai stis kornes diapaswn",
	"panw se ena CD rack",  "me ena ghosted account",  "sto Rio",
	"sta anhliaga upogeia mias trapezas sthn Elbetia",
	"sto kentro tou ghpedou",  "sto kentro tou logou",
	"sto kentro ths larisas",  "sto kentro tou sympantos",
	"sthn kentrofugo tou melissourgou tou Aggelopoulou",
	"sthn kentrofygo enos uranium enrichment plant sthn Boreia Korea..",
	"gia prwino",  "gia plaka",  "me mia koinwnikothta",
	"me ena antigrago tou 'Elite and Society' tou Francis Bottomore apo thn prwth ekdosh",
	"panw stis (o)(o)ares ths J.K. Rowling",  "sthn oura ths e8nikhs",
	"stis ekboles tou Amazoniou",  "panw sthn stegh tou kotetsiou",
	"mesa sthn psarosoupa tou Arthur C. Clarke",
	"mesa sthn kalyba tou mparmpa 8wma",  "sthn gefyra tou potamou kbai",
	"sto server room parakmiakou eparxiakou netcafe",
	"sto krhsfygeto tou Tom Sayer",  "mesa sto kouklospito tou Ipsen",
	"perimenontas ton Godot",  "enw kobei ta nyxia twn podiwn",
	"anamesa se duo adelfes",  "kanontas manicure",
	"panw sto hmerologio ths annas frank",  "epi Kolwnw",
	"panw sto cessna tou fgfs",  "sto cockpit tou P51 tou fgfs",
	"stou gialou ta botsalakia",  "panw se oggia",
	"mesa se ogg frames me speex-encoded bogkhta",
	"diabazontas ton oikogeneiako 8hsayro",  "a la Zeus",  "me stibania",
	"se orofes ktiriwn tou UOC",  "me optikh poutsa",
	"mesa se karderinoklouba",  "mesa se gaba8es krhtika pilafia",
	"se bouna me pilafia kai par8enes",
	"sto Diktaion Andron kai o Dias kanei mpanisthri",
	"panw se ena swro MIDI patchbays",
	"panw se milia printouts apo ta sources tou ALSA",  "sto Wimbledon",
	"sto Marakana",  "a la marokina",  "sto Los Alamos National Laboratory",
	"sto nomiko tmhma ths SCO",  "sth 8eologikh sxolh ths xalkhs",
	"me mis8wmenes baltoxionokotes",  "sto spiti tou alh pasa sta giannena",
	"sta stena tou Eu3einou Pontou",  "blepontas to rally twn 1000 limnwn",
	"sta Brookhaven National Laboratories",  "kapnizontas argile",
	"sto piesthrio tou DOL",  "sthn pisw aulh tou RMS",
	"sto Press Room ths SUN",  "sta research labs ths Softex",
	"panw se mia ageladitsa ths FAGE",  "ston kombo ths biokarpet",
	"sthn peiraikh patraikh ",  "sta tsimenta xalkidas",
	"sto Kileler",  "ston Gorgopotamo",  "sto matzikert",
	"panw sto ekklhsiastiko organo tou Megarou Mousikhs",
	"ston ka8edriko nao ths rwmhs",  "sto Stalingkrant",
	"sfyrizontas to mousiko 8ema ths ERT-1 twn arxwn toy '80",
	"stous prasinous agrous ths moldoblaxias",
	"sto trito upogeio tou Pentagwnou",  "katoptrika dld ap' ton kwlo",
	"se monastika kelia sto mt.Athos",  "panw sthn siderwstra",
	"panw se ena pesmeno agalma toy Stalin",  "mesa ston katapsukth",
	"aneu sielou kai/h loipwn lipantikwn",
	"giati h moira ki o kairos toxan orisei",
	"prin tou kahmou thn porta na xtyphsei",
	"me shmadia mustika kai rizika",
	"panw sto manthli poy brhke sto sergiani tou prox8es",
	"ston paradeiso, ekei poy briskei ayta poy pantote po8ouse",
	"sthn troxia twn xamenwn",  "se plateies san tou pekinou",
	"ftiaxnontas tragoudakia me ta pio omorfa stixakia sto refrain gia to xameno tou agwna poy t'asterakia meinan mona na ton klain",
	"gia na gurisei disko, 8ar8ei omws kairos ki esu gia na peisteis pws etsi den th briskw",
	"lousmena sto kwneio",  "sta tasakia",  "sta pagkakia",
	"pagideumena sto SNMP",  "me LMTP",  "sfhnwmena anamesa sta racks",
	"ta3ideuontas anamesa se kitrina dentra katw ap' to plagiasma ths nuxtas",
	"tragoudwntas sth broxh ",  "sto teleytaio ploio gia thn amorgo",
	"ston 13o orofo",  "plai se makria spa8ia kai se stoles skismenes",
	"epi tas",  "ston anemomulo",  "sthn agora tou alxalili",
	"mes ton prasino to mulo poy ta pairnan ta xuysa",
	"panw se prionokordeles ksulourgwn",  "opoy laxei",
	"panw se trifulla kroustas",  "mesa se 2metra racks",
	"sto mpourdelo ths 8eias tou James Brown",
	"sta tessera me gourounopoula sthn plath gia kamouflaz",
	"panw se ena bouno citations",  "a la bayes",  "mesa se asteriskous",
	"panw se E1 TU's",  "panw se Siemens AXE-10s",
	"panw se anaphra DSL modems ths Intracom",  "panw se Ericsson ESWD's",
	"panw se HiCom PBXs",  "panw se ATM switches ths Fore",
	"mesa se plummhrismena Data Centers",  "mesa se ena Sun Fire 480R",
	"panw se mia stoiba periodika beltiwsewn",  "mesa sto Earth Simulator",
	"panw se elliptic curves",  "mesa se ena VW VR6",
	"panw sthn aspida tou Odin",  "me to sfuri tou Thor",
	"panw ston tafo tou Douglas Adams",  "panw ston tafo toy Jon Postel",
	"with the ONE ring",  "panw sta buzia ths Nicole Smith",
	"mesa se AWACS en pthsei",  "mesa sto Challenger",  "mesa sto Columbia",
	"grhgora kai peftei me aleksiptwto prin rwthsei h daskala tou plhrwmatos ;RE PAIDIA TI KANEI AUTO TO KOUMPI?' ",
	"me moufes",  "panw ston Sputnik",  "dhmosiws stis kamares",
	"ap' tis patouses",  "stis plagies tou Rivendell",
	"stis plagies ths Roumelhs",  "a la Rocco Bathtub",
	"stis korfes tou pshloreith",  "stis korfes tou Fujiyama",
	"sthn edra twn Hnwmenwn E8nwn",  "sto die8nes dikasthrio ths xaghs",
	"se mia semnh teleth sta Kabeiria ths Lhmnou",  "topika kai uperastika",
	"ekei pshla sto loutraki",  "semna kai omorfa",
	"panw se mia stoiba apo psofia PCia",  "sths Pargas ton anhforo",
	"me ena bugfree script"
);

IRC::print "GamaScript v$gama_vnum ($gama_vdate) for XChat\nBy GnuLxUsr ( apollon\@planewalk.net )\n";

IRC::print "Data: ".	scalar @gama_manners ." manners and " .
			scalar @gama_places ." places.\n";
IRC::print "Usage: /gama nick\n";
#IRC::print " --- Xtra TroutZ data by the infamous >ricudi<\n";

#$gama_rand1=$gama_rand2=$gama_rand3=$gama_rand4=$gama_rand5=0;
$gama_rand1=$gama_rand2=0;

sub gama
{
	# Initialize just once
	if ($gama_rand1==0) { srand; }
	# IRC::print("old:$rand1/$rand2/$rand3/$rand4");

	# Make sure we don't get the same value twice
	#until ($rand1a!=$gama_rand1 && $gama_rand2a!=$gama_rand2 && $gama_rand3a!=$rand3 && $gama_rand4a!=$rand4 && $gama_rand5a!=$rand5) {
	until ($rand1a!=$gama_rand1 && $rand2a!=$gama_rand2) {
		$rand1a = rand @gama_manners;
		$rand2a = rand @gama_places;
		#$rand3a = rand @sizes;
		#$rand4a = rand @trouts;
		#$rand5a = rand @slaps;
	}

	$gama_manner = @gama_manners[$rand1a];
	$gama_place = @gama_places[$rand2a];
	#$manner = @manners[$rand2a];
	#$size = @sizes[$rand3a];
	#$trout = @trouts[$rand4a];
	# IRC::print("new:$rand1a/$rand2a/$rand3a/$rand4a");

	# Save values so we can check for repetition
	$gama_rand1=$rand1a;
	$gama_rand2=$rand2a;
	#$gama_rand3=$rand3a;
	#$gama_rand4=$rand4a;
	#$gama_rand5=$rand5a;
	
	IRC::command("/me gamei $gama_manner@_ $gama_place");
	return 1;
}

