alias statsclear { unset %printline1 | unset %stats.* } 
alias stat_check { 
  if (%printline1 != $null) { 
    if (%stats.Overall.level == $null) { set %stats.Overall.level N/A } 
    if (%stats.color.strip == on) { %stats.send %stats.text %stat.name - Skill Total: %stats.Overall.level %cmb.printline | %stats.send $strip(%printline1,cb) | statsclear | halt } 
    if (%stats.color.strip == $null) { %stats.send %stat.color1 $+ %stats.text $+ %stat.color2 %stat.name %stat.color1 $+ - Skill Total: $+ %stat.color2 %stats.Overall.level | %stats.send %printline1 | statsclear | halt } 
  } 
  else { %stats.send %stat.color1 $+ This person doesnt appear on the hiscores for any skill currently listed on the hiscores. | statsclear | halt } 
} 
on $*:text:/^[!@.](stats) .{1,13}$/Si:#:{ 
  if ($sock(stats).status != $null) { notice $nick The stats script is currently in use. Try again.... now! | halt } 
  if ($left($1,1) == @) && ($left($remove($chan(#).mode,+),1) == c) || ($left($remove($chan(#).mode,+),2) == c) { set %stats.color.strip on } 
  set %stats.nick $nick | set %stats.send $iif($left($1,1) == @,msg $chan,notice $nick) | set %stats.name $replace($2-,$chr(32),+) | set %stat.color1 $chr(3) $+ 13 | set %stat.color2 $chr(3) $+ 12
  sockopen stats vulcan.ueuo.com 80 
} 
on *:sockopen:stats:{ 
  sockwrite -nt $sockname GET /geniestats.php?rsname= $+ %stats.name HTTP/1.0 
  sockwrite -nt $sockname Host: vulcan.ueuo.com $+ $crlf $+ $crlf 
} 
on *:sockread:stats:{ 
  if ($sockerr > 0) { .notice %stat.called.nick Error: Try again later. | halt } 
  var %read | sockread %read 
  if (<b>Personal isin %read) { set %stat.name $remove(%read,Personal $+ $chr(32),Scores $+ $chr(32),For $+ $chr(32),<b>,</b>) | set %stats.text $remove(%read,<b>,</b>) | set %stats.text $left(%stats.text,- $+ $len(%stat.name)) } 
  tokenize 124 $remove(%read,Genie:) 
  if ($0 == 4) { set %printline1 %printline1 $eval($+(%stat.color1,$1,:,%stat.color2),2) $3 | set %stats. $+ $1 $+ .level $3 } 
} 
on *:sockclose:stats:{ stat_check } 
; ############################################################################# 
; ## Simple Multi-Socketed Price Guide Script                                ## 
; ## Written by CrazyMan1975                                                 ## 
; ## trulyinsane@crazyman.org                                                ## 
; ## irc.swiftirc.net - #RsPrices                                            ## 
; ##                        - NOTE -                                         ## 
; ## This script is actually NOTHING like the one that my main bot           ## 
; ## TrulyInsane1 uses. I put this together because I was asked enough       ## 
; ## times for a price guide script that worked well.                        ## 
; ## This one does the job, but if you want it fancy like Truly's then       ## 
; ## You're going to have to put in the hours. -.-                           ## 
; ############################################################################# 

; ############################################################################# 
; ## Alias/Identifier $preplace(<text>)                                      ## 
; ## This can be used to replace anything that the web site does not already ## 
; ## catch. Simply create a file called replace.txt in the main mirc         ## 
; ## directory, then add what you want to be replaced in the following       ## 
; ## Format: <text_to_replace>,<replacement_text>                            ## 
; ## Examples: drag pl8legs,Dragon Platelegs                                 ## 
; ##           potion (4),Potion                                             ## 
; ############################################################################# 
ALIAS -l PReplace { 
  VAR %pr.cnt = 1 | VAR %pr.total = $Lines(Replace.txt) | VAR %pr.text = $1- 
  WHILE (%pr.cnt <= %pr.total) { 
    VAR %pr.text = $Replace(%pr.text, [ [ $Read(Replace.txt,%pr.cnt) ] ] ) 
    INC %pr.cnt 
  } 
  RETURN %pr.text 
} 

; ############################################################################# 
; ## Remote Trigger, Allows !, @ or . to be used as the command character &  ## 
; ## price* to be used as the command.                                       ## 
; ############################################################################# 
ON $*:TEXT:/^[!@.]price/Si:#: { 
  IF (!$2) { .notice $nick [7,1Price Guide]: Please give me something to search for! | HALT } 
  ; # This sets up the Multiple Sockets, increasing the Variable %i until that socket is not in use. 
  VAR %i 1 
  WHILE ($Sock(price. $+ %i)) { INC %i } 
  ; # Store the Nickname, Where to send and how, and the item to find using our %i identifier. 
  SET %price.user. [ $+ [ %i ] ] $Nick 
  SET %price.target. [ $+ [ %i ] ] $IIF($Left($1,1) == !,.Notice $Nick ,.Msg $Chan) [9Your Price]:

  SET %price.search. [ $+ [ %i ] ] $PReplace($2-) 
  ; # Open the socket - http://thexx.6te.net 
  SockOpen $+(price.,%i) thexx.6te.net 80 
} 

; ############################################################################# 
; ## SockOpen - Once our socket has been opened, This will run.              ## 
; ## This sets up our request for the web page so we can retrieve the data.  ## 
; ## Note the price.* in the on SockOpen, that is Necessary to pick up the   ## 
; ## sequential socket names.                                                ## 
; ############################################################################# 
ON *:SOCKOPEN:price.*:{ 
  SockWrite -nt $SockName GET /xxprice.php?item= [ $+ [ $Replace(%price.search. [ $+ [ $Right($SockName,-6) ] ] ,$Chr(32),$Chr(37) $+ 20) ] ] HTTP/1.1 
  SockWrite -nt $SockName Host: thexx.6te.net 
  SockWrite -nt $SockName $CRLF 
} 


; ############################################################################# 
; ## SockRead - Now we're going to find the data and return it to the user.  ## 
; ############################################################################# 
ON *:SOCKREAD:price.*:{ 
  ; # Store the socket number in %i (Local Variable) 
  VAR %i = $Right($SockName,-6) 
  ; # Read a Line from the socket. 
  SockRead -f %priceread 
  ; # If something went wrong, report it to the user and clear the variables. 
  IF ($SockErr) { 
    %price.target. [ $+ [ %i ] ] Socket error: $SockErr $+ , while looking up %price.search. [ $+ [ %i ] ] 
    UNSET %price.*. [ $+ [ %i ] ] 
  } 
  ; # If nothing happened during the initial read process, we can begin. 
  ELSE { 
    :NextRead 
    SockRead -f %priceread 
    ; # $sockbr is set if data was actually read in to the %priceread variable. 
    IF ($SockBr) { 
      ; # For this site, the price info is preceeded with "TheXX.Co.Nr" so we'll look for that. 
      IF ((TheXX.Co.Nr IsIn %priceread) && ($NumTok(%priceread,32) > 1)) { 
        ; # Output the match we found to the user. 
        %price.target. [ $+ [ %i ] ] 13 $+ $Remove(%priceread,TheXX.Co.Nr $+ $Chr(32)) 
        UNSET %price.*. [ $+ [ %i ] ] 
      } 
      ; # if the Variable contains only "TheXX.Co.Nr" then we did not find a match, report it. 
      ELSEIF (%priceread == TheXX.Co.Nr) { %price.target. [ $+ [ %i ] ] Unable to find a match for $qt(%price.search. [ $+ [ %i ] ] ) } 
      ; # Goto's as a general rule are BAD, in an on SockRead event is the ONLY time I will use them. 
      GOTO NextRead 
    } 
    ELSE SockClose $SockName 
  } 
} 

; ############################################################################# 
; ## I hope this helps you out, and possibly you can learn a little about    ## 
; ## Sockets from it. Enjoy!                                                 ## 
; ## Not too shabby for 100 lines including comments ;)                      ## 
; #########
#################################################################### 
on *:TEXT:!calc*:#: {
  if ($3 == $null) /notice $nick 12 $2 =13 $calc( $2 )
  if ($3 != $null) /notice $nick 7Please dont use the space bar for the !calc7 trigger. Do it like this:  5+5 7for example.
}
alias c1 { return $+(,$1-) } 
alias c2 { return $+(,$1-) } 

on *:text:*:#: { if ($address($nick,2) == $readini(Ignore.ini,Ignore,$address($nick,2))) { /halt } { 

    tokenize 32 $strip($1-) 
    if ($left($1,1) !isin @!) halt 
    if ($right($1,-1) == pcw) var %style = pcworld 
    elseif ($right($1,-1) == pc-world) var %style = pcworld 
    elseif ($right($1,-1) == pcworld) var %style = pcworld 
    elseif ($right($1,-1) == world) var %style = pcworld 
    elseif ($right($1,-1) == pc-cash) var %style = pccash 

    set $+(%,stats.display.,%ID) $iif($left($1,1) == @,msg $nick,notice $nick) 

    alias process { 
      var %display = $($+(%,stats.display.,%ID),2) 

      if (%style == pcworld) { 
        if ($nick isop $chan || $nick ishop $chan || $nick isvoice $chan) { %display $c1(The current PC world is:) $c2($readini(PCWorld.ini,PC-World,PCWorld)) } 
        else { %display $c1(The current PC world is:) $c2(Get Voice to see!) } 
      } 
      elseif (%style == pccash) { 
        if ($nick isop $chan || $nick ishop $chan || $nick isvoice $chan || $address($nick,2) == $address($me,2)) { 
          if ($2 isnum 3-126) { 
            if ($3 isnum 1-50000) { 
              %display $c1(You will get) $c2($calc((10 * $$2) * $$3) $+ gp) $c1(for) $c2($$3) $c1(PC Games.) 
            } 
            else { %display $c1(Error... Please try again) } 
          } 
          else { %display $c1(Error... Please try again) } 
        } 
      } 
    } 
  } 
}
on *:text:*:?: { if ($nick isop #pain || $nick ishop #pain) { 

    tokenize 32 $strip($1-) 
    if ($left($1,1) !isin @!) halt 
    if ($right($1,-1) == setworld) var %style = setworld 
    elseif ($right($1,-1) == set-world) var %style = setworld 
    elseif ($right($1,-1) == ignore) var %style = ignore 
    elseif ($right($1,-1) == unignore) var %style = unignore 

    alias process { 

      if (%style == setworld) { 
        if ($2 isnum 1-132) { writeini PCWorld.ini PC-World PCWorld $replace($2,$chr(32),-) 
        amsg $c1(New PC World Type) $c2(!pcw/!pc-world/!world) $c1(to see the new World! World set by:) $c2($nick) } 
        else { msg $nick $c1(Please enter a valid world) } 
      } 
      elseif (%style == ignore) { 
        writeini Ignore.ini Ignore $address($$2,2) $replace($address($$2,2),$chr(32),-) 
        amsg $c1(The Address) $c2($address($$2,2)) $c1(has been Ignored) 
      } 
      elseif (%style == unignore) { 
        remini Ignore.ini Ignore $address($$2,2) $replace($address($$2,2),$chr(32),-) 
      } 
    } 
  } 
}