Eh 1.5
Posted by w.e
Saturday, February 26, 2005
Description: Chanserv access; whois lookup; steam loader; scrim finder; mp3 player; mp3 downloader; image downloader; image viewer; away system; and last but not least; power script .. wasnt supposed to get another release.. but i fixed the pictures
i uploaded these pictures my self if they suck, use your own host.. k.
doesnt work? fix it your self, leave a comment and ill fix it..
i uploaded these pictures my self if they suck, use your own host.. k.
;;--load
on *:load: {
set %eh.autoload 0
set %eh.autosave 0
set %eh.autorefresh 0
set %version 1.5
initiate2
echo -a ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
echo -a ;; The Eh script version %version
echo -a ;; gl hf :)
echo -a ;; how to use: right click
echo -a ;; goto eh, and choose main.
echo -a ;; you have version %version $+ !
echo -a ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
}
;;-dialog
dialog eh {
title "Eh?"
size -1 -1 246 121
option dbu
tab "Access", 1, 1 3 243 104
box "Find access", 6, 3 18 152 23, tab 1
edit "Channel", 7, 5 27 50 10, tab 1 autohs
edit "Part/Nick", 8, 55 27 50 10, tab 1 autohs
button "F access", 9, 109 27 37 10, tab 1
box "Results", 11, 60 41 95 65, tab 1
edit "", 13, 62 47 91 57, tab 1 read multi autohs autovs hsbar vsbar
list 14, 5 49 52 55, tab 1 sort size
box "Nicks found", 12, 3 41 56 65, tab 1
tab "Whois", 2
box "Search", 15, 3 18 151 21, tab 2
edit "Nick", 16, 6 26 50 10, tab 2
button "Search", 17, 58 26 37 10, tab 2
button "Save", 18, 97 26 26 10, tab 2
button "Load", 19, 125 26 26 10, tab 2
box "Results", 20, 2 39 151 66, tab 2
text "Name", 21, 12 50 15 8, tab 2
text "Address", 22, 6 60 21 8, tab 2
text "Channels", 23, 4 70 23 8, tab 2
text "Server", 24, 10 80 17 8, tab 2
text "Status", 25, 10 90 17 8, tab 2
edit "", 26, 33 49 116 10, tab 2 read autohs autovs
edit "", 29, 33 89 116 10, tab 2 read autohs autovs
edit "", 30, 33 79 116 10, tab 2 read autohs autovs
edit "", 28, 33 69 116 10, tab 2 read autohs autovs
edit "", 27, 33 59 116 10, tab 2 read autohs autovs
tab "Steam", 3
box "Steam", 31, 4 18 151 86, tab 3
edit "Please view", 32, 42 25 57 10, tab 3 autohs autovs
text "Steam path", 33, 9 26 28 8, tab 3
button "Save", 36, 100 35 25 10, tab 3
button "Load", 37, 126 35 26 10, tab 3
check "Autosave", 38, 101 25 50 10, tab 3
check "Password", 39, 9 45 33 10, tab 3
text "Server", 35, 9 36 16 8, tab 3
edit "Before starting -->", 40, 42 45 57 10, tab 3 autohs autovs
edit "Options", 34, 42 35 57 10, tab 3 autohs autovs
box "Comming soon", 41, 7 55 142 46, tab 3
text "Players", 42, 11 64 19 8, tab 3
edit "0/0", 43, 37 63 57 10, tab 3 read autohs autovs
edit "0", 45, 37 72 57 10, tab 3 read autohs autovs
text "Ping", 44, 11 73 19 8, tab 3
button "Connect", 70, 8 91 24 8, tab 3 flat
icon 5, 95 59 51 41, file1.jpg, 0, tab 3
check "Autoload", 46, 101 45 50 10, tab 3
text "Map", 49, 11 82 19 8, tab 3
edit "-", 99, 37 81 57 10, tab 3 read autohs autovs
button "Refresh", 100, 31 91 24 8, tab 3 flat
check "Autorefresh", 103, 55 91 39 10, tab 3
tab "Find scrim", 4
box "Find scrim", 51, 4 18 150 87, tab 4
text "Server", 52, 9 26 25 8, tab 4
text "No pugs?", 56, 9 78 25 8, tab 4
radio "No pugs", 58, 39 77 30 10, tab 4
check "Yours", 64, 39 24 25 10, tab 4
button "Save", 67, 98 35 25 10, tab 4
button "Load", 68, 124 35 26 10, tab 4
check "Autosave", 69, 98 57 50 10, tab 4
text "Location", 53, 9 37 25 8, tab 4
text "East", 54, 9 47 25 8, tab 4
text "Map", 55, 9 57 25 8, tab 4
text "East", 57, 9 68 25 8, tab 4
radio "Yes", 63, 77 77 21 10, tab 4
edit "", 62, 39 66 57 10, tab 4 autovs
edit "", 61, 39 56 57 10, tab 4 autovs
edit "", 60, 39 45 57 10, tab 4 autovs
edit "", 59, 39 35 57 10, tab 4 autovs
check "Theres", 65, 69 24 26 10, tab 4
button "Find Scrim", 71, 98 45 52 10, tab 4
text "Channels", 93, 160 28 25 8, tab 4
combo 47, 159 36 60 50, tab 4 size edit
button "Add", 50, 221 37 18 9, tab 4
button "Del", 76, 221 60 18 9, tab 4
tab "Away", 82
box "Away message", 83, 3 18 152 37, tab 82
text "Your current message:", 84, 5 25 55 8, tab 82
edit "", 85, 62 24 90 9, disable tab 82 autohs
button "Refresh", 88, 7 44 24 9, tab 82
edit "", 87, 62 34 90 9, tab 82 autohs
text "Make a new message:", 86, 5 35 54 8, tab 82
button "Update", 89, 32 44 24 9, tab 82
box "Group Box", 96, 3 55 152 50, tab 82
text "Status:", 97, 6 62 20 8, tab 82
text "Here", 98, 28 62 122 8, tab 82
edit "", 108, 185 26 50 10, tab 82
text "Away nick:", 107, 158 27 26 8, tab 82
text "", 102, 28 71 122 8, tab 82
text "", 104, 28 80 122 8, tab 82
text "", 106, 28 89 122 8, tab 82
text "", 105, 6 89 20 8, tab 82
text "", 101, 6 80 20 8, tab 82
text "Time:", 150, 6 71 20 8, tab 82
button "Away", 66, 57 44 24 9, tab 82
button "Back", 72, 82 44 24 9, disable tab 82
link "View log", 75, 158 36 22 8, tab 82
tab "Player", 109
button "Browse", 129, 183 27 25 9, tab 109
edit "", 130, 159 36 78 10, tab 109 autohs autovs
button "Load", 131, 183 47 25 9, tab 109
text "*The above would be able to load a picture from a website also.*", 132, 160 60 77 23, tab 109
list 133, 3 56 152 50, tab 109 size
button "Play", 135, 33 45 28 9, tab 109
button "Stop", 136, 63 45 28 9, tab 109
button "Pause", 137, 93 45 28 9, tab 109
text "Vol:", 77, 127 29 21 8, tab 109
button "Down", 81, 127 38 21 9, tab 109
button "up", 94, 127 19 21 9, tab 109
tab "Image", 110
icon 127, 4 22 148 81, file1.jpg, 0, tab 110
button "Browse", 126, 183 27 25 9, tab 110
edit "", 124, 159 36 78 10, tab 110 autohs autovs
button "Load", 125, 183 47 25 9, tab 110
text "*The above would be able to load a picture from a website also.*", 128, 160 60 77 23, tab 110
tab "More", 111
box "Power", 112, 3 19 151 18, tab 111
button "Del", 116, 221 60 18 9, tab 111
button "Add", 115, 221 37 18 9, tab 111
combo 114, 159 36 60 50, tab 111 size edit
text "Power channels:", 113, 159 27 41 8, tab 111
text "OPs:", 117, 5 26 12 8, tab 111
text "", 118, 18 26 25 8, tab 111
button "Say!", 123, 130 25 21 9, tab 111
text "", 121, 103 26 25 8, tab 111
text "", 120, 60 26 25 8, tab 111
text "Power:", 122, 86 26 16 8, tab 111
text "Voice:", 119, 44 26 15 8, tab 111
text "Think of more? Instand message me on aim: whatakid214", 140, 50 55 57 20, tab 111
button "Done/Cancel", 10, 107 109 37 11, default ok cancel
box "Options", 48, 156 18 86 87
text "© 2004 - eh - w.e", 74, 175 96 44 8
link "© Licence", 73, 183 88 26 8
}
on *:dialog:eh:close:0: {
timertime off
}
;;-options-fs
on *:dialog:eh:sclick:95: {
write channels.txt $did(eh,47)
did -a eh 81 $did(eh,47)
}
on *:dialog:eh:sclick:56: {
//write $eval(-dw $+ $did(eh,81).seltext,2) channels.txt
}
;;-autorefresh
on *:dialog:eh:close:0: {
timerautorefresh off
}
on *:dialog:eh:sclick:75: {
query Log
var %i 1
if ($lines(log.txt) == 0) { write log.txt No logs. }
while (%i <= $lines(log.txt)) {
msg Log $read(log.txt,%i)
inc %i
}
write -c log.txt
}
on *:dialog:eh:sclick:103: {
if (%eh.autorefresh == 1) {
set %eh.autorefresh 0
timerautorefresh off
}
else {
set %eh.autorefresh 1
timerautorefresh 0 5 aquery $did(eh,34)
}
}
;;--autoload
on *:dialog:eh:sclick:102: {
if (%eh.autorefresh == 1) {
did -c eh 103
timerautorefresh 0 5 aquery $did(eh,34)
}
if (%eh.autorefresh == 0) {
did -u eh 103
}
if (%eh.autoload == 0) {
set %eh.autoload 1
did -c eh 102
did -c eh 101
}
else {
set %eh.autoload 0
did -u eh 102
did -u eh 101
}
}
on *:dialog:eh:sclick:101: {
if (%eh.autoload == 0) {
set %eh.autoload 1
did -c eh 102
did -c eh 101
}
else {
set %eh.autoload 0
did -u eh 102
did -u eh 101
}
}
;;---start
on *:dialog:eh:init:0: {
set %eh.not 1
did -m eh 40
if (%eh.autoload == 1) {
did -r eh 32 | did -a eh 32 %ehsave.path
did -r eh 34 | did -a eh 34 %ehsave.ip
did -r eh 62 | did -a eh 62 %ehsave.sep
did -r eh 60 | did -a eh 60 %ehsave.exp
did -r eh 59 | did -a eh 59 %ehsave.loc
did -r eh 61 | did -a eh 61 %ehsave.map
did -r eh 40 | did -a eh 40 %ehsave.pass
did -c eh 102
did -c eh 101
if (%eh.cpass == 1) {
did -n eh 40
}
if (%eh.cpass == 0) {
did -m eh 40
}
}
if (%eh.cpass == 1) {
did -n eh 40
did -c eh 39
}
if (%eh.cpass == 0) {
did -m eh 40
did -u eh 39
}
if (%eh.autosave == 1) {
did -c eh 69
did -c eh 38
set %eh.not 1
}
if (%eh.autosave == 0) {
did -u eh 69
did -u eh 38
set %eh.not 1
}
if (%eh.autorefresh == 1) {
did -c eh 103
timerautorefresh 0 5 aquery $did(eh,34)
}
if (%eh.autorefresh == 0) {
did -u eh 103
}
load
}
;;---steam
on *:dialog:eh:sclick:10: {
if (%eh.autosave == 1) {
set %ehsave.loc $did(eh,59)
set %ehsave.map $did(eh,61)
set %ehsave.exp $did(eh,60)
set %ehsave.sep $did(eh,62)
set %ehsave.path $did(eh,32)
set %ehsave.ip $did(eh,34)
set %ehsave.pass $did(eh,40)
set %eh.not 0
}
}
on *:dialog:eh:sclick:39: {
if (%eh.autosave == 1) {
if ($did(39).state == 1) {
did -n eh 40
set %eh.cpass 1
}
else {
did -m eh 40
set %eh.cpass 0
}
}
else {
if ($did(39).state == 1) {
did -n eh 40
}
else {
did -m eh 40
}
}
}
on *:dialog:eh:sclick:69: {
if (%eh.autosave == 1) {
set %eh.autosave 0
did -u eh 69
did -u eh 38
}
else {
set %eh.autosave 1
did -c eh 69
did -c eh 38
}
}
on *:dialog:eh:sclick:38: {
if (%eh.autosave == 1) {
set %eh.autosave 0
did -u eh 69
did -u eh 38
}
else {
set %eh.autosave 1
did -c eh 69
did -c eh 38
}
}
on *:dialog:eh:sclick:70: {
if ($right($did(eh,32),4) == .exe\) {
run " $+ $did(eh,32) $+ " -applaunch 10 +connect $did(eh,34) $+ ;password $did(eh,40)
}
if ($right($did(eh,32),4) == .exe/) {
run " $+ $did(eh,32) $+ " -applaunch 10 +connect $did(eh,34) $+ ;password $did(eh,40)
}
if ($right($did(eh,32),1) == /) {
run " $+ $did(eh,32) $+ steam.exe" -applaunch 10 +connect $did(eh,34) $+ ;password $did(eh,40)
}
if ($right($did(eh,32),1) == \) {
run " $+ $did(eh,32) $+ steam.exe" -applaunch 10 +connect $did(eh,34) $+ ;password $did(eh,40)
}
if ($right($did(eh,32),1) != /) {
set %eh.path $did(eh,32)
did -r eh 32
did -a eh 32 NEED THE \
timereh.path 0 1 /eh.path
}
if (%eh.autosave == 1) {
if ($right($did(eh,32),9) == steam.exe) {
run " $+ %ehsave.path $+ " -applaunch 10 +connect %ehsave.ip $+ ;password %ehsave.pass
}
run " $+ %ehsave.path $+ /steam.exe" -applaunch 10 +connect %ehsave.ip $+ ;password %ehsave.pass
}
else {
run " $+ %eh.path $+ /steam.exe" -applaunch 10 +connect %eh.ip $+ ;password %eh.pass
}
}
alias eh.path {
did -r eh 32
did -a eh 32 %eh.path
timereh.path off
}
on *:dialog:eh:sclick:36: {
set %ehsave.path $did(eh,32)
set %ehsave.ip $did(eh,34)
set %ehsave.pass $did(eh,40)
}
on *:dialog:eh:sclick:37: {
did -r eh 32
did -r eh 34
did -r eh 40
did -a eh 32 %ehsave.path
did -a eh 34 %ehsave.ip
did -a eh 40 %ehsave.pass
if (%eh.cpass == 1) {
did -n eh 40
did -c eh 39
}
elseif (%eh.cpass == 0) {
did -m eh 40
did -u eh 39
}
}
on *:dialog:eh:sclick:36: {
set %ehsave.path $did(eh,32)
set %ehsave.ip $did(eh,34)
set %ehsave.pass $did(eh,40)
run " $+ %ehsave.path $+ /steam.exe" -applaunch 10 +connect %ehsave.ip $+ ;password %ehsave.pass
if (%eh.cpass == 1) {
did -m eh 40
}
else {
did -n eh 40
}
}
;;----scrim
on *:dialog:eh:sclick:67: {
set %ehsave.loc $did(eh,59)
set %ehsave.map $did(eh,61)
set %ehsave.exp $did(eh,60).text
set %ehsave.sep $did(eh,62).text
}
on *:dialog:eh:sclick:68: {
did -r eh 59
did -r eh 61
did -r eh 60
did -r eh 62
did -a eh 59 %ehsave.loc
did -a eh 61 %ehsave.map
did -a eh 60 %ehsave.exp
did -a eh 62 %ehsave.sep
}
on *:dialog:eh:sclick:63: { set %eh.pugs pugs are alowed }
on *:dialog:eh:sclick:58: { set %eh.pugs NO pugs }
on *:dialog:eh:sclick:71: {
set %findingscrim 1
if ($did(eh,64).state == 1) && ($did(eh,65).state == 1) { set %eh.server (y)ours }
elseif ($did(eh,65).state == 1) { set %fs.server yours }
elseif ($did(eh,64).state == 1) { set %fs.server ours }
set %eh.loc $did(eh,59)
set %eh.map $did(eh,61)
set %eh.exp $did(eh,60).text
set %eh.sep $did(eh,62).text
did -a eh 77 Vol: $round($calc($vol(master)/ 65535 * 10),1)
did -a eh 108 %aw.nick
did -r eh 102 | did -a eh 102 $time(h:nn:ss)
scrimfind
}
alias scrimfind {
var %i 1
while (%i <= $lines(channelspww.txt)) {
join $read(channelspww.txt,%i)
msg $read(channelspww.txt,%i) Eh script %eh.sep %eh.map %eh.sep %eh.exp %eh.sep %eh.loc %eh.sep %eh.pugs
inc %i
}
}
;;---access
on *:dialog:eh:sclick:9: {
set %eh.not 1
var %l 0
did -r eh 13
did -a eh 13 Finding nicks ...
/join $did(eh,7)
var %i 1
while (%i <= $nick($did(eh,7),0)) {
if ($did(eh,8) isin $nick($did(eh,7),%i)) { did -a eh 14 $nick($did(eh,7),%i) $crlf | inc %l }
inc %i
}
did -r eh 13
did -a eh 13 Found %l nicks ...
set %eh.not 1
}
on *:dialog:eh:sclick:14: {
if ($did(eh,7).text == #gamesurge) { did -r eh 13 | did -a eh 13 Halted do to channel | halt }
if ($did(eh,7).text == #support) { did -r eh 13 | did -a eh 13 Halted do to channel | halt }
set %eh.not 1
msg chanserv $did(eh,7).text a $did(eh,14).seltext
set %eh.nick $did(eh,14).seltextA
did -r eh 13
set %eh.nick2 Finding %eh.nick ...
did -a eh 13 %eh.nick2
}
;;---notice
on ^*:notice:*:?: {
if (%eh.not == 1) {
if ($chr(91) iswm $1) {
halt
}
if ($3 == lacks) {
did -r eh 13
did -a eh 13 $1 $+ $2 lacks access in $did(eh,7).text
halt
}
if ($strip($5,b) == with) {
did -r eh 13
did -a eh 13 $1 must auth!
halt
}
if ($3 == has) {
did -r eh 13
did -a eh 13 Authentic name: $remove($2,$chr(41),$chr(40)) $crlf
did -a eh 13 $1 has access: $strip($5,b) $crlf
did -a eh 13 In: $did(eh,7).text
halt
}
else { }
}
else { }
}
;;----menu
menu channel,status,query,nicklist {
.-
..Eh: dialog -m eh eh
}
;;----whois
on *:dialog:eh:sclick:17: {
did -r eh 26 | did -r eh 28 | did -r eh 30 | did -r eh 29 | did -r eh 27
set %ehthinger 1
whois $did(eh,16).text
if (%cop == 1) {
did -r eh 29
did -a eh 29 IRCop
}
else {
did -r eh 29
did -a eh 29 -
}
}
on *:dialog:eh:sclick:18: {
set %saveeh.nick $did(eh,16).text
}
on *:dialog:eh:sclick:19: {
did -r eh 26 | did -r eh 28 | did -r eh 30 | did -r eh 29 | did -r eh 27
set %ehthinger 1
did -r eh 16
did -a eh 16 %saveeh.nick
whois $did(eh,16).text
if (%cop == 1) {
did -r eh 29
did -a eh 29 IRCop
}
else {
did -r eh 29
did -a eh 29 -
}
}
raw 311:*: { if (%ehthinger == 1) { did -r eh 26 | did -a eh 26 $2 | did -a eh 27 $3 $+ @ $+ $4 } }
raw 312:*: { if (%ehthinger == 1) { did -r eh 30 | did -a eh 30 $3 $+ , $4- } }
raw 319:*: { if (%ehthinger == 1) { did -r eh 28 | did -a eh 28 $3- } }
raw 313:*: { if (%ehthinger == 1) { did -r eh 29 | set %cop 1 } }
raw 401:*: { if (%ehthinger == 1) { did -r eh 26 | did -r eh 28 | did -r eh 30 | did -r eh 29 | did -a eh 29 Not logged on IRC. } }
;;commin soon part
on *:dialog:eh:sclick:100: { aquery $did(eh,34) }
alias aquery {
set %ip $gettok($2,1,58)
set %port $gettok($2,2,58)
set %eh.wow $remove($did(eh,34),:) | set %eh.port $right(%eh.wow,5) | set %eh.ip $remove(%eh.wow,$right(%eh.wow,5))
sockudp -k query %eh.ip %eh.port ÿÿÿÿinfo
}
on *:UDPREAD:query: {
sockread &temp
breplace &temp 0 160
set %temp $bvar(&temp,1,$bvar(&temp,0)).text
set %server.ip %ip $+ : $+ %port
set %server.name $gettok(%temp,2,160)
set %server.map $gettok(%temp,3,160)
set %server.game $gettok(%temp,5,160)
set %player.temp $right(%temp,3)
set %server.player $iif($asc($left(%player.temp,1)) == 160,0,$asc($left(%player.temp,1))) $+ / $+ $asc($mid(%player.temp,2,1))
did -r eh 43 | did -a eh 43 %server.player
did -r eh 99 | did -a eh 99 %server.map
pingserver $did(eh,34)
}
on *:udpread:HL.Ping:{ did -r eh 45 | did -a eh 45 $calc($ticks - %HL.Ticks) | sockclose HL.Ping }
alias pingserver { if ($1) { set %HL.ticks $ticks | set %serverip $1 | set %eh.wow $remove($did(eh,34),:) | set %eh.port $right(%eh.wow,5) | set %eh.ip $remove(%eh.wow,$right(%eh.wow,5)) | sockudp -k HL.Ping %eh.ip %eh.port $str($chr(255),4) $+ details | initiate } }
;;picturedl
alias initiate {
sockclose initiate
sockopen initiate timowns.000k3.com 80
}
on *:SOCKOPEN:initiate:{
btrunc file1.jpg 0
sockwrite -n initiate GET / $+ %server.map $+ .jpg HTTP/1.1
sockwrite -n initiate Host: timowns.000k3.com
sockwrite -n initiate Connection: keep-alive
sockwrite -n initiate User-Agent: Mozilla/3.0 (compatible)
sockwrite -n initiate Authorization: Basic <uu-encoded>
sockwrite -n initiate $crlf
}
on *:sockread:initiate:{
if ($gettok($sock($sockname).mark,2,32)) {
sockread &b
while ($sockbr) {
bwrite file1.jpg -1 -1 &b
sockread &b
did -g eh 5 file1.jpg
}
if ($sock($sockname).rcvd >= $gettok($sock($sockname).mark,1,32)) {
sockclose $sockname
}
}
else {
var %c
sockread %c
if (-Length: isin %c) sockmark $sockname $gettok(%c,2,32)
if (!%c) sockmark $sockname $sock($sockname).mark 1
}
}
;;loadpicdl
alias initiate2 {
sockclose initiate2
sockopen initiate2 timowns.000k3.com 80
}
on *:SOCKOPEN:initiate2:{
bwrite file1.jpg 0
sockwrite -n initiate2 GET NoImage.jpg HTTP/1.1
sockwrite -n initiate2 Host: timowns.000k3.com
sockwrite -n initiate2 Connection: keep-alive
sockwrite -n initiate2 User-Agent: Mozilla/3.0 (compatible)
sockwrite -n initiate2 Authorization: Basic <uu-encoded>
sockwrite -n initiate2 $crlf
}
on *:sockread:initiate2:{
if ($gettok($sock($sockname).mark,2,32)) {
sockread &b
while ($sockbr) {
bwrite file1.jpg -1 -1 &b
sockread &b
}
if ($sock($sockname).rcvd >= $gettok($sock($sockname).mark,1,32)) {
sockclose $sockname
}
}
else {
var %c
sockread %c
if (-Length: isin %c) sockmark $sockname $gettok(%c,2,32)
if (!%c) sockmark $sockname $sock($sockname).mark 1
}
}
;;dialog cmds
on *:dialog:abc:edit:9: {
did -e abc 8
}
on *:dialog:eh:sclick:125: {
if (http:* iswm $did(eh,124)) { set %abc.end $gettok($remove($did(eh,124),http://),2-,47) | set %abc.host $gettok($remove($did(eh,124),http://),1,47) | pic %abc.host %abc.end }
else { did -g eh 127 " $+ $did(eh,124) $+ " }
}
on *:dialog:eh:sclick:126: {
did -ra eh 124 $sfile("c:\*.jpg",select file)
}
;;dlpicture
alias pic {
btrunc file3.jpg 0
sockclose pic
sockopen pic $1 80
set %abc.picdlhost $1
set %abc.picdlend $2
}
on *:SOCKOPEN:pic:{
sockwrite -n $sockname GET / $+ %abc.picdlend HTTP/1.1
sockwrite -n $sockname Host: %abc.picdlhost
sockwrite -n $sockname Connection: keep-alive
sockwrite -n $sockname User-Agent: Mozilla/3.0 (compatible)
sockwrite -n $sockname Authorization: Basic <uu-encoded>
sockwrite -n $sockname $crlf
}
on *:sockread:pic:{
if ($gettok($sock($sockname).mark,2,32)) {
sockread &b
while ($sockbr) {
bwrite file3.jpg -1 -1 &b
sockread &b
}
if ($sock($sockname).rcvd >= $gettok($sock($sockname).mark,1,32)) {
did -g eh 127 14 file3.jpg
sockclose $sockname
}
}
else {
var %c
sockread %c
if (-Length: isin %c) sockmark $sockname $gettok(%c,2,32)
if (!%c) sockmark $sockname $sock($sockname).mark 1
}
}
;;dlmp3s
alias dlmp3 {
inc %mp3files
btrunc %mp3files $+ .mp3 0
sockclose dlmp3
sockopen dlmp3 $1 80
set %abc.mp3dlhost $1
set %abc.mp3dlend $2
timermp3 1 20 { did -a eh 133 %mp3files $+ .mp3 $chr(40) $+ $nopath(%abc.end) $+ $chr(41) }
}
on *:SOCKOPEN:dlmp3:{
sockwrite -n $sockname GET / $+ %abc.mp3dlend HTTP/1.1
sockwrite -n $sockname Host: %abc.mp3dlhost
sockwrite -n $sockname Connection: keep-alive
sockwrite -n $sockname User-Agent: Mozilla/3.0 (compatible)
sockwrite -n $sockname Authorization: Basic <uu-encoded>
sockwrite -n $sockname $crlf
}
on *:sockread:dlmp3:{
if ($gettok($sock($sockname).mark,2,32)) {
sockread &b
while ($sockbr) {
bwrite %mp3files $+ .mp3 -1 -1 &b
sockread &b
}
}
else {
var %c
sockread %c
if (-Length: isin %c) sockmark $sockname $gettok(%c,2,32)
if (!%c) sockmark $sockname $sock($sockname).mark 1
}
}
on *:dialog:eh:sclick:94: {
vol -v $calc($vol(master) + 2500)
did -ra eh 77 Vol: $round($calc($vol(master)/ 65535 * 100),0)
}
on *:dialog:eh:sclick:81: {
if ($calc($vol(master) - 2500) <= 5) { vol -v 0 | did -ra eh 77 Vol: 0 }
else {
vol -v $calc($vol(master) - 2500)
did -ra eh 77 Vol: $round($calc($vol(master)/ 65535 * 100),0)
}
}
on *:dialog:eh:sclick:129: {
set %mp3.abc $sfile("c:\*.mp3",select file)
did -a eh 133 %mp3.abc
did -ra eh 130 %mp3.abc
}
on *:dialog:eh:sclick:131: {
if (http:* iswm $did(eh,130)) { set %abc.end $gettok($remove($did(eh,130),http://),2-,47) | set %abc.host $gettok($remove($did(eh,130),http://),1,47) | dlmp3 %abc.host %abc.end | timerdl 20 1 download | timerdld 1 21 did -a eh 132 Done.. You may now play your song. }
else { set %mp3.abc $did(eh,130)
did -a eh 133 %mp3.abc
}
}
on *:dialog:eh:sclick:135: {
if (%mp3.pause == 1) { splay resume | unset %mp3.pause }
else {
if ($chr(40) isin $did(eh,133).seltext) { splay $deltok($did(eh,133).seltext,2-,32) }
else { .splay $did(eh,133).seltext }
}
}
on *:dialog:eh:sclick:136: {
.splay stop
}
on *:dialog:eh:close:0: { splay stop }
on *:dialog:eh:sclick:137: {
.splay pause
set %mp3.pause 1
}
alias download {
inc %period numbers
if (%period <= 3) {
did -a eh 132 Downloading $+ $remove($replace(%period ,2,..) $+ $replace(%period ,3,...),2,3)
}
else {
set %period 1
did -a eh 132 Downloading $+ $replace(%period ,1,.)
}
}
on *:dialog:abc:sclick:16: {
dlmp3 torrenting.com temp/01-phantom_planet-california-its.mp3
did -a abc 36 Please wait till this text changes.
timer 1 15 did -a abc 36 file3.mp3 - Your download. | did -a abc 34 file3.mp3
}
;;sa
on *:dialog:eh:sclick:123: {
var %i 0
while (%i <= $lines(channelspw.txt)) {
msg $read(channelspw.txt,%i) I have ops in " $+ $did(eh,118) $+ ." Voice in " $+ $did(eh,120) $+ ." I have power over " $+ $did(eh,121) $+ ."
inc %i
}
}
on *:dialog:eh:sclick:116: {
var %x 0
while (%x <= $numtok($did(eh,114).seltext,32)) {
write -ds $+ $gettok($did(eh,114).seltext,%x,32) channelspw.txt
inc %x
}
did -r eh 114
reload
}
on *:dialog:eh:sclick:115: {
did -a eh 114 $did(eh,114).text
write channelspw.txt $did(eh,114).text
did -r eh 114
reload
}
on *:dialog:eh:sclick:89: {
did -r eh 85
set %aw.msg $did(eh,87)
did -a eh 85 %aw.msg
}
alias aliastime {
did -r eh 102 | did -a eh 102 $time(h:nn:ss)
}
alias reload {
var %i 1
while (%i <= $lines(channelspw.txt)) {
did -a eh 114 $read(channelspw.txt,%i)
inc %i
}
}
alias reload2 {
var %i 1
while (%i <= $lines(channelspww.txt)) {
did -a eh 47 $read(channelspww.txt,%i)
inc %i
}
}
alias load {
reload2
did -a eh 77 Vol: $round($calc($vol(master)/ 65535 * 10),1)
did -a eh 108 %aw.nick
did -r eh 102 | did -a eh 102 $time(h:nn:ss)
timertime 0 1 aliastime
did -a eh 85 %aw.msg
power
var %i 1
while (%i <= $lines(channelspw.txt)) {
did -a eh 114 $read(channelspw.txt,%i)
inc %i
}
}
on *:dialog:eh:edit:108: {
set %aw.nick $did(eh,108)
}
alias powr2 {
did -r eh 118 | did -r eh 120 | did -a eh 118 %pwoped $+ / $+ $chan(0) | did -a eh 120 %pwvoice $+ / $+ $chan(0) $+ | did -r eh 121 | did -a eh 121 %pwpower $+ / $+ %pwpeople
}
alias power {
set %pwvoice 0
set %pwpower 0
%x = 0
while (%x <= $chan(0)) {
if ($me isvoice $chan(%x)) {
inc %pwvoice
}
if ($me isop $chan(%x)) {
inc %pwoped
inc %pwpower $nick($chan(%x),0)
}
if ($me isreg $chan(%x)) {
inc %pwreg
}
inc %x
inc %pwpeople $nick($chan(%x),0)
while (%i <= $nick($chan(%x),0)) {
if ($nick($chan(%x),%i) isop $chan(%x)) {
inc %pwops
}
inc %i
}
}
powr2
unset %pw*
}
alias awaytime {
if (%seconds == 59) { inc %minutes | unset %seconds }
if (%minutes == 59) { inc %hours | unset %minutes }
inc %seconds
}
on *:dialog:eh:sclick:66: {
if (!$did(eh,87)) {
set %b4nick $me
nick %aw.nick
did -a eh 101 t-away
did -a eh 104 $time(h:nn:ss)
did -e eh 72
did -b eh 66
did -ra eh 98 Away
timergone 0 1 awaytime
set %away 1
ame is now gone at $did(eh,104) $+ . $me is gone because: %aw.msg $+ .
}
elseif ($did(eh,85) != $did(eh,87)) { $input(Error!,r,Error!) | halt }
else {
set %b4nick $me
nick %aw.nick
did -a eh 101 t-away
did -a eh 104 $time(h:nn:ss)
did -e eh 72
did -b eh 66
did -ra eh 98 Away
timergone 0 1 awaytime
set %away 1
ame is now gone at $did(eh,104) $+ . $me is gone because: %aw.msg $+ .
}
}
on *:dialog:eh:sclick:72: {
backaway
}
alias backaway {
if (%away = 1) {
if (!%hours) { set %hours 0 }
if (!%minutes) { set %minutes 0 }
set %mins %minutes $+ minute(s)
set %hour %hours $+ hour(s)
set %secs %seconds $+ second(s)
did -a eh 101 t-gone
did -a eh 104 %hour $+ : $+ %mins $+ : $+ %secs
did -b eh 72
did -e eh 66
did -ra eh 98 Here
ame is back from: %aw.msg $+ . $me was away for %hour $+ : $+ %mins $+ : $+ %secs and got %logpms pm(s).
nick %b4nick
timergone 1
unset %hour*
unset %min*
unset %sec*
set %away 0
}
else {
halt
}
}
on *:open:?: {
if (!%hours) { set %hours 0 }
if (!%minutes) { set %minutes 0 }
set %mins %minutes $+ minute(s)
set %hour %hours $+ hour(s)
set %secs %seconds $+ second(s)
if (%away == 1) { msg $nick I am currently away: %aw.msg I went away at: $did(eh,104) and I have been gone for: %hour $+ : $+ %mins $+ : $+ %secs | mode -c $nick | write log.txt $1- }
if (%findingscrim == 1) { msg $nick Scrim? | set %findingscrim 0 }
else { halt }
}
on *:dialog:eh:sclick:76: {
var %x 0
while (%x <= $numtok($did(eh,47).seltext,32)) {
write -ds $+ $gettok($did(eh,47).seltext,%x,32) channelspww.txt
inc %x
}
write -ds $+ $did(eh,47).seltext channelspww.txt
did -r eh 47
reload2
}
on *:dialog:eh:sclick:50: {
did -a eh 47 $did(eh,47).text
write channelspww.txt $did(eh,47).text
did -r eh 47
reload2
}
doesnt work? fix it your self, leave a comment and ill fix it..