Vous n'êtes pas identifié(e).

Top posteurs

Statistiques

Partenaires

  • eXolia Hosting
  • Eggdrop.fr

#1 01/03/2016 19:34:38

Oxyg3n3
Nouveau IRCzien
Inscription : 01/01/2013
Messages : 47
Site Web

Soucis avec un codage

Bonjour, voilà j'ai un codage que m'avait fait quelqu'un et qui fonctionnait parfaitement, et depuis que j'ai tente de le relancer sans modif il ne fonctionne plus. Voici ce code :

Code: TCL
 
############
# Planning #
############
bind pub - "!pl" dop:pl
proc dop:pl {n ht hd ch a} {
set donnee [lindex $a 0]
set stop 0
if {![file exists "scripts/planning-resa.dab"]} {set files [open "scripts/planning-resa.dab" a+]; close $files}
	if {$donnee == ""} {
		catch {open "scripts/planning-resa.dab" r} files
		while {![eof $files]} {gets $files x; if {[lindex $x 0] != ""} {
			putfast "notice $n :10Numéro Résa4 \[\3 [lindex $x 0]4 \]\ 14:7 [lindex $x 1] 14Animera le4 \[\10 [lindex $x 2] [lindex $x 3] 14à12 [lrange $x 4 end] 4\]\ "
			set stop 1
		} }; catch {close $files}
		if {$stop == 0} {putfast "notice $n :Aucune réservation n'a été faite à ce jour !!"}
	}
	switch -exact $donnee {
		"test" {
			if {$n != "SerVuS"} {putfast "notice $n :------ Ceci est une zone réserver au codeur pour les tests ------"; return}
			# Lecture resa #
			catch {open "scripts/planning-resa.dab" r} files
			while {![eof $files]} {gets $files x; if {[lindex $x 0] != ""} {
				putfast "notice $n :$x"
			} }; catch {close $files}
		}
		"fixe" {
			# Toute la semaine #
			putfast "notice $n :4 /!\\ 14Commande en travaux !!10 Désoler pour le désagrément occasionné. 6Merci de bien vouloir patientez.4 /!\\"
		}
		"aujourd'hui" {
			catch {open "scripts/planning-resa.dab" r} files
			while {![eof $files]} {gets $files x; if {[lindex $x 0] != ""} {
				if {[lindex [times] 0] == [lindex $x 0] && [lindex [times] 1] == [lindex $x 1]} {set stop 1; putfast "notice $n :$x"}
			} }; catch {close $files}
			if {$stop == 0} {putfast "notice $n :Personne n'a réservé une annimation"} 
		}
		"demain" {
			putfast "notice $n :4 /!\\ 14Commande en travaux !!10 Désoler pour le désagrément occasionné. 6Merci de bien vouloir patientez.4 /!\\"
		}
		"hier" {
			set time [lindex [times] 5]
			if {$n != "SerVuS"} {putfast "notice $n :4 /!\\ 14Commande en travaux !!10 Désoler pour le désagrément occasionné. 6Merci de bien vouloir patientez.4 /!\\"; return}
			regsub -all -- {:} $time { } time
			set uptime "[lindex $time 0]h[lindex $time 1]"
			putfast "notice $n : [split [lindex [times] 5] :] / [times] / $uptime"
		}
	}
}
 
###########
# Réservé #
###########
bind pub - "!ap" dop:ap
proc dop:ap {n ht hd ch a} {
	set stop 0
	set num 0
	set jour [lindex $a 0]
	set date [lindex $a 1]
	set heure [lrange $a 2 end]
	if {$ch != "#!bot!"} {putfast "notice $n :Erreur salon"; return}
	if {$jour == ""} {putfast "notice $n :Syntaxe : !ap < jour > < date > < heure >"; return}
	if {$date == ""} {putfast "notice $n :Syntaxe : !ap < jour > < date > < heure >"; return}
	if {$heure == ""} {putfast "notice $n :Syntaxe : !ap < jour > < date > < heure >"; return}
	if {![file exists "scripts/planning-resa.dab"]} {set files [open "scripts/planning-resa.dab" a+]; close $files}
	# Control Résa #
	catch {open "scripts/planning-resa.dab" r} files
	while {![eof $files]} {gets $files x; if {[lindex $x 0] != ""} {
		if {$jour == [lindex $x 0] && $heure == [lindex $x 1]} {lappend user "[lindex $x 2]"; set stop 1}
	} }; catch {close $files}
	if {$stop == 1} {putfast "notice $n :Jour et Heure(s) déja réservé par $user"; return}
	# Résa #
	set num [expr {int(rand() * 42)}]
	set files [open "scripts/planning-resa.dab" a+]
	puts $files "$num $n $jour $date $heure"
	close $files
	putfast "notice $n :Planning Enregistrer pour $jour à $heure"
}
 
######################
# Annulé réservation #
######################
bind pub - "!dp" dop:dp
proc dop:dp {n ht hd ch a} {
set num [lindex $a 0]
set stop 0
if {$ch == "#!bot!"} {
	if {$num == ""} {putfast "notice $n :Syntaxe => !dp < numéro >"; return}
	if {![file exists "scripts/planning-resa.dab"]} {putfast "notice $n :Aucune Réservation actuellement"}
	# suppression de la résa #
	catch {open "scripts/planning-resa.dab" r} liste
	while {![eof $liste]} { gets $liste verif; if {![string compare -nocase $num [lindex $verif 0]]} { set stop 1 }; if {[string compare -nocase $num [lindex $verif 0]] && $verif!=""} { lappend salle "$verif" } }
	catch {close $liste}
	if {$stop == 0} {putfast "notice $n :Numéro Inconnu"; return}
	if {[info exists salle]} {
		set del [open "scripts/planning-resa.dab" w+]; foreach delchan $salle { puts $del "$delchan"}; close $del
	} else { set del [open "scripts/planning-resa.dab" w+]; close $del }
	putfast "notice $n :La réservation vient d'être supprimer"
} else {
	putfast "notice $n :Erreur Salon"
} }
 
##################
# Message Global #
##################
bind pub - "!glob" dop:glob
proc dop:glob {n ht hd ch a} {
	set text [lrange $a 0 end]
	if {$text == ""} {putfast "notice $n :Syntaxe : !glob < texte >"; return}
if {$ch == "#!secret!"} {
	foreach salon [channels] {
		putfast "privmsg $salon :6\[\ 4Message Global de7 $n 6\]\ :12 $text"
	}
} else {
	putfast "notice $n :Erreur Salon"
} }
 
##########
# Rehash #
##########
bind pub - !rehash dop:rehash
proc dop:rehash {n ht hd ch a} {
if {$n == "SerVuS"} {
rehash
putfast "notice $n :rehash ok"
} }
 
################
# Heure + Date #
################
proc times {} {
set horloge "[unixtime]"
set heure [lindex [ctime $horloge] 3]
set date [lindex [ctime $horloge] 2]
	switch -exact [lindex [ctime $horloge] 0] {
		"Mon" { set jour "Lundi" }
		"Tue" { set jour "Mardi" }
		"Wed" { set jour "Mercredi" }
		"Thu" { set jour "Jeudi" }
		"Fri" { set jour "Vendredi" }
		"Sat" { set jour "Samedi" }
		"Sun" { set jour "Dimanche" }
	}
	switch -exact [lindex [ctime $horloge] 1] {
		"Jan" { set mois "Janvier" }
		"Feb" { set mois "Février" }
		"Mar" { set mois "Mars" }
		"Apr" { set mois "Avril" }
		"May" { set mois "Mai" }
		"Jun" { set mois "Juin" }
		"Jul" { set mois "Juillet" }
		"Aug" { set mois "Août" }
		"Sep" { set mois "Septembre" }
		"Oct" { set mois "Octobre" }
		"Nov" { set mois "Novembre" }
		"Dec" { set mois "Décembre" }
	}
set annee [lindex [ctime $horloge] 4]
return "$jour $date $mois $annee : $heure"
}
 

Il s'agit d'un planning pour radio. Et pour erreur j'ai ceci

Tcl error [dop:ap]: invalid command name "putspeed"

Alors j'ai modifié le putspeed avec tout ce que je connaissais le putfash le serv etc mais rien n'y fait

Pouvez-vous m'aider svp ?

Merci.


Nous avons la boîte magique et vous les secrets, pourquoi ne pas les partager avec nous ?

Hors ligne

#2 01/03/2016 20:51:00

Harakiri
Administrateur
Lieu : Paris
Inscription : 02/07/2011
Messages : 260

Re : Soucis avec un codage

Le message d'erreur que tu nous montres ne correspond pas au code que tu as partagé puisque celui-ci ne fait pas du tout référence à putspeed.
Mets à jour le code ou le message d'erreur que tu as pour qu'on puisse avoir l'erreur qui correspond au bon code, sinon ça risque d'être un petit peu compliqué smile


EOF

Hors ligne

Pied de page des forums

404944 visites ( 73 aujourd'hui ) 2 visiteurs en ligne
Copyright © 2004 - 2013 IRCz