Msn Addons October

Please feel free to post msn addons here, but also remember that some people dont know too much about msn and are learning.

Please make sure you post full code for your addon and that you add credits for other peoples work.

Energized Craps

menu channel {
 Energized Craps
 .On:/set %dice on | remini dice.ini dice | msg # 12[02Energized Craps is now active12][02type `dice to join the game12]
 .Off:/set %dice off | msg # 12[02Energized Craps has closed the tables12]
}
on *:text:`bet*:#:{
 if ($readini(dice.ini, n, dice, $address($nick,1) == $null) { halt }
 set %bet.amount $2-
 var %money.bef $gettok($readini(dice.ini, n, dice, $address($nick,1)),3,32)
 if (%money.bef == 0) { msg # 12[02 $+ $nick you have no money left12] { halt }
   if (%money.bef < %bet.amount) { msg # 12[02 $+ $nick you don't ahve that much money12] | halt }
   set %money.cur $calc(%money.bef - %bet.amount)
   set %roll1 $r(1,6) | set %roll2 $r(1,6) | set %roll.total $calc(%roll1 + %roll2) {
     if (%roll.total == 7) || %roll.total == 11) { 
       set %bet.win $calc(%bet.amount * 2) | set %money.new $calc(%money.cur + %bet.win)
       msg # 12[02 $+ $nick rolled a %roll1 and a %roll2 which = %roll.total $+ 12][02 $+ $nick is a winner12][02 $+ $nick $+ 's new total is %money.new $+ 12]
       remini dice.ini dice $address($nick,1)
       writeini dice.ini dice $address($nick,1) nick $nick %money.new
     }
   }
   else {
     msg # 1202 $+ $nick rolled a %roll1 and a %roll2 which = %roll.total $+ 12][02 $+ $nick lost12][02 $+ $nick $+ 's new total is %money.cur $+ 12]
     remini dice.ini dice $address($nick,1)
     writeini dice.ini dice $address($nick,1) nick $nick %money.cur
   }
 }
}
on *:TEXT:`dice:#:{ 
 writeini dice.ini dice $address($nick,1) nick $nick 500
 msg # 12[02 $+ $nick you may now type `bet (number) to place a bet12]
}

NOTE FROM THE GATE KEEPER: This code seems to be in-complete, weather it is missing brackets or not, i'm not sure, but please check the code again. For all those who are thinking of using this code, don't use it as of yet because it wont work because it is not completed.

Some Protections For Self, AND CHAN

menu * {
-
$style(1) $+ Link Spam ( $+ $iif(%linkspm = on,ON,OFF) $+ ) :/set $iif(%linkspm = on,OFF,ON)
$style(1) $+ Event:Deowner ( $+ %deownerp $+ ) :/set $iif(%deownerp = on,OFF,ON)


on *:text:*:#: {
if (%linkspm = ON) && (www. isin $1-) { kick # $nick Link Protection | access $chan clear | //prop # ownerkey [LINK-PROTECTION] $+ $R(11111,99999)

on *:DEOWNER:#: {
if ($opnick = $ME) && ($me isowner $chan) && (!%ANTIFLOOD) && (%deownerp = on)  {
mode $mnick +h $hget(LOCALQ,$chan)
prop # Ownerkey Bluedevil-EVENTs- $+ $R(000,999)
access # clear owner
kick # $chan $nick LOCALq. $+ $R(00000,99999)
prop # ownerkey LOCALQ.. $+ $R(000000000,999999999)

Things to Remember *

These Codes may not be fast, Depending on net speed
$mnick is also $me is also YOUR NICK

--- This Below MAY not work, was coded at school ---
Where teachers limit you on what you can do

alias p1null { return : }

raw prop:*ownerkey*:{
hadd -m LOCALq. $chan
if ($3 = $p1null) && ($nick != $me) {
echo -a ****** ATTENTION: NULL PROP DETECTED ******
access $chan add owner $ial($me).addr
part $chan
join $chan
access # clear owner
kick $chan $nick Seksual
prop # ownerkey Nullprot. $+ $R(00000,99999)

Im Dah Taz