[6.31] Leet Game

[iChunk]

Important:

I made this a LONG time ago when I used to do mSL, which I don't anymore, so it might not work, but it used to ;]

Quoted from: http://forum.swiftirc.net/viewtopic.php?f=34&t=16711

 

alias score {  if ($prop == lvl) { writeini leet.ini level $address($nick,2) $1 }  if ($prop == pnt) { writeini leet.ini points $address($nick,2) $1 }  if ($prop == exp) { writeini leet.ini exp $address($nick,2) $1 }  if ($prop == wait) { writeini leet.ini wait $address($nick,2) $1 }}alias logo return $+($chr(3),10**,$chr(32),$chr(40),$chr(3),06,$1-,$chr(3),10,$chr(41),:)on *:TEXT:!rules*:#YOURCHAN:{  .notice $nick $logo(Rules) Check your PM.  .msg $nick $logo(Rules) Thanks for using this game. Here are some rules you need to know.  .msg $nick $logo(1) You 06ARE10 aloud to use timers.  .msg $nick $logo(2) Any flaming/spamming or anything of it's kind, you will be banned from the channel, and the game.  .msg $nick $logo(3) Have 06Fun!  if (!$readini(leet.ini,level,$address($nick,2))) { .msg $nick $logo(Leet) To get started, type 06Let's Go!10, Exactly the way it's spelt there, in PM. }  .msg $nick $logo(Extra Info) Level 061010:06 Voice 10- Level 062010:06 Halfop 10- Level 063010:06 Temp Op 10- Level 064010:06 Op 10- Level 065010:06 Aop}on *:TEXT:*Let's Go*:*:{  if (!$readini(leet.ini,level,$address($nick,2))) {	.msg $nick $logo(Leet) Let's Go! Your ready to play, to start.. type06 !leet10 in06 #YOURCHAN $+ 10.	noop $score(1).lvl | noop $score(1).pnt | noop $score(1).exp	close -m $nick  }}on *:TEXT:!leet:#YOURCHAN:{  if (!$readini(leet.ini,level,$address($nick,2))) {	.notice $nick $logo(Leet) You cannot yet play. First type06 !rules10 to start playing. | halt  }  if ($readini(leet.ini,wait,$address($nick,2))) { .notice $nick $logo(Leet) Please wait the full06 $duration($readini(leet.ini,wait,$address($nick,2))) 10before having another go. | halt }  var %rand $r(1,$floor($calc(($readini(leet.ini,level,$address($nick,2)) *21.6673) /2)))  noop $score($calc($calc(%rand *1.5) + $readini(leet.ini,exp,$address($nick,2)))).exp  .notice $nick $logo(Leet) You are06 %rand $+ $chr(37) $+ 10 leet. That gives you06 $calc(%rand *1.5) $+ xp10, towards your goal of06 $floor($calc($readini(leet.ini,level,$address($nick,2)) *21.6673)) $+ xp10. You now have06 $readini(leet.ini,exp,$address($nick,2)) $+ xp10.  if ($readini(leet.ini,exp,$address($nick,2)) >= $floor($calc($readini(leet.ini,level,$address($nick,2)) *21.6673))) {	noop $score($calc($readini(leet.ini,level,$address($nick,2)) +1)).lvl	msg $chan $logo(Leet) 06 $+ $nick 10has gone up to level06 $readini(leet.ini,level,$address($nick,2)) $+ 10. They now need06 $floor($calc($readini(leet.ini,level,$address($nick,2)) *21.6673)) 10exp til their next level.	remini leet.ini exp $address($nick,2)	noop $score($calc((%rand /1.6) + $readini(leet.ini,points,$address($nick,2)))).pnt  }  if ($readini(leet.ini,level,$address($nick,2)) == 99) && (!$readini(leet.ini,99,$address($nick,2))) { msg $chan $logo(Leet) Now that06 $nick 10has made it to level06 9910, they are truly leet, and they get06 999810 access and a06 1337 skillcape10! | cs access # add $nick 9998 | writeini leet.ini 99 $address($nick,2) On }  if ($readini(leet.ini,level,$address($nick,2)) == 10) && (!$readini(leet.ini,voice,$address($nick,2))) { msg $chan $logo(Leet) Now that06 $nick 10has made it to level06 1010, they get voice. | mode # +v $nick | cs access # add $nick 3 | writeini leet.ini voice $address($nick,2) On }  if ($readini(leet.ini,level,$address($nick,2)) == 20) && (!$readini(leet.ini,half,$address($nick,2))) { msg $chan $logo(Leet) Now that06 $nick 10has made it to level06 2010, they get halfop. | mode # +h $nick | cs access # add $nick 4 | writeini leet.ini half $address($nick,2) On }  if ($readini(leet.ini,level,$address($nick,2)) == 30) && (!$readini(leet.ini,tempop,$address($nick,2))) { msg $chan $logo(Leet) Now that06 $nick 10has made it to level06 3010, they get temp op. (061hour10) | mode # +o $nick | .timertemp. [ $+ [ $address($nick,2) ] ] 1 3600 mode # -o $nick | writeini leet.ini tempop $address($nick,2) On }  if ($readini(leet.ini,level,$address($nick,2)) == 40) && (!$readini(leet.ini,op,$address($nick,2))) { msg $chan $logo(Leet) Now that06 $nick 10has made it to level06 4010, they get op. | mode # +o $nick | cs access # add $nick 9 | writeini leet.ini op $address($nick,2) On | .timertemp. [ $+ [ $address($nick,2) ] ] off }  if ($readini(leet.ini,level,$address($nick,2)) == 50) && (!$readini(leet.ini,aop,$address($nick,2))) { msg $chan $logo(Leet) Now that06 $nick 10has made it to level06 5010, they get aop. | mode # +ao $nick $nick | cs access # add $nick 1337 | writeini leet.ini aop $address($nick,2) On }  noop $score($calc($readini(leet.ini,level,$address($nick,2)) *1.90)).wait  .timer 1 $readini(leet.ini,wait,$address($nick,2)) remini leet.ini wait $address($nick,2)}on $*:TEXT:/^[!@](Leet)?Info */Si:#YOURCHAN:{  var %info $iif($2,$2,$nick)  var %out $iif(@* iswm $1,msg $chan,.notice $nick)  if ($2) && ($2 !ison $chan) { %out $logo(LeetInfo) 06 $+ $2 10isn't on the channel. | halt }  %out $logo(LeetInfo) Info for:06 %info |10 Level:06 $iif($readini(leet.ini,level,$address(%info,2)),$v1,0) |10 Points:06 $iif($readini(leet.ini,points,$address(%info,2)),$v1,0) |10 Access:06 $iif($readini(leet.ini,level,$address(%info,2)) > 50,1337,$iif($readini(leet.ini,level,$address(%info,2)) isnum 10-19,Voice,$iif($readini(leet.ini,level,$address(%info,2)) isnum 20-39,Halfop,$iif($readini(leet.ini,level,$address(%info,2)) isnum 40-50,Op,$iif($readini(leet.ini,level,$address(%info,2)) isnum 30-40,Temp Op,None))))) |10 Exp til lvl06 $calc($readini(leet.ini,level,$address(%info,2)) +1) $+ 10:06 $calc($floor($calc($readini(leet.ini,level,$address(%info,2)) *21.6673)) - $readini(leet.ini,exp,$address(%info,2)))}on *:TEXT:!buy level:#YOURCHAN:{  if ($readini(leet.ini,points,$address($nick,2)) >= 400) {	noop $score($calc($readini(leet.ini,level,$address($nick,2)) +1)).lvl	msg $chan $logo(Buy) 06 $+ $nick 10has gone up to level06 $readini(leet.ini,level,$address($nick,2)) $+ 10. That cost them06 40010 points. They now need06 $floor($calc($readini(leet.ini,level,$address($nick,2)) *21.6673)) 10exp til their next level.	noop $score($calc($readini(leet.ini,points,$address($nick,2)) -400)).pnt  }  else { .notice $nick $logo(Buy) You need06 40010 points to do that! | halt }  if ($readini(leet.ini,level,$address($nick,2)) == 99) && (!$readini(leet.ini,99,$address($nick,2))) { msg $chan $logo(Leet) Now that06 $nick 10has made it to level06 9910, they are truly leet, and they get06 999810 access and a06 1337 skillcape10! | cs access # add $nick 9998 | writeini leet.ini 99 $address($nick,2) On }  if ($readini(leet.ini,level,$address($nick,2)) == 10) && (!$readini(leet.ini,voice,$address($nick,2))) { msg $chan $logo(Leet) Now that06 $nick 10has made it to level06 1010, they get voice. | mode # +v $nick | cs access # add $nick 3 | writeini leet.ini voice $address($nick,2) On }  if ($readini(leet.ini,level,$address($nick,2)) == 20) && (!$readini(leet.ini,half,$address($nick,2))) { msg $chan $logo(Leet) Now that06 $nick 10has made it to level06 2010, they get halfop. | mode # +h $nick | cs access # add $nick 4 | writeini leet.ini half $address($nick,2) On }  if ($readini(leet.ini,level,$address($nick,2)) == 30) && (!$readini(leet.ini,tempop,$address($nick,2))) { msg $chan $logo(Leet) Now that06 $nick 10has made it to level06 3010, they get temp op. (061hour10) | mode # +o $nick | .timertemp. [ $+ [ $address($nick,2) ] ] 1 3600 mode # -o $nick | writeini leet.ini tempop $address($nick,2) On }  if ($readini(leet.ini,level,$address($nick,2)) == 40) && (!$readini(leet.ini,op,$address($nick,2))) { msg $chan $logo(Leet) Now that06 $nick 10has made it to level06 4010, they get op. | mode # +o $nick | cs access # add $nick 9 | writeini leet.ini op $address($nick,2) On | .timertemp. [ $+ [ $address($nick,2) ] ] off }  if ($readini(leet.ini,level,$address($nick,2)) == 50) && (!$readini(leet.ini,aop,$address($nick,2))) { msg $chan $logo(Leet) Now that06 $nick 10has made it to level06 5010, they get aop. | mode # +ao $nick $nick | cs access # add $nick 1337 | writeini leet.ini aop $address($nick,2) On }}on *:CONNECT:{  ns id ruleet  cs id #YOURCHAN ruleet  remini leet.ini wait}on *:JOIN:#YOURCHAN:{  if ($readini(leet.ini,level,$address($nick,2))) {	msg $chan $logo(Join) 06 $+ $nick 10has joined. 06|10 Level:06 $iif($readini(leet.ini,level,$address($nick,2)),$v1,0) |10 Points:06 $iif($readini(leet.ini,points,$address($nick,2)),$v1,0) |10 Access:06 $iif($readini(leet.ini,level,$address($nick,2)) > 50,1337,$iif($readini(leet.ini,level,$address($nick,2)) isnum 10-19,Voice,$iif($readini(leet.ini,level,$address($nick,2)) isnum 20-39,Halfop,$iif($readini(leet.ini,level,$address($nick,2)) isnum 40-50,Op,$iif($readini(leet.ini,level,$address($nick,2)) isnum 30-40,Temp Op,None))))) |10 Exp til lvl06 $calc($readini(leet.ini,level,$address($nick,2)) +1) $+ 10:06 $calc($floor($calc($readini(leet.ini,level,$address($nick,2)) *21.6673)) - $readini(leet.ini,exp,$address($nick,2)))  }}

 

 

And that's it, but, remember to replace #YOURCHAN with the channel you are going to use it in.

[Anthoni]

oooo, i have to download mirc for this?

[iChunk]

Uhuh.

[Jay]

Lol I remember this. Basically you just said !Leet repeatedly to get levels?

 

Just curious, why do you use an identifier alias to perform commands, which requires you to use /noop? Shouldn't you just use /score?

[Ceejay]

Jay are we guna add this?

[iChunk]

Lol I remember this. Basically you just said !Leet repeatedly to get levels?

 

Just curious, why do you use an identifier alias to perform commands, which requires you to use /noop? Shouldn't you just use /score?

 

I don't know it was quite long ago, but other people have commented on that before.

I think it was purely coding preference, at the time.

I wouldn't do that now :L

[Jay]

Jay are we guna add this?

 

Nope.

 

I don't know it was quite long ago, but other people have commented on that before.

I think it was purely coding preference, at the time.

I wouldn't do that now :L

 

It's not a big deal it just seemed unusual to me:P

[dotfire]

lol i remember this game

[`JvYv]

Nicee Mannnnnnnng