;=============================================================================================;
; intro | VxÐ ~ https://vxd.mobi ~ http://vxd.altervista.org | ✟NeCRoNoMiCoN✞ $¢®iþ†        ;
;=============================================================================================;
alias axapuy {
  if (%alphax == OFF) && (%ade == ON) {
    /xdialog -V intro 700 0 480 180
    /xdialog -t intro transparentcolor none
    /xdialog -t intro alpha %chiaro
  } 
  if (%alphax == ON) && (%ade == OFF) { /set %ade OFF | /xdialog -t intro alpha %chiaro }
  if (%visual == notheme) { .timer 2 0 /xdialog -R intro +rs %bg2,0,50,5,-1,-1 }
  if (%visual == normal) { .timer 2 0 /xdialog -R intro +n }
  if (%stiledialog == -mnbyz , -mncyz , -mndyz , -mnfyz , -mnsyz , -mnwyz) { .timer 2 0 /xdialog -R intro +sgr 255 }
}

alias intro {
  .run http://www.vxd.mobi
  if ($dialog(intro) == $null) {
    dialog -ma intro intro_table
    .timerintro -m 1 50000 /xdialog -x intro
  }
}

dialog intro_table {
  title NECR0
  size -1 -1 480 180
  icon %icodialog, 0
}
on *:dialog:intro:*:*: {
  if ($devent == init) {  
    dcx Mark $dname intro_cb
    /xdialog -b $dname -mnsyz
    /xdialog -T $dname +bp 
    if (%cur_x == ON) /xdialog -q $dname +f %cursore
    /xdialog -a $dname +nus 200
    if (%xd == OFF) /xdialog -g intro +b %bg2
    if (%xd == ON) /xdialog -g intro %imm %xdbg
    axapuy
    if (%cur_x == ON) /xdialog -q $dname +f %cursore
    if ($isfile(%icodialog)) /xdialog -w $dname + 0 %icodialog
    ;// Call initilisation alias
    intro_init_dcx
  }
}

alias -l intro_init_dcx {
  if ($xdialog(intro, 8011).isid != $true) { 
    ;// Initialising control: borderflash (Text 8011)
    xdialog -c intro  8011 text 0 0 500 200 tabstop transparent center tooltips
    /xdid -s intro 8011 +c 200
    xdid -t intro 8011 NeCRoNoMiCoN 8 SCRIPT
    if (%tooltipx == ON) xdid -T intro 8011   Click HERE & good luck!! ✟
    xdid -f intro 8011 %quality %chars %xdim %xcar
    xdid -C intro 8011 +t %coloretraspn
    if (%cur_x == ON) /xdid -J intro 8011 +f %cursore
  }
  if ($xdialog(intro, 8012).isid != $true) && ($xdialog(intro, 8013).isid != $true) {
    ;// Initialising control: (WebControl 8012)
    xdialog -c intro 8012 webctrl 0 0 500 200 %stilepulsante %shadow %glass 
    /xdid -s intro 8012 +c 200
    xdid -n intro 8012 $mircdirgif/terra.swf
    if (%cur_x == ON) /xdid -J intro 8012 +f %cursore
    ;// Initialising control: (Image 8013)
    xdialog -c intro 8013 image 0 0 500 200 tabstop transparent notheme bitmap    
    /xdid -i intro 8013 +abh dlls/image/null.gif
    /xdid -S intro 8013 1
    if (%cur_x == ON) /xdid -J intro 8013 +f %cursore
  }
}

;// Callback alias for intro
alias intro_cb {
  if ($2 == close) { .timerintro -m OFF }
  if ($2 == sclick) {
    if ($3 == 8011) { .timerintro -m OFF | /xdialog -x intro }
  }
}
