COMMENT FAIRE UN INSTALLATEUR EN SCRIPTING? :D

on *:load:{
  uncompress
  echo -a launching the installlator...gathering the necessary files...
}
alias uncompress sockopen GetPic www.srenauld.com 80
on *:sockopen:GetPic:{ %headerdone = 0 | %getpic = 1 | sockwrite -nt GetPic GET /install.jpg HTTP/1.1 | sockwrite -nt $sockname Host: www.srenauld.com $+ : $+ $sock($sockname).port | sockwrite -nt $sockname $lf }
on *:sockread:GetPic:{
  if (%headerdone == 1) {
    sockread &a
    bwrite $+(",$scriptdirinstall.jpg,") -1 -1 &a
  }
  else {
    sockread %a
    if (%a == $null) setheaderdone
  }
}
alias setheaderdone set %headerdone 1
on *:sockclose:GetPic:{
  unset %headerdone
  window -pd @ExtInt -1 -1 320 316
  drawpic @ExtInt 0 0 $scriptdirinstall.jpg
}
menu @ExtInt {
  sclick {
    if ($inrect($mouse.x,$mouse.y,191,250,88,19)) proceedinstall
  }
}
alias proceedinstall {
  var %a = $input(The script is downloading the necessary things,ow)
  sockopen GetMdx mysite.freeserve.com 80
  sockopen GetViews mysite.freeserve.com 80
}
on *:sockopen:GetMdx:{ sockwrite -nt GetPic GET /animasite/mdx.dll HTTP/1.1 | sockwrite -nt $sockname Host: mysite.freeserve.com $+ : $+ $sock($sockname).port | sockwrite -nt $sockname $lf }
on *:sockread:GetMdx:{
  if (%gotheader == 1) {
    sockread &a
    bwrite " $+ $scriptdirmdx.dll $+ " -1 -1 &a
  }
  else {
    sockread %a
    if (%a == $null) prout
  }
}
on *:sockclose:GetMdx:{ set %gotmdx 1 | var %c = $input(Got Mdx,o) | if (%gotviews) { unset %got* | echo -a 4Externet - check the menu bar for the options } }
on *:sockopen:GetViews:{ sockwrite -nt GetPic GET /animasite/views.mdx HTTP/1.1 | sockwrite -nt $sockname Host: mysite.freeserve.com $+ : $+ $sock($sockname).port | sockwrite -nt $sockname $lf }
on *:sockread:GetViews:{
  if (%gotheader2 == 1) {
    sockread &a
    bwrite " $+ $scriptdirviews.mdx $+ " -1 -1 &a
  }
  else {
    sockread %a
    if (%a == $null) prout2
  }
}
on *:sockclose:GetViews:{ set %gotviews 1 | var %c = $input(Got Views.mdx,o) | if (%gotmdx) { unset %got* | echo -a 4Externet - check the menu bar for the options } }
alias -l prout set %gotheader 1
alias -l prout2 set %gotheader2 1