[Kurupt]

Am incercat sa il tin cat de simplu, la sfarsit o sa dau si niste linkuri:
Codul:

## $Id: intrebari.tcl, version 0.0 , ggdrop-1.6.x 2005 dpgc@purehype.net Exp $
## Author:   Kurupt                                    
## Info:     Will ask questions
## Thanks to:
#            smart@UnderNet#ro-tcl     
#
## Contact:  mail: dpgc@purehype.net    
#            irc : #ro-tcl (on undernet)
#            web : http://code.aitia.info
## Info:     Am adaugat la fiecare optiune ce face, cititi cu atentie, si daca ##ceva nu e clar nu va sfiiti sa intrebati.

## START    
#Seteaza canalul pentru intebari
## Aici setam canalul pe care botul va scrie intrebarile, am folosit array ##pentru ca la sfarsit sa folosesc in global doar
## global teste
set teste(chan) "#bucuresti"

# Seteaza intrebarile
## Citeste info de mai sus , la fel si pentru intrebari
set teste(1) "Intrebarea1"
set teste(2) "Intrebarea2"
set teste(3) "Intrebarea3"
set teste(4) "Intrebarea4"
set teste(5) "Intrebarea5"

# BINDS
## Facem bindul, pentru a nu mai verifica dupa daca un user are sau nu ##access, punem direct in bind flagurile
## pentru care botul va asculta , este N global si nm local. Modificati dupa ##placere.
bind pub N|nm .intrebare teste:switch

# PROCES
## Incepem procesul pentru bind, simplu pana aici.
proc teste:switch {nick uhost hand chan text} {

## Definim variabila teste, am folosit array de aceea doar teste si nu global ##teste(chan) teste(1) 
global teste

## Verificam daca textul e mai mic de 0 , adica daca avem doar .intrebare ##fara numar botul va da un mesaj
 if {[llength $text] <= 0 } {
     putserv "notice $nick :Comenzile: .intrebare <nr>"
    } 
    
## setam cuvantul pentru switch   
  set tt [lindex $text 0]

## Incepem switch  
     switch $tt {
      "1" {putserv "privmsg $teste(chan) :$teste(1)"}
      "2" {putserv "privmsg $teste(chan) :$teste(2)"}
      "3" {putserv "privmsg $teste(chan) :$teste(3)"}
      "4" {putserv "privmsg $teste(chan) :$teste(4)"}
      "5" {putserv "privmsg $teste(chan) :$teste(5)"}
    }
  }
       

## Si am terminat, sper ca e usor pentru a adauga mai multe intrebari si a face switchurile adecvate.

putlog "teste loaded"

Codul e verificat functioneaza. Nu l-am pus inca pe ftp deoarece e ceva mai complicat, dar o sa apara.
Informatii mai detaliate despre ce am folosit in el gasiti aici:
Informatii despre switch: http://www.tcl.tk/man/tcl8.5/TclCmd/switch.htm
Informatii despre array: http://www.tcl.tk/man/tcl8.5/TclCmd/array.htm
Informatii generale: http://www.tcl.tk/man/tcl8.5/TclCmd/contents.htm

P.S 1.McEagle nu era problema ca nu am ftp ci ca trebuie ceva schimbat la el, plus de asta nu se da linkuri cu ftp neverificate sau cu scripte ciudate
2.Am pus 5 pentru ca nu e script complect ci idee sau HOW TO.
3.Am sters posturile tale care nu aveau legatura si care continea acel link ciudat.