All pastes #809514 Raw Edit

Mine

public text v1 · immutable
·published 2007-12-08 23:19 UTC
rendered paste body
on *:TEXT:!leet:#: {  
  if ($chan == #thechat) { halt } 
  if (%dchan [ $+ [ $chan ] ] == on) { halt }
  if (%dnick [ $+ [ $nick ] ] == on) { halt }
  if (%ignore [ $+ [ $nick ] ] == ignore) {
    notice $nick please wait 20-40seconds before typein !leet again
  }
  else { 
    inc %try [ $+ [ $nick ] ]
    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 sorry you are dead!! unlucky. you xp is now 0 but you will keep your level.
      set %xp [ $+ [ $nick ] ] 0
    }
    else { 
      inc %xp [ $+ [ $nick ] ] %r 
      if (%level [ $+ [ $nick ] ] == $null) {
        notice $nick $chr(91) you got %r xp $chr(93) $chr(91) your total xp is: %xp [ $+ [ $nick ] ] $chr(93) $chr(91) your level is: 1 $chr(93) $chr(91) trys: %try [ $+ [ $nick ] ] $chr(93)
      }
      elseif (%level [ $+ [ $nick ] ] >= 1) {
        notice $nick $chr(91) you got %r xp $chr(93) $chr(91) your total xp is: %xp [ $+ [ $nick ] ] $chr(93) $chr(91) your level is: %level [ $+ [ $nick ] ] $chr(93) $chr(91) trys: %try [ $+ [ $nick ] ] $chr(93)
      }
      if (%xp [ $+ [ $nick ] ] >= 100 && %level [ $+ [ $nick ] ] == $null) {
        msg $chan 2,15 $nick 4,2has just made lvl10,0 2!!
        notice $nick gratz you now need to get 200 xp to get to level 3!!
        set %xp [ $+ [ $nick ] ] 0
        set %level [ $+ [ $nick ] ] 2
        writeini level.ini $nick has made 2 
      }
      elseif (%xp [ $+ [ $nick ] ] >= 200 && %level [ $+ [ $nick ] ] == 2) {
        msg $chan 2,15 $nick 4,2has just made lvl10,0 3!!
        notice $nick gratz you now need to get 350 xp to get to level 4!!
        set %xp [ $+ [ $nick ] ] 0
        set %level [ $+ [ $nick ] ] 3
        writeini level.ini $nick 3
      }
      elseif (%xp [ $+ [ $nick ] ] >= 350 && %level [ $+ [ $nick ] ] == 3) {
        msg $chan 2,15 $nick 4,2has just made lvl10,0 4!!
        notice $nick gratz you now need to get 550 xp to get to level 5!!
        set %xp [ $+ [ $nick ] ] 0
        set %level [ $+ [ $nick ] ] 4
        writeini level.ini $nick 4 
      } 
      elseif (%xp [ $+ [ $nick ] ] >= 550 && %level [ $+ [ $nick ] ] == 4) {
        msg $chan 2,15 $nick 4,2has just made lvl10,0 5!!
        notice $nick gratz you now need to get 800 xp to get to level 6!!
        set %xp [ $+ [ $nick ] ] 0
        set %level [ $+ [ $nick ] ] 5
        cs access $chan add $nick 4
        mode $chan +h $nick
        writeini level.ini $nick 5 
      }
      elseif (%xp [ $+ [ $nick ] ] >= 800 && %level [ $+ [ $nick ] ] == 5) {
        msg $chan 2,15 $nick 4,2has just made lvl10,0 6!!
        notice $nick gratz you now need to get 950 xp to get to level 7!!
        set %xp [ $+ [ $nick ] ] 0
        set %level [ $+ [ $nick ] ] 6
        writeini level.ini $nick 6 
      }
      elseif (%xp [ $+ [ $nick ] ] >= 950 && %level [ $+ [ $nick ] ] == 6) {
        msg $chan 2,15 $nick 4,2has just made lvl10,0 7!!
        notice $nick gratz you now need to get 1100 xp to get to level 8!!
        set %xp [ $+ [ $nick ] ] 0
        set %level [ $+ [ $nick ] ] 7
        writeini level.ini $nick 7 
      }
      elseif (%xp [ $+ [ $nick ] ] >= 1100 && %level [ $+ [ $nick ] ] == 7) {
        msg $chan 2,15 $nick 4,2has just made lvl10,0 8!!
        notice $nick gratz you now need to get 1350 xp to get to level 9!!
        set %xp [ $+ [ $nick ] ] 0
        set %level [ $+ [ $nick ] ] 8
        writeini level.ini $nick 8
      }
      elseif (%xp [ $+ [ $nick ] ] >= 1350 && %level [ $+ [ $nick ] ] == 8) {
        msg $chan 2,15 $nick 4,2has just made lvl10,0 9!!
        notice $nick gratz you now need to get 1500 xp to get to level 10!!
        set %xp [ $+ [ $nick ] ] 0
        set %level [ $+ [ $nick ] ] 9
        writeini level.ini $nick 9
      }
      elseif (%xp [ $+ [ $nick ] ] >= 1500 && %level [ $+ [ $nick ] ] == 9) {
        msg $chan 2,15 $nick 4,2has just made lvl10,0 10!!8,1 $nick has 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
        set %level [ $+ [ $nick ] ] 10
        cs access $chan add $nick 5
        mode $chan +o $nick
        writeini level.ini $nick 10
      }
    }
  }
}
on *:text:!helpluck:#: {
  if (%dchan [ $+ [ $chan ] ] == on) { halt }
  if (%dnick [ $+ [ $nick ] ] == on { halt }
  else {
    notice $nick please read your pm.
    msg $nick to play game you type !luck then you get notice the xp you got on that go and what you have altogether.
    msg $nick when you reach 100+ xp you will level and it will tell you the next amount of xp you need to get the next level.
    msg $nick when you get noticed sayin you are dead unlucky your xp will be set to 0 but you will keep your level and you keep playing.
    msg $nick when you get to level 5 you will get halfop. at level 10 you will get op and you will be put in the highscores
    msg $nick to see wat level you are on type !level nad it will give you your level and wat xp you are on. it will also say what amount of xp u need from 0 to the next level.
  }
}


on *:text:!addlvl*:#: {
  if ($nick == safc) {
    set %level [ $+ [ $2 ] ] $3
    notice $nick you have added $2 $+ 's level to $3
  }
}
on *:text:!addxp*:#: {
  if ($nick == safc) {
    set %xp [ $+ [ $2 ] ] $3
    notice $nick [ $+ [ $2 ] ] $3
  }
}
on *:text:!gratz*:#: {
  if (%dchan [ $+ [ $chan ] ] == on) { halt }
  if (%dnick [ $+ [ $nick ] ] == on { halt }
  else {
    msg $chan 4,1>1,4>5,11>11,1 gratz $2 on reaching level $3 4,1<1,4<5,11<
  }
}
on *:text:!rate*:#: {
  if (%dchan [ $+ [ $chan ] ] == on) { halt }
  if (%dnick [ $+ [ $nick ] ] == on { halt }
  else {
    writeini rates.ini $nick has rated the game $2 $+ .
    notice $nick thanks for the ratein.
  }
}
on $*:text:/^[.!@]level/Si:#: {
  if (%dchan [ $+ [ $chan ] ] == on) { halt }
  if (%dnick [ $+ [ $nick ] ] == on) { halt }
  else {
    set %display $iif($left($1,1) == @,msg $chan,notice $nick)
    if ($2 == $null) {
      %display $nick $+ 's level is %level [ $+ [ $nick ] ] and his xp is %xp [ $+ [ $nick ] ] $+ . he has had %try [ $+ [ $nick ] ] trys.
    }
    else {
      %display $2 $+ 's level is %level [ $+ [ $2 ] ] and his xp is %xp [ $+ [ $2 ] ] $+ . he has had %try [ $+ [ $2 ] ] trys.
    }
  }
}