;;Fetch Maps
on *:text:*fetch*:*:{
if ($1 == $me) {
set %map.address $3
set %map.name %4-
set %.map $right( %map.name , 4)
if (%.map !== .map) { set %map.name %map.name $+ .map }
if ($exists(c:/winbolo/maps/ $+ %map.name ) == $true ) { msg $chan I already have that map. | goto havemap }
sockopen fetch %map.address 80
:havemap
}
}
on *:sockopen:fetch:{
if ($sockerr) return
sockwrite -n $sockname GET / HTTP/1.1
sockwrite -n $sockname Host: %map.address
sockwrite -n $sockname Accept: */*
sockwrite -n $sockname Connection: Close
sockwrite -n $sockname
}
on *:sockread:fetch:{
}