Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on May 2nd, 2012  |  syntax: None  |  size: 11.38 KB  |  hits: 32  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. ;### get_update - Mises à jours du script officiel - MiRaGe - 23/01/2011 - Le modifier serait une folie :)
  2. alias check_update dialog -om check_update check_update
  3. dialog check_update {
  4.   title Skyrock update
  5.   icon $mircdir\icones\icon_v5.ico
  6.   size -1 -1 228 106
  7.   button "", 9, 100 0 0 0, ok
  8.   icon 10, 0 0 228 17, icones\popup-top.png, noborder
  9.   icon 11, 0 17 228 43, icones\update.png, noborder
  10.   icon 12, 0 60 115 31, icones\popup-no.png, noborder
  11.   icon 13, 114 60 115 31, icones\popup-yes.png, noborder
  12.   icon 14, 0 91 228 17, icones\popup-bot.png, noborder
  13. }
  14. on *:dialog:check_update:sclick:*:{
  15.   if ($did == 12) { dialog -x check_update | welcome }
  16.   if ($did == 13) { dialog -x check_update | start_update }
  17. }
  18. on *:START:$iif($readini(database.ini,n,options,updatescript) == On,check_update,welcome)
  19. alias start_update {
  20.   if ($server == $null) {
  21.     if (%server_update == skyrock.net || %server_update == superponey.net) {
  22.       echo 2 -s * mIRC $version - irc.skyrock.net - %version
  23.       echo -a 05* Recherche des mises à jour du script officiel en cours...
  24.       sockclose get_script_update
  25.       sockopen get_script_update op. $+ %server_update 80
  26.       .timerget_script_update 1 10 sockclose get_script_update
  27.       .timerget_script_update 1 10 echo -a 05-> Erreur de connectivité
  28.       .timerget_script_update 1 10 end_update
  29.     }
  30.     else { echo -ea 05* Erreur, le serveur de mise à jour est incorrect. | welcome }
  31.   }
  32.   else { echo -ea 05* Erreur, vous devez être déconnecté du serveur IRC pour procéder à la mise à jour. | welcome }
  33. }
  34. on *:sockopen:get_script_update:{
  35.   sockwrite -n $sockname GET http://op. $+ %server_update $+ /files/mirc/list_script.php HTTP/1.1
  36.   sockwrite -n $sockname Host: %server_update
  37.   sockwrite -n $sockname User-agent: mIRC Script Skyrock.com
  38.   sockwrite -n $sockname $crlf
  39. }
  40. on *:sockread:get_script_update:{
  41.   if ($sockerr) { echo -t Récupération des données échoué mise à jours annulée | halt }
  42.   sockread %get_script_update
  43.   if ($regex(%get_script_update,/(HTTP/1.1\s200\sOK)/i) == 1 && %get_script_server != 1) { set %get_script_server 1 | .timerget_script_update off }
  44.   elseif (%get_script_server != 1) {
  45.     unset %get_script_update
  46.     echo -a 05-> Mises à jours échouées, le serveur distant ne répond pas
  47.     .timerget_script_update off
  48.     end_update
  49.     sockclose $sockname
  50.   }
  51.   elseif ($gettok(%get_script_update,1,58) == UpdateScripts) {
  52.     if ($gettok(%get_script_update,2,58) != %version) {
  53.       echo -a 05-> Mises à jours trouvées, téléchargement de la version12 $gettok(%get_script_update,2,58) $+ 05...
  54.       set %get_script_list $gettok(%get_script_update,3,58)
  55.       set %nb_scripts_files $numtok(%get_script_list,59)
  56.       set %inc_script_file 1
  57.       set %script_must_update 1
  58.     }
  59.     else echo -a 05<- Aucune mise à jour trouvée des scripts...
  60.   }
  61.   elseif ($gettok(%get_script_update,1,58) == UpdateLanguage) {
  62.     if ($gettok(%get_script_update,2,58) == ON) {
  63.       set %language_must_update 1
  64.       set %get_language_list $gettok(%get_script_update,3,58)
  65.       set %nb_language_files $numtok(%get_language_list,59)
  66.       set %inc_language_file 1
  67.     }
  68.     if (%script_must_update != 1 && %language_must_update != 1) { echo -a 05<- Aucune mise à jour trouvée des fichiers de langues... | end_update | sockclose $sockname }
  69.     elseif (%script_must_update == 1) { get_scripts_files | sockclose $sockname }
  70.     elseif (%script_must_update != 1 && %language_must_update == 1) { echo -a 05* Recherche des mises à jour des fichiers de langue en cours... | get_language_files | sockclose $sockname }
  71.   }
  72.   unset %get_script_update
  73. }
  74. alias get_scripts_files {
  75.   unset %get_script_server %get_script_data_file_write %get_script_data_file_exist
  76.   if (%inc_script_file <= %nb_scripts_files) {
  77.     set %get_script_file $gettok(%get_script_list,%inc_script_file,59)
  78.     set %ticks $ticks
  79.     write -c scripts\ $+ %get_script_file $+ .update    
  80.     sockclose get_script_file_ $+ %get_script_file
  81.     sockopen get_script_file_ $+ %get_script_file op. $+ %server_update 80
  82.     .timerget_script_file_ $+ %get_script_file 1 10 sockclose get_script_file_ $+ %get_script_file
  83.     .timerget_script_file_ $+ %get_script_file 1 10 echo -a 05-> Erreur de connectivité
  84.     .timerget_script_file_ $+ %get_script_file 1 10 end_update
  85.   }
  86.   else {
  87.     unset %nb_scripts_files %inc_script_file
  88.     echo -a 05* Mise à jours des scripts terminée
  89.     if (%language_must_update == 1) { language_update }
  90.     elseif (%script_must_update == 1) { get_script_variable }
  91.     else end_update
  92.   }
  93. }
  94. on *:sockopen:get_script_file_*:{
  95.   sockwrite -n $sockname GET http://op. $+ %server_update $+ /files/mirc/scripts/ $+ %get_script_file HTTP/1.1
  96.   sockwrite -n $sockname Host: %server_update
  97.   sockwrite -n $sockname $crlf
  98. }
  99. on *:sockread:get_script_file_*:{
  100.   if ($sockerr) { halt }
  101.   sockread %get_script_data_file
  102.  
  103.   if ($regex(%get_script_data_file,/(HTTP/1.1\s200\sOK)/i) == 1 && %get_script_data_file_exist == $null) { set %get_script_data_file_exist 1 | .timerget_script_file_ $+ %get_script_file off }
  104.   elseif ( %get_script_data_file_exist == $null) {
  105.     echo -s 05--> Téléchargement de12 $remove($sockname,get_script_file_) 05: 04ÉCHOUÉ 05( $+ $calc(( $ticks - %ticks )/1000 $+ ) secondes)
  106.     echo -s 05<- Mise à jour annulée, merci de contacter un administrateur
  107.     .timerget_script_file_ $+ %get_script_file off
  108.     unset %nb_scripts_files
  109.     unset %inc_script_file
  110.     sockclose $sockname
  111.     end_update
  112.   }
  113.   if ($regex(%get_script_data_file,/(;###StartScript)/i) == 1) { set %get_script_data_file_write 1 }
  114.   if (%get_script_data_file_exist == 1 && %get_script_data_file_write == 1) {
  115.     write scripts\ $+ $remove($sockname,get_script_file_) $+ .update %get_script_data_file
  116.     if (%get_script_data_file == ;###EndScript) {
  117.       echo -s 05--> Téléchargement de12 $remove($sockname,get_script_file_) 05: 03OK 05( $+ $calc(( $ticks - %ticks )/1000 $+ ) secondes)
  118.       inc %inc_script_file
  119.       get_scripts_files
  120.       sockclose $sockname
  121.     }
  122.   }
  123.   unset %get_script_data_file
  124. }
  125. alias language_update {
  126.   echo -a 05* Recherche des mises à jour des fichiers de langue en cours...
  127.   if (%get_language_list != $null) {
  128.     echo -s 05* Mise à jour trouvés pour les fichiers de langues...
  129.     get_language_files
  130.   }
  131.   else {
  132.     echo -a 05<- Aucune mise à jour trouvée des fichiers de langues...
  133.     script_install_update
  134.   }
  135. }
  136. alias get_language_files {
  137.   unset %get_script_server %get_language_data_file_write %get_language_data_file_exist
  138.   if (%inc_language_file <= %nb_language_files) {
  139.     set %get_language_file $gettok(%get_language_list,%inc_language_file,59)
  140.     if (!$isdir(locales\ $+ %get_language_file $+ \)) { mkdir locales\ $+ %get_language_file $+ \ }
  141.     write -c locales\ $+ %get_language_file $+ \language.ini  
  142.     set %ticks $ticks
  143.     sockclose get_language_file_ $+ %get_language_file
  144.     sockopen get_language_file_ $+ %get_language_file op. $+ %server_update 80
  145.     .timerget_language_file_ $+ %get_language_file 1 10 sockclose get_language_file_ $+ %get_language_file
  146.     .timerget_language_file_ $+ %get_language_file 1 10 echo -a 05-> Erreur de connectivité
  147.     .timerget_language_file_ $+ %get_language_file 1 10 end_update
  148.   }
  149.   else {
  150.     unset %nb_language_files %inc_language_file
  151.     get_script_variable
  152.   }
  153. }
  154. on *:sockopen:get_language_file_*:{
  155.   sockwrite -n $sockname GET http://op. $+ %server_update $+ /files/mirc/locales/ $+ %get_language_file $+ /language.ini HTTP/1.1
  156.   sockwrite -n $sockname Host: %server_update
  157.   sockwrite -n $sockname $crlf
  158. }
  159. on *:sockread:get_language_file_*:{
  160.   if ($sockerr) { echo -t Récupération des données échoué | halt }
  161.   sockread %get_language_data_file
  162.   if ($regex(%get_language_data_file,/(HTTP/1.1\s200\sOK)/i) == 1 && %get_language_data_file_exist == $null) { set %get_language_data_file_exist 1 | .timerget_language_file_ $+ %get_language_file off }
  163.   elseif ( %get_language_data_file_exist != 1) {
  164.     echo -s 05--> Téléchargement de12 $remove($sockname,get_language_file_) $+ \language.ini 05: 04ÉCHOUÉ 05( $+ $calc(( $ticks - %ticks )/1000 $+ ) secondes)
  165.     echo -s 05<- Mise à jour annulée, merci de contacter un administrateur
  166.     .timerget_language_file_ $+ %get_language_file off
  167.     sockclose $sockname
  168.     unset %nb_language_files %inc_language_file
  169.     end_update
  170.   }
  171.   if ($chr(91) $+ $remove($sockname,get_language_file_) $+ $chr(93) isin %get_language_data_file ) { set %get_language_data_file_write 1 }
  172.   if (%get_language_data_file_exist == 1 && %get_language_data_file_write == 1) {
  173.     write locales\ $+ $remove($sockname,get_language_file_) $+ \language.ini %get_language_data_file
  174.     if (%get_language_data_file == ;###EndLanguage) {
  175.       echo -s 05--> Téléchargement de12 $remove($sockname,get_language_file_) $+ \language.ini 05: 03OK 05( $+ $calc(( $ticks - %ticks )/1000 $+ ) secondes)
  176.       inc %inc_language_file
  177.       unset %get_language_data_file_exist %get_language_data_file_write
  178.       get_language_files
  179.       sockclose $sockname
  180.     }
  181.   }
  182.   unset %get_language_data_file
  183. }
  184. alias script_install_update {
  185.   var %inc_script_file 1
  186.   var %nb_scripts_files $numtok(%get_script_list,59)
  187.   while (%inc_script_file <= %nb_scripts_files) {
  188.     var %get_script_file $gettok(%get_script_list,%inc_script_file,59)
  189.     if ($script(%get_script_file) != $null) { .unload -rs scripts\ $+ %get_script_file }
  190.     .remove scripts\ $+ %get_script_file
  191.     .rename scripts\ $+  %get_script_file $+ .update scripts\ $+ %get_script_file
  192.     .load -rs scripts\ $+ %get_script_file
  193.     inc %inc_script_file
  194.   }
  195.   end_update
  196. }
  197. alias end_update {
  198.   unset %ticks %get_script_* %get_language_* %*_must_update %*_must_update %nb_language_files %inc_language_file
  199.   echo -a 05* Opérations terminées.
  200.   welcome
  201. }
  202. alias get_script_variable {
  203.   if (%script_must_update == 1) {
  204.     sockclose get_script_variable
  205.     sockopen get_script_variable op. $+ %server_update 80
  206.     .timerget_script_variable 1 10 sockclose get_script_variable
  207.     .timerget_script_variable 1 10 echo -a 05-> Erreur de connectivité
  208.     .timerget_script_variable 1 10 end_update
  209.   }
  210.   else end_update
  211. }
  212. on *:sockopen:get_script_variable:{
  213.   sockwrite -n $sockname GET http://op. $+ %server_update $+ /files/mirc/script_var.php HTTP/1.1
  214.   sockwrite -n $sockname Host: %server_update
  215.   sockwrite -n $sockname User-agent: mIRC Script Skyrock.com
  216.   sockwrite -n $sockname $crlf
  217. }
  218. on *:sockread:get_script_variable:{
  219.   if ($sockerr) { echo -t Récupération des données échoué mise à jours annulée | halt }
  220.   sockread %get_script_variable
  221.   if ($regex(%get_script_variable,/(HTTP/1.1\s200\sOK)/i) == 1 && %get_script_server == $null) { set %get_script_server 1 | .timerget_script_variable off }
  222.   elseif (%get_script_server != 1) {
  223.     .timerget_script_variable off
  224.     unset %get_script_variable
  225.     echo -s 05--> Récupération des variables 05: 04ÉCHOUÉ
  226.     echo -s 05<- Mise à jour annulée, merci de contacter un administrateur
  227.     sockclose $sockname
  228.     end_update
  229.   }
  230.   if ($gettok(%get_script_variable,1,32) == cmnd_dstnt) { $remove(%get_script_variable,cmnd_dstnt) }
  231.   if ($gettok(%get_script_variable,1,32)  == ;###EndScript) {
  232.     echo -s 05--> Récupération des variables 05: 03OK
  233.     unset %get_script_variable
  234.     sockclose $sockname
  235.     script_install_update
  236.   }
create a new version of this paste RAW Paste Data