/ScriptServ

ON 1:LOAD:{
  if ($version < 6.1) { echo -a FileEXT DB Setup has detected that Your version of mIRC is lower than 6.1 . Please update your mIRC and try again - To Download mIRC goto ( www.mIRC.com ) | unload -rs $script | halt }
  else { /dialog -m EXTload EXTload }
  /.enable #ext.ctcp
  /set %extctcp ON
  /.enable #ext.msg
  /set %extmsg ON
  /set %extad OFF
  /set %CYtimeSel 1
  /set %extadtime 300
}

dialog EXTload {
  title "FileEXT Database Loaded Successfully"
  size -1 -1 170 94
  option dbu
  icon $scriptdirSetup4.ico, 0
  box "", 1, 2 1 166 91
  icon 2, 7 9 20 21, $scriptdirSetup4.ico, 0
  button "&Proceed", 3, 7 75 32 13, default ok
  button "&Close", 10, 39 75 32 13, cancel
  text "FileEXT DB has been successfully loaded from:", 4, 32 9 115 8
  edit "", 5, 31 17 133 11, read autohs
  text "FileEXT DB is Now Accessible through the Menubar and Channel Menus", 6, 7 31 158 14
  text "By Clicking Proceed it will open FileEXT DB", 7, 7 45 110 8
  text "By Clicking Close it will close this Dialog without opening FileEXT DB", 8, 7 54 159 14
  box "", 9, 2 68 75 24
  link "Goto the FileEXT DB Website", 11, 85 82 73 8}
}

on *:DIALOG:EXTload:sclick:11:{ run $extsite }

on *:DIALOG:EXTload:init:0:{
  did -a $dname 5 $scriptdir
}

on *:Dialog:EXTload:sclick:3:{ 
  /dialog -m extmain extmain
}

menu menubar,channel {
  FileEXT Database
  .Open: dialog -m EXTmain EXTmain
  .Help
  ..Advertise Script
  ...Advertise to Active Channel:/msg # I'm Using FileEXT Database $extver - You can download it at ( $extsite )
  ...-
  ...Advertise to All Channels:/amsg I'm Using FileEXT Database $extver - You can download it at ( $extsite )
  ..-
  ..ReadMe: run $scriptdirreadext.txt
  ..-
  ..Bug Reports: run $extforum
  ..Feature Requests: run $extforum
  ..-
  ..HomePage: run $extsite
  .-
  .Unload FileEXT DB: dialog -m extremove extremove
}

dialog EXTremove {
  title "Unload FileEXT Database"
  size -1 -1 159 70
  option dbu
  icon $scriptdirUninstall2.ICO, 0
  icon 1, 7 10 19 21, $scriptdirUninstall2.ico, 0
  button "&No", 2, 39 49 33 13, default cancel
  box "", 3, 2 2 154 65
  text "This Dialog will Unload FileEXT DB", 4, 30 10 85 8
  text "This WILL NOT remove the files from your computer this will ONLY unload it from your copy of mIRC", 5, 30 17 128 15
  box "Would you like to Unload?", 6, 2 39 74 28
  button "&Yes", 7, 6 49 33 13, ok
  link "Goto the FileEXT DB Website", 8, 80 56 75 8
}

on *:DIALOG:EXTremove:sclick:8:{ run $extsite }

on *:DIALOG:extremove:sclick:7:{ 
  echo -a 8 Initializing the UnInstall commands... 9,1[Done]
  /.timerU1 1 1 echo -a 8 Preparing to remove all variables used by FileEXT DB... 9,1[Done]
  /unset %extctcp ON
  /unset %extmsg ON
  /unset %extad OFF
  /unset %extsearch
  /unset %extlines
  /unset %extrunad
  /unset %extadtime
  /unset %CYtimeSel
  /.timerU2 1 2 echo -a 8 Preparing to remove all alias commands used by FileEXT DB... 9,1[Done]
  /.timerU3 1 3 echo -a 8 UnInstall Complete. Thank You for trying my Add-On, Please check back to the FileEXT DB Website ( http://svpir8.hyperboards.com )
  /.unload -rs $scriptdirFileEXT.mrc
}

dialog extmain {
  title "FileEXT DataBase v1.01"
  size -1 -1 113 114
  option dbu
  box "", 12, 2 12 84 20
  button "&Ok", 13, 88 2 23 14, default ok
  text "(In All Active Channels)", 16, 5 66 57 7
  text "Ad Cycle Time:", 17, 5 19 39 8
  combo 18, 41 18 34 40, size drop
  text "sec", 19, 76 19 9 8
  box "", 21, 2 -1 84 33
  text "Display Ad", 22, 5 5 25 8
  radio "On", 14, 41 4 15 10, push group
  radio "Off", 23, 56 4 15 10, push
  box "", 1, 2 52 84 36
  text "Respond to !EXT Command", 2, 5 58 66 8
  radio "On", 10, 5 75 15 10, push group
  radio "Off", 11, 20 75 15 10, push
  box "", 15, 2 84 84 28
  text "Respond to CTCP !EXT Command", 24, 5 90 80 8
  radio "On", 20, 5 99 15 10, push group
  radio "Off", 25, 20 99 15 10, push
  box "", 26, 2 28 84 28
  text "Start Running Ad", 27, 5 34 45 8
  radio "Start", 28, 5 43 20 10, push group
  radio "Stop", 29, 25 43 20 10, push
  menu "&Help", 3
  item "&ReadMe", 4, 3
  item "&Bug Reports", 5, 3
  item break, 6, 3
  item "&Feature Requests", 7, 3
  item break, 8, 3
  item "&About...", 9, 3
}

on *:dialog:extmain:sclick:18: {
  if ($did(18).sel = 1) { /set %extadtime 300 | /set %CYtimeSel 1 }
  if ($did(18).sel = 2) { /set %extadtime 600 | /set %CYtimeSel 2 }
  if ($did(18).sel = 3) { /set %extadtime 900 | /set %CYtimeSel 3 }
  if ($did(18).sel = 4) { /set %extadtime 1200 | /set %CYtimeSel 4 }
  if ($did(18).sel = 5) { /set %extadtime 1800 | /set %CYtimeSel 5 }
  if ($did(18).sel = 6) { /set %extadtime 2400 | /set %CYtimeSel 6 }
  if ($did(18).sel = 7) { /set %extadtime 3000 | /set %CYtimeSel 7 }
  if ($did(18).sel = 8) { /set %extadtime 3600 | /set %CYtimeSel 8 }
}

on *:dialog:extmain:init:0: {
  if (%extctcp == ON) { /did -c extmain 20 }
  if (%extctcp == OFF) { /did -c extmain 25 }
  if (%extmsg == ON) { /did -c extmain 10 }
  if (%extmsg == OFF) { /did -c extmain 11 }
  if (%extad == OFF) { /.timerEXTad off | set %extrunad OFF | /did -c extmain 23 | /did -c extmain 29 | /did -u extmain 28 | /did -b extmain 18 | /did -b extmain 28 | /did -b extmain 29 | /did -b extmain 17 | /did -b extmain 19 | /did -b extmain 27 }
  if (%extad == ON) { /did -c extmain 14 }
  if (%extrunad == ON) { /did -c extmain 28 }
  if (%extrunad == OFF) { /did -c extmain 29 }
  did -a $dname 18 300(5)
  did -a $dname 18 600(10)
  did -a $dname 18 900(15)
  did -a $dname 18 1200(20)
  did -a $dname 18 1800(30)
  did -a $dname 18 2400(40)
  did -a $dname 18 3000(50)
  did -a $dname 18 3600(60)
  did -c $dname 18 %CYtimeSel
}

on *:dialog:extmain:sclick:14: { /set %extad ON | /did -e extmain 18 | /did -e extmain 28 | /did -e extmain 29 | /did -e extmain 17 | /did -e extmain 19 | /did -e extmain 27 }
on *:dialog:extmain:sclick:23: { /.timerEXTad off | /set %extad OFF | /did -c extmain 29 | /did -u extmain 28 | /did -b extmain 18 | /did -b extmain 28 | /did -b extmain 29 | /did -b extmain 17 | /did -b extmain 19 | /did -b extmain 27 }
on *:dialog:extmain:sclick:10: { /.enable #ext.msg | /set %extmsg ON }
on *:dialog:extmain:sclick:11: { /.disable #ext.msg | /set %extmsg OFF }
on *:dialog:extmain:sclick:20: { /.enable #ext.ctcp | /set %extctcp ON }
on *:dialog:extmain:sclick:25: { /.disable #ext.ctcp | /set %extctcp OFF }
on *:dialog:extmain:sclick:28: { 
  if ( %extmsg = OFF && %extctcp = ON ) { /set %extrunad ON | /amsg # $EXTdispad3 | /.timerEXTad 0 %extadtime /amsg # $EXTdispad3 }
  if ( %extmsg = ON && %extctcp = ON ) { /set %extrunad ON | /amsg # $EXTdispad1 | /.timerEXTad 0 %extadtime /amsg # $EXTdispad1 }
  if ( %extmsg = ON && %extctcp = OFF ) { /set %extrunad ON | /amsg # $EXTdispad2 | /.timerEXTad 0 %extadtime /amsg # $EXTdispad2 }
  if ( %extmsg = OFF && %extctcp = OFF ) { /set %extrunad OFF | /did -c extmain 29 | /did -u extmain 28 | $extmastererror }
}
on *:dialog:extmain:sclick:29: { /set %extrunad OFF | /.timerEXTad off }

alias -l extforum { return http://svpir8.hyperboards.com }
alias -l extsite { return http://svpir8.hyperboards.com }
on *:DIALOG:extmain:menu:7:{ run $extforum }
on *:DIALOG:extmain:menu:5:{ run $extforum }
on *:DIALOG:extmain:menu:4: { run $scriptdirreadext.txt }
alias -l asversion { return Program Version $extver }
alias extver { return 1.01 }
alias -l extdbver { return Database Version $extdbversion }
alias extdbversion { return .01 }
on *:DIALOG:extmain:menu:9:.timer 1 0 extmasterabout
alias -l extmasterabout { $dialog(extabout,extabout,-4) }
alias -l extmastererror { $dialog(error1,error1,-4) }
alias -l EXTdispad1 { return [File Extension Search Online] Type !EXT (extension) or /CTCP $me !EXT (extension) - FileEXT Database $extver }
alias -l EXTdispad2 { return [File Extension Search Online] Type !EXT (extension) - FileEXT Database $extver }
alias -l EXTdispad3 { return [File Extension Search Online] Type /CTCP $me !EXT (extension) - FileEXT Database $extver }
on *:disconnect: { set %extrunad OFF | /.timerEXTad off }

dialog extabout {
  title "About FileEXT DB"
  size -1 -1 77 79
  option dbu
  box "", 1, 1 -1 75 27
  text "", 2, 5 5 67 8
  text "", 11, 5 15 67 8
  text "Script Date: 10/04/04", 4, 2 28 56 8
  text "Scripter: SvPir8", 5, 2 37 42 8
  box "", 6, 1 45 75 17
  link "Visit the FileEXT DB Home", 10, 8 51 67 8
  button "&Close", 3, 53 64 23 14, default ok
}

on *:DIALOG:extabout:sclick:10:{ run $extsite }
on *:DIALOG:extabout:init:0:{
  did -a $dname 2 $asversion
  did -a $dname 11 $extdbver
}

dialog error1 {
  title "Error-001"
  size -1 -1 146 44
  option dbu
  box "", 1, 23 -1 121 29
  text "All Trigger Commands are Turned Off. Please enable 1 or more trigger command then start ad again.", 2, 26 5 116 21
  button "&Ok", 3, 113 30 31 13, default ok
  icon 4, 4 3 15 15, $scriptdirerror.ICO, 0
}

#ext.ctcp on
ctcp 1:!EXT:?:{
  /.remove $scriptdirout.txt  
  /.msg $nick Searching File Extension List For [ $2 $3 $4 $5 $6 ]
  /set %extsearch * $+ $2- $+ *
  //filter -gff $scriptdirext.db $scriptdirout.txt $+(^(?i),$replace(%extsearch,*,\S*,?,\S),\s)
  /set %extlines $lines($scriptdirout.txt)
  if ( %extlines > 15 ) {
    /.msg $nick Too Many Matches. Found %extlines ... Please Be More Specific.
  }
  else {
    if ( %extlines = $null ) { /set %extlines 0 }    
    /.msg $nick I Found [ %extlines ] Matche(s)    
    /.play $nick $scriptdirout.txt 1
    /goto end    
    :end 
    /.msg $nick End of Search Results...
    /.msg $nick ----------------------------
  }  
}
#ext.ctcp end

#ext.msg on
on *:text:!EXT*:#:{
  /.remove $scriptdirout.txt  
  /.msg $nick Searching File Extension List For [ $2 $3 $4 $5 $6 ]
  /set %extsearch * $+ $2- $+ *
  //filter -gff $scriptdirext.db $scriptdirout.txt $+(^(?i),$replace(%extsearch,*,\S*,?,\S),\s)
  /.set %extlines $lines($scriptdirout.txt)
  if ( %extlines > 15 ) {
    /.msg $nick Too Many Matches. Found %extlines ... Please Be More Specific.
  }
  else {
    if ( %extlines = $null ) { /set %extlines 0 }    
    /.msg $nick I Found [ %extlines ] Matche(s)    
    /.play $nick $scriptdirout.txt 1
    /goto end    
    :end 
    /.msg $nick End of Search Results...
    /.msg $nick ----------------------------
  }  
}
#ext.msg end