| 1 | ; browser.mrc v1.1.2 by aZRa |
| 2 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 3 | ; version 1.1.2 : |
| 4 | ; fixed custom browser not changing or displaying properly in menu system (thanks stigi) |
| 5 | ; added uninstall option in menu. |
| 6 | ; version 1.1.1 : added mozilla browser support. |
| 7 | ; version 1.1 : added one moment please dialog box for scanning... |
| 8 | ; version 1.0 : rewrite..now uses a browser.ini file (thanks modoc) |
| 9 | ; version 0.0 : used variables. |
| 10 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 11 | on *:LOAD:{ echo -a Scanning for web browsers...this may take a moment... | browser } |
| 12 | on *[b]:UNLOAD:{ unset %browser[/b]* %tmp* | .remove $scriptdir $+ browser.ini } |
| 13 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 14 | on ^*:hotlink:*//*.*:*: { } |
| 15 | on *[b]:hotlink:*//[/b]*.*:*: { browser $remove($1,',`,",$chr(39),$chr(40)) } |
| 16 | on ^*:hotlink:*www.*:*: { } |
| 17 | on *:hotlink:*www.*:*: { browser $remove($1,',`,",$chr(39),$chr(40)) } |
| 18 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 19 | alias browser { |
| 20 | if ($1) { run $readini($scriptdir $+ browser.ini,paths,browser) $1- } |
| 21 | else { |
| 22 | dialog -m wb_ok wb_ok |
| 23 | set %browser.ie $findfile(c:,iexplore.exe,1) | set %browser.opera $findfile(c:,opera.exe,1) |
| 24 | set %browser.netscape $findfile(c:,netscape.exe,1) | set %browser.mozilla $findfile(c:,mozilla.exe,1) |
| 25 | if (opera isin %browser.netscape) { set %browser.netscape $findfile(c:,netscape.exe,2) } |
| 26 | if ((!%browser.netscape) || (%browser.netscape == $null)) { set %browser.netscape $findfile(c:,netscp.exe,1) } |
| 27 | set %browser %browser.ie |
| 28 | if (%browser.ie) { writeini $scriptdir $+ browser.ini paths ie %browser.ie | writeini $scriptdir $+ browser.ini paths browser %browser.ie } |
| 29 | if (%browser.mozilla) { writeini $scriptdir $+ browser.ini paths mozilla %browser.mozilla } |
| 30 | if (%browser.netscape) { writeini $scriptdir $+ browser.ini paths netscape %browser.netscape } |
| 31 | if (%browser.opera) { writeini $scriptdir $+ browser.ini paths opera %browser.opera } |
| 32 | echo -a *** Right Click and select Change Default mIRC Browser, and if you have a different browser than IE, you can now use Mozilla, Netscape or Opera, if they are installed. |
| 33 | unset %browser* | did -e wb_ok 2 | dialog -k wb_ok wb_ok |
| 34 | } |
| 35 | } |
| 36 | alias browser.custom { |
| 37 | if ($readini($scriptdir $+ browser.ini,paths,custom)) { |
| 38 | /writeini $scriptdir $+ browser.ini paths browser $readini($scriptdir $+ browser.ini,paths,custom) |
| 39 | var %tmp = $input(Custom browser exists: $crlf $readini($scriptdir $+ browser.ini,paths,custom) $crlf Replace?,y,Replace Custom?) |
| 40 | if (%tmp == $true) { |
| 41 | /writeini $scriptdir $+ browser.ini paths custom $$sfile($mircdir,Select Web Browser) |
| 42 | /writeini $scriptdir $+ browser.ini paths browser $readini($scriptdir $+ browser.ini,paths,custom) |
| 43 | } |
| 44 | } |
| 45 | else { |
| 46 | /writeini $scriptdir $+ browser.ini paths custom $$sfile($mircdir,Select Web Browser) |
| 47 | /writeini $scriptdir $+ browser.ini paths browser $readini($scriptdir $+ browser.ini,paths,custom) |
| 48 | } |
| 49 | } |
| 50 | alias browser.uninstall { |
| 51 | var %tmp = $input(Uninstall browser changer?,y,Uninstall?) |
| 52 | if (%tmp == $true) { .unload -rs $script } |
| 53 | } |
| 54 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 55 | menu status,menubar,channel,query,nicklist { |
| 56 | - |
| 57 | Change Default mIRC Browser |
| 58 | .$iif($readini($scriptdir $+ browser.ini,paths,ie), $iif(iexplore.exe isin $readini($scriptdir $+ browser.ini,paths,browser),$style(1)) Internet Explorer):/writeini $scriptdir $+ browser.ini paths browser $readini($scriptdir $+ browser.ini,paths,ie) |
| 59 | .$iif($readini($scriptdir $+ browser.ini,paths,mozilla), $iif(mozilla.exe isin $readini($scriptdir $+ browser.ini,paths,browser),$style(1)) Mozilla):/writeini $scriptdir $+ browser.ini paths browser $readini($scriptdir $+ browser.ini,paths,mozilla) |
| 60 | .$iif($readini($scriptdir $+ browser.ini,paths,netscape), $iif(netscape.exe isin $readini($scriptdir $+ browser.ini,paths,browser) || netscp.exe isin $readini($scriptdir $+ browser.ini,paths,browser),$style(1)) Netscape):/writeini $scriptdir $+ browser.ini paths browser $readini($scriptdir $+ browser.ini,paths,netscape) |
| 61 | .$iif($readini($scriptdir $+ browser.ini,paths,opera), $iif(opera.exe isin $readini($scriptdir $+ browser.ini,paths,browser),$style(1)) Opera):/writeini $scriptdir $+ browser.ini paths browser $readini($scriptdir $+ browser.ini,paths,opera) |
| 62 | .- |
| 63 | .$iif($readini($scriptdir $+ browser.ini,paths,custom) == $readini($scriptdir $+ browser.ini,paths,browser),$style(1)) Custom:browser.custom |
| 64 | .- |
| 65 | .Rescan Browsers:/unset %browser.* | /browser |
| 66 | .Uninstall browser changer:/browser.uninstall |
| 67 | } |
| 68 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 69 | dialog wb_ok { |
| 70 | title "one moment please..." |
| 71 | size -1 -1 128 24 |
| 72 | option dbu |
| 73 | text "Scanning for web browsers ... one moment please.", 1, 2 2 125 8 |
| 74 | button "Okay", 2, 44 12 37 10, disable default flat ok |
| 75 | } |