Dark_Noddy
October 10, 2004, 11:21 am
I invented:
alias numxt { if ($1 !isnum) { return $1- } | if ($right($1,1) <= 3) { return $1 $+ ' $+ $replace($right($1,1),0,eth,1,st,2,nd,3,rd) } | return $1- $+ th }
alias Dildo {
if ($count($3-,$chr($1)) == 0) { return $3- }
if ($count($3-,$chr($1)) == 1) { return $gettok($3-,1,$1) and $gettok($3-,2,$1) }
var %r $3-
var %r $mid(%r,0,$calc($pos(%r,$chr($1),$count(%R,$chr($1)))-1)) $+ $+($chr(32),ß,$chr(32)) $+ $right(%R,$calc($pos(%r,$chr($1),$count(%R,$chr($1)))* -1))
var %r $replace(%r,$chr($1),$chr($2) $+ $iif($prop == Space,$chr(32)) )
return $replace(%r,ß,and)
}
on !*:join:#Bunny_Island: { if ($gettok($address($nick,3),2,64) == *.users.quakenet.org && $ini(Dildos.ini,$gettok($gettok($address($nick,1),2,64),1,46))) { var %n $gettok($gettok($address($nick,1),2,64),1,46) } | else { var %n $nick }
inc -u60 %dildoc. [ $+ [ $nick ] ]
if (%dildoc. [ $+ [ $nick ] ] >= 3) {
set -u2 %dlds. [ $+ [ $nick ] ] $int($calc($readini(Dildos.ini,%n,no) * 0.75 ))
Describe # takes away 75% of $nick $+ 's Dildos for cheating. (Thats %dlds. [ $+ [ $nick ] ] Dildos)
unset %dildoc. [ $+ [ $nick ] ]
writeini dildos.ini %n no $calc($readini(Dildos.ini,%n,no) - %dlds. [ $+ [ $nick ] ] )
halt
}
if ($ini(dildohalt.ini,ignore,$nick) || $ini(dildohalt.ini,ignore,%n)) { halt }
if ($istok(%dildos,%n,160)) { halt }
set %Dildo %dildo $+ $iif(%dildo, ) $+ %n
if ($ini(dildohalt.ini,stfu,$nick) || $ini(dildohalt.ini,stfu,%n)) { goto end | halt }
.timerdildo 1 2 describe # gives $dildo(160,44,%dildo) a dildo $iif($count(%dildo, ),each) ! $chr(124) adddld %dildo | unset %Dildo | halt
:end
adddld %dildo | unset %Dildo
}
alias -l adddld {
var %i $calc($count($1-, ) + 1)
if (%i == 0) { writeini Dildos.ini $1 no $calc($readini(dildos.ini,%t,No) + 1) | if (!$ini(Didos.ini,$1,date)) { writeini Dildos.ini $1 Date The $numxt($asctime($ctime,d)) of $asctime($ctime,mmmm yyyy HH:nn) } | halt }
while (%i) {
set -u2 %t $gettok($1,%i,160)
if (!$ini(Didos.ini,%t,date)) { writeini Dildos.ini %t Date The $numxt($asctime($ctime,d)) of $asctime($ctime,mmmm yyyy HH:nn) }
writeini Dildos.ini %t no $calc($readini(dildos.ini,%t,No) + 1)
dec %i
}
}
on *:text:!Dildos:#Bunny_Island: { if ($gettok(%dildospam,1,32) >= 5 || $gettok(%dildospam,2,32) == $nick) { halt } | if ($gettok($address($nick,3),2,64) == *.users.quakenet.org && $ini(Dildos.ini,$gettok($gettok($address($nick,1),2,64),1,46))) { var %n $gettok($gettok($address($nick,1),2,64),1,46) } | else { var %n $nick }
if ($readini(Dildos.ini,%n,no)) { msg # %n Has recived a total of $+ $readini(Dildos.ini,%n,no) $+ dildos. Since $readini(Dildos.ini,%n,date) }
else { msg # $nick Has not recived any Dildos yet :/ }
set -u10 %dildospam $calc($gettok(%dildospam,1,32) + 1) $nick
}
on *:text:!Dildos &:#Bunny_Island: { if ($gettok(%dildospam,1,32) >= 5 || $gettok(%dildospam,2,32) == $nick) { halt }
if ($gettok($address($2,3),2,64) == *.users.quakenet.org && $ini(Dildos.ini,$gettok($gettok($address($2,1),2,64),1,46))) { var %n $gettok($gettok($address($2,1),2,64),1,46) } | else { var %n $2 }
if ( $ini(Dildos.ini,%n,no) ) { msg # %n Has recived a total of $+ $readini(Dildos.ini,%n,no) $+ dildos. Since $readini(Dildos.ini,%n,date) }
else { msg # %n Has not recived any Dildos yet :/ }
set -u10 %dildospam $calc($gettok(%dildospam,1,32) + 1) $nick
}
on *:text:!topdildos:#Bunny_Island: { if ($gettok(%dildospam,1,32) >= 5 || $gettok(%dildospam,2,32) == $nick) { halt } | var %i $ini(Dildos.ini,0) | var %top 0
while (%i) {
set %a $ini(Dildos.ini,%i)
set %t $readini(dildos.ini,%a,no)
if ( %t > %top ) { var %win %a | var %top %t | unset %t }
if ( %t == %top ) { var %win %win $+ $+ %a }
unset %a %t
dec %i
}
set -u10 %dildospam $calc($gettok(%dildospam,1,32) + 1) $nick
msg # The top dildo collecto $+ $iif($count(%win, ),rs are,r is) $dildo(160,44,%win) with $+ %top $+ dildo $+ $iif(%top > 1,s) $iif($count(%win, ),each) !
}
on DarkNoddy:text:!Dildoignore &:#Bunny_Island: {
if ($left($2,1) != + && $left($2,1) != -) { .notice $nick *ERROR: Specify + or - | halt }
var %n $right($2,-1)
goto $left($2,1)
:+
if ($ini(Dildohalt.ini,ignore,%n)) { .notice $nick %n is allready ignored. | halt }
writeini Dildohalt.ini ignore %n 1
Msg # %n has been added to the ignorelist.
halt
:-
if (!$ini(Dildohalt.ini,ignore,%n)) { .notice $nick %n is not ignored. | halt }
remini Dildohalt.ini ignore %n
Msg # %n has been removed from the ignorelist.
}
on *:text:!DildoSTFU:#Bunny_Island: {
if (%dildostfu [ $+ [ $wildsite ] ] >= 2 || %Dildostfu.spam >= 5) { halt }
inc -u10 %Dildostfu.spam
if ($gettok($address($nick,3),2,64) == *.users.quakenet.org) { var %n $gettok($gettok($address($nick,1),2,64),1,46) }
if (%n) { if ($ini(dildohalt.ini,STFU,%n)) { goto remove } | else { goto add } }
else { .notice $nick This feature is only available for authe useres in mode +x, sorry for the inconvinience. }
:remove
remini dildohalt.ini STFU %n
.notice $nick You $+([,%n,]) have been removed from the STFU list. | inc -u60 %dildostfu [ $+ [ $wildsite ] ]
halt
:add
writeini dildohalt.ini stfu %n 1
.notice $nick You $+([,%n,]) have been added to the STFU list. | inc -u60 %dildostfu [ $+ [ $wildsite ] ]
}
and This :
alias ssp { var %tmp $+(",$$sfile(c:\,Find Soldat.exe,Ok),") | if (%tmp == %soldatcpth) { .echo -q $input(Thats the current Soldatpath..,oi,Dude...) | halt } | if ($exists(%tmp) && $nopath(%tmp) == Soldat.exe) { if ($exists(%soldatcpth)) { if ($input(Soldat path allready exists: $crlf $+ %Soldatcpth $crlf $+ Change it to: $crlf $+ %tmp ?,iy,Are you Sure?) ) { set %Soldatcpth %tmp } | else { halt } } | else { set %Soldatcpth %tmp } } | else { .echo -q $input(No such file or not Soldat.exe,oi,Error.) | halt } | if ($exists(%Soldatcpth)) { .echo -q $input(Path set to: $crlf $+ %Soldatcpth,oi,Done) } | else { .echo -q $input(Somthing went wrong, try again with /ssp.,ow,Error) | unset %Soldatcpath } }
alias scp { if (%soldatcap) { unset %Soldatcap } | else { set %Soldatcap yes } | echo -a -=- Asking for password: $iif(%Soldatcap,ON,OFF) -=- }
alias scu { if (%Soldatcu) { unset %Soldatcu } | else { set %Soldatcu yes } | echo -a -=- Using non-defult path (if set /ssp): $iif(%Soldatcu,ON,OFF) -=- }
alias scl { if (%Soldatcl) { unset %Soldatcl } | else { set %Soldatcl yes } | echo -a -=- Using lastcommend: $iif(%Soldatcl,ON,OFF) -=- }
alias ssc { if (!$timer(mousechck)) { .timermousechck -m 1 250 .echo -sq .. } | else { .timermousechck2 -m 1 250 .echo -sq .. } } | if ($timer(mousechck2)) { if ($right($1,1) == /) { tokenize 32 $left($1,-1) } | .timermousechck* off | if (%Soldatcu && %soldatcpth) { run %soldatcpth -join $right($gettok($1,2,58),-2) $gettok($1,3,58) $iif(%Soldatcap,$?="Password?") } | else { run $1 } | if (%Soldatcl) { /scl2 $1 } }
on ^*:HOTLINK:* soldat*:*: { if (($left($1,9) == soldat:// && $gettok($1,3,58) isnum) && $Mouse.key == 1) { /ssc $1 } }
on ^*:HOTLINK:soldat*:*: { if (($left($1,9) == soldat:// && $gettok($1,3,58) isnum) && $Mouse.key == 1) { /ssc $1 } }
;here is the execute when run alias, Replace "ame I'm playing Soldat at $1 - Come Join me ! ^^" With whatever U like.
;$right($gettok($1,2,58),-1) gives the ip (Soldat://ip:port) and $gettok($1,3,58) the port.
alias -l scl2 {
ame I'm playing Soldat at $1 - Come Join me ! ^^
}
LMAO I'm so damn boored !