on *:TEXT:!luck:#: {
if (%ignore [ $+ [ $nick ] ] == ignore) {
notice $nick please wait 20-40seconds before typein !luck again
}
else {
var %r $r(1,100)
set -u30 %ignore [ $+ [ $nick ] ] ignore
if (%r isnum 51-52 || %r isnum 80-83 || %r == 90 || %r == 10 || %r isnum 20-30) {
notice $nick you are dead unlucky
set %xp [ $+ [ $nick ] ] 0
}
else {
inc %xp [ $+ [ $nick ] ] %r
notice $nick %r You now have %xp [ $+ [ $nick ] ] xp
if (%xp [ $+ [ $nick ] ] >= 100 && $readini(level.ini,$nick,1)) {
msg $chan 12,4 $nick has just made lvl 2!!
notice $nick gratz you now need to get 200 xp to get to level 3!!
set %xp [ $+ [ $nick ] ] 0
writeini level.ini $nick 2
}
elseif (%xp [ $+ [ $nick ] ] >= 200 && $readini(level.ini,$nick,2)) {
msg $chan 12,4 $nick has just made lvl 3!!
notice $nick gratz you now need to get 350 xp to get to level 4!!
set %xp [ $+ [ $nick ] ] 0
writeini level.ini $nick 3
}
elseif (%xp [ $+ [ $nick ] ] >= 350 && $readini(level.ini,$nick,3)) {
msg $chan 12,4 $nick has just made lvl 4!!
notice $nick gratz you now need to get 550 xp to get to level 5!!
set %xp [ $+ [ $nick ] ] 0
writeini level.ini $nick 4
}
elseif (%xp [ $+ [ $nick ] ] >= 550 && $readini(level.ini,$nick,4)) {
msg $chan 12,4 $nick has just made lvl 5!!
notice $nick gratz you now need to get 800 xp to get to level 6!!
set %xp [ $+ [ $nick ] ] 0
cs access $chan add $nick 4
mode $chan +h $nick
writeini level.ini $nick 5
}
elseif (%xp [ $+ [ $nick ] ] >= 800 && $readini(level.ini,$nick,5)) {
msg $chan 12,4 $nick has just made lvl 6!!
notice $nick gratz you now need to get 950 xp to get to level 7!!
set %xp [ $+ [ $nick ] ] 0
writeini level.ini $nick 6
}
elseif (%xp [ $+ [ $nick ] ] >= 950 && $readini(level.ini,$nick,6)) {
msg $chan 12,4 $nick has just made lvl 7!!
notice $nick gratz you now need to get 1100 xp to get to level 8!!
set %xp [ $+ [ $nick ] ] 0
writeini level.ini $nick 7
}
elseif (%xp [ $+ [ $nick ] ] >= 1100 && $readini(level.ini,$nick,7)) {
msg $chan 12,4 $nick has just made lvl 8!!
notice $nick gratz you now need to get 1350 xp to get to level 9!!
set %xp [ $+ [ $nick ] ] 0
writeini level.ini $nick 8
}
elseif (%xp [ $+ [ $nick ] ] >= 1350 && $readini(level.ini,$nick,8)) {
msg $chan 12,4 $nick has just made lvl 9!!
notice $nick gratz you now need to get 1500 xp to get to level 10!!
set %xp [ $+ [ $nick ] ] 0
writeini level.ini $nick 9
}
elseif (%xp [ $+ [ $nick ] ] >= 1500 && $readini(level.ini,$nick,9)) {
msg $chan 12,4 $nick has just made lvl 10!! he/she has now completed the game!!!
notice $nick gratz you have completed the game!!!! you will be put on the highscores when my owner has seen u are lvl 10!!!!
set %xp [ $+ [ $nick ] ] 0
cs access $chan add $nick 5
mode $chan +o $nick
writeini level.ini $nick 10
}
}
}
}
on *:join:#The_luck_game: {
if ($readini(level.ini,$nick,1)) {
halt }
else {
writeini level.ini $nick 1
}
}
on *:TEXT:!luck:#: {
if (%dchan [ $+ [ $chan ] ] == on) { halt }
if (%dnick [ $+ [ $nick ] ] == on) { halt }
if (%ignore [ $+ [ $nick ] ] == ignore) {
notice $nick please wait 40-50 seconds before typein !luck again
}
else {
var %r $r(1,100)
set -u50 %ignore [ $+ [ $nick ] ] ignore
if (%r isnum 51-52 || %r isnum 80-83 || %r == 90 || %r == 10 || %r isnum 20-30) {
notice $nick you are dead unlucky
unset %xp [ $+ [ $nick ] ]
}
else {
inc %xp [ $+ [ $nick ] ] %r
notice $nick %r You now have %xp [ $+ [ $nick ] ] xp
if (%xp [ $+ [ $nick ] ] >= 100 && %level [ $+ [ $nick ] ] == $null) {
msg $chan 12,4 $nick has just made lvl 2!!
notice $nick gratz you now need to get 200 xp to get to level 3!!
unset %xp [ $+ [ $nick ] ]
set %level [ $+ [ $nick ] ] 2
writeini level2.ini $nick is level 2 $date $time
}
elseif (%xp [ $+ [ $nick ] ] >= 200 && %level [ $+ [ $nick ] ] == 2) {
msg $chan 12,4 $nick has just made lvl 3!!
notice $nick gratz you now need to get 350 xp to get to level 4!!
unset %xp [ $+ [ $nick ] ]
set %level [ $+ [ $nick ] ] 3
writeini level3.ini $nick is level 3 $date $time
}
elseif (%xp [ $+ [ $nick ] ] >= 350 && %level [ $+ [ $nick ] ] == 3) {
msg $chan 12,4 $nick has just made lvl 4!!
notice $nick gratz you now need to get 550 xp to get to level 5!!
unset %xp [ $+ [ $nick ] ]
set %level [ $+ [ $nick ] ] 4
writeini level4.ini $nick is level 4 $date $time
}
elseif (%xp [ $+ [ $nick ] ] >= 550 && %level [ $+ [ $nick ] ] == 4) {
msg $chan 12,4 $nick has just made lvl 5!!
notice $nick gratz you now need to get 800 xp to get to level 6!!
unset %xp [ $+ [ $nick ] ]
set %level [ $+ [ $nick ] ] 5
cs access $chan add $nick 4
mode $chan +h $nick
writeini level5.ini $nick is level 5 $date $time
}
elseif (%xp [ $+ [ $nick ] ] >= 800 && %level [ $+ [ $nick ] ] == 5) {
msg $chan 12,4 $nick has just made lvl 6!!
notice $nick gratz you now need to get 950 xp to get to level 7!!
unset %xp [ $+ [ $nick ] ]
set %level [ $+ [ $nick ] ] 6
writeini level6.ini $nick is level 6 $date $time
}
elseif (%xp [ $+ [ $nick ] ] >= 950 && %level [ $+ [ $nick ] ] == 6) {
msg $chan 12,4 $nick has just made lvl 7!!
notice $nick gratz you now need to get 1100 xp to get to level 8!!
unset %xp [ $+ [ $nick ] ]
set %level [ $+ [ $nick ] ] 7
writeini level7.ini $nick is level 7 $date $time
}
elseif (%xp [ $+ [ $nick ] ] >= 1100 && %level [ $+ [ $nick ] ] == 7) {
msg $chan 12,4 $nick has just made lvl 8!!
notice $nick gratz you now need to get 1350 xp to get to level 9!!
unset %xp [ $+ [ $nick ] ]
set %level [ $+ [ $nick ] ] 8
writeini level8.ini $nick is level 8 $date $time
}
elseif (%xp [ $+ [ $nick ] ] >= 1350 && %level [ $+ [ $nick ] ] == 8) {
msg $chan 12,4 $nick has just made lvl 9!!
notice $nick gratz you now need to get 1500 xp to get to level 10!!
unset %xp [ $+ [ $nick ] ]
set %level [ $+ [ $nick ] ] 9
writeini level9.ini $nick is level 9 $date $time
}
elseif (%xp [ $+ [ $nick ] ] >= 1500 && %level [ $+ [ $nick ] ] == 9) {
msg $chan 12,4 $nick has just made lvl 10!! he/she has now completed the game!!!
notice $nick gratz you have completed the game!!!! you will be put on the highscores when my owner has seen u are lvl 10!!!!
unset %xp [ $+ [ $nick ] ]
set %level [ $+ [ $nick ] ] 10
cs access $chan add $nick 5
mode $chan +o $nick
writeini level10.ini $nick is level 10 $date $time
}
}
}
}