Something

dialog chan {
  title "Channel controler"
  size -1 -1 163 175
  option dbu
  edit "", 9, 46 18 103 10, multi vsbar
  button "Amsg/Global", 10, 4 19 41 12
  button "Message", 12, 4 36 41 12
  edit "", 13, 46 37 103 10, multi vsbar
  button "Notice", 14, 4 54 41 12
  button "Ban User", 15, 4 71 41 12
  button "Ban Channel", 16, 4 90 41 12
  button "Mute  User", 17, 4 109 41 12
  button "Mute channel", 18, 4 128 41 12
  button "Timeban", 21, 4 146 41 12
  edit "", 22, 47 55 103 10, multi vsbar
  edit "", 23, 47 72 49 10
  edit "", 24, 47 91 49 10
  edit "", 25, 47 110 52 10
  edit "", 26, 47 129 103 10
  edit "", 27, 47 147 36 10
  edit "", 28, 138 147 22 10
  text "Time in minutes:", 29, 114 140 40 8
  text "Person + text", 30, 47 29 39 8
  text "Channel:", 31, 48 121 25 8
  text "Channel:", 32, 46 140 25 8
  text "Channel + person", 33, 48 65 47 8
  edit "", 34, 98 72 52 10
  text "Person + text", 35, 47 47 39 8
  text "Channel + person", 36, 48 102 45 8
  text "text", 37, 47 12 39 6
  edit "", 38, 103 110 47 10
  text "Ur Channel + Channel to ban", 39, 48 82 74 8
  edit "", 40, 99 91 51 10
  edit "", 45, 88 147 45 10
  text "Person/host", 46, 77 140 32 8
  button "Report bug", 59, 4 2 41 13
  edit "", 60, 47 3 101 10, multi vsbar
  button "Human mode(-B)", 20, 110 160 42 12
  button "Bot mode(+B)", 19, 16 160 41 12
  button "Back", 1, 63 160 42 12
}
on *:dialog:chan:sclick:1: {
  /dialog -x chan chan
  /dialog -m kerst kerst
}
dialog chans {
  title "Some leet channels"
  size -1 -1 165 99
  option dbu
  button "#kerst", 42, 48 29 35 13
  button "#Swiftirc", 43, 90 29 34 13
  button "#rstalk", 44, 1 47 37 13
  button "#erico", 48, 49 13 33 13
  button "#irchelp", 49, 90 13 33 13
  button "#lordier", 50, 48 46 35 13
  button "#scripting", 53, 89 46 34 13
  button "#Sarah", 62, 1 30 37 13
  button "#lucky-pc", 63, 1 13 37 13
  button "#Jordyboy", 51, 129 46 33 13
  button "#mirc.ms", 52, 129 13 33 13
  button "#Gsus", 41, 129 29 33 13
  text "Contact me if u want ur channel added!", 1, 6 2 156 8
  button "Back", 2, 53 65 52 30
}
ALIAS /kerst.dialog {
  /dialog -m Kerst Kerst
}
menu * {
  Kerst's dialog:/dialog -m Kerst Kerst
}
dialog Other {
  title "Other"
  size -1 -1 102 51
  option dbu
  text "This dialog is made by kerst", 1, 1 0 102 8
  text "Owner of the freestylebot", 2, 1 8 102 8
  text "Credit to XxhaloxX4,Smooth Dudes,", 3, 1 16 100 8
  text "This dialog. Finished at: 02-03-2007", 4, 1 31 101 8
  button "Back", 5, 0 38 37 13
  text "~td clan leader 90+", 6, 37 37 65 8
  text "~mirc.ms mod ~alt Memb", 7, 36 43 65 8
  text "Steiner For helping me finishing/making", 8, 1 24 102 8
}
on *:dialog:kerst:sclick:7: {
  /dialog -x kerst kerst
  /dialog -m google google
}
on *:dialog:kerst:sclick:8: {
  /dialog -x kerst kerst
}
on *:dialog:kerst:sclick:4: {
  /dialog -x kerst kerst
  /dialog -m other other
}
on *:dialog:google:sclick:6: {
  /dialog -x google google
  /dialog -m kerst kerst
}
on *:dialog:other:sclick:5: {
  /dialog -x other other
  /dialog -m kerst kerst
}
on *:dialog:kerst:sclick:1: {
  /dialog -x Kerst Kerst
  /dialog -m Register Register
}
on *:dialog:kerst:sclick:7: {
  /dialog -x kerst kerst
  /dialog -m other other
}
on *:dialog:kerst:sclick:2: {
  /dialog -x kerst kerst
  /dialog -m Links links
}
on *:dialog:kerst:sclick:5: {
  /dialog -x kerst kerst
  /dialog -m stats stats
}
on *:dialog:kerst:sclick:3: {
  /dialog -x kerst kerst
  /dialog -m RS RS
}
on *:dialog:Links:sclick:9: {
  /dialog -x links links
  /dialog -m kerst kerst
}
on *:dialog:RS:sclick:7: {
  /dialog -x RS RS
  /dialog -m kerst kerst
}
on *:dialog:Register:sclick:10: {
  /dialog -x register register
  /dialog -m kerst kerst
}
on *:dialog:Register:sclick:9: {
  /dialog -x register register
  /join #irchelp
}
dialog Register {
  title "IRC help"
  size -1 -1 125 125
  option dbu
  text "  Register name: SS:Push big R mIRC:          /msg nickserv register pass e-mail ", 1, -2 0 108 14
  text "  Register chan:/msg chanserv #chan              password description", 2, -2 14 108 14
  text "  Secureops: /cs set #chan secureops off", 3, -2 28 108 14
  text "  Ban: /mode #chan +b nick/host", 4, -2 42 108 14
  text "  Personal message: /msg nick", 5, -2 56 108 14
  text "  Notice : /notice person", 6, -2 70 108 14
  text "  Unban :/cs unban #chan nick", 7, -1 84 107 14
  button "IRC help", 9, -2 107 40 10
  button "Back", 10, -2 116 40 10
}
dialog Links {
  title "Links"
  size -1 -1 80 80
  option dbu
  link "www.o-ss.net", 1, 1 24 56 8
  link "www.swiftirc.net", 2, 1 8 56 8
  link "forum.swiftirc.net", 3, 1 16 56 8
  link "www.mirc.ms", 4, 1 0 56 8
  link "http://ircbots.xpt.net", 5, 1 32 56 8
  link "www.google.com", 6, 1 40 56 8
  link "newb0ts.21.forumer.com/index.php", 7, 0 48 56 8
  link "www.altscripts.net", 8, 0 56 56 8
  button "Back", 9, -1 63 58 13
}
dialog RS {
  title "Runescape FTW"
  size -1 -1 75 85
  option dbu
  text "Some links:", 1, 0 0 28 8
  link "www.runescape.com", 2, 1 9 57 8
  link "www.tip.it", 3, 1 17 57 8
  link "www.runehq.com", 4, 1 25 57 8
  link "www.zybez.net", 5, 1 33 57 8
  button "Stats/skill/Cmb", 6, 28 0 47 9
  button "Back", 7, 57 9 18 33
  text "Some rs channels:", 8, 0 40 74 8
  text "#runescape", 9, 0 48 74 8
  text "#rshelp", 10, 0 55 74 8
  text "#rsupdate", 11, 0 62 74 8
  text "#rstalk", 12, -1 70 74 8
  text "#tip.it", 13, -1 78 74 7
}
on *:dialog:rs:sclick:6: {
  /dialog -x rs rs
  /dialog -m stats stats
}
dialog Google {
  title "G00000000000GLE"
  size -1 -1 115 43
  option dbu
  text "Google! Credit to Jordy(made socket)", 1, 0 0 101 8
  text "Fill in your search", 2, 0 7 44 8
  list 3, 0 21 101 20, size
  button "Go      Go      Go      Go      Go       Go", 5, -1 14 102 8
  edit "", 4, 43 7 58 8
  button "Back", 6, 100 0 15 42
}
on *:dialog:google:sclick:5: {
  set %something $did(4)
  sockopen google2 www.google.com 80
}
on *:SOCKOPEN:google2:{
  sockwrite -nt $sockname GET /search?hl=en&q= $+ %something $+ &btnI=I%27m+Feeling+Lucky HTTP/1.1
  sockwrite -nt $sockname Host: www.google.com $+ $crlf $+ $crlf
}
on *:SOCKREAD:google2:{
  if ($sockerr) { /did -a google 3 Socket error | unset %post.* | sockclose $sockname | halt }
  var %read | sockread -f %read
  var %diz = $htmlfree(%read)
  tokenize 32 %diz
  if ($1 == Location:) {
    /did -a google 3 $2-
  }
}
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) | return %x
}
dialog bash {
  title "www.BASH.org"
  size -1 -1 150 38
  option dbu
  text "www.Bash.Org the site with the best ", 1, 0 0 101 8
  text "Quotes there are, script made by me", 2, 0 8 102 8
  button "Go bash", 3, 0 16 37 11
  list 4, 37 15 113 23, size
  button "Back", 5, 0 27 37 11
}

on *:dialog:bash:sclick:5: {
  /dialog -x bash bash
  /dialog -m kerst kerst
}
on *:dialog:bash:sclick:3: {
  sockopen bashed2 www.mirc.ms 80
}
on *:SOCKOPEN:bashed2: {
  sockwrite -nt $sockname GET /parsers/bash.php HTTP/1.1
  sockwrite -nt $sockname Host: www.mirc.ms
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:bashed2: {
  if ($sockerr) {
    echo -a error
    halt
  }
  var %read
  sockread %read
  if (*#* iswm %read) {
    /tokenize 32 $htmlfree(%read)
    /did -a bash 4 $5- $+($chr(91),$chr(75),$chr(101),$chr(114),$chr(115),$chr(116),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(93))
    sockclose $sockname
    /unset %return
  }
}
dialog stats {
  title "Stats"
  size -1 -1 177 71
  option dbu
  text "Stats  combat and skill script", 1, 14 0 79 11
  text "RS nick here:", 2, 1 11 25 8
  text "Stat here:", 3, 0 22 25 8
  button "Get Stats", 4, 133 0 44 11
  button "Get Cmb", 5, 93 -1 40 12
  edit "", 6, 25 22 50 9
  edit "", 7, 25 11 50 8
  button "Get skill", 8, 133 11 44 12
  button "Back", 9, 93 11 40 12
  text "Result", 10, 0 34 25 8
  list 11, 23 32 152 29, size
  text "Skill/cmb mine  || Stats offline", 12, 86 23 75 8
}
on *:dialog:stats:sclick:4: {
  /did -a stats 11 (offline) look in the topic u got it for a update i will
  /did -a stats 11 post a update there when i got all stats use skill till then
}
on *:dialog:stats:sclick:5: {
  sockopen firstparser2 www.slushpuppy.silverinterlocution.org 80
  set %firstparser $did(7)
}
on *:SOCKOPEN:firstparser2: {
  sockwrite -nt $sockname GET /pestcontrol.php?pestcontrol= $+ %firstparser HTTP/1.1
  sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:firstparser2: {
  if ($sockerr) {
    echo -a error
    halt
  }
  var %read
  sockread %read
  if (*<b>* iswm %read) {
    tokenize 32 $htmlfree(%read)
    set %stats $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 $16
  }
  if (<br> isin %read) {
    tokenize 32 $htmlfree(%read)
    set %combat $htmlfree($1)
    /did -a stats 11 Combat stats for: $+ %firstparser His combat is %combat $+($chr(91),$chr(75),$chr(101),$chr(114),$chr(115),$chr(116),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(93))
    /did -a stats 11 %stats
    sockclose $sockname
    /unset %return
    /unset %firstparser
    /unset %combat
  }
}

ON *:DIALOG:stats:sclick:9: {
  /dialog -x stats stats
  /dialog -m kerst kerst
}
dialog Kerst {
  title "Kerst's Dialog, All created by Kerst."
  size -1 -1 169 227
  option dbu
  button "Register help", 1, 8 206 76 14
  button "LINKS", 2, 89 2 76 14
  button "Channel Modes", 3, 8 19 76 14
  button "Credits", 4, 89 19 76 14
  button "Skill Stats Cmb", 5, 8 36 76 14
  button "Bash.org", 6, 8 53 76 14
  button "Google", 7, 8 70 76 14
  button "Exit Dialog", 8, 8 104 76 14, cancel
  button "Define word", 47, 8 2 76 14
  button "Disconnect", 56, 8 121 76 14
  button "Remote off", 57, 89 36 76 14
  link "www.mirc.ms", 55, 90 215 48 8
  link "www.altscripts.net", 61, 90 208 48 8
  button "~ Price ~", 58, 8 87 76 14
  button "Whois", 65, 89 121 76 14
  edit "Person", 66, 88 137 77 15, multi vsbar
  list 11, 89 153 77 54, size extsel hsbar
  button "Pest-control option", 67, 8 138 76 14
  button "Runescape news", 68, 8 155 76 14
  button "World news", 69, 8 172 76 14
  button "Calculater", 71, 8 189 76 14
  button "Check Updates", 9, 89 104 76 14
  button "Channels", 10, 89 53 76 14
  button "Alias maker", 12, 89 70 76 14
  button "Chan helper", 13, 89 87 76 14
}
on *:dialog:kerst:sclick:9: {
  /did -a kerst 11 This is V4.0
}
dialog Ali {
  title "Aliasmaker Made by kerst"
  size -1 -1 206 194
  option dbu
  edit "Alias NAME (Trigger)(auto / added)", 1, 106 5 94 11
  edit "What must the script do?", 2, 106 21 93 37, multi vsbar center
  button "Finished", 3, 10 3 90 14, cancel
  button "Help me with this!", 4, 10 19 90 14
  list 6, 8 108 188 78, size vsbar
  button "Create alias!", 5, 10 37 90 14
  text "Check one of these tags for fast making alias (only have to fill in name)", 7, 13 63 174 8
  check "Memo", 8, 15 75 50 10, group
  check "Access", 9, 68 90 50 10, group
  check "Read memo", 10, 68 75 50 10, group
  check "Global", 11, 15 90 50 10, group
  check "Notice", 12, 133 76 50 10, group
  check "Remote", 13, 133 90 50 10, group
  check "Check this for using Alias maker", 15, 11 52 88 10
}
on *:dialog:ali:sclick:14: {
  /dialog -x ali ali
  /dialog -m kerst kerst
}
on *:dialog:ali:sclick:5: {
  set %aliasname $did(1)
  set %aliasvar Alias %aliasname $+($chr(123))
  if ($did(ali,8).state) {
    /did -a ali 6 %aliasvar
    /did -a ali 6 /ms send $1- 
    /did -a ali 6 $+($chr(125))
    /halt
  }
  if ($did(ali,9).state) {
    /did -a ali 6 %aliasvar
    /did -a ali 6 /cs access $+($chr(36)) $+ Chan add $1-
    /did -a ali 6 $+($chr(125))
    /halt
  }
  if ($did(ali,10).state) {
    /did -a ali 6 %aliasvar
    /did -a ali 6 /msg memoserv read last
    /did -a ali 6 $+($chr(125))
    /halt
  }
  if ($did(ali,11).state) {
    /did -a ali 6 %aliasvar
    /did -a ali 6 /amsg $1-
    /did -a ali 6 $+($chr(125))
    /halt
  }
  if ($did(ali,12).state) {
    /did -a ali 6 %aliasvar
    /did -a ali 6 /notice $1-
    /did -a ali 6 $+($chr(125))
    /halt
  }
  if ($did(ali,13).state) {
    /did -a ali 6 %aliasvar
    /did -a ali 6 /remote $1
    /did -a ali 6 $+($chr(125))
    /did -a ali 6  
    /did -a ali 6 Usage = Aliasname on/off
    /halt
  }
  if ($did(ali,15).state) {
    /did -a ali 6 %aliasvar
    $replace($did(ali,2),%,$+($chr(37)))
    $replace($did(ali,2),},$+($chr(125)))
    $replace($did(ali,2),$,$+($chr(36)))
    $replace($did(ali,2),/,$+($chr(125)))
    $replace($did(ali,2),{,$+($chr(123)))
    set %brackets $count($did(ali,2),$chr(123))
    /did -a ali 6 $did(2) %bracket
    /did -a ali 6 $+($chr(125)) $str($chr(32)$chr(125)$chr(32),%brackets
    /halt
  }
}
on *:dialog:kerst:sclick:10: {
  /dialog -x kerst kerst
  /dialog -m chans chans
}
on *:dialog:chans:sclick:2:{
  /dialog -x chans chans
  /dialog -m kerst kerst
}
on *:dialog:kerst:sclick:12: {
  /dialog -x kerst kerst
  /dialog -m ali ali
}
on *:dialog:kerst:sclick:13: {
  /dialog -x kerst kerst
  /dialog -m chan chan
}
on *:dialog:kerst:sclick:65: {
  if ($did(66) == $null) { /did -a kerst 11 Add someone to whois | halt }
  set %whoisnick $replace($did(66),$chr(32),$chr(95))
  enable #GroupRaw
  /whois %whoisnick
}
#GroupRaw off
raw 319:*:{
  if (!%whoisnick) { halt }
  else {
    /did -a kerst 11 [-WHOIS-] $+ $did(kerst,66) $+ : $+ $remove($3-$5%,@,+)
    /did -a kerst 11 $6-$8
    /did -a kerst 11 $9-$11
    /did -a kerst 11 $12-$14
    /did -a kerst 11 $15-$17
    /did -a kerst 11 $18-$20
    /did -a kerst 11 $21-$23
    disable #GroupRaw
    unset %whoisnick
  }
}
dialog pc {
  title "Pest control option"
  size -1 -1 216 76
  option dbu
  edit "Fill in channel here", 2, 38 7 60 10
  button "Get PCW info", 3, 0 0 37 12
  list 4, 31 28 47 8, size
  text "World:", 5, 3 28 25 8
  box "", 6, 0 21 87 55
  text "Age:", 7, 3 39 25 8
  text "Set by:", 8, 3 50 24 8
  text "ON/OFF", 9, 2 63 24 8
  list 10, 31 39 47 8, size
  list 11, 31 50 47 8, size
  list 12, 31 63 47 8, size
  button "Change PCW", 13, 99 1 37 12
  edit "Channel", 14, 138 2 50 10
  edit "World", 15, 193 2 21 10
  edit "Extra message", 16, 138 46 76 10
  button "Back", 17, 99 15 37 13
  edit "Channel", 18, 138 32 50 10
  edit "World", 19, 193 32 21 10
  edit "Extra message", 20, 138 16 75 10
  button "Change CW", 21, 99 31 37 12
  button "Get CW info", 22, 0 12 37 12
  box "", 28, 98 0 118 64
  text "Scripts made by Kerst (ya!)", 1, 98 66 116 8
}
on *:dialog:kerst:sclick:71: {
  /dialog -x kerst kerst
  /dialog -m calc calc
}
dialog calc {
  title "Easy calculator\kerst made/"
  size -1 -1 272 57
  option dbu
  text "Easy calculator", 1, 2 2 40 8
  button "Back", 2, 43 0 37 10
  edit "Calculation here", 3, 82 1 142 10
  list 4, 4 17 261 36, size
  box "", 5, 1 12 267 44
  button "Calculate!", 6, 228 1 37 12
}
on *:dialog:calc:sclick:2: {
  /dialog -x calc calc
  /dialog -m kerst kerst
}
on *:dialog:calc:sclick:6: {
  /did -a calc 4 $calc( $did(3) )
}
on *:dialog:pc:sclick:21: {
  set %cw.world. [ $+ [ $did(18) ] ] $did(19)
  msg $did(18) $did(16)
}
on *:dialog:pc:sclick:21: {
  set %pcw.world. [ $+ [ $did(14) ] ] $did(15)
  msg $did(14) $did(20)
}
on *:dialog:pc:sclick:17: {
  /dialog -x pc pc
  /dialog -m kerst kerst
}
on *:dialog:pc:sclick:3: {
  if (%pcw. [ $+ [ $did(2) ] ] == on) {
    /did -a pc 12 ON
  }
  if (%pcw. [ $+ [ $did(2) ] ] == OFF) {
    /did -a pc 12 OFF
  }
  /did -a pc 11 %pcw.nick. [ $+ [ $did(2) ] ]
  /did -a pc 4 %pcw.world. [ $+ [ $did(2) ] ]
  /did -a pc 10 $duration($calc( $ctime - %pcw.time. [ $+ [ $did(2) ] ] ))
}
on *:dialog:pc:sclick:22: {
  if (%cw. [ $+ [ $did(2) ] ] == on) {
    /did -a pc 12 ON
  }
  if (%cw. [ $+ [ $did(2) ] ] == OFF) {
    /did -a pc 12 OFF
  }
  /did -a pc 11 %cw.nick. [ $+ [ $did(2) ] ]
  /did -a pc 4 %cw.world. [ $+ [ $did(2) ] ]
  /did -a pc 10 $duration($calc( $ctime - %cw.time. [ $+ [ $did(2) ] ] ))
}
on *:dialog:kerst:sclick:68: {
  /dialog -x kerst kerst
  /dialog -m rsnews rsnews
}
dialog wnews {
  title "World news script"
  size -1 -1 121 66
  option dbu
  button "Get world news", 1, 0 0 47 11
  button "Back", 2, 83 -1 37 12
  text "~Worldnews~", 3, 47 0 36 8
  text "~Kerst made~", 4, 47 6 37 8
  list 5, 0 17 121 50, size
}
dialog RSnews {
  title "RS news script"
  size -1 -1 124 49
  option dbu
  button "Get RS news", 1, 0 0 47 11
  button "Back", 2, 83 -1 37 12
  text "   ~RSnews~", 3, 47 0 36 8
  text "~Kerst made~", 4, 47 6 37 8
  list 5, 0 17 125 31, size hsbar
}
on *:sockopen:rrnews:{
  sockwrite -nt $sockname GET /parsers/rsnews.php HTTP/1.1
  sockwrite -nt $sockname Host: www.o-ss.net $+ $crlf $+ $crlf
}
on *:sockread:rrnews:{
  var %sockread
  sockread %sockread
  IF (RSNEWS isin %sockread) {
    /did -a rsnews 5 %sockread
    sockclose $sockname
  }
}
on *:dialog:rsnews:sclick:2: {
  /dialog -x rsnews rsnews
  /dialog -m kerst kerst
}
on *:dialog:rsnews:sclick:1: {
  sockopen rrnews www.o-ss.net 80
}
on *:dialog:wnews:sclick:2: {
  /dialog -x wnews wnews
  /dialog -m kerst kerst
}
on *:dialog:wnews:sclick:1: {
  sockopen news2 www.o-ss.net 80
}
on *:SOCKOPEN:news2: {
  sockwrite -nt $sockname GET /parsers/news.php HTTP/1.1
  sockwrite -nt $sockname Host: www.o-ss.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:news2: {
  if ($sockerr) {
    echo -a error
    halt
  }
  var %read
  sockread %read
  if (*news* iswm %read) {
    /tokenize 32 $htmlfree(%read)
    /did -a wnews 5 $1- $+($chr(91),$chr(75),$chr(101),$chr(114),$chr(115),$chr(116),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(93))
    sockclose news2
  }
}
on *:dialog:kerst:sclick:69: {
  /dialog -x kerst kerst
  /dialog -m wnews wnews
}
on *:dialog:kerst:sclick:67: {
  /dialog -x kerst kerst
  /dialog -m pc pc
}
on *:text:!pestcontrol on*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick = Kerst) {
    set %pcw. $+ $chan on
    msg $chan The pestcontrol commands for $chan are now ON
  }
}
on *:text:!pestcontrol off*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick = Kerst) {
    set %pcw. $+ $chan off
    msg $chan The pestcontrol commands for $chan are now OFF
  }
}
on *:TEXT:!setpcw*:#: {
  if ($nick isop $chan || $nick ishop $chan) && ($2 isnum 2-138) {
    set %pcw.nick. [ $+ [ $chan ] ] $nick
    set %pcw.world. [ $+ [ $chan ] ] $2
    set %pcw.time. [ $+ [ $chan ] ] $ctime
    msg $chan The pc world for $chan has been changed by $nick ! typ !world to see it
  }
  else {
    notice $nick ur access is too low!, u need halfop + if u have that then set a real world
  }
}
on *:TEXT:!world:#:{
  inc %pestcontrol.
  if (%pcw. [ $+ [ $chan ] ] == off) { The pest control command is been set OFF }
  if (%pcw. [ $+ [ $chan ] ] == on) {
    notice $nick <-kerstscript-> The pc world for $chan is %pcw.world. [ $+ [ $chan ] ] $+ , it's set by %pcw.nick. [ $+ [ $chan ] ] and it's $duration($calc( $ctime - %pcw.time. [ $+ [ $chan ] ] )) old  ( %pestcontrol. )
  }
  if (%pcw. [ $+ [ $chan ] ] == $null) {
    notice $nick <-kerstscript-> The pc world for $chan is %pcw.world. [ $+ [ $chan ] ] $+ , it's set by %pcw.nick. [ $+ [ $chan ] ] and it's $duration($calc( $ctime - %pcw.time. [ $+ [ $chan ] ] )) old  ( %pestcontrol. )
  }
}
on *:text:!castlewar on*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick = Kerst) {
    set %cw. $+ $chan on
    msg $chan The castlewars commands for $chan are now ON
  }
}
on *:text:!castlewar off*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick = Kerst) {
    set %cw. $+ $chan off
    msg $chan The castlewars commands for $chan are now OFF
  }
}
on *:TEXT:!setcw*:#: {
  if ($nick isop $chan || $nick ishop $chan) && ($2 isnum 2-138) {
    set %cw.nick. [ $+ [ $chan ] ] $nick
    set %cw.world. [ $+ [ $chan ] ] $2
    set %cw.time. [ $+ [ $chan ] ] $ctime
    msg $chan The castlewars world for $chan has been changed by $nick ! typ !cworld to see it
  }
  else {
    notice $nick ur access is too low!, u need halfop + if u have that then set a real world
  }
}
on *:TEXT:!cworld:#:{
  inc %castlewars.
  if (%cw. [ $+ [ $chan ] ] == off) { The pest control command is been set OFF }
  if (%cw. [ $+ [ $chan ] ] == on) {
    notice $nick <-kerstscript-> The castle world for $chan is %cw.world. [ $+ [ $chan ] ] $+ , it's set by %cw.nick. [ $+ [ $chan ] ] and it's $duration($calc( $ctime - %cw.time. [ $+ [ $chan ] ] )) old  ( %castlewars. )
  }
  if (%cw. [ $+ [ $chan ] ] == $null) {
    notice $nick <-kerstscript-> The castle world for $chan is %cw.world. [ $+ [ $chan ] ] $+ , it's set by %cw.nick. [ $+ [ $chan ] ] and it's $duration($calc( $ctime - %cw.time. [ $+ [ $chan ] ] )) old  ( %castlewars. )
  }
}
on *:dialog:chans:sclick:64: {
  /join #pc-best
}
on *:dialog:chans:sclick:63: {
  /join #luckypc
}
on *:dialog:kerst:sclick:71: {
  /dialog -x kerst kerst
  /dialog -m join join
}
on *:dialog:chans:sclick:62: {
  /join #Sarah
}
on *:dialog:kerst:sclick:58: {
  /dialog -x kerst kerst
  /dialog -m price price
}
dialog Price {
  title "Price script"
  size -1 -1 239 49
  option dbu
  text "Price script made by kerst Not really good, Supple item:", 1, 1 1 134 8
  edit "", 2, 137 0 100 9
  list 3, 49 11 188 37, size
  button "Start Search", 4, 1 12 49 14
  button "Back", 5, 1 26 49 14
  link "www.zybez.net", 6, 3 40 42 8
}
on *:dialog:price:sclick:4: {
  sockopen price2 www.o-ss.net 80
  set %price2 $did(2)
}
on *:dialog:price:sclick:5: {
  /dialog -x price price
  /dialog -m kerst kerst
}
on *:dialog:kerst:sclick:57: {
  /remote off
}
on *:dialog:kerst:sclick:56: {
  /dialog -x kerst kerst
  /quit Disconnect option used, Kerst dialog
}
on *:text:!dialog:#:{
  msg $chan I am using The dialog of Kerst!
}
##############################
#scripters dont say this lol^#
##############################

on *:dialog:chans:sclick:48: {
  /join #erico
}
on *:dialog:chans:sclick:49: {
  /join #irchelp
}
on *:dialog:chans:sclick:50: {
  /join #lordier
}
on *:dialog:chans:sclick:51: {
  /join #jordyboy
}
on *:dialog:chans:sclick:52: {
  /join #mirc.ms
}
on *:dialog:chans:sclick:53: {
  /join #scripting
}
on *:dialog:kerst:sclick:47: {
  /dialog -x kerst kerst
  /dialog -m define define
}
dialog Define {
  title "Define teh word:D"
  size -1 -1 212 26
  option dbu
  text "Define word script made by Kerst Word:", 1, 1 1 97 8
  button "Define it!", 2, 0 9 29 18
  list 3, 29 11 181 15, size
  edit "", 4, 98 0 83 9
  button "Back!", 5, 181 0 31 11
}
on *:dialog:define:sclick:2: {
  sockopen defineword2 www.o-ss.net 80
  set %defineword2 $did(4)
}
on *:dialog:define:sclick:5: {
  /dialog -x define define
  /dialog -m kerst kerst
}
on *:SOCKOPEN:price2: {
  sockwrite -nt $sockname GET /parsers/price.php?item= $+ %price2 HTTP/1.1
  sockwrite -nt $sockname Host: www.o-ss.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:price2: {
  if ($sockerr) {
    /did -a price 3 error please report this
    halt
  }
  var %read
  sockread %read
  if (*end* iswm %read) {
    /tokenize 32 $htmlfree(%read)
    /did -a price 3 Result: $+ $remove(%read,end)   $+($chr(91),$chr(75),$chr(101),$chr(114),$chr(115),$chr(116),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(93))
    sockclose $sockname
    /unset %price2
  }
}
on *:SOCKOPEN:defineword2: {
  sockwrite -nt $sockname GET /parsers/define.php?word= $+ %defineword2 HTTP/1.1
  sockwrite -nt $sockname Host: www.o-ss.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:defineword2: {
  if ($sockerr) {
    /did -a define 3 error please report this
    halt
  }
  var %read
  sockread %read
  if (*[DEFINE]* iswm %read) {
    /tokenize 32 $htmlfree(%read)
    /did -a define 3 [Defined] Result: $+ $2-  $+($chr(91),$chr(75),$chr(101),$chr(114),$chr(115),$chr(116),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(93))
    sockclose $sockname
    /unset %defineword2
  }
}
on *:dialog:chan:sclick:59: {
  /ms send kerst $did(60)
}
on *:dialog:chans:sclick:41: {
  /join #Gsus
}
on *:dialog:chan:sclick:21: {
  /ban -ku $+ $calc($did(28)*60) $did(27) $did(45)
  msg $did(27) $did(45) timebanned for $did(28) minutes
}
on *:dialog:chan:sclick:19: {
  /mode $me +B
}
on *:dialog:chan:sclick:17: {
  /mode $did(25) +b ~q: $+ $did(38)
}
on *:dialog:chan:sclick:18: {
  /mode $did(26) +m
}
on *:dialog:chan:sclick:20: {
  /mode $me -B
}
on *:dialog:chan:sclick:15: {
  /mode $did(23) +b $did(34)
  /kick $did(23) $did(34)
}
on *:dialog:chan:sclick:16: {
  /mode $did(24) +b ~c: $+ $did(40)
}
on *:dialog:chan:sclick:10: {
  /amsg [/AMSG Dialog]~ $did(9)
}
on *:dialog:chan:sclick:12: {
  /msg $did(13)
}
on *:dialog:chan:sclick:14: {
  /notice $did(22)
}
on *:dialog:chans:sclick:42: {
  /join #Kerst
}
on *:dialog:chans:sclick:43: {
  /join #SwiftIrc
}
on *:dialog:chans:sclick:44: {
  /join #Irchelp
}
on *:dialog:kerst:sclick:6: {
  /dialog -x kerst kerst
  /dialog -m bash bash
}
dialog Stats {
  title "Runescape Stats"
  size -1 -1 103 72
  option dbu
  text "Stats  combat and skill script", 1, 14 0 79 11
  text "RS nick here:", 2, 1 11 25 8
  text "Stat here:", 3, 0 22 25 8
  button "Get Stats", 4, -1 45 53 13
  button "Get Cmb", 5, 52 45 50 13
  edit "", 6, 24 22 50 8
  edit "", 7, 25 11 50 8
  button "Get skill", 8, 73 22 30 9
  button "Back", 9, -1 58 105 14
  text "Result", 10, 0 34 25 8
  list 11, 24 32 78 13, size
}
on *:dialog:stats:sclick:8: {
  if ($setskill($did(6))) {
    set %dsuser $did(7).text
    set %dsskill $did(6).text
    sockopen kerst2 www.o-ss.net 80
  }
  else { /did -a stats 11 Error supply a rs stat }
}
on *:SOCKOPEN:kerst2: {
  sockwrite -nt $sockname GET /parsers/skills.php?skill= $+ %dsskill $+ &user= $+ %dsuser HTTP/1.1
  sockwrite -nt $sockname Host: www.o-ss.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:kerst2: {
  if ($sockerr) {
    /did -a stats 11 error
    halt
  }
  var %read
  sockread %read
  if (*end* iswm %read) {
    tokenize 32 %read
    /did -a stats 11 $1-
  }
}
alias -l setskill {
  if ($regex($1,/(st|(skill)?total|overall)^/Si)) return Overall
  elseif ($regex($1,/at(t|k|tack)/Si)) return Attack
  elseif ($regex($1,/def(en[cs]e)?/Si)) return Defence
  elseif ($regex($1,/str(ength)?/Si)) return Strength
  elseif ($regex($1,/hp|hit(s|points?)?/Si)) return Hitpoints
  elseif ($regex($1,/range(r|d|ing)?/Si)) return Ranged
  elseif ($regex($1,/Pray(er)?/Si)) return Prayer
  elseif ($regex($1,/mag(e|ic)/Si)) return Magic
  elseif ($regex($1,/cook(ing)?/Si)) return Cooking
  elseif ($regex($1,/wc|wood(cut(ting)?)?/Si)) return Woodcutting
  elseif ($regex($1,/fletch(ing)?/Si)) return Fletching
  elseif ($regex($1,/fish(ing)?/Si)) return Fishing
  elseif ($regex($1,/(fire|fm)(make?(ing)?|ing)?/Si)) return Firemaking
  elseif ($regex($1,/craft(ing)?/Si)) return Crafting
  elseif ($regex($1,/(smith|smelt)(ing)?/Si)) return Smithing
  elseif ($regex($1,/min(e|e?ing)?/Si)) return Mining
  elseif ($regex($1,/herb(law|lore)?/Si)) return Herblore
  elseif ($regex($1,/agil(ity)?/Si)) return Agility
  elseif ($regex($1,/(th(ei|ie)[fv](e|ing)?)/Si)) return Thieving
  elseif ($regex($1,/slay(er|ing)?/Si)) return Slayer
  elseif ($regex($1,/farm(er|ing)?/Si)) return Farming
  elseif ($regex($1,/(rc|runecraft)(er|ing)?/Si)) return Runecraft
  elseif ($regex($1,/hunt(er|ing)?/Si)) return Hunting
  elseif ($regex($1,/c(s|onstruct(ing)|onstructening)?/Si)) return Constructing
  elseif ($regex($1,/c(b|mb|ombat)?/Si)) return Combat
}