; §§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§
; §§                                                                                                                     §§
; §§  NEWZELAND Script for Invision By jackie                                          §§
; §§  FILE: newzeland.mrc                                                                             §§
; §§  DATE: 01/10/2006                                                                                 §§
; §§  DESCRIPTION: some fun drawings in Verdana font                          §§
; §§                                                                                                                     §§
; §§  DO NOT ADD OR CHANGE ANYTHING IN THIS FILE                            §§
; §§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§

on *:start: writeini -n newzeland.ini counter 1 0

alias richi { dialog -mdie richi richi }

dialog richi {
  title "Newzeland's scripts notice"
  size -1 -1 400 70
  text "Vuoi inviare ogni ora in chan il messaggio: 'Disegno con gli scripts di newzeland' ?", 1, 10 15 220 40
  button "SI", 2, 250 17 40 25, ok
  button "NO", 3, 310 17 40 25, cancel
}

alias grazie { dialog -mdie grazie grazie }

dialog grazie {
  title "Newzeland's scripts notice"
  size -1 -1 130 40
  text "GRAZIEEEEEEEE !!!", 1, 20 15 120 40
}

alias pazienza { dialog -mdie pazienza pazienza }

dialog pazienza {
  title "Newzeland's scripts notice"
  size -1 -1 130 40
  text "PAZIENZA !", 1, 40 15 100 40
}

on *:dialog:richi:sclick:2:{
  .timerxy 0 3600 $readini(newzeland.ini,script,432)
  writeini -n newzeland.ini counter 1 12
  set %timer on
  grazie
}

on *:dialog:richi:sclick:3:{
  .timerxy off
  writeini -n newzeland.ini counter 1 0
  set %timer off
  pazienza
}

alias tim

menu query,nicklist {
  $iif(%timer == off,$style(2)) Ferma messaggio in chan {
    /.timerxy off
    set %timer off
    writeini -n newzeland.ini counter 1 0
    pazienza
  }
}
   
alias control {

  set %richi $readini(newzeland.ini,counter,1)
  inc %richi
  writeini -n newzeland.ini counter 1 %richi
  if (%richi = 10) richi
  if (%richi = 10)  writeini -n newzeland.ini counter 1 0
  halt
}
; =============================

alias

menu query,nicklist {
  -
  • newzeland's addons •
  .ciao $1:{
    $readini(newzeland.ini,script,1)
    control
  }
  .Saluti:
  ..Ciao #:{
    $readini(newzeland.ini,script,2)
    control
  }
  ..Ciao $1:{
    $readini(newzeland.ini,script,3)
    control
  }
  ..Ciaooo $1:{
    $readini(newzeland.ini,script,4)
    control
  }
  ..Ciao Aran $1:{
    $readini(newzeland.ini,script,5)
    control
  }
  ..Ciao Blu $1:{
    $readini(newzeland.ini,script,6)
    control
  }
  ..Ciao Verde $1:{
    $readini(newzeland.ini,script,7)
    control
  }
  ..Ciao a tutti:{
    set %lin 475
    :jac475
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 481) control
    inc %lin  
    goto jac475
    set %lin 1
  }
  ..CiaotondoY $1:{
    set %lin 1123
    :jac1123
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 1130) control
    inc %lin  
    goto jac1123
    set %lin 1
  }
  ..CiaotondoR $1:{
    set %lin 1131
    :jac1131
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 1138) control
    inc %lin  
    goto jac1131
    set %lin 1
  }
  ..Ciao fac $1:{
    set %lin 8
    :jac8
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 13) control
    inc %lin  
    goto jac8
    set %lin 1
  }
  ..Ciao cartello $1:{
    set %lin 464
    :jac464
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 474) control
    inc %lin  
    goto jac464
    set %lin 1
  }
  ..Ciao 2passi:{
    set %lin 455
    :jac455
    ;echo 8 -a ciao %lin
    /$readini(newzeland.ini, script, %lin)
    if (%lin = 463) control
    inc %lin  
    goto jac455
    set %lin 1
  }
  ..Ciao Klik:{
    set %lin 388
    :jac388
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 397) control
    inc %lin  
    goto jac388
    set %lin 1
  }
  ..Ciao Bip-bip:{
    set %lin 376
    :jac376
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 387) control
    inc %lin  
    goto jac376
    set %lin 1
  }
  ..BigCiao $1:{
    set %lin 442
    :jac442
    $readini(newzeland.ini,script,%lin)
    if (%lin = 454)  control
    inc %lin  
    goto jac442
    set %lin 1
  }
  ..B.notte $1 :{
    $readini(newzeland.ini,script,431)
    control
  }
  ..B.notte chan:{
    $readini(newzeland.ini,script,14)
    $readini(newzeland.ini,script,14a)
    $readini(newzeland.ini,script,14b)
    control
  }
  ..B.notte #:{
    $readini(newzeland.ini,script,15)
    $readini(newzeland.ini,script,15a)
    $readini(newzeland.ini,script,15b)
    control
  }
  ..Arrivederci:{
    set %lin 313
    :jac313
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 323) control
    inc %lin  
    goto jac313
    set %lin 1
  }
  ..Doccia:{
    unset %bet
    unset %tet
    unset %vur
    /set %vur  $?!="Sei maschio?"
    if ( %vur ) set  %bet 922 | else set %bet 936 
    if ( %vur ) set  %tet 935 | else set %tet 948
    :jacx
    $readini(newzeland.ini,script,%bet)
    if (%bet = %tet)  control
    inc %bet  
    goto jacx
  }
  ..Riposino:{
    set %lin 40
    :jac40
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 49)  control
    inc %lin  
    goto jac40
    set %lin 1
  }
  ..Pecore:{
    set %lin 985
    :jac985
    $readini(newzeland.ini,script,%lin)
    if (%lin = 995)  control
    inc %lin  
    goto jac985
    set %lin 1
  }
  .Normali:
  ..Wee1:{
    $readini(newzeland.ini,script,16)
    control
  }
  ..Volta:{
    $readini(newzeland.ini,script,29c)
    control
  }
  ..Mare:{
    set %lin 35
    :jac35
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 39)  control
    inc %lin  
    goto jac35
    set %lin 1
  }
  ..Lago:{
    set %lin 30
    :jac30
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 34)  control
    inc %lin  
    goto jac30
    set %lin 1
  }
  ..Banda :{
    set %lin 1028
    :jac1028
    $readini(newzeland.ini,script,%lin)
    if (%lin = 1038)  control
    inc %lin  
    goto jac1028
    set %lin 1
  }
  ..Freccine $1:{
    set %lin 482
    :jac482
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 493)  control
    inc %lin  
    goto jac482
    set %lin 1
  }
  ..$1 colorati:{
    $readini(newzeland.ini,script,29d)
    control
  }
  ..mmmm:{
    set %lin 296
    :jac296
    $readini(newzeland.ini,script,%lin)
    if (%lin = 312)  control
    inc %lin  
    goto jac296
    set %lin 1
  }
  ..mmmm2:{
    set %lin 787
    :jac787
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 799)  control
    inc %lin  
    goto jac787
    set %lin 1
  }
  ..Scritta-sput:{
    set %lin 98
    :jac98
    $readini(newzeland.ini,script,%lin)
    if (%lin = 102)  control
    inc %lin  
    goto jac98
    set %lin 1
  }
  ..che te ridi $1?:{
    set %lin 684
    :jac684
    $readini(newzeland.ini,script,%lin)
    if (%lin = 696)  control
    inc %lin  
    goto jac684
    set %lin 1
  }
  ..Slurp $1:{
    set %lin 1231
    :jac1231
    $readini(newzeland.ini,script,%lin)
    if (%lin = 1239 )  control
    inc %lin  
    goto jac1231
    set %lin 1
  }
  .Gentili:
  ..Stella $1:{
    set %lin 112
    :jac112
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 121)  control
    inc %lin  
    goto jac112
    set %lin 1
  }
  ..Rosa gialla $1:{
    set %lin 122
    :jac122
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 131)  control
    inc %lin  
    goto jac122
    set %lin 1
  }
  ..Rosa bianca $1:{
    set %lin 800
    :jac800
    $readini(newzeland.ini,script,%lin)
    if (%lin = 812)  control
    inc %lin  
    goto jac800
    set %lin 1
  }
  ..Rosa rossa $1:{
    set %lin 1095
    :jac1095
    $readini(newzeland.ini,script,%lin)
    if (%lin = 1114)  control
    inc %lin  
    goto jac1095
    set %lin 1
  }
  ..Margherita $1:{
    set %lin 1152
    :jac1152
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 1168)  control
    inc %lin  
    goto jac1152
    set %lin 1
  }
  ..Abbraccio $1 :{
    set %lin 642
    :jac642
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 650)  control
    inc %lin  
    goto jac642
    set %lin 1
  }
  ..Labbra $1:{
    set %lin 103
    :jac103
    $readini(newzeland.ini,script,%lin)
    if (%lin = 111)  control
    inc %lin  
    goto jac103
    set %lin 1
  }
  ..Astronauta $1:{
    unset %bet
    set %tot $len($1)
    if ( %tot =< 6) set %bet $1
    set %lin 949
    :jac949
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 964)  control
    inc %lin  
    goto jac949
    set %lin 1
  } 
  ..Barca $1 :{
    set %lin 659
    :jac659
    $readini(newzeland.ini,script,%lin)
    if (%lin = 670)  control
    inc %lin  
    goto jac659
    set %lin 1
  }
  ..Pc innamorati:{
    set %lin 697
    :jac697
    $readini(newzeland.ini,script,%lin)
    if (%lin = 709)  control
    inc %lin  
    goto jac697
    set %lin 1
  }
  ..Tour Eiffel $1:{
    set %lin 1240
    :jac1240
    $readini(newzeland.ini,script,%lin)
    if (%lin = 1255)  control
    inc %lin  
    goto jac1240
    set %lin 1
  }
  ..Prato $1:{
    set %lin 1007
    :jac1007
    $readini(newzeland.ini,script,%lin)
    if (%lin = 1015)  control
    inc %lin  
    goto jac1007
    set %lin 1
  }
  ..Rosa auguri $1 :{
    set %lin 751
    :jac751
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 760)  control
    inc %lin  
    goto jac751
    set %lin 1
  }

  .Offre
  ..Pizza:{
    set %lin 132
    :jac132
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 143)  control
    inc %lin  
    goto jac132
    set %lin 1
  }
  ..Birra offre $1:{
    set %lin 144
    :jac144
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 147)  control
    inc %lin  
    goto jac144
    set %lin 1
  }
  ..$me Ghiacciolo:{
    set %lin 411
    :jac411
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 421)  control
    inc %lin  
    goto jac411
    set %lin 1
  }
  ..Gelato $1:{
    set %lin 1139
    :jac1139
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 1151)  control
    inc %lin  
    goto jac1139
    set %lin 1
  }

  .Leggeri
  ..Aspetta:{
    set %lin 148
    :jac148
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 153)  control
    inc %lin  
    goto jac148
    set %lin 1
  }
  ..Prrrrr:{
    set %lin 335
    :jac335
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 342) control
    inc %lin  
    goto jac335
    set %lin 1
  }
  ..Banana $1:{
    set %lin 287
    :jac287
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 295)  control
    inc %lin  
    goto jac287
    set %lin 1
  }
  ..Melone $1:{
    set %lin 276
    :jac276
    $readini(newzeland.ini,script,%lin)
    if (%lin = 286)  control
    inc %lin  
    goto jac276
    set %lin 1
  }
  ..Uccellino $1:{
    set %lin 209
    :jac209
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 218)  control
    inc %lin  
    goto jac209
    set %lin 1
  }
  ..Oca $1 :{
    set %tot $len($1)
    set %mt $calc(%tot / 2)
    set %Ln $int(%mt)
    if (%Ln == 7) %nero 8,1
    else if (%tot == 15) set %nero 1,1
    else if (%tot == 14) set %nero 1,1
    else if (%tot == 13) set %nero 1,1i
    else if (%tot == 12) set %nero 1,1ii
    else if (%tot == 11) set %nero 1,1iii
    else if (%tot == 10) set %nero 1,1iiii
    else if (%tot == 9) set %nero 1,1iiiii
    else if (%tot == 8) set %nero 1,1iiiiii
    else if (%tot == 7) set %nero 1,1iiiiiii
    else if (%tot == 6) set %nero 1,1iiiiiiii
    else if (%tot == 5) set %nero 1,1iiiiiiiii
    else if (%tot == 4) set %nero 1,1iiiiiiiiii
    else if (%tot == 3) set %nero 1,1iiiiiiiiiii
    else if (%tot == 2) set %nero 1,1iiiiiiiiiiii
    else if (%tot == 1) set %nero 1,1iiiiiiiií́ii
    set %lin 554
    :jac554
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 567)  control
    inc %lin  
    goto jac554
    set %lin 1
  }
  ..Ideina $1 :{
    set %lin 841
    :jac841
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 849)  control
    inc %lin  
    goto jac841
    set %lin 1
  }
  ..Ciucia ĺ $1:{
    set %lin 914
    :jac914
    $readini(newzeland.ini,script,%lin)
    if (%lin = 921)  control
    inc %lin  
    goto jac914
    set %lin 1
  }
  ..Tartaruga $1:{
    /unset %vur
    /unset %bet
    /set %vur  $?!="E' maschio?"
    if ( %vur ) set %bet lento | else set %bet lenta
    set %lin 1256
    :jac1256
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 1261)  control
    inc %lin  
    goto jac1256
    set %lin 1
  }
  ..Fisico $1:{
    set %lin 163
    :jac163
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 178)  control
    inc %lin  
    goto jac163
    set %lin 1
  }
  ..Fumato $1:{
    set %lin 324
    :jac324
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 334)  control
    inc %lin  
    goto jac324
    set %lin 1
  }
  ..Osso $1:{
    /unset %vur
    /unset %bet
    /set %vur  $?!="E' maschio?"
    if ( %vur ) set %bet Booono | else set %bet Booona
    set %lin 354
    :jac354
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 361)  control
    inc %lin  
    goto jac354
    set %lin 1
  }
  ..Marziano $1 :{
    set %lin 604
    :jac604
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 621)  control
    inc %lin  
    goto jac604
    set %lin 1
  }
  ..Serpente $1 :{
    set %lin 651
    :jac651
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 658)  control
    inc %lin  
    goto jac651
    set %lin 1
  }
  ..Kinder $1:{
    set %lin 776
    :jac776
    $readini(newzeland.ini,script,%lin)
    if (%lin = 786)  control
    inc %lin  
    goto jac776
    set %lin 1
  }
  ..Galletto/a $1:{
    /unset %bet
    /set %vur  $?!="E' maschio?"
    if ( %vur ) set  %bet il galletto | else set %bet la galletta
    set %lin 965
    :jac965
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 975)  control
    inc %lin  
    goto jac965
    set %lin 1
  }
  ..Porcellino $1:{
    unset %bet
    unset %tet
    unset %vur
    set %vur  $?!="E' maschio?"
    if ( %vur ) set  %bet un bel | else set %bet una bella  
    if ( %vur ) set  %tet PORCELLINO ! ! | else set %tet PORCELLINA ! !
    set %lin 850
    :jac850
    $readini(newzeland.ini,script,%lin)
    if (%lin = 863)  control
    inc %lin  
    goto jac850
    set %lin 1
  }
  ..Fulminato/a $1:{
    /unset %vur
    /unset %bet
    /set %vur  $?!="E' maschio?"
    if ( %vur ) set %bet fulminato | else set %bet fulminata 
    set %lin 976
    :jac976
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 984)  control
    inc %lin  
    goto jac976
    set %lin 1
  }
  ..Bacato $1:{
    unset %vur
    unset %bet
    unset %tet
    set %vur  $?!="E' maschio?"
    if ( %vur ) set  %bet bacato | else set %bet bacata 
    set %lin 1169
    :jac1169
    $readini(newzeland.ini,script,%lin)
    if (%lin = 1176)  control
    inc %lin  
    goto jac1169
    set %lin 1
  }
  ..Orsacchiotto $1:{
    set %lin 1340
    :jac1340
    $readini(newzeland.ini,script,%lin)
    if (%lin = 1350)  control
    inc %lin  
    goto jac1340
    set %lin 1
  }
  ..Mestiere $1:{
    set %lin 1206
    :jac1206
    $readini(newzeland.ini,script,%lin)
    if (%lin = 1230 )  control
    inc %lin  
    goto jac1206
    set %lin 1
  }
  ..Fragolina $1:{
    set %lin 370
    :jac370
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 375)  control
    inc %lin  
    goto jac370
    set %lin 1
  }
  .Minacce
  ..Ambulanza $1:{
    set %lin 905
    :jac905
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 913)  control
    inc %lin  
    goto jac905
    set %lin 1
  }
  ..Ti spiezzo $1:{
    set %lin 1262
    :jac1262
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 1277)  control
    inc %lin  
    goto jac1262
    set %lin 1
  }
  ..Condor $1:{
    set %lin 219
    :jac219
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 227)  control
    inc %lin  
    goto jac219
    set %lin 1
  }
  ..Tamburo $1 :{
    set %lin 343
    :jac343
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 353)  control
    inc %lin  
    goto jac343
    set %lin 1
  }
  ..Cuoco $1:{
    set %lin 1064
    :jac1064
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 1076)  control
    inc %lin  
    goto jac1064
    set %lin 1
  }
  ..Carota $1 :{
    set %lin 398
    :jac398
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 403)  control
    inc %lin  
    goto jac398
    set %lin 1
  }
  ..Lampada $1:{
    set %lin 897
    :jac897
    $readini(newzeland.ini,script,%lin)
    if (%lin = 904)  control
    inc %lin  
    goto jac897
    set %lin 1
  }
  ..Teschio $1:{
    /unset %vur
    /unset %bet
    /set %vur  $?!="Sei maschio?"
    if ( %vur ) set %bet pericoloso | else set %bet pericolosa
    set %lin 1186
    :jac1186
    $readini(newzeland.ini,script,%lin)
    if (%lin = 1198)  control
    inc %lin  
    goto jac1186
    set %lin 1
  }
  ..Rifiuti $1:{
    set %lin 1351
    :jac1351
    $readini(newzeland.ini,script,%lin)
    if (%lin = 1362)  control
    inc %lin  
    goto jac1351
    set %lin 1
  }
  ..Scimmia/Strega $1:{
    unset %bet
    unset %tet
    unset %vur
    /set %vur  $?!="E' maschio?"
    if ( %vur ) set  %bet 1052 | else set %bet 1016 
    if ( %vur ) set  %tet 1063 | else set %tet 1027
    :jacx
    $readini(newzeland.ini,script,%bet)
    if (%bet = %tet)  control
    inc %bet  
    goto jacx
  }
  ..Deserto $1:{
    set %lin 1288
    :jac1288
    $readini(newzeland.ini,script,%lin)
    if (%lin = 1297)  control
    inc %lin  
    goto jac1288
    set %lin 1
  }
  ..Viagra $1:{
    set %lin 1363
    :jac1363
    $readini(newzeland.ini,script,%lin)
    if (%lin = 1369)  control
    inc %lin  
    goto jac1363
    set %lin 1
  }
  .. .ti picchio $1:{
    set %lin 761
    :jac761
    $readini(newzeland.ini,script,%lin)
    if (%lin = 775)  control
    inc %lin  
    goto jac761
    set %lin 1
  }
  ..Pentolone $1:{
    set %lin 996
    :jac996
    $readini(newzeland.ini,script,%lin)
    if (%lin = 1006)  control
    inc %lin  
    goto jac996
    set %lin 1
  }
  ..Dieta $1:{
    set %lin 1309
    :jac1309
    $readini(newzeland.ini,script,%lin)
    if (%lin = 1322)  control
    inc %lin  
    goto jac1309
    set %lin 1
  }
  .Personali
  ..Leone :{
    set %lin 671
    :jac671
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 683)  control
    inc %lin  
    goto jac671
    set %lin 1
  }
  ..Pesce:{
    set %lin 813
    :jac813
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 819) halt
    inc %lin  
    goto jac813
    set %lin 1
  }
  ..Son bello:{
    /unset %bet
    /unset %tet
    /unset %vur
    /set %vur  $?!="Sei maschio?"
    if ( %vur ) set %bet bello | else set %bet bella 
    if ( %vur ) set %tet bisognoso | else set %tet bisognosa
    set %lin 569
    :jac569
    ;echo 8 -a ciao %lin
    $readini(newzeland.ini,script,%lin)
    if (%lin = 581) halt
    inc %lin  
    goto jac569
    set %lin 1
  }
  ..Diavoletto $1:{
    set %lin 864
    :jac864
    $readini(newzeland.ini,script,%lin)
    if (%lin = 875)  control
    inc %lin  
    goto jac864
    set %lin 1
  }
