Just made this today w/ help from a friend with some glitches, now fixed and added to a bot im admin of
It's just a basic copy of a bot iv seen in the swiftirc network named snuffy
commands are .sex/.wank/.rape
Isn't most mature thing iv done but it was fun making
NOTE: Things you NEED to change/add are the .txt's the $c1-$c4 and the login method and the chanhalt, if you use one - can just remove them if wanted
Otherwise just alt+r and put into a clean remote and have fun playing, any problems/comments just post, always like seeing what i could do to edit and make it more manageable.
alias logo return $+($chr(3),$chr(49),$chr(52),$chr(126),$chr(3),$chr(52),$chr(40),$chr(3),$chr(49),$chr(52),$1-,$chr(3),$chr(52),$chr(41),$chr(3),$chr(49),$chr(52),$chr(126),$chr(3))
;################# Mock Snuffy Bot sex/wank/rape needs the txt/inis but otherwise funny and good :P ###########################
;#### THE .sex
on $*:text:/^[~`!@.]sex/Si:#: { if ($chanhalt($chan) == true) halt
if ($hget(sextime,$nick)) {
var %time $duration($v1)
.notice $nick $logo(Error:) $read(sextime.txt) $c2(You need to wait) $c3(%time) $c2(before you can use this command again.)
halt
}
var %skarma $r(200,500)
var %failornot $r(1,5)
var %urkarma $readini(snuffy.ini,$nick,karma)
var %timeleft $r(100,300)
var %output $iif($left($1,1) == @,msg #,notice $nick)
if (%failornot == 3) {
var %loss $iif($r(10,100) <= %urkarma,$v1,%urkarma)
%output $logo(Sex) $c2($nick) tries to have sex with $read(person.txt) $c3($read(fail.txt)) and loses $&
$c4(%loss) karma! - $c2(you need to wait $duration(%timeleft) to use this command again)
hadd -mz sextime $nick %timeleft
writeini -n snuffy.ini $nick karma $calc($readini(snuffy.ini,$nick,karma) - %loss)
}
if (%failornot != 3) {
var %gkar $calc($readini(snuffy.ini,$nick,karma) + %skarma)
%output $logo(Sex) $c2($nick) just had sex with $c3($read(person.txt)) and gains $&
$c2($bytes(%skarma,bd)) karma! $c4($bytes(%gkar,bd)) karma Total - $c2(you need to wait $duration(%timeleft) to use this command again)
hadd -mz sextime $nick %timeleft
writeini -n snuffy.ini $nick karma %gkar
}
}
;#### the .rape
on $*:text:/^[~!`@.]rape/Si:#f: { if ($chanhalt($chan) == true) halt
if ($readini(snuffy.ini,$nick,karma) < 500) { .notice $nick Error: You need at least 500 karma to rape someone | halt }
if ($hget(rapetime,$nick)) {
var %time $duration($v1)
.notice $nick $logo(Error:) $c4($read(sextime.txt)) $c2(You need to wait) $c3(%time) $c2(before you can use this command again.)
halt
}
var %output $iif($left($1,1) == @,.msg $chan,.notice $nick)
var %failornot $r(1,5)
var %skarma $r(500,1500)
var %timeleft $r(400,700)
var %item $read(rape.txt)
if (%failornot == 3) {
var %loss $r(200,300)
notice $nick Attempting to rape a %item $+ , Please wait.
.timer 1 2 %output $logo(Rape:) $c2($nick Fails) at raping $c3(%item) and loses $c4(%loss Karma.) Please wait $c3($duration(%timeleft)) before trying to rape again.
writeini -n snuffy.ini $nick karma $calc($readini(snuffy.ini,$nick,karma) - %loss)
hadd -mz rapetime $nick %timeleft
}
if (%failornot != 3) {
var %gkar $calc($readini(snuffy.ini,$nick,karma) + %skarma)
notice $nick Attempting to rape a %item $+ , Please wait.
.timer 1 2 %output $logo(Rape:) $c2($nick) $c1(Succeeds) at raping $c3(%item) and gains $c2(%skarma Karma) - $c4($bytes(%gkar,bd)) $c2(Total Karma). Please wait $duration(%timeleft) before trying to rape again.
writeini -n snuffy.ini $nick karma %gkar
hadd -mz rapetime $nick %timeleft
}
}
;#### the .wank
on $*:text:/^[~!`@.]wank/Si:#: { if ($chanhalt($chan) == true) halt
if ($readini(snuffy.ini,$nick,karma) < 1000) { .notice $nick Error: You need at least 1k karma to wank | halt }
if ($hget(wanktime,$nick)) {
var %time $v1
.notice $nick $logo(Error:) $c3($read(sextime.txt)) $c2(You need to wait) $c3($duration(%time)) $c2(before you can use this command again.)
halt
}
var %output $iif($left($1,1) == @,.msg $chan,.notice $nick)
var %failornot $r(1,10)
var %skarma $r(500,1500)
var %timeleft $r(600,900)
var %wanktime $r(700,1500)
var %loss $r(300,900)
if ($istok(1 3 8,%failornot,32)) {
%output $logo(Wank:) $c2($nick) $c2(Failed) to Cum after wanking for $c3($duration(%wanktime)) $+ . You lose $c4($bytes(%loss,bd)) Karma and now have to wait $c3($duration(%timeleft)) to wank again!!
writeini snuffy.ini $nick karma $calc($readini(snuffy.ini,$nick,karma) - %loss)
hadd -mz wanktime $nick %timeleft
}
else {
var %gkar $calc($readini(snuffy.ini,$nick,karma) + %skarma)
%output $logo(Wank:) $c2($nick) $c1(Succeeded) to Cum after wanking for $c3($duration(%wanktime)) $+ . You Gained $c4($bytes(%skarma,bd)) Karma and now have to wait $c3)($duration(%timeleft)) to wank again!!
writeini snuffy.ini $nick karma %gkar
hadd -mz wanktime $nick %timeleft
}
}
;#### Timers for the snuffy mock script
on $*:text:/^[~`!@.]ztimer/Si:#: { if ($chanhalt($chan) == true) halt
var %output $iif($left($1,1) == @,.msg $chan,.notice $nick)
var %sex $iif($hget(sextime,$nick),$duration($v1),Now)
var %rape $iif($hget(rapetime,$nick),$duration($v1),Now)
var %wank $iif($hget(wanktime,$nick),$duration($v1),Now)
%output $logo(Timers) $c1(!sex) $c2(%sex) $c1(!rape) $c2(%rape) $c1(!wank) $c2(%wank)
}
on $*:text:/^[~!`@.](karma)/Si:#zizzle,#zizzle-staff: { if ($chanhalt($chan) == true) halt
var %output $iif($left($1,1) == @,.msg $chan,.notice $nick)
%output $logo(Karma Points) $nick has $bytes($readini(snuffy.ini,$nick,karma),bd) Karma
}
I was not talking about the scripts/snippets i posted. I am talking about my trademark? http://snuffy.bielie.nl/
it isnt stealing, seeing how i coded it 100% my own, just because "ideas are similar and the lines are" doesnt make it "stolen" seeing how theres no reliable proof to claim that in the 10+ years mirc been around that someone preceeding us had made the same thing either on same network or a different one, but your copyright thing was pretty funny
oh i thought the $regml(1) in that case would be @wank not just the @, and yeah iv seen how a little on previous things to make on 1 txt off a regex/elseifs, seems straight forward enough, but i never understood scripters and condensing scripts :p little sloppy can be easier to edit come time needing something editing, or thats just my random logic
the way you did ur text events was done with regex ie:
on $*:text:/^[~!`@.]wank/Si:#zizzle,#zizzle-staff: {
but then you go ahead an do
$iif($left($1,1) == @,.msg $chan,.notice $nick)
you could have done on that line
on $*:text:/^([~!`@.])wank/Si:#zizzle,#zizzle-staff: {
then did
$iif($regml(1) = @,.msg #,.notice $nick)
but like i said an odd use of regex. if you are going to use it then you may as well make it as one text event. as well as getting rid of all the redundancy in the code its self.
@Dani_l11:
Nowadays kids are already being exposed to violent video games that inevitably depict the killing, fighting and shooting. It's everywhere in the arcade industry. It's a relatively common standard as you see them with laptops or blackberries or iphones, just to name a few. If you really want to get technical about being kid-friendly, perhaps we should all go back to "Leave it to Beaver" era then, don't you think?
lol @ adult kids =P
maybe delete the channels you have left in the snippet as many people are not in them chans. also just an odd use of regex. you could have made them under one text event. Just alot of redundancy in ur snippet you could of had it call to an alias for the outputs, but w/e to each their own. .....