Elenco delle Gilde"
txt = txt + "
Clicca sulla freccia in avanti, così io mi avvicinerò al Castello.
Ricorda che cliccando sull'Icona del libro viola [?] ottieni una guida veloce di tutti i comandi.
ATTRLIST introductory=1,dark=1
PANEL initial
IMAGE castledist.png
ROOM pre1a
NAME Regolamento e privacy
DESCRIPTION @privacy()
ATTRLIST introductory=1
PANEL initial
IMAGE castledist.png
ROOM pre2
NAME scelta della Classe
ATTRLIST introductory=1
PANEL initchoice
IMAGE SHOWAREA 0,130,-1 castlemid.png
ROOM start
NAME al Cancello
DESCRIPTION C'e' un cancello chiuso verso Sud, mentre il castello di trova in direzione Nord.
IMAGE N SHOWAREA 100,300,10 start.jpg
IMAGE S SHOWAREA 100,300,10 1.png
ATTRLIST mapx=100,mapy=181
ROOM R2
NAME Entrata
IMAGE N 2.jpg
IMAGE E 3.png
IMAGE S 4.png
IMAGE W 5.png
ATTRLIST mapx=100,mapy=169
ROOM B
NAME torre Sud-Ovest
DESCRIPTION Qui c'è una piccola stalla per cavalli. Vicino c'e' un mucchio di fieno.
IMAGE N 6.png
IMAGE E 7.png
IMAGE S 8.png
IMAGE W 9.jpg
ATTRLIST mapx=45,mapy=163
ROOM guildroom
NAME Sala delle gilde
DESCRIPTION @guildroom_description()
IMAGE S armoroom2.jpg
ATTRLIST mapx=21,mapy=175
ROOM cell
NAME stalla
IMAGE W SHOWAREA 120,300,-1 pictureevme1.gif
IMAGE E SHOWAREA -1,320,-1 pictureevme4.gif
ATTRLIST mapx=25,mapy=143
ROOM C
NAME lato Ovest
IMAGE N 10.png
IMAGE E 11.jpg
IMAGE S SHOWAREA 100,-1,-1 12.png
IMAGE W 13.jpg
ATTRLIST mapx=41,mapy=102
ROOM bscell
NAME bottega del fabbro
IMAGE W SHOWAREA 0,295,12 pictures1.gif
DESCRIPTION @bscell_description()
ATTRLIST mapx=25,mapy=102
ROOM D
NAME torre Nord-Ovest
IMAGE N 14.jpg
IMAGE E 15.png
IMAGE S 16.png
IMAGE W 17.jpg
ATTRLIST mapx=39,mapy=56
ROOM E
NAME lato Nord
IMAGE N 400x230 18.png
IMAGE E 19.png
IMAGE S 20.jpg
IMAGE W 21.png
ATTRLIST mapx=101,mapy=52
ROOM F
NAME torre Nord-Est
IMAGE N 22.jpg
IMAGE E 23.jpg
IMAGE S 24.png
IMAGE W 25.png
ATTRLIST mapx=155,mapy=58
ROOM G
NAME lato Est
IMAGE N 26.png
IMAGE S 27.png
ATTRLIST mapx=161,mapy=104
ROOM T
NAME torre Sud-Est
IMAGE N 28.png
IMAGE E 29.jpg
IMAGE S 30.png
IMAGE W 31.png
ATTRLIST mapx=156,mapy=158
ROOM bank
NAME Banca di Garumir
IMAGE S armoroom.jpg
DESCRIPTION @bank_description()
ATTRLIST mapx=169,mapy=170
ROOM R4
NAME scalinata d'ingresso
IMAGE N SHOWAREA 50,350,-1 32.jpg
IMAGE S SHOWAREA 50,350,-1 33.jpg
ATTRLIST mapx=100,mapy=150
ROOM hall
NAME ingresso
IMAGE N SHOWAREA 50,-1,-1 34.jpg
IMAGE E 35.jpg
IMAGE S 36.jpg
IMAGE W 37.jpg
ATTRLIST mapx=100,mapy=140
ROOM biblio
NAME biblioteca
IMAGE W SHOWAREA 50,350,-1 38.jpg
ATTRLIST mapx=70,mapy=140
ROOM salotto
NAME salone
IMAGE E 39.jpg
ATTRLIST mapx=130,mapy=140
ROOM J
NAME inizio del corridoio
IMAGE N SHOWAREA 50,350,-1 40.jpg
IMAGE E 41.jpg
IMAGE S SHOWAREA 200,340,-1 42.jpg
IMAGE W 43.jpg
ATTRLIST mapx=100,mapy=121
ROOM armory
NAME l'armeria
DESCRIPTION @panelhtml("pbuyshop")+"
Questa è l'armeria del castello. Qui si acquistano e vendono articoli di ogni tipo."
PANEL pshop
IMAGE E SHOWAREA 60,-1,-1 44.jpg
ATTRLIST shop=1,shopkeeper=auron,mapx=130,mapy=121
ROOM upstairs
NAME atrio primo piano
IMAGE N SHOWAREA 100,-1,-1 housefire.jpg
ATTRLIST map=uw1_map_floor1.gif,mapx=95,mapy=136
ROOM salon1
NAME salone da ballo
IMAGE N lunarp2.jpg
IMAGE S room1.jpg
ATTRLIST map=uw1_map_floor1.gif,mapx=114,mapy=96
ROOM salon2
NAME sala delle guardie
IMAGE N bof1.jpg
ATTRLIST map=uw1_map_floor1.gif,mapx=82,mapy=101
ROOM salon2a
NAME la scala
IMAGE N SHOWAREA 172,236,86 staircse.jpg
ATTRLIST map=uw1_map_floor1.gif,mapx=54,mapy=102
ROOM upstcorr
NAME il corridoio al primo piano
IMAGE S upcorrs.jpg
IMAGE N upcorrn.jpg
ATTRLIST map=uw1_map_floor1.gif,mapx=54,mapy=69
ROOM seat
NAME sala del trono
DESCRIPTION @KingdomStats()
IMAGE N ballseat.jpg
ATTRLIST map=uw1_map_floor1.gif,mapx=53,mapy=34
ROOM warroom
NAME sala della Guerra
IMAGE N SHOWAREA 0,180,-1 warroom.jpg
DESCRIPTION @warroom_description()
ATTRLIST map=uw1_map_floor1.gif,mapx=27,mapy=67
ROOM castletop
NAME cima del castello
DESCRIPTION Da questa torretta posso osservare le campagne circostanti. Sotto, un corso d'acqua serpeggia attorno al castello e si perde in lontananza.
IMAGE W castletop.png
ATTRLIST map=uw1_map_floor2.gif,mapx=122,mapy=98
ROOM N
NAME centro corridoio
IMAGE N SHOWAREA 140,350,-1 45.jpg
IMAGE E 46.jpg
IMAGE S SHOWAREA 50,350,-1 47.jpg
IMAGE W SHOWAREA 0,150,-1 48.jpg
ATTRLIST mapx=101,mapy=103
ROOM P
NAME fondo al corridoio
IMAGE N SHOWAREA 50,250,-1 50.jpg
IMAGE E 51.jpg
IMAGE S SHOWAREA 50,250,-1 52.jpg
IMAGE W 53.jpg
ATTRLIST mapx=100,mapy=86
ROOM bar
NAME taverna
IMAGE E 49.jpg
ATTRLIST mapx=130,mapy=105
ROOM chapel
NAME cappella
IMAGE E SHOWAREA 100,300,-1 54.jpg
IMAGE W SHOWAREA 120,280,-1 55.jpg
ATTRLIST mapx=130,mapy=87
ROOM bedroom
NAME camera da letto
IMAGE N 56.jpg
ATTRLIST mapx=72,mapy=88
ROOM forest
NAME bosco
IMAGE N forest.jpg
ATTRLIST mapx=99,mapy=27
ROOM lake
NAME rive del fiume
DESCRIPTION Il fiume è circondato da una nebbia cupa. C'è una piccola barca, che purtroppo non potrebbe condurmi in alcun luogo.
PANEL pgather
IMAGE N lake.jpg
ATTRLIST mapx=98,mapy=11
ROOM dhall
NAME ingresso dei nani
DESCRIPTION Una piazza aperta con una fontana sotterranea ed una luce illumina un camino molto singolare.
IMAGE S 450x205 SHOWAREA 300,430,-1 dwarvenhall2.jpg
ATTRLIST map=uw1_map_floor-2.gif,mapx=157,mapy=63
ROOM cave1
NAME caverna piccola
IMAGE E donjohn1c.jpg
IMAGE W donjohn1b.jpg
ATTRLIST map=uw1_map_floor-2.gif,mapx=182,mapy=71
ROOM cave2
NAME caverna
IMAGE S lunari.jpg
IMAGE N lunari2.jpg
IMAGE W battle_yuu23.jpg
ATTRLIST map=uw1_map_floor-2.gif,mapx=167,mapy=89
ROOM cave3
NAME caverna
IMAGE W b6.jpg
IMAGE E b6f.jpg
ATTRLIST map=uw1_map_floor-2.gif,mapx=154,mapy=91
ROOM cave4
DESCRIPTION C'è una fontana qui, una scritta incisa sul muro dice che è alimentata da una sorgente magica.
NAME caverna
PANEL pgather
IMAGE N thron.jpg
ATTRLIST map=uw1_map_floor-2.gif,mapx=124,mapy=96
ROOM cave5
NAME caverna
IMAGE N lunar6b.jpg
ATTRLIST map=uw1_map_floor-2.gif,mapx=93,mapy=95
ROOM cave6
NAME caverna
IMAGE N lunars2.jpg
ATTRLIST map=uw1_map_floor-2.gif,mapx=44,mapy=93
ROOM cave7
NAME caverna
IMAGE N lavacave2.jpg
ATTRLIST map=uw1_map_floor-2.gif,mapx=11,mapy=93
DESCRIPTION @PanelHtml("pextract")
ROOM gateroom
NAME cancello catacombe
DESCRIPTION C'e' un cancello chiuso illuminato da due fuochi posti ai suoi lati
IMAGE S gateroom.jpg
ATTRLIST map=map_uw3.gif,mapx=133,mapy=108
ROOM hellfire
NAME cella
PANEL initial
END_ROOMS
LINKS
LINK w1 start-R2 N
LINK w2 R2-B W
LINK w3 R2-R4 N
LINK w4 R4-hall N
LINK w5 hall-biblio W
LINK w6 hall-salotto E
MLINK w20 hall-upstairs U
NAME scale
IMAGE 80x130 blank.gif
SHOW ONSCREEN 265,65 FOR 34.jpg
MLINK w20a upstairs-hall D NAME scale
LINK w7 hall-J N
LINK w8 J-N N
LINK w9 N-bar E
LINK w10 N-P N
MLINK st1 N-gateroom D
NAME scale
IMAGE 72x45 blank.gif
SHOW ONSCREEN 60,15 FOR 45.jpg
MLINK st1a gateroom-N U NAME scale
LINK c1 gateroom-gateroom S
MLINK tr1 gateroom-dhall D
NAME botola
ATTRLIST open=0,locked=1,unlocker=key3,linked=tr1a,imageOpen=tdopen.gif,imageClosed=td.gif
ICON trapdoor.gif
IMAGE 82x35 td.gif
SHOW ONSCREEN 155,5
MLINK tr1a dhall-gateroom U
NAME botola
ATTRLIST open=0,locked,unlocker=key3,linked=tr1,imageOpen=dhall_open.jpg,imageClosed=blank.gif
IMAGE 128x108 blank.gif
SHOW ONSCREEN 323,96
LINK w11 P-chapel E
LINK w12 T-R2 W
LINK w12a T-bank S
LINK w13 B-C N
LINK w13a B-cell W
LINK w13b B-guildroom S
LINK w14 C-D N
LINK w14a C-bscell W
LINK w15 D-E E
LINK w16 E-F E
LINK arch1 E-forest N
LINK wfola forest-lake N
LINK wboat lake-lake N
LINK w17 F-G S
LINK w18 G-T S
LINK w19 J-armory E
LINK w23 dhall-cave1 E
LINK w24 dhall-cave2 S
LINK w25 cave2-cave3 W
LINK w26 cave3-cave4 W
LINK w27 cave4-cave5 W
LINK w28 cave5-cave6 W
LINK w29 cave6-cave7 W
LINK door1 P-bedroom W
NAME porta
ATTRLIST open=0,locked=0,unlocker=key4,imageClosed=blank.gif,imageOpen=door1_open.jpg
ICON icoDoor.gif
IMAGE 87x162 blank.gif
SHOW ONSCREEN 122,43 FOR 53.jpg
LINK door2 C-bedroom E
NAME porta
ATTRLIST open=0,locked
ICON icoDoor.gif
MLINK p0 pre1-pre1a N
MLINK p0a pre1a-pre2 N
MLINK p1 pre2-pre2 N
MLINK w21a upstairs-salon2 N
NAME porta
ATTRLIST open=0,locked=0,unlocker=key2,linked=w21b,imageOpen=blank.gif,imageClosed=housefire_doorclosed.jpg
ICON icoDoor.gif
IMAGE 51x211 housefire_doorclosed.jpg
SHOW ONSCREEN 0,0
MLINK w21b salon2-upstairs S
NAME porta
ATTRLIST open=0,locked=0,unlocker=key2,linked=w21a
ICON icoDoor.gif
LINK w31 salon2-salon2a W
MLINK w22a upstairs-salon1 E
NAME porta
ATTRLIST open=0,locked,unlocker=key1,linked=w22b,imageOpen=door2open.gif,imageClosed=blank.gif
ICON icoDoor.gif
IMAGE 43x84 blank.gif
SHOW ONSCREEN 317,53
MLINK w22b salon1-upstairs E
NAME porta
ATTRLIST open=0,locked,unlocker=key1,linked=w22a,imageOpen=w22b_open.jpg,imageClosed=blank.gif
ICON icoDoor.gif
IMAGE 90x123 blank.gif
SHOW ONSCREEN 232,107 FOR room1.jpg
MLINK w30 salon2-castletop U
NAME scale
IMAGE 55x60 blank.gif
SHOW ONSCREEN 250,160
MLINK w30a castletop-salon2 D
NAME scale
IMAGE 32x48 blank.gif
SHOW ONSCREEN 60,105
MLINK w32a salon2a-upstcorr N
NAME porta
ATTRLIST open=0,locked=0,unlocker=key5,linked=w32b,imageClosed=blank.gif,imageOpen=w32a_open.jpg
ICON icoDoor.gif
IMAGE 65x107 blank.gif
SHOW ONSCREEN 180,100
MLINK w32b upstcorr-salon2a S
NAME porta
ATTRLIST open=0,locked=0,unlocker=key5,linked=w32a,imageOpen=blank.gif,imageClosed=w32b_closed.jpg
ICON icoDoor.gif
IMAGE 81x112 w32b_closed.jpg
SHOW ONSCREEN 165,52 FOR upcorrs.jpg
LINK w33 upstcorr-warroom W
NAME porta
ATTRLIST open=0,imageClosed=blank.gif,imageOpen=w33_open.jpg
ICON icoDoor.gif
IMAGE 39x148 blank.gif
SHOW ONSCREEN 85,63 FOR upcorrn.jpg
LINK w34 upstcorr-seat N
NAME porta
ATTRLIST open=0,imageClosed=blank.gif,imageOpen=w34_open.jpg
ICON icoDoor.gif
IMAGE 53x77 blank.gif
SHOW ONSCREEN 177,90 FOR upcorrn.jpg
END_LINKS
CHARACTERS
ATTRLIST Salute=10,Forza=1,Esperienza=0,type=0,Livello=1,gender=M
' Types from 10 to up are monsters
' from 1 to 9 are humans
' 0 means unattackable character
CHARACTER asia
NAME Asia
DESCRIPTION Asia è la principessa del Regno. Ha un'aria strana e mi fissa intensamente con la coda dell'occhio.
POSITION bedroom
ACCEPTS ring
ATTRLIST type=6,status=0,steady=1,pacific,nohands,balanceignore,gender=F,noteleport,remoteAddr=dummy
IMAGE 70x71 chrAsia.gif
SHOW ONSCREEN 160,75 FOR 56.png
CHARACTER nkono
NAME N'Kono
DESCRIPTION N'Kono è un guerriero Zulu. Cosa ci fa qui? Giuro che non lo so!
POSITION forest
ATTRLIST type=5,Classe=Guerriero,Forza=3,pacific,nohands
IMAGE 52x130 chrNkono.gif
CHARACTER guard
NAME la guardia
DESCRIPTION Che cosa vorrebbe fare con quella spada...?
POSITION E
IMAGE 55x90 guard.gif
ATTRLIST type=1,Classe=Guerriero,Livello=2,Forza=2,weapon=weapon.02.02.0000.sword,steady=1,nohands=1,keeper=1,pacific,noteleport
SHOW ONSCREEN 160,55 FOR 18.png
CHARACTER merlin
NAME Merlino
DESCRIPTION Sembra un vecchio stregone... Non dovrebbe essere pericoloso.
POSITION R4
IMAGE 54x90 merlin.gif
SHOW ONSCREEN
CHARACTER garumir
NAME Garumir
DESCRIPTION E' il banchiere del castello
POSITION bank
IMAGE 44x100 garumir.gif
ATTRLIST accepts=*
SHOW ONSCREEN 300,-1
CHARACTER guilford
NAME Lord Guilford
DESCRIPTION E' il capitano delle guardie
POSITION guildroom
IMAGE 86x120 odin.gif
'ATTRLIST accepts=*
SHOW ONSCREEN 130,-1
CHARACTER auron
NAME Auron
DESCRIPTION Auron è l'armaiolo del castello.
POSITION armory
IMAGE 48x72 auron3.gif
SHOW ONSCREEN
' Monsters
CHARACTER deathelem
NAME elementale nero
DESCRIPTION Non mi lascia proseguire.
POSITION cave3
IMAGE 104x95 deathelemental1.png
ATTRLIST type=15,Forza=7,steady,nohands,affi=0/4/0/0,artdefense=counterattack
SHOW ONSCREEN -1,-1 FOR b6.png
CHARACTER deathpede
NAME deathpede
DESCRIPTION E' una specie di bruco mostruoso.
POSITION cave6
IMAGE 84x80 dethpede.png
ATTRLIST type=11,Forza=7,nohands,affi=0/4/0/0,artdefense=survival
CHARACTER giantworm
NAME verme gigante
DESCRIPTION E' veramente orribile!
POSITION rndSet(setCastle)
IMAGE 100x125 horror091.gif
ATTRLIST type=11,vuln_mob,Forza=6,accepts=*,affi=0/4/0/0,artdefense=survival
CHARACTER template
NAME Te stesso
DESCRIPTION Scegli un tipo di personaggio usando le apposite icone.
POSITION pre2
IMAGE 64x100 uomo.gif
SHOW ONSCREEN 170,-1
ATTRLIST Classe=indefinita
END_CHARACTERS
ITEMS
ITEM book1
NAME libro grande
DESCRIPTION Un antico libro di incantesimi.
Sulla prima pagina e' riportato come titolo: Come risvegliare una creatura infernale dalle Tenebre.
Sembra avere un doppio fondo...
TYPE book1
POSITION biblio
ATTRLIST pickable,openable,open=0,uses=6,Valore=3,imageOpen=BookOpen1.gif,imageClosed=Book1.gif
ICON Book1.gif
IMAGE 26x36 Book1.gif
SHOW ONSCREEN 0,129 FOR 38.jpg
ITEM book2
NAME libro piccolo
DESCRIPTION Titolo: "Canzoni d'Amore: Antologia". E adesso cosa ci dovrei fare con questo?
POSITION book1
ATTRLIST type=book2,pickable,openable,open=0,Valore=3,imageOpen=BookOpen2.gif,imageClosed=Book2.gif
ICON Book2.gif
IMAGE 25x36 Book1.gif
SHOW ICON
ITEM hay
NAME fieno
DESCRIPTION Del normale fieno. E' completamente inutile!
POSITION B
ICON hay.gif
ATTRLIST pickable
IMAGE 32x32 hay.gif
SHOW ONSCREEN 325,30 FOR 9.jpg
ITEM pot
NAME calderone
DESCRIPTION Un calderone, in ghisa, molto pesante.
POSITION bscell
ATTRLIST open,openable=0,capacity=1
IMAGE 32x32 pot.gif
SHOW ONSCREEN
ITEM ciotola
NAME ciotola
DESCRIPTION Una ciotola di pietra. Ha dei piccoli fori ma può essere utile per trasportare sabbia.
POSITION cell
ATTRLIST type=bowl,open,openable=0,capacity=1,pickable,Valore=10
IMAGE 32x32 bowl.gif
ICON bowl.gif
SHOW ICON
ITEM fire
NAME il fuoco
DESCRIPTION Il fuoco sprigiona brevi lingue rosse sulle braci ardenti.
POSITION bscell
IMAGE 101x17 fire.gif
SHOW ONSCREEN 140,90
ITEM sand
NAME mucchio di sabbia
POSITION lake
ATTRLIST pickable
IMAGE 32x16 sandpack.gif
SHOW ONSCREEN 70,-1
ITEM powder
NAME polvere pirica
POSITION cave5
ATTRLIST pickable
IMAGE 48x48 blank.gif
SHOW ONSCREEN 160,120
ITEM martello
NAME martello
DESCRIPTION Un martello pesante e ben costruito.
POSITION bscell
ICON hammer.gif
IMAGE 40x40 hammer.gif
SHOW ICON 290,63
ITEM mould
NAME stampo
DESCRIPTION Uno stampo per bottiglie. In breve, coli dentro il vetro fuso e ottieni una bottiglia.
POSITION bscell
ICON mouldicon.gif
IMAGE 105x105 mould.gif
SHOW ICON 73,87
ITEM bomb
NAME bomba
POSITION armory
DESCRIPTION Una bomba. Usare con cautela.
ATTRLIST type=bomb,pickable,Valore=10,sound=match.wav,seller=auron,Livello=1
ICON bomb.gif
IMAGE 40x40 bomb.gif
SHOW ICON 240,64 FOR 44.jpg
ITEM trap
NAME meccanismo a scatto
POSITION armory
DESCRIPTION Un meccanismo a scatto, adatto a costruire trappole.
ATTRLIST type=trap,pickable,Valore=5,seller=auron,Livello=2
ICON trap.gif
IMAGE 40x40 trap.gif
SHOW ICON
' Magic Items
ITEM cross
NAME croce
POSITION chapel
DESCRIPTION Questa croce sembra essere fatta d'oro. Sembra comunque essere molto utile contro i vampiri. Potrebbe ritenersi molto importante!
ATTRLIST type=cross,pickable
ICON croce.gif
IMAGE 84x88 croce.gif
SHOW ICON
ITEM silvering
NAME anello d'argento
TYPE ring.silver
DESCRIPTION Un anello d'argento, con strane iscrizioni sopra.
POSITION seat
ATTRLIST pickable,volume=0,Valore=10
ICON icosilvering.gif
IMAGE 200x150 silvering.jpg
SHOW ICON
ITEM waterspell
NAME incantesimo dell'Acqua
POSITION rndSet(setAll)
DESCRIPTION Una piccola pietra con uno strano simbolo impresso sopra.
Un'iscrizione incisa nella roccia dice: Quando questo incantesimo è usato da un mago, riempie una bottiglia vuota di pozione curativa.
ATTRLIST type=spell.water,pickable,Valore=30,Livello=1
ICON spellwater.gif
IMAGE 48x48 spellwater.gif
SHOW ICON
ITEM firespell
NAME incantesimo del Fuoco
POSITION rndSet(setAll)
DESCRIPTION Una piccola pietra con uno strano simbolo impresso sopra.
Un'iscrizione incisa nella roccia dice: Quando questo incantesimo è usato da un mago, può provocare danno ai propri nemici.
ATTRLIST type=spell.attack.02.02.0004.fire,pickable,Potenza=2,Valore=20,sound=roarlong2.wav,Livello=2,affi=0/0/0/4
ICON spellfire.gif
IMAGE 48x48 spellfire.gif
SHOW ICON 30,110 FOR 44.jpg
ITEM windspell
NAME incantesimo del Vento
POSITION rndSet(setAll)
DESCRIPTION Una piccola pietra con uno strano simbolo impresso sopra.
Un'iscrizione incisa nella roccia dice: Quando questo incantesimo è usato da un mago, può provocare danno ai propri nemici.
ATTRLIST type=spell.attack.01.01.0040.wind,pickable,Potenza=1,Valore=15,sound=wind.wav,Livello=1,affi=0/0/4/0
ICON spellwind.gif
IMAGE 48x48 spellwind.gif
SHOW ICON
ITEM teleport
NAME incantesimo del Teletrasporto
POSITION rndSet(setAll)
DESCRIPTION Una piccola pietra con uno strano simbolo impresso sopra.
Un'iscrizione incisa nella roccia dice: Con questo incantesimo è possibile teleportare oggetti e persone in altri luoghi.
ATTRLIST type=spell.tele,pickable,Valore=10,sound=music.wav,hidden,Livello=1
ICON spellsun.gif
IMAGE 48x48 spellsun.gif
SHOW ICON
ITEM invis
NAME incantesimo dell'Invisibilità
POSITION Start 'rndSet(setAll)
DESCRIPTION Una piccola pietra con uno strano simbolo impresso sopra.
Un'iscrizione incisa nella roccia dice: Con questo incantesimo è possibile nasconderti agli occhi dei nemici.
ATTRLIST type=spell.invis,pickable,Valore=20,sound=music.wav,hidden,Livello=3
ICON spellxplode.gif
IMAGE 48x48 spellxplode.gif
SHOW ICON
ITEM whirl
NAME incantesimo del Vortice
POSITION rndSet(setAll)
DESCRIPTION Una piccola pietra con uno strano simbolo impresso sopra.
Un'iscrizione incisa nella roccia dice: "I loro oggetti cadranno come foglie al vento".
ATTRLIST type=spell.whirl,pickable,Valore=20,sound=wind.wav,hidden,Livello=4
ICON spellwhirl.gif
IMAGE 48x48 spellwhirl.gif
SHOW ICON
ITEM gemini
NAME incantesimo dei Gemelli
POSITION rndSet(setAll)
DESCRIPTION Una piccola pietra con uno strano simbolo impresso sopra.
Un'iscrizione incisa nella roccia dice: "Sei il frutto di madre terra possiederai, le Armi Magiche moltiplicherai.".
ATTRLIST type=spell.gemini,pickable,Valore=30,Livello=2
ICON spellgemini.gif
IMAGE 48x48 spellgemini.gif
SHOW ICON
' Weapons
ITEM sword
NAME spada
POSITION guard
DESCRIPTION Una spada elegante e in buono stato.
ATTRLIST type=weapon.02.02.0000.sword,pickable,Potenza=2,Valore=200,sound=swordlong.wav,Livello=2
ICON sword1.gif
IMAGE 40x40 sword1.gif
ZOOMIMAGE 300x225 sword_revenge.jpg
SHOW ONSCREEN 243,90 FOR 44.jpg
ITEM sword2
NAME spada
POSITION armory
DESCRIPTION Una spada elegante e in buono stato.
ATTRLIST pickable,type=weapon.02.02.0000.sword,seller=auron,Potenza=2,Valore=20,sound=swordlong.wav,Livello=2
ICON sword1.gif
IMAGE 40x40 sword1.gif
ZOOMIMAGE 300x225 sword_revenge.jpg
SHOW ONSCREEN 243,90 FOR 44.jpg
ITEM dagger
NAME pugnale
POSITION armory
DESCRIPTION Un normalissimo pugnale
ATTRLIST type=weapon.01.01.0000.dagger,pickable,seller=auron,Potenza=1,Valore=10,sound=sword1.wav,Livello=1
ICON sword1.gif
IMAGE 30x30 sword1.gif
SHOW ONSCREEN 7,10 FOR 44.jpg
ITEM axe
NAME ascia
POSITION cave4
DESCRIPTION Un'ascia bella pesante.
ATTRLIST type=weapon.03.03.0000.axe,pickable,Potenza=3,Valore=30,sound=sword2.wav,Livello=3
ICON dblaxe.gif
IMAGE 40x40 dblaxe.gif
SHOW ONSCREEN
' Armour
ITEM bodyiron
NAME armatura di ferro
POSITION armory
DESCRIPTION Una armatura di ferro.
ATTRLIST type=armour.02.05.0000.iron,pickable,seller=auron,Protezione=5,Valore=25,volume=0,Livello=2,material=iron
ICON bodyprot4.gif
IMAGE 32x32 bodyprot4.gif
SHOW ONSCREEN 186,73 FOR 44.jpg
ITEM shieldwood
NAME scudo di legno
POSITION salon1
DESCRIPTION Uno scudo di legno.
ATTRLIST type=shield.01.01.0000.wood,pickable,Protezione=1,Valore=15,Livello=1,material=wood
ICON shieldwood3.gif
IMAGE 32x32 shieldwood3.gif
SHOW ONSCREEN
ITEM shieldiron
NAME scudo di ferro
POSITION armory
DESCRIPTION Uno scudo di ferro.
ATTRLIST type=shield.02.05.0000.iron,pickable,seller=auron,Protezione=5,Valore=25,Livello=2,material=iron
ICON shieldiron3.gif
IMAGE 32x32 shieldiron3.gif
SHOW ONSCREEN 186,110 FOR 44.jpg
ITEM helmet1
NAME elmetto semplice
POSITION castletop
DESCRIPTION Un elmetto da guerra di tipo leggero.
ATTRLIST type=helmet.01.01.0000.wood,pickable,Protezione=1,Valore=15,volume=0,Livello=1,material=wood
ICON cap3.gif
IMAGE 48x48 cap3.gif
SHOW ICON
ITEM helmet2
NAME elmetto di ferro
POSITION salon2a
DESCRIPTION Un elmetto da guerra di tipo pesante.
ATTRLIST type=helmet.02.05.0000.iron,pickable,Protezione=5,Valore=25,volume=0,Livello=2,material=iron
ICON helmet5.gif
IMAGE 48x48 helmet5.gif
SHOW ICON
' Drinks
ITEM poison
NAME un Liquore
POSITION bar
DESCRIPTION Un liquore fatto in casa, preparato con un'antica ricetta a base di erbe naturali. Sembra invitante!
ATTRLIST type=bottle.poison,pickable
ICON bottle3.gif
SHOW ICON 150,108 FOR 49.jpg
IMAGE 60x90 veleno.gif
ITEM potion1
NAME pozione di cura
POSITION J
DESCRIPTION L'etichetta dice: "Pozione di Cura"
ATTRLIST type=bottle.potion,pickable,Valore=5,uses=5
ICON bottle3.gif
SHOW ICON
IMAGE 60x90 potion.gif
ITEM potion2
NAME pozione di cura
POSITION forest
DESCRIPTION L'etichetta dice: "Pozione di Cura"
ATTRLIST type=bottle.potion,pickable,Valore=5,uses=5
ICON bottle3.gif
SHOW ICON
IMAGE 60x90 potion.gif
ITEM potion3
NAME pozione di cura
POSITION armory
DESCRIPTION L'etichetta dice: "Pozione di Cura"
ATTRLIST type=bottle.potion,pickable,Valore=5,uses=5,seller=auron
ICON bottle3.gif
SHOW ICON 101,92 FOR 44.jpg
IMAGE 60x90 potion.gif
' Hints
ITEM scroll
NAME pergamena
POSITION R2
DESCRIPTION Srotolandola si legge: Ucciderò tutte le bestie che incontrerò e salverò la Principessa.
Spero di riuscire nel mio intento.
Se tu stai leggendo queste mie parole, probabilmente io ho fallito.
Possa Dio assisterti straniero, cosicché tu riesca dove io ho fallito!"
Firmato: J.D.
ICON scroll.gif
IMAGE 100x100 pergamena.gif
SHOW ICON
ITEM scroll2
NAME pergamena
POSITION rndSet(setCastle)
DESCRIPTION Srotolando la pergamena si legge: Prima di gettarmi nella battaglia, ho deciso di nascondere il mio oro in un luogo sicuro, nelle stanze del castello e nella corte. Se stai leggendo questa pergamena, probabilmente non ne avro' piu' bisogno, meglio quindi che finiscano nelle tue mani, CERCALE.
Firmato: P.V.
ATTRLIST pickable
ICON scroll.gif
SHOW ICON
IMAGE 100x100 pergamena.gif
' Insects and plants
ITEM spider
NAME ragno
POSITION rndSet(setCastle)
DESCRIPTION Un ragno... disgustoso!
ATTRLIST pickable,hidden
ICON icospider.gif
IMAGE 54x32 spider_walk.gif
SHOW ICON
ITEM cymbidium
NAME cymbidium
POSITION forest
DESCRIPTION una pianta di Cymbidium Goeringii. Che bella.
ATTRLIST pickable,branches=10
ICON cymbidium.gif
IMAGE 100x100 cymbidium.gif
SHOW ICON
ITEM garlic
NAME aglio
TYPE garlic
POSITION rndSet(setAll)
DESCRIPTION uno spicchio d'aglio. Puzza un pò.
ATTRLIST type=garlic,pickable,hidden,Valore=20
ICON garlic.gif
IMAGE 70x70 garlic.gif
SHOW ICON
' Keys
ITEM key1
NAME chiave di rame
TYPE key1
DESCRIPTION Ogni serratura ha la sua chiave... ed ogni chiave apre una serratura. O no?
ATTRLIST pickable,Valore=1
ICON key.gif
IMAGE 67x50 chiavegold.gif
SHOW ICON
ITEM key2
NAME chiave di ferro
TYPE key2
POSITION book2
DESCRIPTION Una chiave che sicuramente aprirà qualcosa!
ATTRLIST pickable,Valore=1
ICON keysilver.gif
IMAGE 67x50 chiavegold.gif
SHOW ICON
ITEM key3
NAME chiave lucida
TYPE key3
POSITION B
DESCRIPTION Una piccola chiave lucida.
ATTRLIST pickable,hidden,Valore=1
ICON key.gif
IMAGE 67x50 chiavegold.gif
SHOW ICON 328,38 FOR 9.jpg
ITEM key4
NAME chiave d'oro
TYPE key4
DESCRIPTION Una chiave dorata.
ATTRLIST pickable,Valore=30
ICON key.gif
IMAGE 67x50 chiavegold.gif
SHOW ICON
ITEM key5
NAME chiave di bronzo
TYPE key5
DESCRIPTION Una chiave che sicuramente aprirà qualcosa!
ATTRLIST pickable,Valore=1
ICON key.gif
IMAGE 67x50 chiavegold.gif
SHOW ICON
' Money
ITEM coins
NAME monete
TYPE money
POSITION hall
ATTRLIST hidden,pickable,Monete=5,volume=0
ICON money.gif
IMAGE 31x31 money.gif
SHOW ICON
ITEM jukebox
NAME juke-box
POSITION bar
IMAGE 83x129 jukebox.gif
ATTRLIST capacity=1,open,openable=0
SHOW ONSCREEN 12,38
END_ITEMS
SETS
SET setCastle R4,J,N,P,biblio,hall,salotto,bar,gateroom,upstairs
SET setAll J,N,P,biblio,salotto,armory,chapel,bar,R2,B,C,D,E,F,G,gateroom,dhall,upstairs,cell,bscell,cave1,cave2,cave3,cave4,cave5,cave6,cave7,salon1,salon2,salon2a,castletop,upstcorr,seat,warroom
SET setCovered Start,guildroom,bank,cell,bscell,R4,J,N,P,armory,hall,biblio,salotto,chapel,bar,gateroom,upstairs,dhall,cave1,cave2,cave3,cave4,cave5,cave6,cave7,salon1,salon2,salon2a,upstcorr,seat,bedroom,warroom
END_SETS
SCRIPTS
Include "it_commons.dxl"
' Tutto inizia da questo evento
'
EVENT onStart
Call common_onStart()
mode=1 'Game mode 1=phase1 2=phase2
Call config()
mkilled=0 'Killed monsters counter
hkilled=0 'Killed humans counter
population=0 'Population (phase2)
taxes=2 'Taxes, coins per day (phase2)
starved=0 'Starved people (phase 2)
kingTicks=0 'Ticks counter
killfriend=0 'Kill counter for citizens phase 2
killenemy=0 'Kill counter for enemies phase 2
guildOps = NewSet("0new=Fonda nuova gilda,1edt_logo=Imposta logo (url),2edt_web=Imposta homepage gilda (url),3fund=Versa (soldi) per gilda,8del=Cancella gilda,4info=Info su (nome),5appr=Approva iscrizione di (nome),5ban=Espelli membro (nome),5purge=Ripulisci gilda,6status=Calcola situazione gilda,7delegate=Delega sottocapo (nome),8deldele=Revoca delega a (nome),8type=Cambia tipologia gilda") 'managed apart: leave/join
warOps = NewSet("1wardecl=Dichiara guerra a...,2warcancel=Annulla guerra con...,6guildstatus=Aggiorna situazione vittorie")
craftOps = NewSet("10ren=Rinomina oggetto ...,20img=Modifica immagine ...,22rde=Modifica descrizione,23lev=Imposta livello ...,30pro=Imposta protezione/potenza ...,40prx=Imposta prezzo ...")
arrDrinks = NewSet("1=una birra,2=del vino,3=del succo d'uva")
arrShopkeepers = NewArray("auron")
msgKingQueen = NewSet("F=regina,M=re")
guard.weapons = NewArray("weapon.02.02.0000.sword")
Call LoadContext() ' Reads game saved status from disk
Call updFrontpageText()
Call doRndMusic()
' Create vampire or ghost
Call popMonster(6,monstersPopupSet)
' Create werewolf
Call popMonster(5,monstersPopupSet)
' Create 3 more random monsters
Call CalcAvgPower()
Call popMonster(avgPowerHumans,monstersPopupSet)
Call popMonster(avgPowerHumans,monstersPopupSet)
Call popMonster(avgPowerHumans,monstersPopupSet)
Call NewItem(RndSet(setCastle),"bomba","E' una bomba.",NewImage("bomb.gif",40,40),"type=bomb,pickable,Valore=10,sound=match.wav,icon=bomb.gif,showmode=2")
If debugtype<>0 Or mode=2
Dim passg = NewItem(cave7,"un passaggio","Una uscita all'esterno",NewImage("crack1.gif",46,64),"type=passg,pickable=0,showmode=1,showx=0,showy=150,hideable")
AttachEvent passg,"onLook","transfer2"
tr1.locked=0
tr1a.locked=0
End_If
If debugtype = "war"
w21a.locked=false
w21b.locked=false
w22a.locked=false
w22b.locked=false
w32a.locked=false
w32b.locked=false
notifyinterval = "000000000000" ' Notification interval for guild wars
guildwar_duration = "000000000001" ' Duration interval for guild wars
guildwar_mindiff = 0.01
guildwar_prizeperc = 0.001
End_If
If debugtype = "cmds"
Dim i
For i = 1 To 10
Call popHuman(avgPowerMonsters,monstersPopupSet)
Next
End_If
End_EVENT
'
' Game configuration parameters
'
Sub config()
If debugmode 'Must set debugMode=1 in worldnav.properties for enabling the following
debugtype="craft" ' 1=debug end phase 1, 2=debug king mode, 3=debug other area, gem=debug gemini spell, war=debug war system, shop=debug shop, cmds=Commands to pg, craft=Craftsman
End_If
targkilled=40 'Killed Monsters target
maxTicks=4800 'Ticks to the evil crusade victory
monstersPopupSet=setCastle 'Set of rooms where monsters will pop up
escapeSet=setCastle 'Set of rooms where monsters can escape
lake.effect = NewImage("mist.gif",400,200) ' New! Animated effect for lake
scoretype=10 'Type of scoring method
baseprofiles = NewSet("s1=15,e1=10,s2=8,e2=15,s4=15,e4=15,s10=17,e10=8,s16=17,e16=8,s12=17,e12=8,s14=17,e14=8,s19=17,e19=8,s11=17,e11=8")
guildmemberprice = 200 'Price for each guild member
disable_locking = 1 'Set to 1 to disable doors locking
' Guild Wars Config
notifyinterval = "000000000002" ' Notification interval for guild wars
guildwar_duration = "000000000100" ' Duration interval for guild wars
guildwar_mindiff = 0.01 ' Minimum difference for win (kills per player)
guildwar_prizeperc = 0.001 ' Percentage for prizes
guildwar_cost = 10 ' Cost for war declaring
End_Sub
Sub onNew_local()
'Speak $AGENT,frontpagetext
'****************
' Wars management
'****************
Dim w = war_menaced($AGENT.guild)
If w <> null
Speak SYS,$AGENT,"La gilda "+guildnames(w("comp1"))+" vi ha dichiarato guerra! AVVISA I TUOI ALLEATI!"
If w("starting") <> null
' Starting time already defined
If w("starting") > getTime("yyyyMMddHHmm")
Speak SYS,$WORLD,"La guerra "+w("name")+" inizierà il "+FormatTs(w("starting"))+"!"
Else
' Start now
If war_start(w("comp1"),w("comp2"),w("duration"))
Speak SYS,$WORLD,"La guerra "+w("name")+" E' INIZIATA!!!"
Else
Speak SYS,$AGENT,"Impossibile iniziare la guerra."
End_If
End_If
Else
If war_schedule(w("comp1"),w("comp2"),w("timestamp"),w("duration"),notifyinterval)
Speak SYS,$WORLD,"La guerra "+w("name")+" inizierà tra "+FormatTimeInterval(notifyinterval)+" da adesso!!!"
Else
Speak SYS,$AGENT,"Impossibile preparare la guerra."
End_If
End_If
Return
End_If
Dim w = war_running($AGENT.guild)
If w <> null
If w("finishes") <> null And w("finishes") < getTime("yyyyMMddHHmm")
'Update stats
Call getGuildKillStats(w("comp1"),false)
Call getGuildKillStats(w("comp2"),false)
'Record in past wars
pastwars(w("name")) = "Finita il " + getTime("dd/MM/yyyy") + ": " + WarComment(w,w("comp1"),w("comp2"),true)
Call war_result(w,w("comp1"),w("comp2"),$AGENT)
saveSetting "ctx_pastwars",pastwars
SetRemove guildwars,w("comp1")+"*"+w("comp2")
SetRemove guildwars,w("comp2")+"*"+w("comp1")
saveSetting "ctx_guildwars",guildwars
Speak SYS,$WORLD,"La guerra "+w("name")+" è TERMINATA!!"
Else
Speak SYS,$AGENT,"Siete in guerra: "+w("name")+"!!"
End_If
End_If
'****************
' Debug modes
'****************
If debugtype = ""
Return
' Quick exit
End_If
If debugtype="shop"
Move $AGENT,armory
$AGENT.Livello=7
Call giveMoney($AGENT,500)
End_If
If debugtype="craft"
Call NewItem($AGENT,"pietra","E' un blocco di minerale roccioso.",NewImage("spelltablet.gif",48,48),"pickable,showmode=2,icon=spelltablet.gif,type=stone,Valore=2")
Move shieldwood,$AGENT
End_If
If debugtype=2
mode=2
w21a.locked=false
w21b.locked=false
w22a.locked=false
w22b.locked=false
w32a.locked=false
w32b.locked=false
'population = 200
'Move $AGENT, seat
Dim crown = getContainedType($WORLD,"crown")
If Exists(crown)
Move crown,$AGENT
Else
Call NewKing($AGENT,false)
End_If
richness=30
Call livePopulation($AGENT)
End_If
End_Sub
Sub onTick_local()
kingTicks=kingTicks+1
If debugtype=2
Call updateKingdom("FULL")
Else
Call updateKingdom(null)
End_If
Call updFrontpageText()
If mode=1
' Phase 1 in progress
If kingTicks>=maxTicks
'Evil wins
Kill asia
Goal "I mostri vincono: Il tempo è scaduto e la principessa è stata divorata dai mostri."
End_If
'Pop up devilman?
If mkilled >= targkilled And Not(key4appeared)
'If target number of killed monsters reached AND key4 not appeared yet
'pop devilman and place key4 in him
Call popDevilman()
End_If
End_If
If mode=0
' Game has been just won
' Experimental: enter phase 2
mode=2
saveSetting "ctx_mode",mode
End_If
End_Sub
Sub crown_whenPicked()
If ExistScript("NewKing")
Call NewKing($TARGET,false)
End_If
End_Sub
EVENT pre2.onReceive
Print "Il castello di Graiel è a pochi passi da qui.
Prima di entrare però, dovrai decidere a quale classe appartengo.
Clicca l'icona di ogni classe per vederne le caratteristiche. Per accettare la classe selezionata, clicca la freccia in avanti."
template.image = NewImage("uomo.gif",64,100)
template.Classe = "Guerriero"
template.description = "Scegli una classe di personaggio usando le apposite icone."
EVENT pre2.onLoose
If $TARGET = p1
' Check that we are exiting from the castle gate
If $AGENT.type=0
Speak "DEVI decidere che personaggio diventare prima entrare nel Regno!"
Return 0
End_If
Display "Sono diventato " + $AGENT.Classe + "!"
Call chooseAffinity($AGENT,"Start")
Return
End_If
EVENT cave3.onLoose
If $TARGET=w25
$AGENT.facing = "N"
Return
End_If
If deathelem<>null
If $TARGET=w26 And deathelem.container = cave3
Speak deathelem, $AGENT, "Grrrrrrrrr..."
Call doAttack(deathelem,$AGENT,null,true)
Return 0
End_If
End_If
End_EVENT
EVENT guilford.onLook
Speak "Sono il capitano delle guardie...","La gente qui usa formare delle Gilde...","Potete fondare una gilda oppure entrare in una già esistente!"
Print PanelHtml("pguilds")
$OWNER.__clearInfo=true
END_EVENT
EVENT garumir.onLook
Dim richest = SetKeyOfMax(garumir.accounts)
Speak "Depositate qui le vostre monete! Così non rischierete di perderle.","Per depositare, datemi le monete che volete mettere al sicuro.","Per prelevare, clicca Preleva. Puoi persino specificare la cifra nella casella di testo.","Sapete chi possiede più ricchezza? E' " + richest + ", ne possiede " + garumir.accounts(richest)
Print PanelHtml("pbank")
'$AGENT.__clearFocus=true
$OWNER.__clearInfo=true
END_EVENT
EVENT garumir.onHear
Speak "Non capisco quelo che dite, di dove siete?","Datemi le vostre monete, invece di perder tempo."
END_EVENT
EVENT garumir.onReceiveItem
Dim howmuch = Int($TARGET.Monete)
If howmuch <= 0
Speak $OWNER,$AGENT,"Potete depositare qui solo le vostre monete."
Move $TARGET,$AGENT.container
Return false
Else
Call deposit_money($AGENT,$OWNER,howmuch)
Kill $TARGET
End_If
END_EVENT
Sub deposit_money(from,banker,howmuch)
Dim credits = from.Crediti
Dim text = ""
If credits <> banker.accounts(from.name)
credits = banker.accounts($AGENT.name)
text = "I crediti che vantate non sono corretti. Vi dovevo in verità " + credits + " monete. "
End_If
banker.accounts(from.name) = Int(credits) + howmuch
from.Crediti = banker.accounts(from.name)
text = text + "Vi devo ora: " + from.Crediti + " monete."
Speak banker,from,text
If banker.accounts(from.name) <= 0 'Cleanup
SetRemove banker.accounts,from.name
End_If
End_Sub
Sub morubar_onLook
Speak "Io tengo la contabilità del regno!", "Le ricchezze reali ammontano a " + $WORLD.richness + " monete."
Sub morubar_onHear
Speak "Se non sapete come governare, leggete la guida. Cliccate l'icona [Spiega]!"
EVENT morubar_onReceiveItem
If $WORLD.richness >= 30
Speak $OWNER,$AGENT,"Non posso accettare, abbiamo denaro sufficiente."
Move $TARGET,$AGENT.container
Return false
End_If
If $TARGET.Monete <= 0
Speak $OWNER,$AGENT,"Solo monete, per favore."
Move $TARGET,$AGENT.container
Return false
End_If
If $WORLD.richness+$TARGET.Monete > 30
Speak $OWNER,$AGENT,"Posso attualmente accettare fino a " + (30 - $WORLD.richness) + " monete."
Move $TARGET,$AGENT.container
Return false
End_If
Speak $OWNER,$AGENT,"La vostra donazione in favore del regno è molto apprezzata."
$WORLD.richness = $WORLD.richness+$TARGET.Monete
Kill $TARGET
END_EVENT
EVENT auron.onLook
Speak "Ciao straniero, vuoi comprare qualcosa?", "Abbiamo un sacco di roba per combattere, guarda pure!"
$AGENT.__clearFocus=true
$OWNER.__clearInfo=true
END_EVENT
EVENT bedroom.onReceive
Call onReceive()
If door1.open=1 And asia.container = bedroom And asia.type < 10
' Asia sees someone entering
If $AGENT.type < 10
Speak asia,asia.container,"TENETE QUELLA PORTA CHIUSA, VE NE PREGO!!"
Else
Speak asia,$WORLD,"EEEEEEeeeeEEEeeekkkk!! Un mostro nella mia camera!! Aiuto! AIUTOOOOO!"
End_If
End_If
EVENT chapel.onReceive
Call onReceive()
If Exists(priest)
If priest.step > 0
Call priest_celebrate()
End_If
End_If
End_EVENT
EVENT chapel.onHear
If InStr($TARGET,"prete")
If Not(Exists(priest))
priest = NewCharacter(chapel,"il prete","",NewImage("priest.gif",64,100),"type=3,pacific,nohands,steady,noteleport")
Speak priest,priest.container,"Eccomi!"
AttachEvent priest,"onLook","priest_onLook"
AttachEvent priest,"onExit","priest_onDie"
End_If
Return
End_If
If Exists(priest) And priest.step > 0
Return priest_onHear($TARGET,$AGENT)
End_If
End_EVENT
EVENT asia.onReceiveItem
' When asia receives the ring...
If mode <> 1
Return
End_If
If asia.inlovewith <> $AGENT.name
Speak asia,$AGENT,"Oh grazie ma non posso accettare. Certo, se fossimo fidanzati..."
Move $TARGET,$AGENT
Return false
End_If
If asia.container = chapel
If Exists(priest)
If priest.step > 0 And priest.step < 4
Speak asia,$AGENT,"Ehm... caro... senti un pò quello che dice il prete..."
Move $TARGET,$AGENT
Return false
End_If
Goal $AGENT.name + ", " + $AGENT.Classe + " ha completato la fase 1 "
asia.status=3
Call NewKing($AGENT,false)
Else
Speak asia, chapel, "Grazie tante, e adesso che il prete è andato che si fa??"
Move $TARGET,$AGENT
Return false
End_If
Else
Speak asia,$AGENT,"Ok, ok, tienitelo per quando saremo davanti al prete..."
Move $TARGET,$AGENT
Return false
End_If
End_EVENT
EVENT asia.onHear
If $AGENT.type >= 10
'Monster
Speak asia,$WORLD,"EEEeeeeeek! " + $AGENT.name + " mi è addosso! Aiuto! Aiuto!"
Speak asia,$AGENT,"VATTENE!! VATTENE!!"
Return false
End_If
If $AGENT.gender = "M"
If asia.status < 1
Speak $OWNER,$AGENT,"COSA? Hey, dimmi qualcosa di ROMANTICO! Sarò rimasta chiusa qui per giorni, ma sono sempre una donna!","La tua fantasia è tutta qui? Perchè non impari da qualche buon libro di poesia? Oh gosh!","Hmmmm.... dimmi di più..."
End_If
If asia.status = 2
If $AGENT.hooked = asia
Speak $OWNER,$AGENT,"Oh, mio coraggioso compagno! Non perdiamo altro tempo! Portami all'altare!"
Else
Speak $OWNER,$AGENT,"Non ho tempo da dedicarti, scusami sai, devo pensare a organizzare le mie nozze..."
End_If
End_If
Else
Speak "Non voglio nulla da te, ma grazie. Non è che per caso hai un amico maschio da presentarmi?"
End_If
EVENT hay.whenPicked
Dim k = getContainedType(B,"key3")
If k <> null
k.hidden=false
End_If
EVENT guard.onLook
Speak "Ehi ferma!","Chi siete?!?","Ma quanti siete?","Che cosa portate?","Sì, ma quanti siete?","UN FIORINO!"
EVENT E.onLoose
If guard <> null
If $TARGET=arch1 And guard.container = E
Speak guard, $AGENT, "Non ci provare!", "Ti stai mettendo nei guai!", "Mi vuoi fare arrabbiare, dillo."
Call doAttack(guard,$AGENT,guard.weapon,true)
Return 0
End_If
End_If
EVENT nkono.onExit
' Bounces back Nkono if guard is in place
If guard <> null
If guard.container = E
Return 0
End_If
End_If
EVENT merlin.onLook
Dim merlinphrase,merlinphrase2=$WORLD.frontpagetext,merlinphrase3=getTournamentMessage()
If merlinphrase3 = null
If mode<2
merlinphrase3="Sai, con i miei poteri di veggente mi sembra di percepire che c'è oro " + coins.container.name + ""
Else
merlinphrase3="Clicca [SALVA] per salvare la partita e [SALVA E ESCI] prima di smettere."
End_If
End_If
If containsType("money",$AGENT,false)
merlinphrase = "Non dovreste andare in giro con tutto quel denaro, depositatelo in banca, da Garumir!"
Else
merlinphrase = "Ritira le tue monete da Garumir, e compra qualcosa di utile!"
End_If
Speak merlinphrase,merlinphrase2,merlinphrase3
End_EVENT
EVENT merlin.onHear
If $TARGET <> ""
If $TARGET = "cleanup"
Speak "Oh! Era questa la formula!"
Call cleanup()
Return
End_If
If $TARGET = "legion"
Dim i
For i = 1 To 10
Call popHuman(avgPowerMonsters,monstersPopupSet)
Next
Return
End_If
Speak "Oh interessante. Sembrate una persona in gamba, forse un giorno regnerete su queste terre.","Hm.","Aha."
Else
Speak "Non vi sento."
End_If
EVENT cross.whenPicked
If $TARGET.type > 9
Display $TARGET,"Ouch!! Non posso tenerla in mano..."
Move $OWNER,$TARGET.container
Return false
Else
PlaySound $TARGET,"fanfare.wav"
Display $TARGET,"Hey, mi sento bello arzillo!"
End_If
EVENT cross.onUse
If $AGENT = infected
' Heals infection
infected = ""
infector = ""
Display "Ahhhh.... Adesso va meglio."
$AGENT.Salute = $AGENT.Salute + 1
End_If
EVENT garlic.whenPicked
If $TARGET.type = 14
Display $TARGET,"Bleah!! Non posso soffrire l'aglio!!"
Move $OWNER,$TARGET.container
Return false
End_If
EVENT silvering.whenPicked
If $TARGET.type = 16
Display $TARGET,"Non voglio toccare l'argento!"
Move $OWNER,$TARGET.container
Return false
End_If
Return whenPicked()
EVENT silvering.onUse
If $AGENT = infected And infectype=16
' Heals infection
infected = ""
infector = ""
Display "Ahhhh.... Adesso va meglio."
$AGENT.Salute = $AGENT.Salute + 1
End_If
EVENT cymbidium.onExit
' Management of plants
Call getBranch($OWNER,$AGENT)
Return false
EVENT sand.onExit
' Management of sand
Dim cont = getContainedType($AGENT,"bowl")
If cont <> null
Dim new = NewItem(cont,"sabbia","",NewImage("sand.gif",32,32),"pickable,showmode=2,icon=sand.gif,type=sand,vanishing")
If new.container <> cont
Print "La ciotola è piena..."
Kill new
Else
Print "Ne metterò un pò nella ciotola."
End_If
Else
Print "Mi serve un contenitore adatto."
End_If
Return false
EVENT powder.onExit
' Management of powder
Dim cont = getContainedType($AGENT,"bowl")
If cont <> null
Dim new = NewItem(cont,"polvere pirica","",NewImage("powder.gif",32,32),"pickable,showmode=2,icon=powder.gif,type=powder,vanishing")
If new.container <> cont
Print "La ciotola è piena..."
Kill new
Else
Print "Ne metterò un pò nella ciotola."
End_If
Else
Print "Mi serve un contenitore adatto."
End_If
Return false
EVENT armory.onLooseItem
' Management of sold items
If $TARGET.seller <> ""
Display "E' in vendita."
Speak $TARGET.seller, $AGENT, "Hey, quello costa " + $TARGET.Valore + " monete!", "Ti serve " + $TARGET.name + " eh? E' in vendita, sai.", "Guarda: ti faccio un prezzo speciale: "+ $TARGET.Valore + " monete, solo perché sei tu!"
Return false
End_If
' Transfer function to move people to Area 2
Function transfer2
$AGENT.fromarea = $WORLD.name
MoveOutside $AGENT,"Sottomondo2"
Return False
End_Function
'Local explosives management
'input: cont=bomb container
Sub bombExplode_local(cont)
If cont=cave7 And Not(containsType(cont,"passg",false))
Dim passg = NewItem(cave7,"un passaggio","Una uscita all'esterno",NewImage("crack1.gif",46,64),"type=passg,pickable=0,showmode=1,showx=0,showy=150,hideable")
AttachEvent passg,"onLook","transfer2"
End_If
End_Sub
EVENT pre1.onReceive
' Teleport comers from other areas to correct places
If $TARGET.fromarea = "Sottomondo2"
Move $TARGET,cave7
End_If
If $TARGET.fromarea = "Sottomondo3"
Move $TARGET,gateroom
End_If
If $TARGET.fromarea = "Underworld4"
Move $TARGET,lake
End_If
End_EVENT
EVENT pre1.onReceiveItem
If $TARGET.type <> "msg"
'Unknown object, make it visible
Move $TARGET,start
Return
End_If
'Debug "Got command message. cmd=" + $TARGET.cmd
If HandleCommandMessage_Common($TARGET) = false
' Handle control/command message
If $TARGET.cmd = "upd_guildkills"
guildkills($TARGET.guild) = $TARGET.guildkills
guildavglvl($TARGET.guild) = $TARGET.guildavglvl
End_If
End_If
Kill $TARGET
End_EVENT
Sub diePrincess()
If mode<>1 ' Suppress if phase 1 completed
Return
End_If
Dim name = "qualcuno"
Dim killer = asia.killer
If Exists(killer)
If IsPlayer(killer)
name = killer.Classe + " "
End_If
name = name + killer.name
End_If
Goal "I mostri vincono: " + name + " ha ucciso la principessa."
Call doMusic("livetotell.mid",6)
If Not(crowncreated)
Call NewKing(killer,false)
End_If
End_Sub
'popDevilman
'pop devilman and place key4 in him if needed
'returns: the Devilman
Function popDevilman()
Dim new = popMonster(15,setCastle)
If Not(key4appeared)
Move key4, new
key4appeared = true
End_If
Return new
End_Function
Sub Living_local(person)
If IsPlayer(person) ' Affinity check
If person.affinity = null
If Not(person.container.introductory)
Call chooseAffinity(person,person.container)
End_If
Else
If SetLen(person.affinity)=4 And (person.affinity(1)+person.affinity(2)+person.affinity(3)+person.affinity(4))>4
Call chooseAffinity(person,person.container)
End_If
End_If
End_If
If person.Livello = 1
If IsPlayer(person) And SetContainsKey(setAll,person.container.id)
Call Hints(person)
End_If
End_If
If mode<>1 ' Suppress if phase 1 completed
Return
End_If
If person.type=14 Or person.type=16 Or person.type=12
' Vampire, Werewolf or BatVampire
Dim key4 = getContainedType($WORLD,"key4")
If person.Infettati >= targkilled And key4 <> null And key4.seller = null
' Make devilman appear and give key
Dim new=popDevilman()
Move new,person.container
Move key4,person
If key4.container<>person
' Handles case in which player is at full capacity
Move key4,person.container
End_If
Speak new,person,"Ecco la chiave, te la sei meritata! Fai della della principessa ciò che vuoi!"
End_If
End_If
End_Sub
EVENT onReceive_Local
If asia <> null
If $TARGET.hooked <> asia
Return
End_If
If asia.inlovewith = $TARGET.name
Move asia, $OWNER
End_If
End_If
End_EVENT
EVENT bscell.onReceiveItem
If $TARGET.type = "sand" And $OWNER=bscell And SetLen(getItemsIn(pot))=0
Move $TARGET,pot
Print $AGENT,"Metto la sabbia nel calderone."
Return 1
End_If
' Else call global event
Call onReceiveItem
End_EVENT
EVENT onChooseWarrior
$AGENT.type = 1
$AGENT.Classe = "Guerriero"
$AGENT.image = NewImage("uomo.gif",60,94)
$AGENT.gender = "M"
$AGENT.suffersound = rndSet(setSndHumanYell)
template.description = "Il guerriero può usare armi e indossare protezioni.
Scegli questo se preferisci combattere con la forza fisica."
Call updTemplate
EVENT onChooseFWarrior
$AGENT.type = 1
$AGENT.Classe = "Guerriera"
$AGENT.image = NewImage("fwarrior.gif",35,102)
$AGENT.gender = "F"
$AGENT.suffersound = "bighit1.wav"
template.description = "La guerriera può usare armi e indossare protezioni.
Scegli questo se preferisci combattere con la forza fisica."
Call updTemplate
EVENT onChooseCleric
$AGENT.type = 2
$AGENT.Classe = "Chierico"
$AGENT.image = NewImage("cleric.gif",63,100)
$AGENT.gender = "M"
$AGENT.suffersound = rndSet(setSndHumanYell)
template.description = "Chierico: aiuta gli altri con le arti magiche ed è in grado di lanciare incantesimi.
Scegli questo se vuoi che la tua energia mentale sia la predominante."
Call updTemplate
EVENT onChooseSorceress
$AGENT.type = 2
$AGENT.Classe = "Incantatrice"
$AGENT.image = NewImage("mystic.gif",64,100)
$AGENT.gender = "F"
$AGENT.suffersound = "scream1.wav"
template.description = "Incantatrice: aiuta gli altri con le arti magiche ed è in grado di lanciare incantesimi.
Scegli questo se vuoi che la tua energia mentale sia la predominante."
Call updTemplate
EVENT onChooseArtisan
$AGENT.type = 4
$AGENT.Classe = "Artigiano"
$AGENT.image = NewImage("paesant.gif",60,94)
$AGENT.gender = "M"
$AGENT.suffersound = rndSet(setSndHumanYell)
template.description = "Artigiano: è in grado di estrarre il metallo dai minerali e di costruire oggetti.
Scegli questo se sei propenso al lavoro e al commercio più che al combattimento."
Call updTemplate
EVENT onChooseDarken
$AGENT.type=19
$AGENT.Classe = "Entità Oscura"
$AGENT.image = NewImage("horror047.gif",121,144)
$AGENT.gender = "F"
$AGENT.yell = "roar2.wav"
$AGENT.suffersound = "pig.wav"
template.description = "Entità Oscura: E' lo spirito di una maga maledetta. Creatura delle tenebre, pura energia maligna, è la versione malvagia dell'Incantatrice.
Scegli questo se ti senti diabolicamente malvagia e se la tua energia è più mentale che fisica."
Call updTemplate
EVENT onChooseVampire
$AGENT.type=14
$AGENT.Classe = "Vampiro"
$AGENT.image = NewImage("vampire.gif",95,100)
$AGENT.gender = "M"
$AGENT.yell = "roar2.wav"
$AGENT.suffersound = "pig.wav"
template.description = "Il vampiro: Creatura malvagia, può trasformare gli umani in vampiri, da sempre nemico dei lupi mannari.
Odia le croci e l'aglio, non può sopportare la luce del sole, salvo quando assume la forma di un pipistrello.
Scegli questo se la forza e la seduzione sono il tuo lato oscuro."
Call updTemplate
EVENT onChooseVampireBride
$AGENT.type=14
$AGENT.Classe = "Vampira"
$AGENT.image = NewImage("vampirebride.gif",94,100)
$AGENT.gender = "F"
$AGENT.yell = "roar2.wav"
$AGENT.suffersound = "scream1.wav"
template.description = "Vampira: Creatura malvagia, può trasformare gli umani in vampiri, da sempre nemica dei lupi mannari.
Odia le croci e l'aglio, non può sopportare la luce del sole, salvo quando assume la forma di un pipistrello.
Scegli questo se la forza e la seduzione sono il tuo lato oscuro."
Call updTemplate
EVENT onChooseWerewolf
$AGENT.type=16
$AGENT.Classe = "Lupo Mannaro"
$AGENT.image = NewImage("werewolf.gif",90,100)
$AGENT.gender = "M"
$AGENT.yell = "roar2.wav"
$AGENT.oldimage = NewImage("paesant.gif",64,100)
$AGENT.oldstrength = 2
$AGENT.suffersound = null
template.description = "Lupo mannaro: Creatura malvagia, può trasformare gli umani in lupi mannari, da sempre nemico dei vampiri.
Non tollera il contatto con l'argento.
Può traformarsi in lupo quando è in stato di alterazione pshichica.
Scegli questo se quando ti arrabbi diventi una belva."
Call updTemplate
Sub updTemplate()
$AGENT.Forza = 1
If $AGENT.mainpg = "" Or $AGENT.mainpg = $AGENT.name Or debugmode>0 'True beginner
If arrIps($AGENT.remoteAddr)<>1
$AGENT.invul = 60
If garumir.accounts($AGENT.name) = null
$AGENT.Crediti = 100
garumir.accounts($AGENT.name) = 100
Else
$AGENT.Crediti = garumir.accounts($AGENT.name)
End_If
arrIps($AGENT.remoteAddr)=1
End_If
End_If
template.image = $AGENT.image
template.Forza = $AGENT.Forza
template.Classe = $AGENT.Classe
Display template.description
If $AGENT.mainpg <> "" And $AGENT.mainpg <> $AGENT.name
Print $AGENT,"Nessuna invulnerabilità iniziale (utente non nuovo)"
Else
Print $AGENT,"Invulnerabilità iniziale: " + ($AGENT.invul/2) + " minuti"
End_If
'
' Updates kingdom's situation
'
Sub updateKingdom(full_mode)
Dim king = null
Dim crown = getContainedType($WORLD,"crown")
Dim text = ""
If Exists(crown)
If IsCharacter(crown.container)
king = crown.container
End_If
End_If
If Not(Exists(king))
Return
End_If
If full_mode = null
Call livePopulation(king)
Return
End_If
'Update kingdom duration
king.kingdays = king.kingdays + 1
text=text+"
Fino adesso "+king.name+" ha regnato per " + king.kingdays + " giorni."
'Income from villains
Dim totincome = 5 * population
text=text+"
I popolani hanno prodotto un reddito complessivo di " + totincome + " monete"
'Tax villains
Dim tottaxes = taxes * population
If tottaxes >= totincome
richness = richness + totincome
totincome = 0
Else
richness = richness + tottaxes
totincome = totincome - tottaxes
End_If
text=text+"
Tasse ottenute dai popolani: " + tottaxes + " monete"
Dim dconf = 0 ' Confidence increment
Dim alive = Int(totincome/3) 'How many villains will stay alive
If alive < population
starved = population - alive
text=text+"
" + starved + " popolani muoiono di fame a causa delle tasse troppo alte"
dconf = dconf-2
Else
If alive > population
text=text+"
Tutti i popolani sopravvivono"
dconf = dconf+1
End_If
End_If
population = alive
'Tax players
Dim playtaxes = TaxPlayers(king,taxes)
text=text+"
Tasse ottenute dai giocatori: " + playtaxes + " monete"
richness = richness + playtaxes
'How good is safety?
If king.type < 10
killfriend = hkilled
killenemy = mkilled
Else
killenemy = hkilled
killfriend = mkilled
End_If
text=text+"
Rapporto uccisioni Nemici/Cittadini: "+killenemy + ":" + killfriend
if killfriend < killenemy
dconf = dconf+1
text=text+"
Il popolo si sente al sicuro"
End_If
if killfriend > killenemy
dconf = dconf-2-2*(king.Livello>3)
text=text+"
Il popolo si lamenta, la sicurezza non è garantita"
Speak morubar,king,"Maestà, fate qualcosa per garantire la sicurezza dei cittadini!"
End_If
If Int(richness/3) = 0 And population < 200
text=text+"
Non ci sono abbastanza ricchezze per accogliere nuovi popolani!"
Speak morubar,king,"Maestà, le ricchezze del nostro regno non ci permettono di accogliere nuovi popolani! Datemi qualche moneta."
dconf = dconf-1-2*(king.Livello>3)
End_If
' Reset counters for next day
mkilled=0
hkilled=0
text=text+"
La reputazione del "+msgKingQueen(king.gender)+" è "
If dconf < 0
text=text+"peggiorata: " + dconf
Else
If dconf > 0
text=text+"migliorata: +" + dconf
Else
text=text+"rimasta invariata: +" + dconf
End_If
End_If
confidence = confidence + dconf
If confidence>10
confidence=10
End_If
text=text+"
Reputazione attuale: " + confidence + " su 10"
If confidence<0
confidence=0
Call insurrection(king)
End_If
If Exists(king) ' Is king still alive?
text=text+"
Le ricchezze reali ammontano a: " + richness + " monete"
' Newcomers
Dim maxnewcomers = Int(richness/3)
If (200-population) < maxnewcomers
maxnewcomers = 200-population
End_If
Dim newcomers = RndInt(1+confidence*2)-1 ' from 5 to 15 newcomers
If newcomers > maxnewcomers
newcomers = maxnewcomers
End_If
population = population + newcomers
richness = richness - 3*newcomers ' Subtract wheat from newcomers
text=text+"
Ci sono " + newcomers + " nuovi popolani. La popolazione è ora di: " + population + " popolani."
Call livePopulation(king)
Dim incr = Round(confidence + richness/2000 + population/20,0)
text = text + "
Incremento Score: " + incr
Speak SYS,king,"Incremento Score: " + incr
Call advanceCheck(king,"score",incr)
If king.married <> null
If incrScore(king.married,incr) = false ' Try other areas
Call BroadcastOtherWorlds("incr_score","incr="+incr+",to="+king.married)
End_If
If ProfileExists(king.married)
Dim wifescore = Int(LookupProfileDB(king.married,"score_added"))
wifescore = incr+wifescore
Dim nick = CookName(king.married)
Dim tmp = getSetting(nick + "_properties","")
SaveSetting nick + "_properties",tmp+",score_added="+wifescore
End_If
End_If
Dim new = NewItem(king,"Diario del Regno "+ getTime("dd/MM/yyyy HH:mm"),"...",NewImage("pergamena.gif",100,100),"icon=scroll.gif,showmode=2,vanishing,pickable,volume=0")
new.description = text
Dim hiscore = 0 + getSetting("hiscore") 'Sum to force considering number value
If king.Score > hiscore
saveSetting "hiscore",king.Score
saveSetting "hiscoretext","Il migliore punteggio: " + king.Score + " di " + king.name + ", "+king.Class+ " in data " + getTime("dd/MM/yyyy")
Speak SYS,$WORLD,"Il "+msgKingQueen(king.gender)+" migliore è " + king.name + " con score " + king.Score
Print king,"Sono il migliore "+msgKingQueen(king.gender)+" che abbia finora regnato!"
End_If
End_If
End_Sub
EVENT doNewTax
Dim newtax = Int($TARGET)
If newtax < 1 Or newtax > 5
Print "Questo serve per stabilire le tasse giornaliere. Devi scrivere un numero (da 1 a 5) nella textbox e premere il pulsante."
Return
End_If
If containsType($AGENT,"crown",false)
taxes = newtax
Print "OK - da oggi le tasse giornaliere saranno di " + taxes + " monete a persona."
Else
Print "Per stabilire le tasse dovrei essere Re o Regina... forse un giorno..."
End_If
END_EVENT
EVENT doWithdraw
If $AGENT.container = bank
Dim banker = garumir
Dim howmuch = Int($TARGET)
Dim credits = Int($AGENT.Crediti)
Dim text = ""
$AGENT.ticket = ""
Dim personname = $AGENT.name
banker.accounts(personname) = Int(banker.accounts(personname)) ' Convert to number
If credits <> banker.accounts(personname)
credits = Int(banker.accounts(personname))
text = "I crediti che vantate non sono corretti. Vi dovevo in verità " + credits + " monete. "
End_If
If credits <= 0
text = text + "Non vi devo niente. Portatemi delle monete se volete tenerle al sicuro."
Else
If howmuch <= 0
howmuch = 10 'default 10
End_If
If howmuch > credits ' withdraw all
howmuch = credits
End_If
Call giveMoney($AGENT,howmuch)
banker.accounts(personname) = credits - howmuch
If $AGENT.Crediti < 1
text = text + "Ora siamo pari, fate attenzione, c'è strana gente in giro... eh eh eh..."
Else
text = text + "Vi devo ora: " + banker.accounts(personname) + " monete."
End_If
End_if
$AGENT.Crediti = banker.accounts(personname)
Speak banker,$AGENT,text
If banker.accounts(personname) <= 0 'Cleanup
SetRemove banker.accounts,personname
End_If
Return
End_If
If $AGENT.container = seat
If Exists(morubar) And richness > 0
If getContainedType($AGENT,"crown") <> null
Call giveMoney($AGENT,richness)
Speak morubar,$AGENT,"Tenete, Maestà."
richness = 0
Else
Speak morubar,$AGENT,"Mi è stato detto di non dare il denaro a nessuno tranne che al Re o la Regina."
Return false
End_If
Else
Print "Non c'è nulla da riscuotere, per ora"
Return false
End_If
Return
End_If
If $AGENT.container = bar
If jukebox.contents > 0
If getContainedType($AGENT,"crown") <> null
Call giveMoney($AGENT,jukebox.contents)
jukebox.contents = 0
Else
Return false
End_If
Else
Print "E' vuoto, per ora."
Return false
End_If
Return
End_If
END_Event
' Makes a new King or Queen
' input: person who will become king
' force=true will force creation of crown
Sub NewKing(person,force)
If person = null
person = Start
Else
If person.name <> prevking
PlaySound $WORLD,"fanfare.wav"
Dim phrase = "un nuovo Re"
If person.gender = "F"
phrase = "una nuova Regina"
End_If
Dim pname = person.name
If IsPlayer(person)
pname = UserCardLink(pname)
End_If
Speak SYS,$WORLD,"Abbiamo " + phrase + ": "+pname+"!!!"
confidence=10
person.kingdays = 0
If person.scoretype <> scoretype
person.Score = 0
person.scoretype = scoretype
End_If
End_If
End_If
If Not(crowncreated) Or force=true
' First clean crown
Dim crown = getContainedType($WORLD,"crown")
If crown <> null
Kill crown
End_If
Call BroadcastOtherWorlds("kill_crown",null)
' make new crown
Dim crown = NewItem(person,"corona","Chi possiede questa corona può governare il Regno.",NewImage("crown.gif",40,40),"type=crown,pickable,showmode=2,icon=crown.gif")
AttachEvent crown,"whenPicked","crown_whenPicked"
If SetLen(getPeopleName($WORLD,"Morubar")) < 1
morubar = NewCharacter(seat,"Morubar","E' il tesoriere del re.",NewImage("morubar.gif",39,100),"type=0,nohands,accepts=*")
AttachEvent morubar,"onHear","morubar_onHear"
AttachEvent morubar,"onLook","morubar_onLook"
AttachEvent morubar,"onReceiveItem","morubar_onReceiveItem"
End_If
richness=0
crowncreated=true
End_If
prevking = person.name
Call updFrontpageText()
End_Sub
Sub infect_SpecialCase
If Exists(asia) And infected = asia And infectype <> 16
'Special case
infected.type = 14
infected.Classe = "Sposa Vampira"
infected.yell = "roar2.wav"
infected.image = NewImage("vampirebride.gif",93,100)
Speak asia,infector,"Amore mio, ora staremo insieme per sempre!!"
Goal infector.name + " ha trasformato la principessa in una vampira."
If Not(crowncreated)
Call NewKing(infector,false)
End_If
infected = null
infector = null
End_If
End_Sub
'updates front page text
Sub updFrontpageText()
If mode=1
leftHours = Int((maxTicks-kingTicks)/120)
leftMins = Int((maxTicks-kingTicks)/2 - leftHours*60)
frontpagetext = "" + leftHours + " ore, " + leftMins + " minuti rimasti prima della caduta del Regno"
If calcMonstersLeft() > 0
frontpagetext = frontpagetext + " - almeno " + calcMonstersLeft() + " mostri infestano il castello."
End_If
End_If
If mode=2
leftHours = Int(kingTicks/120)
'leftMins = Int(kingTicks/2 - kingHours*60)
Dim crown = getContainedType($WORLD,"crown")
Dim tmp
If IsCharacter(crown.container)
Dim pname = crown.container.name
If IsPlayer(crown.container)
pname = UserCardLink(pname)
End_If
If crown.container.type < 10
If crown.container.gender = "F"
tmp = "La Regina è " + pname + "."
Else
tmp = "Il re è " + pname + "."
End_If
humansPts = humansPts+1
Else
tmp = "La corona è stata rubata da " + pname + "."
monstersPts = monstersPts+1
End_If
Else
tmp = "La corona è stata smarrita."
End_If
If humansPts > monstersPts
tmp=tmp + " Gli umani hanno governato " + Int(100*humansPts/(humansPts+monstersPts+1)) + " % del tempo"
Else
tmp=tmp + " I mostri hanno governato " + Int(100*monstersPts/(humansPts+monstersPts+1)) + " % del tempo"
End_If
frontpagetext = "Il Nuovo Regno esiste da " + leftHours + " giorni. " + tmp
End_If
If tournament > 0
frontpagetext = getTournamentMessage()+"
"+frontpagetext
End_If
End_Sub
Sub livePopulation(king)
Dim villains = getPeopleName($WORLD,"un popolano")
'Print king,"Popolani: " + villains
Dim existing = SetLen(villains)
Dim pop = Round(population / 10,0)
Dim diff = pop - existing
'Print king,"I popolani in giro dovrebbero essere: " + pop + " ce ne sono: " + existing + " ora entrano: " + diff
If diff > 0
Dim i
Dim attrs
Dim place
Dim im
For i = 1 To diff
place = RndSet(setAll)
If debugtype=2
place = gateroom
End_If
If king.type < 10 Or debugtype=2
attrs = "type=7,gender=M,Classe=Popolano,Forza=2,pacific,balanceignore,accepts=*"
im = NewImage("paesant1.gif",37,96)
Else
attrs = "type=18,gender=M,Classe=Popolano,Forza=2,balanceignore,accepts=*"
im = NewImage("zombie.gif",74,96)
End_If
Dim new = NewCharacter(place,"un popolano","",im,attrs)
If new.type=7
new.image("S") = NewImage("paesant1b.gif",37,96)
End_If
Print king,"Un popolano si trova: " + place.name
Next
End_If
End_Sub
Sub SaveContext()
saveSetting "ctx_kingTicks",kingTicks
saveSetting "ctx_guildkills",guildkills
saveSetting "ctx_guildavglvl",guildavglvl
If SetLen(garumir.accounts) > 0
saveSetting "ctx_accounts",garumir.accounts
Else
If SetLen(garumir.accounts) < 0
Debug "Error in current context - Restarting game" + getTime("dd/MM/yyyy HH:mm")
Reset
End_If
End_If
End_Sub
Sub LoadContext_Local()
If debugtype <> 1
mode = getSetting("ctx_mode",mode)
kingTicks = Int(getSetting("ctx_kingTicks",kingTicks))
End_If
If mode = 2
Kill asia
setAll("bedroom") = bedroom 'Add bedroom
Call NewKing(RndSet(getObjectsType($WORLD,11)),false)
Move key4, RndSet(setAll)
key4appeared = true
Move key1, RndSet(setAll)
Move key5, RndSet(setAll)
Move axe,armory
axe.seller = auron
End_If
garumir.accounts = getSetting("ctx_accounts","!set!")
Call MakeGuildIndex()
' Load playlist from database
Dim tracks = NewArray(getSetting("ctx_trackfiles","sndbackground08.mid|5.5,alchemist.mid|5.5"))
jukebox.trackfiles = NewArray()
jukebox.tracklen = NewArray()
Dim i
For i = 1 To SetLen(tracks)
Dim parts = Split(tracks(i),"|")
jukebox.trackfiles(i) = parts(1)
jukebox.tracklen(i) = parts(2)
Next
jukebox.tracklist = NewArray(getSetting("ctx_tracklist","Track 1,Track 2"))
End_Sub
Sub onKillRobot_local(loser,winner)
If loser = asia
Call diePrincess()
End_If
Dim tmp = winner.name + " ha " + RndSet(arrVerbs) + Concordate(SYS) +" " + loser.name + "!! "
If mode=1
Dim x = calcMonstersLeft()
If x > 0
tmp = tmp + "Rimangono " + x + " mostri."
End_If
End_If
If mode=2
If loser.name = "un popolano"
population = population - 1
If population < 0
population = 0
End_If
End_If
End_If
If SetLen(getPlayersIn($WORLD)) < 4
Speak SYS,$WORLD,tmp
End_If
End_Sub
Sub insurrection(king)
Speak SYS,$WORLD,king.name + " viene linciat"+Concordate(king)+" dalla folla inferocita!"
Dim villains = getPeopleName($WORLD,"un popolano")
For Each v in villains
Move v,king.container
Next
king.killer = v
Kill king
End_Sub
Function guildroom_description
Dim txt="Questa è la stanza del capitano delle guardie. Lui conosce tutte le Gilde."
txt = txt + "" + NewImage("panhelp.gif",16,16).html("Spiega",$AGENT) + "Spiega"
txt = txt + "
Elenco delle Gilde"
txt = txt + "
Attualmente non ci sono guerre in corso nel nostro Regno." End_If txt = txt + "
Attualmente non ci sono guerre in preparazione." End_If txt = txt + "
Guerre passate
Nessuna guerra è mai terminata finora." End_If txt = txt + "
Elenco delle Gilde"
Return txt
END_Function
' Unsubscribes a person from the guild owned by the
' specified guildowner.
' Returns a message to be diplayed to the user
Function GuildUnsubscribe(guildowner,person)
If GuildUnsubscribe2(guildowner,person.name)
Return "Avete lasciato " + guildnames(guildowner)
Else
Return "Non appartenete a questa gilda."
End_If
End_Function
' Unsubscribes a person from the guild owned by the
' specified guildowner.
' Returns a message to be diplayed to the user
Function GuildUnsubscribe2(guildowner,personname)
If InStr(guildsubscribers(guildowner),personname+";") Or InStr(guildrequests(guildowner),personname+";")
guildsubscribers(guildowner) = Replace(guildsubscribers(guildowner),personname + ";","")
guilddelegates(guildowner) = Replace(guilddelegates(guildowner),personname + ";","")
guildrequests(guildowner) = Replace(guildrequests(guildowner),personname+";","")
Return True
End_If
Return False
End_Function
' Delegates chief powers on a person
' for the guild owned by the specified guildowner.
' Returns TRUE or FALSE
Function GuildDelegate(guildowner,personname)
If InStr(guildsubscribers(guildowner),personname+";") > 0 And Not(GuildHasDelegate(guildowner,personname))
guilddelegates(guildowner) = "" + guilddelegates(guildowner)+personname + ";"
Return True
End_If
Return False
End_Function
' UN-delegates chief powers on a person
' for the guild owned by the specified guildowner.
' Returns a message to be displayed to the user
Function GuildUndelegate(guildowner,personname)
If GuildHasDelegate(guildowner,personname)
guilddelegates(guildowner) = Replace(guilddelegates(guildowner),personname + ";","")
Return True
End_If
Return False
End_Function
Sub popMonster_Local(new)
If mode=1
' Appearence of Bronze Key
If mkilled >= (targkilled * 0.20) And key5.container=null
Move key5, new
End_If
' Appearence of Copper Key
If mkilled >= (targkilled * 0.60) And key1.container=null
Move key1, new
End_If
End_If
End_Sub
Sub ClearGuildRequests(persname)
Dim tmp
For Each tmp in SetKeys(guildrequests)
guildrequests(tmp) = Replace(guildrequests(tmp),persname+";","")
Next
End_Sub
Function bank_description()
Dim txt="Questa è la stanza di Garumir.",NewImage("pergamena.gif",100,100),"pickable,showmode=2,icon=scroll.gif,vanishing")
newobj.description = newobj.description + "a) Estrarre il minerale (basta un blocco)
b) Andare nella bottega del fabbro
c) Mettere il minerale nel calderone
d) Mettere il calderone sul fuoco (USA calderone CON fuoco): il contenuto del calderone diventa incandescente.
e) Forgiare con il martello il metallo fuso (USA martello CON calderone)"
newobj = NewItem($AGENT,"pergamena","Per creare una bottiglia di vetro:
",NewImage("pergamena.gif",100,100),"pickable,showmode=2,icon=scroll.gif,vanishing")
newobj.description = newobj.description + "a) Procurarsi della sabbia (ne basta una ciotola)
b) Andare nella bottega del fabbro
c) Lasciar cadere la sabbia nel calderone
d) Mettere il calderone sul fuoco (USA calderone CON fuoco): il contenuto del calderone diventa vetro fuso.
e) Colare il vetro fuso nello stampo (USA calderone CON stampo)"
End_If
If $AGENT.type=19
SetPanel $AGENT, "pdarken"
End_If
If $AGENT.type=14 Or $AGENT.type = 16
SetPanel $AGENT, "pvampire"
If $AGENT.type = 14
' If vampire start from 1st floor
Move $AGENT,upstairs
Return false
End_If
End_If
If debugtype=1
Move book2, bedroom
Move $AGENT, bedroom
door1.open = 1
door1.locked = false
Move silvering, $AGENT
Return false
End_If
If debugtype=3
mode=1
Move $AGENT, cave7
Move cross, cave7
Move silvering, cave7
Call NewItem(cave7,"bomba","E' una bomba.",NewImage("bomb.gif",40,40),"type=bomb,pickable,Valore=10,sound=match.wav,icon=bomb.gif,showmode=2")
End_If
If debugtype="gem"
mode=1
Move gemini, $AGENT
Move windspell, $AGENT
Call NewItem($AGENT,"stone","It's a table of rock mineral.",NewImage("spelltablet.gif",48,48),"pickable,showmode=2,icon=spelltablet.gif,type=stone,Value=3")
End_If
End_EVENT
EVENT helpAffi
Print "Serve aiuto riguardo agli elementi?"
Print htmlAffinities($AGENT)
END_EVENT
EVENT affinityRoom_onLoose
Kill $OWNER
END_EVENT
' Enqueues a guild war
Function war_enqueue(guild1,guild2,duration)
Dim timestamp = getTime("yyyyMMddHHmm")
guildwarsqueue(guild1 + "*" + guild2) = "timestamp=" + timestamp+";duration="+duration
Return True
End_Function
' Starts a guild war
Function war_start(guild1,guild2,duration)
'Update stats
Call getGuildKillStats(guild1,false)
Call getGuildKillStats(guild2,false)
Dim diff = guildmutualkills(guild1+"*"+guild2)-guildmutualkills(guild2+"*"+guild1)
Dim timestamp = getTime("yyyyMMddHHmm")
guildwars(guild1 + "*" + guild2) = "timestamp=" + timestamp + ";diff=" + diff + ";finishes=" + incTimeStamp(timestamp,duration)+";kills12="+Int(guildmutualkills(guild1+"*"+guild2))+";kills21="+Int(guildmutualkills(guild2+"*"+guild1))
saveSetting "ctx_guildwars",guildwars
SetRemove guildwarsqueue,guild1+"*"+guild2
saveSetting "ctx_guildwarsqueue",guildwarsqueue
Return True
End_Function
' Schedules a guild war
Function war_schedule(guild1,guild2,declared,duration,notificationint)
Dim now = getTime("yyyyMMddHHmm")
guildwarsqueue(guild1 + "*" + guild2) = "timestamp="+declared+";notified="+now+";duration="+duration+";starting=" + incTimeStamp(now,notificationint) 'incTimeStamp(now,"000000010000")
saveSetting "ctx_guildwarsqueue",guildwarsqueue
Return True
End_Function
' Returns a set of the warrior guilds
' for the guild war operations
Function getWarriorGuilds(person)
Dim guilds = Copy(guildnames)
Dim k
If Not(person.master)
For Each k In SetKeys(guilds)
If guildtypes(k)="p" ' Pacific guild - remove from list
SetRemove guilds,k
End_If
If getGuildCount(k) < 3 ' Too small guilds - remove
SetRemove guilds,k
End_If
Next
End_If
k = guildSubscribed(person)
If k <> null
SetRemove guilds,k
End_If
Return guilds
End_Function
' Is the specified guild owner menaced of war?
' If so, returns the war data, otherwise returns NULL
Function war_menaced(guildowner)
If guildowner = null
Return false
End_If
Dim war
Dim s = "*"+guildowner
For Each war In SetKeys(guildwarsqueue)
If InStr(war,s) > 0
Return war_queue_data(war)
End_If
Next
Return null
End_Function
' Is the specified guild owner running a war?
' If so, returns the war data, otherwise returns NULL
Function war_running(guildowner)
Dim war
Dim s = "*"+guildowner
Dim s1 = guildowner+"*"
For Each war In SetKeys(guildwars)
If InStr(war,s) > 0 Or InStr(war,s1) = 1
Return war_data(war)
End_If
Next
Return null
End_Function
' Is the specified guild owner ABOUT running a war?
' If so, returns the war data, otherwise returns NULL
Function war_starting(guildowner)
Dim war
Dim s = "*"+guildowner
Dim s1 = guildowner+"*"
For Each war In SetKeys(guildwarsqueue)
If InStr(war,s) > 0 Or InStr(war,s1) = 1
Return war_queue_data(war)
End_If
Next
Return null
End_Function
Function proportion_guild_kills(kills,guildowner)
Dim n = getGuildCount(guildowner)
If n > 0
Return Round(kills/n,2)
End_If
Return null
End_Function
' Is the specified guild war-engaged?
' If so, returns 1=menaced 2=war running
' Else returns 0
Function war_engaged(guildowner)
If war_starting(guildowner) <> null
Return 1
End_If
If war_running(guildowner) <> null
Return 2
End_If
Return 0
End_Function
Sub Hints(person)
Dim txt = ""
If getContainedType(person,"scroll.hints") <> null ' Already has hints
Return
End_If
If person.Crediti = 100
txt = "Forse non lo sai, ma all'inizio del gioco hai 100 monete da spendere in attrezzatura e oggetti utili!
Vai alla Banca (torre sud-est) e chiedi a Garumir il tuo denaro. Se non trovi la banca, usa la [MAPPA] per vedere dove si trova."
End_If
If txt = "" And getContainedType(person,"bottle.potion") = null
txt = "Non andare in giro senza una pozione curativa...Il castello è pieno di pericoli!!
Puoi acquistarne una all'armeria.
Se non riesci a trovarla, usa la [MAPPA]."
End_If
If txt = "" And person.weapon = null
txt = "Stai andando in giro disarmat"+Concordate(person)+", coraggios"+Concordate(person)+" o incosciente? Scherzi a parte, procurati un'arma.
Se sei mag"+Concordate(person)+" o entità oscura devi procurarti un incantesimo di attacco e impugnarlo usando il tasto [INFO]"
End_If
If txt = ""
Dim pass = getSetting(CookName(person.name)+"_pass","")
If pass = ""
txt = "Salva la tua situazione di gioco e proteggila con una password!
Per fare questo clicca [SALVA ED ESCI] almeno una volta.
Quando hai fatto puoi rientrare anche subito nel gioco e, da quel momento, potrai utilizzare il comando [SALVA] per salvare i tuoi progressi a intervalli regolari.
Su, non aspettare, fallo adesso! [SALVA ED ESCI]"
End_If
End_If
If txt <> ""
txt = txt + "
LASCIA questa pergamena a terra se vuoi ricevere altri indizi utili."
Dim new = NewItem(person,"Indizi utili",null,NewImage("pergamena.gif",100,100),"type=scroll.hints,icon=scroll.gif,showmode=2,vanishing,pickable,volume=0")
new.description = txt
End_If
End_Sub
' The following function is used just in the Italian version
' Please ignore it
Function privacy()
Dim txt
Dim cr
cr = "
"&Chr(13)
If $AGENT.privacyok <> null
txt = "OK - Hai letto e accettato il Regolamento e l'Informativa per la privacy."&cr&cr
txt = txt&"Clicca l'icona freccia avanti per proseguire, grazie."
Else
txt = panelhtml("pprivacy")
End_If
return txt
End_Function
' The following function is used just in the Italian version
' Please ignore it
Function privacytext()
Dim txt
Dim cr
cr = "
"&Chr(13)
Dim infpr = "http://www.sottomondo.org/?page_id=337"
Dim regol = "http://www.sottomondo.org/?page_id=63"
txt = "Questo è un gioco gratuito."&cr
txt = txt & "La legge Italiana prevede comunque che, prima di utilizzarlo, tu sia informato/a su come verranno trattati i tuoi eventuali dati personali (informativa sulla privacy)."&cr&cr
txt = txt & "Inoltre è necessario accettare i termini del servizio/regolamento di gioco."&cr&cr
txt = txt & "Prendine visione adesso cliccando sui link seguenti, poi conferma che accetti (ogni link apre una nuova pagina)."&cr
txt = txt & "