mIRC Snippet:
Ciber's eToken Script
Posted on Sep 22, 2007 10:45 pm
Posted on Sep 22, 2007 10:45 pm
i hope staccia doesnt look here again -.- i accidentally posted that thig twice -.-
mIRC Snippet:
Ciber's eToken Script
Posted on Sep 22, 2007 10:43 pm
Posted on Sep 22, 2007 10:43 pm
| Code: |
| here is what staccia is missing 4 $calc( $readini(eToken.ini,eTokens,$4) + 3 ) writeini -n etoken.ini cracker $nick $calc( %doeshehaveacracker - 1 ) } if (%rand17 == $null) { notice $nick The cracker was empty! notice $4 The cracker was empty! writeini -n etoken.ini cracker $nick $calc( %doeshehaveacracker - 1 ) unset $nick } if (%rand17 == 7) { notice $nick You got 1 eTokens! notice $4 You got 1 eTokens! writeini -n etoken.ini eTokens $nick $calc( $readini(eToken.ini,eTokens,$nick) + 1 ) writeini -n etoken.ini eTokens $4 $calc( $readini(eToken.ini,eTokens,$4) + 1 ) writeini -n etoken.ini cracker $nick $calc( %doeshehaveacracker - 1 ) } if (%rand17 == Purple) { notice $chan 13,1 $+ $nick found a Purple Partyhat! notice $nick 13,1You found a Purple Partyhat! notice $4 You got 3 eTokens! writeini -n etoken.ini eTokens $4 $calc( $readini(eToken.ini,eTokens,$4) + 3 ) writeini -n etoken1.ini Purple $nick $calc( $readini(eToken1.ini,Purple,$nick) + 1 ) writeini -n etoken.ini cracker $nick $calc( %doeshehaveacracker - 1 ) } if (%rand17 == Yellow) { notice $chan 8,1 $+ $nick found a Yellow Partyhat! notice $nick 8,1You found a Yellow Partyhat! notice $4 You got 4 eTokens! writeini -n etoken.ini eTokens $4 $calc( $readini(eToken.ini,eTokens,$4) + 4 ) writeini -n etoken1.ini Yellow $nick $calc( $readini(eToken1.ini,Yellow,$nick) + 1 ) writeini -n etoken.ini cracker $nick $calc( %doeshehaveacracker - 1 ) } if (%rand17 == Green) { notice $chan 9,1 $+ $nick found a Green Partyhat! notice $nick 9,1You found a Green Partyhat! notice $4 You got 2 eTokens! writeini -n etoken.ini eTokens $4 $calc( $readini(eToken.ini,eTokens,$4) + 2 ) writeini -n etoken1.ini Green $nick $calc( $readini(eToken1.ini,Green,$nick) + 1 ) writeini -n etoken.ini cracker $nick $calc( %doeshehaveacracker - 1 ) } if (%rand17 == Santa) { notice $chan 4,1 $+ $nick $+ 0f4o0u4n0d 4a 0R4a0r4e 4S0a4n0t4a4 H0a4t0! notice $nick 4,1Y0o4u 0f4o0u4n0d 4a 0R4a0r4e 4S0a4n0t4a4 H0a4t0! notice $4 You got 100 eTokens! writeini -n etoken.ini eTokens $4 $calc( $readini(eToken.ini,eTokens,$4) + 100 ) writeini -n etoken-other.ini Santa $nick $calc( $readini(eToken-other.ini,Santa,$nick) + 1 ) writeini -n etoken.ini cracker $nick $calc( %doeshehaveacracker - 1 ) } if (%rand17 == pumpkin) { notice $chan 7,1 $+ $nick found a Rare Pumpkin! notice $nick 7,1You found a Rare Pumpkin! notice $4 You got 100 eTokens! writeini -n etoken.ini eTokens $4 $calc( $readini(eToken.ini,eTokens,$4) + 100 ) writeini -n etoken-other.ini pumpkin $nick $calc( $readini(eToken-other.ini,pumpkin,$nick) + 1 ) writeini -n etoken.ini cracker $nick $calc( %doeshehaveacracker - 1 ) } if (%rand17 == Red) { notice $chan 4,1 $+ $nick found a Red Partyhat! notice $nick 4,1You found a Red Partyhat! notice $4 You got 0 eTokens! writeini -n etoken1.ini Red $nick $calc( $readini(eToken1.ini,Red,$nick) + 1 ) writeini -n etoken.ini cracker $nick $calc( %doeshehaveacracker - 1 ) } if (%rand17 == White) { notice $chan 0,1 $+ $nick found a White Partyhat! notice $nick 0,1You found a White Partyhat! notice $4 You got 6 eTokens! writeini -n etoken.ini eTokens $4 $calc( $readini(eToken.ini,eTokens,$4) + 6 ) writeini -n etoken1.ini White $nick $calc( $readini(eToken1.ini,White,$nick) + 1 ) writeini -n etoken.ini cracker $nick $calc( %doeshehaveacracker - 1 ) } if (%rand17 == Blue) { if ($rand(0,2) == 1) /set %rand18 1 if ($rand(0,2) == 2) /set %rand18 2 if (%rand18 == $null) { notice $chan 12,1 $+ $nick found a Blue Partyhat! notice $nick 12,1You found a Blue Partyhat! notice $4 You got 8 eTokens! writeini -n etoken.ini eTokens $4 $calc( $readini(eToken.ini,eTokens,$4) + 8 ) writeini -n etoken1.ini Blue $nick $calc( $readini(eToken1.ini,Blue,$nick) + 1 ) writeini -n etoken.ini cracker $nick $calc( %doeshehaveacracker - 1 ) } else { unset %rand18 | notice $nick The cracker doesn't break... | notice $4 The cracker doesn't break... } } } } if ($2 == kick) { if ($3 == $null) { notice $nick Correct format: !eToken kick <nick> <reason> | HALT } if ($4 == $null) { notice $nick Correct format: !eToken kick <nick> <reason> | HALT } if (%kicknick == $nick) { notice $nick You can not kick twice in a row, you will be able to kick once someone else kicks someone. | HALT } if ($3 !ison $chan) { notice $nick $3 is not in $chan | HALT } if ($3 isop $chan) { notice $nick $3 is an Op in $chan | HALT } if ($3 == $me) { notice $nick Don't even try it! | HALT } if ($3 == $nick) { notice $nick You can't kick yourself. | HALT } if ($readini(eToken1.ini,Rich,$nick) == 1) { notice $nick $3 has been kicked. msg %etokchan $nick has used eTokens to kick $3 from $chan - Reason: $4- kick $chan $3 4,1Kick purchased by $nick Reason: $4- set %kicknick $nick | halt } if ($readini(eToken.ini,eTokens,$nick) < 5000) { notice $nick You don't have enough eTokens to purchase a kick. | HALT } notice $nick $3 has been kicked. msg %etokchan $nick has used eTokens to kick $3 from $chan - Reason: $4- kick $chan $3 4,1Kick purchased by $nick Reason: $4- writeini -n etoken.ini eTokens $nick $calc( $readini(eToken.ini,eTokens,$nick) - 5000 ) set %kicknick $nick } if ($2 == view) { if ($readini(eToken2.ini,locked,$3) != $null) { msg $chan Who is $3 $+ ? | HALT } if ($3 == $null) { msg $chan Correct format: !eToken spy <nick> | HALT } if ($3 !ison $chan) { msg $chan You can't find $3 $+ . | HALT } msg $chan (Level $iif($readini(eToken-levels.ini,level,$3),$null,1) $+ $readini(eToken-levels.ini,level,$3) $+ ) $3 has $readini(eToken.ini,eTokens,$3) $+ $iif($readini(eToken.ini,eTokens,$3),$null,0) eTokens, $readini(eToken.ini,cracker,$3) $+ $iif($readini(eToken.ini,cracker,$3),$null,0) crackers, and $readini(eToken1.ini,RAM,$3) $+ $iif($readini(eToken1.ini,RAM,$3),$null,0) MB of RAM. if ($readini(eToken1.ini,Firewall,$3) == 1) { msg $chan 1,4 $+ $3 has a Firewall! ( Status: Not Installed ) } if ($readini(eToken1.ini,Firewall,$3) == 2) { msg $chan 1,4 $+ $3 has a Firewall! ( Status: Installed ) } if ($readini(eToken1.ini,Purple,$3) > 0) { msg $chan 6,1 $+ $3 has a Purple PartyHat! ( Amount: $readini(eToken1.ini,Purple,$3) ) } if ($readini(eToken1.ini,Yellow,$3) > 0) { msg $chan 8,1 $+ $3 has a Yellow PartyHat! ( Amount: $readini(eToken1.ini,Yellow,$3) ) } if ($readini(eToken1.ini,Green,$3) > 0) { msg $chan 9,1 $+ $3 has a Green PartyHat! ( Amount: $readini(eToken1.ini,Green,$3) ) } if ($readini(eToken1.ini,Red,$3) > 0) { msg $chan 4,1 $+ $3 has a Red PartyHat! ( Amount: $readini(eToken1.ini,Red,$3) ) } if ($readini(eToken1.ini,White,$3) > 0) { msg $chan 0,1 $+ $3 has a White PartyHat! ( Amount: $readini(eToken1.ini,White,$3) ) } if ($readini(eToken1.ini,Blue,$3) > 0) { msg $chan 12,1 $+ $3 has a Blue PartyHat! ( Amount: $readini(eToken1.ini,Blue,$3) ) } if ($readini(eToken-other.ini,pumpkin,$3) > 0) { msg $chan 7,1 $+ $3 has a Rare Pumpkin! ( Amount: $readini(eToken-other.ini,pumpkin,$3) ) } if ($readini(eToken-other.ini,santa,$3) > 0) { msg $chan 4,1 $+ $mid($3,1,1) $+ 0 $+ $mid($3,2,1) $+ 4 $+ $mid($3,3,1) $+ 0 $+ $mid($3,4,1) $+ 4 $+ $mid($3,5,1) $+ 0 $+ $mid($3,6,1) $+ 4 $+ $mid($3,7,1) $+ 0 $+ $mid($3,8,1) $+ 4 $+ $mid($3,9,1) $+ 0 $+ $mid($3,10,1) $+ 4 $+ $mid($3,11,1) $+ 0 $+ $mid($3,12,1) $+ 4h0a4s0 a 4R0a4r0e 4S0a4n0t4a0 4H0a4t0 4( 0A4m0o40u4n0t0: 4 $+ $readini(eToken-other.ini,santa,$3) $+ 0 ) } if ($readini(eToken1.ini,Rich,$3) == 1) { msg $chan 8,1 $+ $3 has a Symbol of Riches! } if ($readini(eToken1.ini,Rich,$3) == 1) { msg $chan 0,1 $+ $3 has9,1 $readini(eToken2.ini,Green,$3) Green Masks0,1,12,1 $readini(eToken2.ini,Blue,$3) Blue Masks0,1, and4,1 $readini(eToken2.ini,Red,$3) Red Masks. } if ($3 !ison %etokchan) { halt } if ($3 !isreg %etokchan) { msg $chan 15,14 $+ $3 has a BotOper DogTag. } } if ($2 == forceview) { if ($readini(eToken2.ini,locked,$3) != $null) { notice $nick Who is $3 $+ ? | HALT } if ($3 == $null) { notice $nick Correct format: !eToken spy <nick> | HALT } if ($3 !ison $chan) { notice $nick You can't fi;nd $3 $+ . | HALT } notice $nick (Level $iif($readini(eToken-levels.ini,level,$3),$null,1) $+ $readini(eToken-levels.ini,level,$3) $+ ) $3 has $readini(eToken.ini,eTokens,$3) $+ $iif($readini(eToken.ini,eTokens,$3),$null,0) eTokens, $readini(eToken.ini,cracker,$3) $+ $iif($readini(eToken.ini,cracker,$3),$null,0) crackers, and $readini(eToken1.ini,RAM,$3) $+ $iif($readini(eToken1.ini,RAM,$3),$null,0) MB of RAM. if ($readini(eToken1.ini,Firewall,$3) == 1) { notice $nick 1,4 $+ $3 has a Firewall! ( Status: Not Installed ) } if ($readini(eToken1.ini,Firewall,$3) == 2) { notice $nick 1,4 $+ $3 has a Firewall! ( Status: Installed ) } if ($readini(eToken1.ini,Purple,$3) > 0) { notice $nick 6,1 $+ $3 has a Purple PartyHat! ( Amount: $readini(eToken1.ini,Purple,$3) ) } if ($readini(eToken1.ini,Yellow,$3) > 0) { notice $nick 8,1 $+ $3 has a Yellow PartyHat! ( Amount: $readini(eToken1.ini,Yellow,$3) ) } if ($readini(eToken1.ini,Green,$3) > 0) { notice $nick 9,1 $+ $3 has a Green PartyHat! ( Amount: $readini(eToken1.ini,Green,$3) ) } if ($readini(eToken1.ini,Red,$3) > 0) { notice $nick 4,1 $+ $3 has a Red PartyHat! ( Amount: $readini(eToken1.ini,Red,$3) ) } if ($readini(eToken1.ini,White,$3) > 0) { notice $nick 0,1 $+ $3 has a White PartyHat! ( Amount: $readini(eToken1.ini,White,$3) ) } if ($readini(eToken1.ini,Blue,$3) > 0) { notice $nick 12,1 $+ $3 has a Blue PartyHat! ( Amount: $readini(eToken1.ini,Blue,$3) ) } if ($readini(eToken-other.ini,pumpkin,$3) > 0) { notice $nick 7,1 $+ $3 has a Rare Pumpkin! ( Amount: $readini(eToken-other.ini,pumpkin,$3) ) } if ($readini(eToken-other.ini,santa,$3) > 0) { notice $nick 4,1 $+ $mid($3,1,1) $+ 0 $+ $mid($3,2,1) $+ 4 $+ $mid($3,3,1) $+ 0 $+ $mid($3,4,1) $+ 4 $+ $mid($3,5,1) $+ 0 $+ $mid($3,6,1) $+ 4 $+ $mid($3,7,1) $+ 0 $+ $mid($3,8,1) $+ 4 $+ $mid($3,9,1) $+ 0 $+ $mid($3,10,1) $+ 4 $+ $mid($3,11,1) $+ 0 $+ $mid($3,12,1) $+ 4h0a4s0 a 4R0a4r0e 4S0a4n0t4a0 4H0a4t0 4( 0 $+ $readini(eToken-other.ini,santa,$3) $+ 4 ) } if ($readini(eToken1.ini,Rich,$3) == 1) { notice $nick 8,1 $+ $3 has a Symbol of Riches! } if ($readini(eToken1.ini,Rich,$3) == 1) { notice $nick 0,1 $+ $3 has9,1 $readini(eToken2.ini,Green,$3) Green Masks0,1,12,1 $readini(eToken2.ini,Blue,$3) Blue Masks0,1, and4,1 $readini(eToken2.ini,Red,$3) Red Masks. } if ($3 !ison %etokchan) { halt } if ($3 !isreg %etokchan) { notice $nick 15,14 $+ $3 has a BotOper DogTag. } } if ($2 == attack) { if ($3 == $null) { if ($readini(eToken-levels.ini,level,$nick) == $null) { writeini eToken-levels.ini level $nick 1 } notice $nick Welcome $nick $+ ! Your currently Level $readini(eToken-levels.ini,level,$nick) $+ , Experience: $readini(eToken-levels.ini,exp,$nick) $+ $iif($readini(eToken-level.ini,exp,$nick) == $null,0) $+ / $+ $readini(eToken-levels.ini,level,$nick) notice $nick Attack someone - !etoken attack <nick> } if ($readini(eToken-levels.ini,level,$3) == $null) { writeini eToken-levels.ini level $3 1 } if ($readini(eToken-levels.ini,level,$nick) == $null) { writeini eToken-levels.ini level $nick 1 } if ($nick == $3) { notice $nick You can't attack yourself... | HALT } %attackcheck = $rand(1,2) notice $nick You attack $3 $+ ... notice $3 You are being attacked by $nick $+ ... if (%attackcheck == 1) { notice $nick You have lost! notice $3 You have won! writeini eToken-levels.ini exp $3 $calc($readini(eToken-levels.ini,exp,$3) + 10) if (50 =/ $readini(eToken-levels.ini,exp,$3)) { notice $3 You have Leveled up! New Level: $calc($readini(eToken-levels.ini,level,$3) + 1) writeini eToken-levels.ini level $3 $calc($readini(eToken-levels.ini,level,$3) + 1) } halt } if (%attackcheck == 2) { notice $3 You have lost! notice $nick You have won! writeini eToken-levels.ini exp $nick $calc($readini(eToken-levels.ini,exp,$nick) + 10) if (50 =/ $readini(eToken-levels.ini,exp,$nick)) { notice $nick You have Leveled up! New Level: $calc($readini(eToken-levels.ini,level,$nick) + 1) writeini eToken-levels.ini level $nick $calc($readini(eToken-levels.ini,level,$nick) + 1) } halt } } if ($2 == level) { if ($3 == $null) { if ($readini(eToken-levels.ini,level,$nick) == $null) { writeini eToken-levels.ini level $nick 1 } notice $nick Welcome $nick $+ ! Your currently Level $readini(eToken-levels.ini,level,$nick) $+ , Experience: $readini(eToken-levels.ini,exp,$nick) $+ $iif($readini(eToken-level.ini,exp,$nick) == $null,0) $+ / $+ $readini(eToken-levels.ini,level,$nick) notice $nick Attack someone - !etoken attack <nick> } if ($readini(eToken-levels.ini,level,$nick) == $null) { writeini eToken-levels.ini level $nick 1 } if ($readini(eToken-levels.ini,level,$3) == $null) { writeini eToken-levels.ini level $3 1 } if ($readini(eToken-levels.ini,exp,$3) == $null) { notice $nick $3 $+ 's current Level: $+ $readini(eToken-levels.ini,level,$3) $+ Experience: $+ 0/ $+ $readini(eToken-levels.ini,level,$3) $+ } if ($readini(eToken-levels.ini,exp,$3) != $null) { notice $nick $3 $+ 's current Level: $+ $readini(eToken-levels.ini,level,$3) $+ Experience: $+ $readini(eToken-levels.ini,exp,$3) $+ / $+ $readini(eToken-levels.ini,level,$3) $+ } } } on *:signal:attacklevelcheck: { } #etok end |
just add this to the end of the script lol
mIRC Snippet:
Ciber's eToken Script
Posted on Sep 22, 2007 10:38 pm
Posted on Sep 22, 2007 10:38 pm
| Code: |
| writeini -n etoken.ini eTokens $nick $calc( $readini(eToken.ini,eTokens,$nick) + 7 ) writeini -n etoken.ini eTokens $ |
why does it end like this lol,
i have the good version of etoken posted here as a snippet, just view my snippets or search etokens
mIRC Snippet:
A bunch of pointless commands =]
Posted on Sep 22, 2007 7:25 pm
Posted on Sep 22, 2007 7:25 pm
why the hell did you even post this, do you really think anyone would use it?
mIRC Snippet:
Staccia's ChanTalk
Posted on Sep 22, 2007 7:24 pm
Posted on Sep 22, 2007 7:24 pm
pretty useless, like most everything you post especially the eToken script. my i posted the correct version for you btw.
mIRC Snippet:
A bunch of pointless commands =]
Posted on Sep 22, 2007 7:21 pm
Posted on Sep 22, 2007 7:21 pm
read the rules staccia, you have to make sure it works all the way, your good a scripting, why dont you just fix it?
mIRC Snippet:
Pop v1
Posted on Sep 22, 2007 7:19 pm
Posted on Sep 22, 2007 7:19 pm
you should look at teh rules staccia, your not supposed to make a second code post like v2 and so fourth, your just supposed to update your current one.
mIRC Snippet:
Ciber's eToken Script
Posted on Sep 22, 2007 7:15 pm
Posted on Sep 22, 2007 7:15 pm
the code is incomplete, staccia, why must you post useless things?
Profile:
Staccia
Posted on Sep 20, 2007 9:16 pm
Posted on Sep 20, 2007 9:16 pm
shes mean tbh. i know her from swiftirc lol she looks a bit old also lol x.x
mIRC Snippet:
Staccia's ChanTalk
Posted on Aug 24, 2007 1:23 am
Posted on Aug 24, 2007 1:23 am
I use that :P
But i think you have updated it since you sent it to me on msn
But i think you have updated it since you sent it to me on msn
mIRC Snippet:
Staccia's ChanTalk
Posted on Aug 20, 2007 12:09 pm
Posted on Aug 20, 2007 12:09 pm
pretty cool dialog script
mIRC Snippet:
Staccia's ChanTalk
Posted on Aug 20, 2007 9:33 am
Posted on Aug 20, 2007 9:33 am
Try using a edit box instead of a list for the channel talk. It makes it so when you reach the end of the list, it tracks the last words said, unlike here where you either have to scroll down after every line just to see it or hit clear chat and lose everything thats been said.
mIRC Snippet:
Staccia's ChanTalk
Posted on Aug 19, 2007 11:01 am
Posted on Aug 19, 2007 11:01 am
Some of the $dialog and I think some of the on dialog events have the dialog name as 'etoken' which needs to be changed to 'ChanTalk'.
Also, I changed the on part event to
And I wrote the status change update events:
Also, I changed the on part event to
| Code: |
| on *:part:%chan: { did -az ChanTalk 41 $time(hh:nn:ss) - $+ $nick $+ - has left %chan $+ . timer -m 1 1 /listnicklist } |
| Code: |
| on *:OP:%chan: { if (( $dialog(chantalk) )) { listnicklist } } on *:DEOP:%chan: { if (( $dialog(chantalk) )) { listnicklist } } on *:HELP:%chan: { if (( $dialog(chantalk) )) { listnicklist } } on *:DEHELP:%chan: { if (( $dialog(chantalk) )) { listnicklist } } on *:VOICE:%chan: { if (( $dialog(chantalk) )) { listnicklist } } on *:DEVOICE:%chan: { if (( $dialog(chantalk) )) { listnicklist } } |
mIRC Snippet:
Staccia's ChanTalk
Posted on Aug 19, 2007 10:17 am
Posted on Aug 19, 2007 10:17 am
I deleted the original 'listnicklist' alias, and changed the 'listnicks' alias' name to 'listnicklist' and both occurrences of listnicks in the script to 'listnicklist' , and changed the new 'listnicklist' alias to
I then changed the on dialog sclick 45 event to:
That gets rid of the timers and updates the nick list instantly. There will need to be an event to update the status when someone changes a nick's status in a channel.
| Code: |
| alias listnicklist { var %i = 1 did -r ChanTalk 44 :next set %nick $nick(%chan,%i) if %nick == $null goto done if %nick isop %chan did -az ChanTalk 44 @ $+ %nick if %nick ishelp %chan did -az ChanTalk 44 % $+ %nick if %nick isvoice %chan did -az ChanTalk 44 + $+ %nick if %nick isreg %chan did -az ChanTalk 44 %nick inc %i goto next :done } |
| Code: |
| on *:DIALOG:ChanTalk:sclick:45: { if ($did($dname,46)) { did -r ChanTalk 41 | did -r ChanTalk 44 | set %chan $did($dname,46) | did -a ChanTalk 41 ----NOW TALKING IN $did($dname,46) $+ ---- | listnicklist | did -r chantalk 46 } } |
mIRC Snippet:
Staccia's ChanTalk
Posted on Aug 19, 2007 9:32 am
Posted on Aug 19, 2007 9:32 am
I see now that there is the on join event i was talking about, but I don't see the point of the timer.
mIRC Snippet:
Staccia's ChanTalk
Posted on Aug 19, 2007 9:24 am
Posted on Aug 19, 2007 9:24 am
I may be mistaken, but is it using a 10 second timer to update the nicklist? If so, I would make it so that it updates the nick list whenever someone joins a channel the person is in.(Problems with timers: You constantly get the timers message, the timers don't halt when you close the dialog, so the "did -r ChanTalk 44" command runs, but the dialog is closed so it returns an error message. Also I wouldn't have the "I'm using Staccia's ChanTalk!" message in the channel every time.
mIRC Snippet:
Staccia's ChanTalk
Posted on Aug 19, 2007 8:55 am
Posted on Aug 19, 2007 8:55 am
what is it for?, nice job btw
mIRC Snippet:
Staccia's ChanTalk
Posted on Aug 17, 2007 8:24 pm
Posted on Aug 17, 2007 8:24 pm
This is a really neat idea, great job on the scripting and the originality.






