speciaal voor je borreltje

 on *:text:!coke:#: {
  if ($1 == !coke) {
    if ($time(nn) > 30) { set %timetogo $calc( 60 - $time(nn) ) }
    if ($time(nn) < 30) { set %timetogo $calc( 30 - $time(nn) ) }
    set %nummer 1
    set %lang 14.nl
    set %andhl 14and
    set %bestprices 14Best drugsprices this half hour in
    set %drugs 14Cocaine 14Prices
    %cokechan = $chan
    /getcoke nl
  }
}

alias getcoke {
  if ($1 == nl) {
    sockclose getcoke
    %language = Prices
    %hostbara = barafranca.nl
    %txt1 = 5For the Next
    %cokechan = $chan
    %min = Minutes
  }
  if ($1 == nl) {
    sockclose getcoke
    %language = Prices
    %hostbara = barafranca.nl
    %txt1 = 5For the Next
    %min = Minutes
    %cokechan = $chan
  }
  if ($1 == nl) {
    %language = Prices
    %hostbara = barafranca.nl
    %txt1 = 5For the Next
    %min = Minutes
    %cokechan = $chan
  }
  %url = /BeO/webroot/index.php?module=API&action=smuggling_prices
  sockopen getcoke %hostbara 80
}
on *:sockopen:getcoke: {
  if ($sockerr) {
    echo Error while connecting on sockopen: $crlf $sock(getcoke).wsmsg
  }
  else {
    sockwrite -n $sockname GET %url HTTP/1.0
    sockwrite -n $sockname Host: %hostbara
    sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; NT 6.1; nl) AppleWebKit/534.30 (KHTML, like Gecko) Chrome/12.0.742.112 Safari/534.30
    sockwrite -n $sockname Accept: */*
    sockwrite -n $sockname Accept-Charset: ISO-8859-1,utf-8;q=1
    sockwrite -n $sockname Accept-Language: nl
    sockwrite -n $sockname Cache-Control: max-age=0
    sockwrite -n $sockname Connection: keep-alive
    sockwrite -n $sockname $crlf
  }
}

alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp,;) | return %x }

on *:SOCKREAD:getcoke: {
  if ($sockerr) {
    echo Error while connecting on sockread: $crlf $sock(getcoke).wsmsg
  }
  else {
    var %cokeprijzen
  sockread -f %cokeprijzen }
  if ($regex(%cokeprijzen,<cocaine>)) {
    set %coke [ $+ [ %nummer ] ] $htmlfree(%cokeprijzen)
    inc %nummer 1
    if (%nummer == 9) {
      Var %sorted = $sorttok(%coke1 %coke2 %coke3 %coke4 %coke5 %coke6 %coke7 %coke8,32,n)
      if ($gettok(%sorted,1,32) == %coke1) { set %coke1 4 DET %coke1 $+  }
      if ($gettok(%sorted,1,32) == %coke2) { set %coke2 4 CHI %coke2 $+  }
      if ($gettok(%sorted,1,32) == %coke3) { set %coke3 4 PAL %coke3 $+  }
      if ($gettok(%sorted,1,32) == %coke4) { set %coke4 4 NY %coke4 $+  }
      if ($gettok(%sorted,1,32) == %coke5) { set %coke5 4 LV %coke5 $+  }
      if ($gettok(%sorted,1,32) == %coke6) { set %coke6 4 PHI %coke6 $+  }
      if ($gettok(%sorted,1,32) == %coke7) { set %coke7 4 BAL %coke7 $+  }
      if ($gettok(%sorted,1,32) == %coke8) { set %coke8 4 COR %coke8 $+  }
      if ($gettok(%sorted,8,32) == %coke1) { set %coke1 4 DET %coke1 $+  }
      if ($gettok(%sorted,8,32) == %coke2) { set %coke2 4 CHI %coke2 $+  }
      if ($gettok(%sorted,8,32) == %coke3) { set %coke3 4 PAL %coke3 $+  }
      if ($gettok(%sorted,8,32) == %coke4) { set %coke4 4 NY %coke4 $+  }
      if ($gettok(%sorted,8,32) == %coke5) { set %coke5 4 LV %coke5 $+  }
      if ($gettok(%sorted,8,32) == %coke6) { set %coke6 4 PHI %coke6 $+  }
      if ($gettok(%sorted,8,32) == %coke7) { set %coke7 4 BAL %coke7 $+  }
      if ($gettok(%sorted,8,32) == %coke8) { set %coke8 4 COR %coke8 $+  }
      if ($gettok(%sorted,1,32) != %coke1) && ($gettok(%sorted,8,32) != %coke1) && (4 !isin %coke1) && (12 !isin %coke1) { set %coke1 15DET %coke1 }
      if ($gettok(%sorted,1,32) != %coke2) && ($gettok(%sorted,8,32) != %coke2) && (4 !isin %coke2) && (12 !isin %coke2) { set %coke2 15CHI %coke2 }
      if ($gettok(%sorted,1,32) != %coke3) && ($gettok(%sorted,8,32) != %coke3) && (4 !isin %coke3) && (12 !isin %coke3) { set %coke3 15PAL %coke3 }
      if ($gettok(%sorted,1,32) != %coke4) && ($gettok(%sorted,8,32) != %coke4) && (4 !isin %coke4) && (12 !isin %coke4) { set %coke4 15NY %coke4 }
      if ($gettok(%sorted,1,32) != %coke5) && ($gettok(%sorted,8,32) != %coke5) && (4 !isin %coke5) && (12 !isin %coke5) { set %coke5 15LV %coke5  }
      if ($gettok(%sorted,1,32) != %coke6) && ($gettok(%sorted,8,32) != %coke6) && (4 !isin %coke6) && (12 !isin %coke6) { set %coke6 15PHI %coke6 }
      if ($gettok(%sorted,1,32) != %coke7) && ($gettok(%sorted,8,32) != %coke7) && (4 !isin %coke7) && (12 !isin %coke7) { set %coke7 15BAL %coke7 }
      if ($gettok(%sorted,1,32) != %coke8) && ($gettok(%sorted,8,32) != %coke8) && (4 !isin %coke8) && (12 !isin %coke8) { set %coke8 15COR %coke8 }
      if (3 isin %coke1) { set %Cokelow $+($chr(2),$chr(3),04,Detroit,$chr(3),$chr(2)) $gettok(%sorted,1,32) }
      if (3 isin %coke2) { set %Cokelow $+($chr(2),$chr(3),04,Chigaco,$chr(3),$chr(2)) $gettok(%sorted,1,32)  }
      if (3 isin %coke3) { set %Cokelow $+($chr(2),$chr(3),04,Palermo,$chr(3),$chr(2)) $gettok(%sorted,1,32)  }
      if (3 isin %coke4) { set %Cokelow $+($chr(2),$chr(3),04,New York,$chr(3),$chr(2)) $gettok(%sorted,1,32)  }
      if (3 isin %coke5) { set %Cokelow $+($chr(2),$chr(3),04,Las Vegas,$chr(3),$chr(2)) $gettok(%sorted,1,32)  }
      if (3 isin %coke6) { set %Cokelow $+($chr(2),$chr(3),04,Philadelphia,$chr(3),$chr(2)) $gettok(%sorted,1,32) }
      if (3 isin %coke7) { set %Cokelow $+($chr(2),$chr(3),04,Baltimore,$chr(3),$chr(2)) $gettok(%sorted,1,32)  }
      if (3 isin %coke8) { set %Cokelow $+($chr(2),$chr(3),04,Palermo,$chr(3),$chr(2)) $gettok(%sorted,1,32)  }
      if (4 isin %coke1) { set %Cokehigh 4Detroit $gettok(%sorted,8,32)  }
      if (4 isin %coke2) { set %Cokehigh 4Chicago $gettok(%sorted,8,32)  }
      if (4 isin %coke3) { set %Cokehigh 4Palermo $gettok(%sorted,8,32)  }
      if (4 isin %coke4) { set %Cokehigh 4New York $gettok(%sorted,8,32)  }
      if (4 isin %coke5) { set %Cokehigh 4Las Vegas $gettok(%sorted,8,32)  }
      if (4 isin %coke6) { set %Cokehigh 4Philadelphia $gettok(%sorted,8,32) }
      if (4 isin %coke7) { set %Cokehigh 4Baltimore $gettok(%sorted,8,32)  }
      if (4 isin %coke8) { set %Cokehigh 4Corleone $gettok(%sorted,8,32)  }
      msg %cokechan  8De Cocaine Prijzen op .nl zijn nu :
      msg %cokechan  1  10|| %coke2 10|| %coke7 10|| %coke4 10|| %coke6 10|| %coke1 10|| %coke5 10|| %coke8 10|| %coke3 10||
      sockclose getcoke
    }
  }
}