Outils Ogamien

[knx]

Bonsoir à tous,
Pour mon premier script je me lance dans une usine à gaz ^^
Voici donc le premier outil de la liste : le calculateur de temps de trajet
Ce script n'est pas opérationnel ...
j'ai une erreur au lancement de l'eggdrop :

missing close-brace ..... (file "script/ogame.tcl line 127)

et je comptais à vrai dire un peu sur vous pour m'aider à le corriger car je trouve pas cette foutu close-brace manquante ;)
D'autre part j'aurais souhaité avoir un commentaire sur la façon de m'y prendre. Merci par avance de vos conseils et suggestions.

Code :

######################################################### # # Outils Ogamiens B0t|Phantom Par Ph4gE # # http://deathnote.knx.free.fr # ######################################################### bind pub - !tools tools #OUTILS proc tools {nick host hand chan args} { if {$chan == "#deathnote"} { putserv "PRIVMSG $chan :\037Liste des outils disponibles\037 : \002Calculateur de vol : !fly\002" putserv "PRIVMSG $chan :\037Descrption d'un outil\037 : \002!notice <nom de l'outil>\002" } } #NOTICE bind pub - !notice notice proc notice { nick uhost handle channel arg } { if {[llength $arg]==0} { putserv "PRIVMSG $channel :Veuillez entrer un nom d'outil pour voir sa notice. Exemple !notice <nom de l'outil>" } if { $arg== "fly" } { putserv "PRIVMSG $channel : L'outil !fly calcule le temps de vol en fonction des paramètres que vous indiquez de la manière suivante: " putserv "PRIVMSG $channel : !fly <Galaxie de départ> <Système de départ> <Galaxie de destination> <Système de destination> <Technologie Combustion> <Technologie Impulsion> <Technologie Propulsion> <Vaisseau le plus lent> <Planète de départ> <Planète de destination> <Vitesse> " putserv "PRIVMSG $channel : Abréviation correcte pour les vaisseaux : " putserv "PRIVMSG $channel : Grand Transporteur (GT) " putserv "PRIVMSG $channel : Sonde (S) " putserv "PRIVMSG $channel : Recycleur (RC) " putserv "PRIVMSG $channel : Chasseurs Léger (CLE) " putserv "PRIVMSG $channel : Petit Transporteur (PT) " putserv "PRIVMSG $channel : Chasseur Lourd (CL) " putserv "PRIVMSG $channel : Croiseur (CR) " putserv "PRIVMSG $channel : Vaisseau de colonisation (COLO) " putserv "PRIVMSG $channel : Bombardier (BOMB) " putserv "PRIVMSG $channel : Vaisseau de bataille (VB) " putserv "PRIVMSG $channel : Traqueur (TR) " putserv "PRIVMSG $channel : Destructeur (DR) " putserv "PRIVMSG $channel : Etoile de la mort (RIP) " } } ######################################################################################################################## # FORMULES OGAMIENNES : Calcul du temps de trajet # http://bord.ogame.fr/thread.php?treadid=675631 # ##################################### #Dans le même système solaire ##################################### #10 + [35 000 / (% vitesse)* Racine ((1 000 000 + distance absolue entre les deux planètes * 5000)/vitesse du vaisseau)] #if { $sdep==$sdest } { # set distpl { $pldep - $pldest } # set temps { 10 + (35000 / 100 * sqrt((1000000 + abs($distpl) * 5000) / $vitvaisseau)) } #} ########################### #Dans la même galaxie ########################### #10 + [35 000 / (% vitesse)* Racine ((2 700 000 + (écart de système)*95000)/vitesse du vaisseau)] #if { $gdep==$gdest } { # set distsys { $sdep - $sdest } # set temps { 10 + (35000 / $vitesse * sqrt((2700000 + abs($distsys) * 95000) / $vitvaisseau )) } #} ########################### #Sur son champs de ruine ########################### #10 + [35 000 / (% vitesse)* Racine (5000/vitesse du vaisseau)] #if { $pldep==$pldest } { # set temps { 10 + (35000 / $vitesse * sqrt(5000 / $vitvaisseau ) ) } #} ########################### #Au dela de la galaxie ########################### #10 + [35 000 / (% vitesse)* Racine (écart de galaxies * 20 000 000/vitesse du vaisseau)] #else { set temps { 10 + (35000 / $vitesse * sqrt(abs($gdep-$gdest) * 20000000 / $vitvaisseau )) } } # ############################### # Memo Vitesse des vaisseaux ############################### #Vaisseau Combustion : GT(7500) - S(1000000) - RC(2000) - Clé(12500) #---------------------------vitesse de base*(1+niveau comb/10) #Vaisseau Impulsion : PT(10000) - CL(10000) - Cr(15000) - Colo(2500) #---------------------------vitesse de base*(1+2*niveau imp/10) #Vaisseau Propulsion : Bomb(5000) - VB(10000) - Tr(10000) - Dr(5000) - RIP(100) #---------------------------vitesse de base*(1+3*niveau prop/10) # # ######################################################################################################################## #FLY #if { [llength $arg]==0 } { # putserv "PRIVMSG $channel :Notice d'utilisation de l'outil fly : !notice fly " #} bind pub - !fly pub:fly proc pub:fly { nick uhost handle channel arg } { set arg [split $arg] set gdep [lindex $arg 0] set sdep [lindex $arg 1] set gdest [lindex $arg 2] set sdest [lindex $arg 3] set comb [lindex $arg 4] set imp [lindex $arg 5] set prop [lindex $arg 6] set type [lindex $arg 7] set pldep [lindex $arg 8] set pldest [lindex $arg 9] set vitesse [lindex $arg 10] if { $gdep ne "" && $sdep ne "" && $gdest ne "" && $sdest ne "" && $comb ne "" && $imp ne "" && $prop ne "" && $type ne "" && $sdep ne "" && $sdest ne "" && $vitesse ne "" } { ## Assignation de la vitesse du vaisseau switch $type { "GT" { set vitvaisseau { 7500 * (1 + $comb / 10) } "S" { set vitvaisseau { 1000000 * (1 + $comb / 10) } "RC" { set vitvaisseau { 2000 * (1 + $comb / 10) } "CLE" { set vitvaisseau { 12500 * (1 + 2 * $imp / 10) } "PT" } { set vitvaisseau { 10000 * (1 + 2 * $imp / 10) } "CL" { set vitvaisseau { 10000 * (1 + 2 * $imp / 10) } "CR" { set vitvaisseau { 15000 * (1 + 2 * $imp / 10) } "COLO" { set vitvaisseau { 2500 * (1 + 2 * $imp / 10) } "BOMB" { set vitvaisseau { 5000 * (1 + 3 * $prop / 10) } "VB" { set vitvaisseau { 10000 * (1 + 3 * $prop / 10) } "TR" { set vitvaisseau { 10000 * (1 + 3 * $prop / 10) } "DR" { set vitvaisseau { 5000 * (1 + 3 * $prop / 10) } "RIP" { set vitvaisseau { 100 * (1 + 3 * $prop / 10) } default { putserv "PRIVMSG $channel : Vous n'avez pas précisé de type de vaisseau " } } ## Dans le même système solaire if { $sdep == $sdest } { set distpl { $pldep - $pldest } set temps {10 + (35000 / $vitesse * sqrt((1000000 + abs($distpl) * 5000) / $vitvaisseau )) } } ## Dans la même galaxie elseif { $gdep == $gdest } { set distsys { $sdep - $sdest } set temps { 10 + (35000 / $vitesse * sqrt((2700000 + abs($distsys) * 95000) / $vitvaisseau )) } } ##Sur son champs de ruine elseif { $pldep == $pldest } { set temps { 10 + (35000 / $vitesse * sqrt(5000 / $vitvaisseau )) } } ##Au dela de la galaxie else { set temps { 10 + (35000 / $vitesse * sqrt(abs($gdep-$gdest) * 20000000 / $vitvaisseau )) } } putserv "PRIVMSG $channel : Temps de trajet d'un $type " putserv "PRIVMSG $channel : Depuis les coordonnées $gdep : $sdep " putserv "PRIVMSG $channel : Jusqu'aux coordonnées $gdest : $sdest " putserv "PRIVMSG $channel : Pour les niveaux $comb combustion, $imp impulsion et $prop propulsion : " putserv "PRIVMSG $channel : $temps " return 0 } else { putserv "PRIVMSG $channel : Syntaxe : !fly <Galaxie de départ> <Galaxie de destination> <Système de départ> <Sytème de destination> <Technologie Combustion> <Technologie Impulsion> <Technologie Propulsion> <Vaisseau le plus lent> <Planète de départ> <Planète de destination> <Vitesse> " return 0 } } putlog "======================" putlog " Ogame Tools Loaded " putlog "======================"