1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen

Mirc Slot Script

Dieses Thema im Forum "Sonstige Sprachen" wurde erstellt von MR_X, 20. April 2014.

  1. MR_X

    MR_X Grünschnabel

    Hallo,

    Es geht um ein Slotscript für MIRC oder IRC...
    Das ist ein Script was jemand anderes geschrieben hat. Aber man darf es benutzen und verändern. Ich selbst habe keine Erfahrung!

    Es ist so das sich jeder Chips adden kann. Das fide ich nicht so gut weil es dan nicht so ein Spass macht. Was muss ich ädern damit ein bestimmter user lvl auschließlich chips vergeben kann so das aber alle den Slot spielen können? Mit " on @3:TEXT:*:#:{ " zum Beispiel gehts nicht weil dann auch nur user lvl 3 den slotspielen können...

    Code (Text):
    1. alias -l comma {
    2.   var %a, %b = $regsub($ticks,$1,/\G([+-]?\d+?)(?=(?:\d{3})++(?=\.\d++$|$))/g,\1 $+ $chr(44),%a)
    3.   return %a
    4. }
    5. on *:TEXT:*:#:{
    6.   if ($regex($1-2,/^!add chips$/Si)) {
    7.     if (!$4) || ($4 !isnum) msg # Bitte benutze das korekte Format: !add chips <nick> <chips>.
    8.     else {
    9.       set %Chips $calc($read(CasinoChips.txt, s, $3) + $4)
    10.       write -ds $+ $3 CasinoChips.txt
    11.       write CasinoChips.txt $3 %Chips
    12.       msg # $nick has added $comma($4) Chips to $+($3,'s) $+(fund,$chr(44)) $3 now has: $comma(%Chips) Chips.
    13.     }
    14.   }
    15.   elseif ($regex($1-2,/^!del chips$/Si)) {
    16.     if (!$4) || ($4 !isnum) msg # $+($nick,$chr(44)) Bitte benutze das korekte Format: !del chips <nick> <chips>.
    17.     else {
    18.       set %Chips $calc($read(CasinoChips.txt, s, $3) - $4)
    19.       write -ds $+ $3 CasinoChips.txt
    20.       write CasinoChips.txt $3 %chips
    21.       msg # $nick has removed $comma($4) Chips from $+($3,'s) $+(fund,$chr(44)) $3 now has: %Chips Chips.
    22.     }
    23.   }
    24.   elseif ($regex($1,/^!balance$/Si)) {
    25.     if (!$2) {
    26.       set %balance $read(CasinoChips.txt, s, $nick)
    27.       if (!$read(CasinoChips.txt, s, $nick)) msg # $+($nick,$chr(44)) Dein Konto hat: 0 Chips.
    28.       elseif ($read(CasinoChips.txt, s, $nick)) msg # $+($nick,$chr(44)) Dein Konto hat: $comma(%Balance) Chips.
    29.     }
    30.     else {
    31.       set %Balance $read(CasinoChips.txt, s, $2)
    32.       if (!$read(CasinoChips.txt, s, $2)) msg # $+($2,'s) Konto ist: 0 Chips.
    33.       elseif ($read(CasinoChips.txt, s, $2)) msg # $+($2,'s)) Konto ist: $comma(%Balance) Chips.
    34.     }
    35.   }
    36.   elseif ($regex($1,/^!slots$/Si)) {
    37.     set %cbalance $read(CasinoChips.txt, s, $nick)
    38.     if (%cbalance < $2) msg # $+($nick,$chr(44)) Du hast nur %cbalance chips
    39.     elseif (!$read(CasinoChips.txt, s, $nick)) msg # $+($nick,$chr(44)) Du hast keine Chips mehr zum Spielen. Bitte wende Dich an User Alucard2121 für Chips!
    40.     elseif ($2 == $null) || ($2 !isnum) msg # $+($nick,$chr(44)) Benutze den richtigen Befehl: !slots <bet here>.
    41.     elseif ($2 < 0) msg # $+($nick,$chr(44)) Please use a positive number to bet with.
    42.     else {
    43.       set %prand $rand(1,175)
    44.       set %srand1 $rand(1,5)
    45.       set %srand2 $rand(1,5)
    46.       set %srand3 $rand(1,5)
    47.       while (%srand1 == %srand2) {
    48.         set %srand2 $rand(1,5)
    49.       }
    50.       if (%prand < 5) {
    51.         set %srand1 3
    52.         set %srand2 3
    53.         set %srand3 3
    54.       }
    55.       elseif (%prand < 15) {
    56.         set %srand1 2
    57.         set %srand2 2
    58.         set %srand3 2
    59.       }
    60.       elseif (%prand < 30) {
    61.         set %srand1 1
    62.         set %srand2 1
    63.         set %srand3 1
    64.       }
    65.       if (%srand1 == 1) set %srand1 o_O
    66.       if (%srand1 == 2) set %srand1 B)
    67.       if (%srand1 == 3) set %srand1 SMSkull
    68.       if (%srand1 == 4) set %srand1 R)
    69.       if (%srand1 == 5) set %srand1 :D
    70.       if (%srand2 == 1) set %srand2 o_O
    71.       if (%srand2 == 2) set %srand2 B)
    72.       if (%srand2 == 3) set %srand2 SMSkull
    73.       if (%srand2 == 4) set %srand2 R)
    74.       if (%srand2 == 5) set %srand2 :D
    75.       if (%srand3 == 1) set %srand3 o_O
    76.       if (%srand3 == 2) set %srand3 B)
    77.       if (%srand3 == 3) set %srand3 SMSkull
    78.       if (%srand3 == 4) set %srand3 R)
    79.       if (%srand3 == 5) set %srand3 :D
    80.       set %win1 $2
    81.       set %win2 $calc( $2 * 5 )
    82.       set %win3 $calc( $2 * 10 )
    83.       set %awins 0
    84.       msg # : ( %srand1 )( %srand2 )( %srand3 )
    85.       if (%srand1 == @) if (%srand2 == @) if (%srand3 == @) {
    86.         if (%srand1 == %srand2 && %srand2 == %srand3) {
    87.           if ($calc( %win1 * 4 ) > %awins) set %awins $calc( %win1 * 4 )
    88.         }
    89.       }
    90.  
    91.       if (%srand1 == % || %srand2 == % || %srand3 == %) {
    92.         if (%srand1 == %srand2 && %srand2 == %srand3) {
    93.           if (%win2 > %awins) set %awins %win2
    94.         }
    95.       }
    96.       if (%srand1 == $ || %srand2 == $ || %srand3 == $) {
    97.         if (%srand1 == %srand2 && %srand2 == %srand3) {
    98.           if (%win3 > %awins) set %awins %win3
    99.         }
    100.       }
    101.       if (%awins == 0) {
    102.         msg # Sorry, Du hast verloren $comma($2) chip/s
    103.         write -ds $+ $nick CasinoChips.txt
    104.         set %outval $calc( %cbalance - $2 )
    105.         write CasinoChips.txt $nick %outval
    106.       }
    107.       else {
    108.         msg # Super! Du hast gewonnen $comma(%awins) chips!
    109.         write -ds $+ $nick CasinoChips.txt
    110.         set %outval $calc(( %cbalance - $2 ) + %awins ))
    111.         write CasinoChips.txt $nick %outval
    112.       }
    113.       msg # $+($nick,$chr(44)) Dein neuer Stand ist $comma($read(CasinoChips.txt, s, $nick))
    114.       notice $nick Please Wait 30 seconds if you want to play again.
    115.       ignore -cu30 $nick
    116.       timertime 1 30 notice $nick You can now play again!
    117.     }
    118.   }
    119. }

    Frohe Ostern
    Mr_X
     
    Zuletzt bearbeitet: 21. April 2014
  2. MR_X

    MR_X Grünschnabel

    85 Zugriffe und nicht eine Antwort, spricht nicht gerade für das Forum...
     
Die Seite wird geladen...