rendered paste bodyOn *:CONNECT:{ /msg nickserv identify [mijn pass lol] }
On *:JOIN:#tzhaar:#:{ /whois $nick
Set %wnick $chan }
Raw 319:*:{ if (%wnick) { msg %wnick 14 $2 6is on:14 $3- 6 Not more chans. | unset %wnick }
}
on *:JOIN:#:{
if ($chan == #TzHaar) { halt }
inc $+(%,joins,$chan) |
notice $nick 11,12Welkom in $chan $nick I Hope That You Make Fun With Other People!
notice $nick 11U Are Person Nr $+ : $($+(%,joins,$chan),2)
}
On *:JOIN:#futuredream:#:{ /notice $nick For a Voice PM a (Half)Op. }
On *:TEXT:!join*:#:{
If (*0,0* iswm $2) || ($2 == #0,0) || ($me isin $2) { halt }
/join $2 | /msg $2 11,4I'm invited by $nick $+ . Thanks!! }
On *:INVITE:#:{
/join $chan
/msg $chan 11,4I'm invited by $nick . Thanks!! }
On *:TEXT:!part*:#:{
If ($nick isop $chan) || ($nick ishop $chan) || ($address($nick,2) == $address($me,2)) {
/part $2 | /msg $2 11,4I'm parted by $nick $+ . }
}
On *:TEXT:google leave:*:{
If ($address($nick,2) == $address($me,2)) {
/join #0,0
}
}
On *:TEXT:!leave:*:{
If ($address($nick,2) == $address($me,2)) || ($nick isop $chan) || ($nick ishop $chan) {
/part $chan 12Omg why you dont like me?4 $nick
}
}
on *:TEXT:@counter:#: {
/msg $chan 11,12They are $nick(#,0) users in this channel!
}
On *:TEXT:!clist*:#:{
/msg $nick 4,15 [12,15Google` Command List Made By J-DreamO.4,15]
/msg $nick 11,12google leave5,1 You dont like me. ( Only (half)ops can leave me. )
/msg $nick 3,12/invite Google` #channel5,1 You want me in your channel typ it.
/msg $nick 11,12[!/@]calc5,1 You can calculate someting.
/msg $nick 3,12[!/@]price5,1 You dont know any price of a item than you can use this command.
/msg $nick 11,12[!/@]stats5,1 You like to check your stats or the stats of a other person try this command.
/msg $nick 3,12[!]grats5,1 You can grats any1 with this command. (!grats <nick> <lvl> <skill>
/msg $nick 11,12[!/@]site5,1 You dont know us site typ this.
/msg $nick 3,12[!]say5,1 You like to talk with the bot try this. (!say <TEXT HERE>)
/msg $nick 11,12[!/@]players5,1 You see how many RuneScaper's they are plating now.
/msg $nick 3,12[!/@]time5,1 You dont know the time then is this the perfect comand.
/msg $nick 11,12[@]counter5,1 Is it druk in your channel and you dont know how many people they are typ @counter
/msg $nick 3,12[!]c5,1 There you can see all mIRC collor's.
/msg $nick 11,12[!]rs-tools5,1 Here you cane see the new RuneScape Tools.
/msg $nick 3,12[!]pfishing5,1 You dont know what Power Fishing is try this.
/msg $nick 11,12[!]m-chip5,1 Is your member ship empty here the link for new member chip.
/msg $nick 3,12[!]google5,1 To search for sites that you like.
}
On *:TEXT:!rs-tools*:#:{
/notice $nick Esc - Inventory
/notice $nick F1 - Combat opties
/notice $nick F2 - You skills
/notice $nick F3 - Quest Journal
/notice $nick F4 - Equipped interface
/notice $nick F5 - Prayer
/notice $nick F6 - Magebook
/notice $nick F8 - Friends liist
/notice $nick F9 - Ignore list
/notice $nick F10 - Optie interface
/notice $nick F11 - Emotes
/notice $nick F12 - Music Player
/notice $nick Control - Run
}
On *:TEXT:!pfishing*:#:{
/msg $nick 1: You need the quest Shilo Village.
/msg $nick 2: Go to Shilo Village.
/msg $nick 3: Take a fly fishrod and 25 feathers of your bank.
/msg $nick 4: Go to north-easth north ther you see a river.
/msg $nick 5: Go fish there.
/msg $nick 6: Are you out of feathers ? Go to south-easth of Shilo Village there is a fish shop.
/msg $nick 7: Sell there your raw fish and buy 25 feathers.
/msg $nick 8: And restart this all the time.
}
on *:TEXT:!Global*:#: {
If ($address($nick,2) == $address($me,2)) {
amsg 4,15 [12,15Global4,15] 14,1 $2- 4,1[14 $nick 4,1]
}
}
on *:text:!tb*:#: { if ($nick ishop $chan) || ($nick isop $chan) { ban -ku $+ $calc( $3 * 60 ) $chan $2 $4- }
}
On *:TEXT:@info*:#:{ /msg $chan 4,1 R11,1uneScape 4,1T11,1ools 4,1A11,1nd 4,1T11,1ips 4,1B11,1ot: 8Google`11. 4,1H11,1osted 4,1A11,1nd 4,1B11,1uilt 4,1b11,1y 4,18J-DreamO11. }
On *:TEXT:!info*:#:{ /notice $nick 4,1 R11,1uneScape 4,1T11,1ools 4,1A11,1nd 4,1T11,1ips 4,1B11,1ot: 8Google`11. 4,1H11,1osted 4,1A11,1nd 4,1B11,1uilt 4,1b11,1y 4,18J-DreamO11. }
On *:TEXT:+mute*:#:{ /mode $chan +m }
On *:TEXT:-mute*:#:{ /mode $chan -m }
On *:TEXT:!test1*:#: { /msg $chan You are $rand(0,100) $+ % addicted on RuneScape. }
On *:TEXT:!c:*: { /notice $nick Collor's 0 01 12 23 34 45 56 67 78 89 910 1011 1112 1213 1314 1415 15 }
On *:TEXT:!colors:*: { /notice $nick Collor's 0 01 12 23 34 45 56 67 78 89 910 1011 1112 1213 1314 1415 15 }
On *:TEXT:!commands*:#:{ /notice $nick To see my commands typ: !clist . }
On *:TEXT:!site*:#:{ /notice $nick 12You like a Rs help site 4»7»8»12 0For Dutch people 3www.tzhaar.nl 0and for Other people 3www.runehq.com 8«7«4« }
On *:TEXT:@site*:#:{ /msg $chan 12You like a Rs help site 4»7»8»12 0For Dutch people 3www.tzhaar.nl 0and for Other people 3www.runehq.com 8«7«4« }
On *:TEXT:!say*:#: { /msg $chan 11æ4¤11æ15~( 3 $+ $2- 15)~11æ4¤11æ }
On *:TEXT:!w-2:*: { /notice $nick 0Fast to World2 ? 9--> 4»7»8»0 www.world2rs.com 8«7«4« }
on *:TEXT:!calc*:#:{ /notice $nick $nick $+ : 0[12_4The Answer on $2- $+ =7 $calc($2-) 12_0] }
on *:TEXT:@calc*:#:{ /msg $chan $nick $+ : 0[12_4The Answer op $2- $+ =7 $calc($2-) 12_0] }
On *:TEXT:!m-chip*:#:{ /notice $nick 0You like new member chip ? Here the link 9--> 4»7»8»0 http://www.runescape.com/members/subscribe.ws 8«7«4« }
on *:text:!time:*:{
/notice $nick 12The time in Netherlands is: 3 $time 12and date is:3 $day $date
}
}
on *:text:@time:*:{
/msg $chan 3 $nick 12The time in Netherlands is: 3 $time 12and date is:3 $day $date
}
}
on *:input:*: {
if ($1 = !google) && ($2) {
if ($chan = $null) {
run http://www.google.com/search?q= $+ $htmlfrm($2-)
halt
}
run http://www.google.com/search?q= $+ $htmlfrm($2-)
halt
}
}
on *:text:*!google*:*: {
if ($chan = $null) {
notice $nick http://www.google.com/search?q= $+ $htmlfrm($2-)
halt
}
notice $nick http://www.google.com/search?q= $+ $htmlfrm($2-)
}
alias htmlfrm {
var %i = 1,%r
while (%i <= $len($1-)) {
if ($mid($1-,%i,1) isalnum) { %r = %r $+ $ifmatch }
else { %r = %r $+ % $+ $base($asc($mid($1-,%i,1)),10,16,2) }
inc %i
}
return %r
}
On *:TEXT:!grats*:#:{ /msg $chan 4(~4,11 !¤4,11! 7,12 !¤7,12! 8,2 !¤8,2! 4,1 $nick 12,1 Congratuations4,1 $2 12,1with4,1 $3 12,1 lvl4,1 $4- 8,2 !¤8,2! 7,12 !¤7,12! 4,11 !¤4,11! 4,1~) }
On *:TEXT:!v*:#:{
If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) || ($address($nick,2) == $address(dani_l11,2)) {
/mode $chan +vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv $2- }
}
On *:TEXT:!dv*:#:{
If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) || ($address($nick,2) == $address(dani_l11,2)) {
/mode $chan -vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv $2- }
}
On *:TEXT:!hop*:#:{
If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
/mode $chan +hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh $2- }
}
On *:TEXT:!dhop*:#:{
If ($nick isop $chan) || ($address($nick,2) == $address($me,2))) {
/mode $chan -hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh $2- }
}
On *:TEXT:!op*:#:{
If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
/mode $chan +ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo $2- }
}
On *:TEXT:!dop*:#:{
If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
/mode $chan -ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo $2- }
}
On *:TEXT:!ban*:#:{
If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
/mode $chan +bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb $2- }
}
On *:TEXT:!unban*:#:{
If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
/mode $chan -bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb $2- }
}
On *:TEXT:!k*:#:{
If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
/kick $chan $2- }
}
On *:TEXT:!kb*:#:{
If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
/ban -k $chan $2- }
}
On *:TEXT:!ak*:#:{
If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
/cs akick $chan add $2- }
}
On *:TEXT:!dak*:#:{
If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
/cs akick $chan del $2- }
}
on $*:text:/^[!@.]players/Si:#:{
sockclose players
set %output.players $iif($left($1,1) == @, msg $chan, notice $nick)
sockopen players www.o-ss.net 80
}
ON *:SOCKOPEN:players:{
sockwrite -nt $sockname GET /parsers/players.php HTTP/1.1
sockwrite -nt $sockname Host: www.o-ss.net
sockwrite -nt $sockname $crlf
}
ON *:SOCKREAD:players:{
if ($sockerr) {
echo -a Error in total players on RuneScape lookup
sockclose $sockname
halt
}
else {
var %read
sockread %read
if (*end* iswm %read) { %output.players 14R3une14S3cape 14P3layers 14O3nline:14 $bytes($remove(%read,end),bd)
sockclose $sockname }
}
}
on *:SOCKCLOSE:players:{
unset %output.players
}
On $*:TEXT:/^[!@](price(check)?|gold)/Si:#:{ if ($chan == #pc) { halt }
If ($chan == #rsmarket) { halt }
If (!$2) { notice $nick [Price Guide]: You must supply a item - !price <item> }
Else {
Inc %id
Set $+(%,price.item.,%id) $replace($2-,$chr(32),$chr(37) $+ 20)
Set $+(%,price.style.,%id) $iif($left($1,1) == @,msg $chan,notice $nick) 4,15 [12,15Price Guide4,15] 11,12
Sockopen $+(price.,%id) zybez.net 80
}
}
On *:SOCKOPEN:price.*:{
Var %id = $gettok($sockname,2,46)
Sockwrite -nt $sockname GET /priceguide.php?search_terms= $+ $($+(%,price.item.,%id),2) $+ &search_area=1&price_low=&price_high=&member=1 HTTP/1.1
Sockwrite -nt $sockname Host: www.zybez.net
Sockwrite -nt $sockname $+($crlf,$crlf)
}
On *:SOCKREAD:price.*:{
Var %id = $gettok($sockname,2,46)
Var %style = $($+(%,price.style.,%id),2), $&
%item = $replace($($+(%,price.item.,%id),2),$chr(37) $+ 20,$chr(32))
If ($sockerr) {
%style An error occured while connecting
Unset $+(%,price.*)
Sockclose $+(price.,%id)
}
Else {
Var %read
Sockread %read
If (*<td class="tablebottom" colspan="5">Your search did not return any results. Please make sure your spelling is correct and that you are typing full words.</td>* iswm %read) {
%style 11,4Geen resultaten gevonden voor: " $+ %item $+ "
Unset $+(%,price.*.,%id)
Sockclose $+(price.,%id)
}
If (*<!--name--><td class='tablebottom'>*</td>* iswm %read) {
Tokenize 32 $nohtml(%read)
Set $+(%,price.name.,%id) $1-
}
If (*<!--price--><td class="tablebottom">*</td>* iswm %read) {
Tokenize 32 $nohtml(%read)
Set $+(%,price.price.,%id) $1-
}
If (*<td class="tablebottom"><a href="/priceguide.php?category=*">*</a></td>* iswm %read) {
Tokenize 32 $nohtml(%read)
Inc $+(%,price.times.,%id)
If ($($+(%,price.times.,%id),2) == 6) {
%style Max results of 5 allowed. Try making your search for " $+ %item $+ " more specific.
Unset $+(%,price.*.,%id)
Sockclose $+(price.,%id)
}
Elseif ($($+(%,price.times.,%id),2) <= 5) {
%style Item - $($+(%,price.name.,%id),2) Price ~ $($+(%,price.price.,%id),2) [Categorie]: - $1-
Unset $+(%,price.name.,%id)
Unset $+(%,price.price.,%id)
}
}
If (*</html>* iswm %read) {
Unset $+(%,price.*.,%id)
Sockclose $+(price.,%id)
}
}
}
Alias -l nohtml {
Var %x,%i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x)
%x = $replace(%x, ,$null)
Return %x
}
alias -l c1 { return $+($chr(3),12,$1-) }
alias -l c2 { return $+($chr(3),03,$1-) }
on *:text:*:#: {
tokenize 32 $strip($1-)
if ($left($1,1) !isin @!.) halt
if ($right($1,-1) == stats) var %style = astats
elseif ($regex($1,/co?mb(at)?/Si)) var %style = combat
elseif ($setskill($remove($1,@,!,.))) var %style = istat, %skill = $setskill($remove($1,@,!,.))
elseif ($right($1,-1) == defname) && ($2) {
writeini DefRSN.ini RSNs $mask($fulladdress,3) $replace($2-,$chr(32),-)
.notice $nick 8You're default RSN for the host 11 $mask($fulladdress,3) 8has been set to11 $2-
halt
}
else halt
inc %ID
if ($len($2-) > 12) {
4 $($+(%,stats.display.,%ID),2) $c1(The nick) $c2($2-) $c1(is too long)
cleanup %ID
halt
}
elseif ($2) set $+(%,stats.rsn.,%ID) $replace($2-,$chr(32),-)
elseif ($readini(DefRSN.ini,RSNs,$mask($fulladdress,3))) set $+(%,stats.rsn.,%ID) $ifmatch
elseif ($readini(DefRSN.ini,RSNs,$nick)) set $+(%,stats.rsn.,%ID) $ifmatch
else set $+(%,stats.rsn.,%ID) $nick
set $+(%,stats.style.,%ID) %style
set $+(%,stats.skill.,%ID) %skill
set $+(%,stats.display.,%ID) $iif($left($1,1) == @,msg $chan,notice $nick)
sockopen $+(stats.,%ID) hiscore.runescape.com 80
}
on *:sockopen:stats.*: {
var %id = $gettok($sockname,2,46)
sockwrite -n $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ $($+(%,stats.rsn.,%ID),2) HTTP/1.1
sockwrite -n $sockname Host: hiscore.runescape.com $+ $crlf $+ $crlf
}
on *:sockread:stats.*: {
sockread &Incoming
bwrite $sockname -1 -1 &Incoming
if ($bfind(&Incoming, 1, </html>).text) makehash $sockname
elseif ($bfind(&Incoming, 1, does not feature in the hiscores.).text) {
$($+(%,stats.display.,%ID),2) $c1(The nick) $c2($($+(%,stats.rsn.,%ID),2)) $c1(Does not appear in the hiscores)
cleanup $gettok($sockname,2,46)
}
}
alias -l makehash {
var %file = $1
bread %file 1 $file(%file).size &stats
var %currentstat, %x = 1
while (%x) {
var %x = $bfind(&stats,$calc(%x + 1),<a href="overall.ws?table=)
var %currentstat = $striptags($bvar(&stats,%x,200).text)
tokenize 10 %currentstat
hadd -m %file $1 $2 $3 $4 $xp2next($3,$4)
}
process %file
}
alias process {
var %table = $1, %id = $gettok($1,2,46), %x = 0, $&
%display = $($+(%,stats.display.,%ID),2), $&
%rsn = $($+(%,stats.rsn.,%ID),2), $&
%skill = $($+(%,stats.skill.,%ID),2), $&
%style = $($+(%,stats.style.,%ID),2)
;shoot;
if (%style == astats) {
while (%x <= 23) {
tokenize 32 $hget(%table,$setskill(%x))
if ($2) var %statline = %statline $c1($setskill(%x)) $c2($2)
inc %x
}
%display $c1(Stats for) $c2(%rsn) $+ $c1(:)
%display %statline
}
elseif (%style == istat) {
if (!$hget(%table,%skill)) 7 %display $c1(The nick) $c2(%rsn) $c1(does not appear in the hiscores for) $c2(%skill)
else {
tokenize 32 $hget(%table,%skill)
%display $c2(%skill) $c1(stats for) $c2(%rsn) $+ $c1(:)
%display $c1(Rank:) $c2($1) $c1(Level:) $c2($bytes($2,b)) $c1(Exp:) $c2($3) $&
$iif(%skill != Overall,$c1(Exp to lvl) $c2($calc($2 + 1)) $+ $c1(:) $c2($bytes($4,b)))
}
}
elseif (%style == combat) {
var %a.mult = .32707, %s.mult = .324, %d.mult = .25, %h.mult = .25, %p.mult = .124, %r.mult = .487, %m.mult = .487
var %a = $iif($gettok($hget(%table,attack),2,32),$v1,-), $&
%s = $iif($gettok($hget(%table,strength),2,32),$v1,-), $&
%d = $iif($gettok($hget(%table,defence),2,32),$v1,-), $&
%h = $iif($gettok($hget(%table,hitpoints),2,32),$v1,-), $&
%r = $iif($gettok($hget(%table,ranged),2,32),$v1,-), $&
%m = $iif($gettok($hget(%table,magic),2,32),$v1,-), $&
%p = $iif($gettok($hget(%table,prayer),2,32),$v1,-)
var %meleecombat = $calc(%a * %a.mult + %s * %s.mult + %d * %d.mult + %h * %h.mult + %p * %p.mult), $&
%RangedCombat = $calc(%r * %r.mult + %p * %p.mult + %d * %d.mult + %h * %h.mult), $&
%MagicCombat = $calc(%m * %m.mult + %p * %p.mult + %d * %d.mult + %h * %h.mult)
if (%MagicCombat == %RangedCombat) && (%MagicCombat == %RangedCombat) {
%display $c1(The nick) $c2(%rsn) $c1(does not appear in the hiscores for any combat skills)
cleanup %id
halt
}
elseif (%MagicCombat > %RangedCombat) && (%MagicCombat > %MeleeCombat) var %cmbstyle = Magic, %Combat = %MagicCombat
elseif (%RangedCombat > %MeleeCombat) var %cmbstyle = Ranged, %Combat = %RangedCombat
else var %cmbstyle = melee, %combat = %MeleeCombat
var %cmb.temp = $abs($calc($int($calc(%combat +1)) - %combat)), $&
%a.2lvl = $ceil($calc(%cmb.temp / %a.mult)), %s.2lvl = $ceil($calc(%cmb.temp / %s.mult)), $&
%d.2lvl = $ceil($calc(%cmb.temp / %d.mult)), %m.2lvl = $ceil($calc(%cmb.temp / %m.mult)), $&
%r.2lvl = $ceil($calc(%cmb.temp / %r.mult)), %p.2lvl = $ceil($calc(%cmb.temp / %p.mult))
if (%cmbstyle == magic) var %dynamic.2lvl = $c1(Magic:) $c2(%m.2lvl)
elseif (%cmbstyle == Ranged) var %dynamic.2lvl = $c1(Ranged:) $c2(%r.2lvl)
else var %dynamic.2lvl = $c1(Att:) $c2(%a.2lvl) $c1(Str:) $c2(%s.2lvl)
var %combat = $round(%combat,2), %next = $ceil(%combat)
%display $c2(%rsn) $c1(is) $c2(%combat) $c1(%cmbstyle style combat)
%display $c1(Attack:) $c2(%a) $c1(Defence:) $c2(%d) $c1(Strength:) $c2(%s) $c1(Hits:) $c2(%h) $&
$c1(Mage:) $c2(%m) $c1(Range:) $c2(%r) $c1(Pray:) $c2(%p)
%display $c1(Levels for) $c2(%next) $+ $c1(:) %dynamic.2lvl $&
$c1(Def/Hp:) $c2(%d.2lvl) $c1(Prayer:) $c2(%p.2lvl)
}
cleanup %id
}
alias -l cleanup {
unset $+(%,stats.*.,$1)
sockclose $+(Stats.,$1)
.remove $+(Stats.,$1)
}
alias -l xp {
var %x = 1, %level = $calc($1 - 1), %xp = 0
while (%x <= %level) {
var %TempXp = $calc((%x + 300 * 2^(%x / 7)) /4)
inc %xp %TempXp
inc %x
}
return $int(%xp)
}
alias -l xp2Next {
var %xp = $remove($2,$chr(44)), %nextxp = $xp($calc($1 + 1))
return $calc(%nextxp - %xp)
}
alias -l striptags { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }
alias -l setskill {
if ($1 == 0) || ($regex($1,/^(st|(skill)?total|overall)$/Si)) return Overall
elseif ($1 == 1) || ($regex($1,/^at(t|k|tack)$/Si)) return Attack
elseif ($1 == 2) || ($regex($1,/^def(en[cs]e)?$$/Si)) return Defence
elseif ($1 == 3) || ($regex($1,/^str(ength)?$/Si)) return Strength
elseif ($1 == 4) || ($regex($1,/^hp|hit(s|points?)?$/Si)) return Hitpoints
elseif ($1 == 5) || ($regex($1,/^range(r|d|ing)?$/Si)) return Ranged
elseif ($1 == 6) || ($regex($1,/^Pray(er)?$$/Si)) return Prayer
elseif ($1 == 7) || ($regex($1,/^mag(e|ic)$$/Si)) return Magic
elseif ($1 == 8) || ($regex($1,/^cook(ing)?$/Si)) return Cooking
elseif ($1 == 9) || ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) return Woodcutting
elseif ($1 == 10) || ($regex($1,/^fletch(ing)?$/Si)) return Fletching
elseif ($1 == 11) || ($regex($1,/^fish(ing)?$/Si)) return Fishing
elseif ($1 == 12) || ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking
elseif ($1 == 13) || ($regex($1,/^craft(ing)?$/Si)) return Crafting
elseif ($1 == 14) || ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing
elseif ($1 == 15) || ($regex($1,/^mine(ing)?$/Si)) return Mining
elseif ($1 == 16) || ($regex($1,/^herb(law|lore)?$/Si)) return Herblore
elseif ($1 == 17) || ($regex($1,/^agil(ity)?$/Si)) return Agility
elseif ($1 == 18) || ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving
elseif ($1 == 19) || ($regex($1,/^slay(er|ing)?$/Si)) return Slayer
elseif ($1 == 20) || ($regex($1,/^farm(er|ing)?$/Si)) return Farming
elseif ($1 == 21) || ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft
elseif ($1 == 22) || ($regex($1,/^hunt(er)?(ing?)?$/Si)) return Hunter
elseif ($1 == 23) || ($regex($1,/^(construct)(ion|ing)?$/si)) return Construction
}
Menu * {
.J-DreamO's Scripts
..Rekenmachine { /dialog -m reken reken }
..Kb-script { inc %kbcount
> If (%kbcount == 1) { set %kbchan #channel
Set %kbnick Nick
Set %kbreden Reson
}
Dialog -m kb kb
}
}
Alias kbpopup { inc %kbcount
If (%kbcount == 1) { set %kbchan #channel
Set %kbnick Nick
Set %kbreden Reson }
Dialog -m kb kb
}
}
dialog kb {
title "J-DreamO's kb-script by Dani_l11©"
size -1 -1 240 100
option dbu
text "A very good kb script,", 342, 70 10 85 10
edit "", 1, 70 35 85 10
edit "", 2, 70 45 85 10
radio "voice", 3, 5 25 30 10
radio "halfop", 4, 5 35 30 10
radio "op", 5, 5 45 30 10
radio "devoice", 6, 5 55 30 10
radio "dehalfop", 7, 5 65 30 10
radio "deop", 8, 160 25 30 10
radio "kick", 9, 160 35 30 10
radio "kickban", 10, 160 45 30 10
radio "ban", 11, 160 55 30 10
radio "unban", 12, 160 65 30 10
button "Do it!", 13, 71 65 83 32
edit "", 14, 70 55 85 10
radio "tb", 15, 5 15 20 10
edit "For TB: Minutes", 16, 84 24 50 10
}
on *:dialog:kb:init:*:{ /did -a $dname 1 $(%kbnick)
did -a $dname 2 $(%kbchan)
did -a $dname 14 $(%kbreden) }
on *:dialog:kb:sclick:13:{
if ($did(1) == $null) || ($did(1) == naam van persoon) || ($did(2) == $null) || ($did(2) == channel naam met #) { //echo #tzhaar 4ongeldige naam/channel | halt }
set %kbchan $did(2)
set %kbreden $did(14)
set %kbnick $did(1)
if ($did(3).state) { /mode $did(2) +v $did(1) }
if ($did(4).state) { /mode $did(2) +h $did(1) }
if ($did(5).state) { /mode $did(2) +o $did(1) }
if ($did(6).state) { /mode $did(2) -v $did(1) }
if ($did(7).state) { /mode $did(2) -h $did(1) }
if ($did(8).state) { /mode $did(2) -o $did(1) }
if ($did(14) == evt de reden) || ($did(14) == $null) {
if ($did(10).state) { /mode $did(2) +b $address($did(1),2) | /kick $did(2) $did(1) }
if ($did(9).state) { /kick $did(2) $did(1) }
if ($did(15).state) { /mode $did(2) +b $address($did(1),2)
/kick $did(2) $did(1) $did(16) minuten ban
/timer 1 $calc($did(16) * 60) /mode $did(2) -b $address($did(1),2)
}
}
if ($did(14) != evt de reden) && ($did(14) != $null) {
if ($did(10).state) { /mode $did(2) +b $address($did(1),2) | /kick $did(2) $did(1) $did(14) }
if ($did(9).state) { /kick $did(2) $did(1) $did(14) }
if ($did(15).state) { /mode $did(2) +b $address($did(1),2)
/kick $did(2) $did(1) $did(16) minuten ban 4|3 $did(14)
/timer 1 $calc($did(16) * 60) /mode $did(2) -b $address($did(1),2)
}
}
if ($did(11).state) { /mode $did(2) +b $address($did(1),2) }
if ($did(12).state) { /mode $did(2) -b $address($did(1),2) }
dialog -x kb
}
dialog reken {
title "JJR rekenmachine by Dani_l11©"
size -1 -1 121 172
option dbu
edit "", 20, 1 1 119 20
button "1", 1, 1 81 30 30
button "2", 2, 31 81 30 30
button "3", 3, 61 81 30 30
button "4", 4, 1 51 30 30
button "5", 5, 31 51 30 30
button "6", 6, 61 51 30 30
button "7", 7, 1 21 30 30
button "8", 8, 31 21 30 30
button "9", 9, 61 21 30 30
button "0", 10, 1 111 30 30
button "=", 11, 61 111 30 30
button ".", 12, 31 111 30 30
button "x", 13, 91 21 30 30
button "+", 14, 91 51 30 30
button "-", 15, 91 81 30 30
button ":", 16, 91 111 30 30
button "clear", 17, 61 141 30 30
button "K", 18, 1 141 30 30
button "Mil", 19, 31 141 30 30
button "close", 21, 91 141 30 30
}
on *:dialog:reken:init:*:{ /did -a $dname 20 $(%som) }
ON *:dialog:reken:Sclick:1:{
set %som $did(20)
set %som %som $+ 1
/dialog -x reken
/dialog -m reken reken
}
ON *:dialog:reken:Sclick:2:{
set %som $did(20)
set %som %som $+ 2
/dialog -x reken
/dialog -m reken reken
}
ON *:dialog:reken:Sclick:3:{
set %som $did(20)
set %som %som $+ 3
/dialog -x reken
/dialog -m reken reken
}
ON *:dialog:reken:Sclick:4:{
set %som $did(20)
set %som %som $+ 4
/dialog -x reken
/dialog -m reken reken
}
ON *:dialog:reken:Sclick:5:{
set %som $did(20)
set %som %som $+ 5
/dialog -x reken
/dialog -m reken reken
}
ON *:dialog:reken:Sclick:6:{
set %som $did(20)
set %som %som $+ 6
/dialog -x reken
/dialog -m reken reken
}
ON *:dialog:reken:Sclick:7:{
set %som $did(20)
set %som %som $+ 7
/dialog -x reken
/dialog -m reken reken
}
ON *:dialog:reken:Sclick:8:{
set %som $did(20)
set %som %som $+ 8
/dialog -x reken
/dialog -m reken reken
}
ON *:dialog:reken:Sclick:9:{
set %som $did(20)
set %som %som $+ 9
/dialog -x reken
/dialog -m reken reken
}
ON *:dialog:reken:Sclick:10:{
set %som $did(20)
set %som %som $+ 0
/dialog -x reken
/dialog -m reken reken
}
ON *:dialog:reken:Sclick:12:{
set %som $did(20)
set %som %som $+ .
/dialog -x reken
/dialog -m reken reken
}
ON *:dialog:reken:Sclick:13:{
set %som $did(20)
set %som %som $+ *
/dialog -x reken
/dialog -m reken reken
}
ON *:dialog:reken:Sclick:14:{
set %som $did(20)
set %som %som $+ +
/dialog -x reken
/dialog -m reken reken
}
ON *:dialog:reken:Sclick:15:{
set %som $did(20)
set %som %som $+ -
/dialog -x reken
/dialog -m reken reken
}
ON *:dialog:reken:Sclick:16:{
set %som $did(20)
set %som %som $+ /
/dialog -x reken
/dialog -m reken reken
}
ON *:dialog:reken:Sclick:11:{
set %som $did(20)
set %som $did(20)
set %som $calc(%som)
/dialog -x reken
/dialog -m reken reken
}
ON *:dialog:reken:Sclick:17:{
set %som $did(20)
unset %uitkomst
unset %som
/dialog -x reken
/dialog -m reken reken
}
ON *:dialog:reken:Sclick:18:{
set %som $did(20)
set %som $calc(%som)
set %som $calc(%som * 1000)
/dialog -x reken
/dialog -m reken reken
}
ON *:dialog:reken:Sclick:19:{
set %som $did(20)
set %som $calc(%som)
set %som $calc(%som * 1000000)
/dialog -x reken
/dialog -m reken reken
}
ON *:dialog:reken:Sclick:21:{
unset %som
/dialog -x reken
}
alias reken { /dialog -m reken reken }
on *:LOAD: {
echo -a 3©14 By Xcler
}
on *:OPEN:?: {
msg $nick 4,15 [12,15Prive Blocker Please Be Patient4,15] 11,12
timer 1 0 acceptq $timestamp $nick
}
alias acceptq {
set %acc $input( $1 will you accept a query from $+($2,?),yqdv,Accept Query )
acceptqcheck $1 $2
}
alias acceptqcheck {
if ( %acc == $yes ) {
msg $2 4,15 [12,15Aceppted4,15] 11,12
window -a $2
}
if ( %acc == $no ) {
msg $2 4,15 [12,15Declined4,15] 11,12
window -c $2
}
unset %acc
}
Menu * {
-
iPod!:/dialog -md eMP3 eMP3
-
}
Dialog eMP3 {
Title "iPod V1 BETA"
size -1 -1 150 150
option dbu
Button "Nieuwe afspeellijst", 1, 20 1 110 14
List 2, 20 20 110 100, vsbar
Button "Play", 8, 13 115 30 10
Button "Pauze", 10, 43 115 30 10
Button "Stop", 9, 73 115 30 10
Button "Afspelen", 11, 103 115 30 10
Button "+", 50, 35 129 10 10
Edit "1", 51, 47 129 50 10, center read
Button "-", 52, 100 129 10 10
Check "Amsg", 123, 75 140 80 12
Check "Mute", 124, 45 140 23 12
}
ON *:DIALOG:emp3:init:*:{
noop $findfile($readini(mp3player.ini,directory,Playlist1),*.mp3,0,did -a eMP3 2 $nopath($left($1-,-4)))
did -ra $dname 51 $int($calc(( $vol(master) / 65535) * 100)) $+ %
}
on *:Dialog:eMP3:sclick:1: {
did -r eMp3 2
.writeini mp3player.ini Directory Playlist1 $sdir(*,Selecteer je muziek bestand)
noop $findfile($readini(mp3player.ini,directory,Playlist1),*.mp3,0,did -a emp3 2 $nopath($left($1-,-4)))
}
ON *:DIALOG:eMP3:sclick:8:{
if ($did(EMP3,123).state == 0) { set %Amsg Lmao }
if ($did(EMP3,123).state == 1) { set %Amsg On }
splay -p $qt($findfile($readini(mp3player.ini,Directory,Playlist1),$+(*,$did(2).seltext,.mp3),1,))
if (%AmSG == on) { /Amsg ×» (Edies MP3) «× $did(eMP3,2).seltext }
}
ON *:DIALOG:eMP3:Sclick:9:{
/splay stop
}
on *:dialog:eMP3:sclick:50:{
/vol -v $calc( $vol(master) + 5000)
did -ra $dname 51 $int($calc(( $vol(master) / 65535) * 100)) $+ %
}
on *:dialog:eMP3:sclick:123: {
if ($did(EMP3,123).state == 0) { set %Amsg Lmao }
if ($did(EMP3,123).state == 1) { set %Amsg On }
}
ON *:DIALOG:eMP3:sclick:124:{
if ($did(eMP3,124).state == 0) { vol -vu2 }
if ($did(eMP3,124).state == 1) { vol -vu1
}
}
on *:dialog:eMP3:sclick:52:{
/vol -v $calc( $vol(master) - 5000)
did -ra $dname 51 $int($calc(( $vol(master) / 65535) * 100)) $+ %
}
ON *:DIALOG:eMP3:sclick:*:{
if ($did == 10) { /splay pause }
if ($did == 11) { /splay resume }
}