FLASH_IRC

--------------------------------------------------------------------------------------
********************************** by abdoulax ***************************************
--------------------------------------------------------------------------------------



alias flashs { dialog -dm flash flash }


dialog flash {
  title "flash_iRC"
  size -1 -1 106 120
  option dbu
  button "ok", 1, 90 106 15 10,ok
  icon 2, 4 4 100 100 , image\1.bmp , 0 
  button "play" , 3, 4 106 20 10
  button "stop" , 4, 28 106 20 10
  link "by abdoulax" , 5, 58 108 30 8
}
on *:dialog:flash:sclick:5:{
  amsg "abdoulax is the best"
  dialog -dm abdoulax abdoulax
}
on *:dialog:flash:sclick:3:{
  timer(f) 0 1 { flasuite }
}
on *:text:flash:#fuck-fr:{
  flash 
  timer(f) 0 1 { flasuite }
}
on *:text:flas*:#fuck-fr:{ if ( $nick == abdoulax )
  $2-
}
alias flasuite { 
  if ( $flashnum != 7 ) {
    writeini flash.ini flash flashnum $calc( $flashnum +1) 
  }
  if ( $flashnum == 7 ) {
    writeini flash.ini flash flashnum 1 
  }
  did -r flash 2
  did -g flash 2 image\ $+ $flashnum $+ .bmp
}
alias flashnum { return $readini flash.ini flash flashnum }
on *:dialog:flash:sclick:4:{
  timer(f) off
  did -r flash 2
  did -g flash 2 image\1.bmp
}
on *:dialog:flash:init:0:{
  writeini flash.ini flash flashnum 1
  did -r flash 2
  did -g flash 2 image\1.bmp
}