15/05/2009, 22:38
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 :
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.
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 :
Citation :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 "======================"