sps in 1 channel spielbar?

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

      Nabend,

      Danke aba da ich in gtchat net gut bin und net richtig check ich denke du meinst das ganze in der .pm datei machen könntes du das mal eben machen

      Quellcode

      1. #####################################################
      2. # GTChat 0.95 Alpha Plugin - Schere, Stein, Papier #
      3. # Written for release whatever #
      4. # Author: SpiltCoffee #
      5. # Übersetzer: Çÿbë®Ðëmõñ #
      6. # #
      7. # Powered by GT-Chat.de #
      8. # #
      9. # This plugin provides the /rps command, a little #
      10. # game for you and your chat users to enjoy. #
      11. #####################################################
      13. package GTChat::Plugins::SPSCommand::095;
      14. use strict;
      16. return bless({
      17. command_handlers => {
      18. 'sps' => \&handler,
      19. },
      20. });
      22. sub check_gagged
      23. {
      24. my $main = shift;
      26. if (exists($main->{current_user}{gagtime}) && $main->{runtime}{now} < $main->{current_user}{gagtime})
      27. {
      28. return [$main->createErrorOutput('gagged',{seconds => $main->{current_user}{gagtime}-$main->{runtime}{now}})];
      29. }
      30. return undef;
      31. }
      33. sub check_allowed
      34. {
      35. my $main = shift;
      37. if (exists($main->{current_user}{sps}) && $main->{runtime}{now} < $main->{current_user}{sps})
      38. {
      39. return [$main->createErrorOutput('sps_notallowed',{seconds => $main->{current_user}{sps}-$main->{runtime}{now}})];
      40. }
      41. return undef;
      42. }
      44. sub handler
      45. {
      46. my($self,$main,$command,$text) = @_;
      48. my @ret=();
      50. my $waittime = 5; # Minuten, die man zwischen den Spielen warten muss
      51. my $points = 10; # Punkte pro gewonnene / verlorene Runde
      53. if (my $error=check_gagged($main))
      54. {
      55. return $error;
      56. }
      57. if (my $error=check_allowed($main))
      58. {
      59. return $error;
      60. }
      62. my $sum = sprintf '%.0f', rand(2)-1;
      64. $sum = int($sum);
      66. my ($hand,$number) = getHand($text);
      68. my $turnout = getTurnout($number,$sum);
      70. my $user = $main->{current_user};
      72. if ($hand)
      73. {
      75. $main->loadUser($user->{name},$user);
      77. if ($sum > 0)
      78. {
      79. $user->{points} += $points;
      80. my $output = $main->createInfoOutput('sps_win',
      81. {
      82. nick => $main->{current_user}{nick},
      83. hand => $hand,
      84. turnout => $turnout,
      85. points => $points,
      86. });
      87. $output->restrictToCurrentRoom();
      88. push @ret,$output;
      89. }
      90. elsif ($sum < 0)
      91. {
      92. $user->{points} -= $points;
      93. my $output = $main->createInfoOutput('sps_loss',
      94. {
      95. nick => $main->{current_user}{nick},
      96. hand => $hand,
      97. turnout => $turnout,
      98. points => $points,
      99. });
      100. $output->restrictToCurrentRoom();
      101. push @ret,$output;
      102. }
      103. elsif ($sum == 0)
      104. {
      105. my $output = $main->createInfoOutput('sps_draw',
      106. {
      107. nick => $main->{current_user}{nick},
      108. hand => $hand,
      109. turnout => $turnout,
      110. });
      111. $output->restrictToCurrentRoom();
      112. push @ret,$output;
      113. }
      114. $user->{sps} = $main->{runtime}{now}+(60*$waittime);
      115. $main->saveUser($user);
      116. }
      117. elsif (!$hand)
      118. {
      119. my $output = $main->createErrorOutput('sps');
      120. push @ret, $output->restrictToCurrentUser;
      122. }
      123. return \@ret;
      124. }
      126. sub getHand
      127. {
      128. my $text = shift;
      130. if ($text =~ /\bstein\b/i)
      131. {
      132. return ('stein',1);
      133. }
      134. elsif ($text =~ /\bschere\b/i)
      135. {
      136. return ('schere',2);
      137. }
      138. elsif ($text =~ /\bpapier\b/i)
      139. {
      140. return ('papier',3);
      141. }
      142. else
      143. {
      144. return (0,-5);
      145. }
      146. }
      148. sub getTurnout
      149. {
      150. my ($number,$sum) = @_;
      152. my @hands = ('papier','stein','schere','papier','stein');
      154. my $turnout = $number + $sum;
      156. return $hands[$turnout] if ($turnout >= 0);
      157. }

      So?

      sub check_allowed
      {
      my $main = shift;

      if (exists($main->{current_user}{sps}) && $main->{runtime}{now} < $main->{current_user}{sps}) {Current_room eq} 'S-S-Papier'
      {
      return [$main->createErrorOutput('sps_notallowed',{seconds => $main->{current_user}{sps}-$main->{runtime}{now}})];
      }
      return undef;
      }

      Lies bitte was ich geschrieben habe.

      Das waren "Hilfs-Schnippsel", die du brauchst, um das zu machen!

      Nein. Du brauchst eine eigene Abfrage.

      Aber willst du nicht erstmal die Grundsachen von Perl lernen? Du kannst ja, wie ich sehe, nicht mal einfachste if()s.

      Norris schrieb:

      Hm möchte jetzt hier nix lernen wollte das einfach haben ?? Kann mir da keiner helfen ?.
      Du willst einen Chat betreiben, aber willst nichts lernen? Erklär mir das bitte..

      Ich selber habe deine gewünschte Funktion bereits in meinem Chat integriert, läuft einwandfrei und es sind garantiert nur 2-3 sehr leichte Zeilen Code.

      Norris schrieb:

      Klasse ich peil es grad nicht und ich frage ja hier im forum um die lösung zu bekommen dafür ist dieses forum & dieses thema ja da ;).

      MfG.
      Ein Forum ist nicht dazu da, um dir alles vorzusagen.
      Ein bisschen Eigeniniziative musst du haben!

      Wie gesagt - ich habe dir im ersten Beitrag den Ansatz geschrieben - natürlich wird etwas Wissen vorrausgesetzt.

      Klasse, Kanns trozdem dadurch net und dann werde ich das auch wohl nicht von dir bekommen also ist gut ;p trozdem frage ich ander um die mir dabei evt. Helfen könnten tuht mir leid das ich net soo gut coden kann wie du aba ich will es einfach nur haben aba trozdem danke für deine hilfe.

      Norris, bitte gewöhne dir an mit punkt und komma zu schreiben.

      @Coder es ist wahr das des forum dafür da ist um hilfe zu geben,
      hat du ja auch getan... ich verstehe auch voll und ganz deine meinung.

      aber das man einen gtchat betreibt, setzt kein wissen in perl vorraus.
      Ich persönlich kann auch kein perl schmeiße mir aber trotzdem viele funktionen :)

      @Norris es gibt da ein paar addons, die sich auf einen einzigen raum beschränken, die könntest du dir zum beispiel anschauen :)

      Norris, Foren sind dazu da um dir die Lösungsvorschläge/wege zu zeigen...

      Warum schaust Du dir nicht andere Addons an, um zu sehen, wie die Funktionieren und DARAUS zu lernen?

      Lösung:

      PHP-Quellcode

      1. if($main->{current_user}{room} eq 'raumname(KLEINGESCHRIEBEN)')
      2. {
      3. ...code....
      4. }


      Wir sind kein Pizzaservice, wo es Codes auf Bestellung gibt...

      Guten Abend,

      Habe nun folgendes gemacht.

      Quellcode

      1. #####################################################
      2. # GTChat 0.95 Alpha Plugin - Schere, Stein, Papier #
      3. # Written for release whatever #
      4. # Author: SpiltCoffee #
      5. # Übersetzer: Çÿbë®Ðëmõñ #
      6. # #
      7. # Powered by GT-Chat.de #
      8. # #
      9. # This plugin provides the /rps command, a little #
      10. # game for you and your chat users to enjoy. #
      11. #####################################################
      13. package GTChat::Plugins::SPSCommand::095;
      14. use strict;
      16. return bless({
      17. command_handlers => {
      18. 'sps' => \&handler,
      19. },
      20. });
      22. sub check_gagged
      23. {
      24. my $main = shift;
      26. if (exists($main->{current_user}{gagtime}) && $main->{runtime}{now} < $main->{current_user}{gagtime})
      27. {
      28. return [$main->createErrorOutput('gagged',{seconds => $main->{current_user}{gagtime}-$main->{runtime}{now}})];
      29. }
      30. return undef;
      31. }
      33. sub check_allowed
      34. {
      35. my $main = shift;
      37. if (exists($main->{current_user}{sps}) && $main->{runtime}{now} < $main->{current_user}{sps})
      38. {
      39. return [$main->createErrorOutput('sps_notallowed',{seconds => $main->{current_user}{sps}-$main->{runtime}{now}})];
      40. }
      41. return undef;
      42. }
      44. sub handler
      45. {
      46. my($self,$main,$command,$text) = @_;
      47. my $settings = $main->loadRoom($main->{current_user}{room});
      48. if ($settings->{sps})
      50. my @ret=();
      52. my $waittime = 5; # Minuten, die man zwischen den Spielen warten muss
      53. my $points = 10; # Punkte pro gewonnene / verlorene Runde
      55. if (my $error=check_gagged($main))
      56. {
      57. return $error;
      58. }
      59. if (my $error=check_allowed($main))
      60. {
      61. return $error;
      62. }
      63. my $sum = sprintf '%.0f', rand(2)-1;
      65. $sum = int($sum);
      67. my ($hand,$number) = getHand($text);
      69. my $turnout = getTurnout($number,$sum);
      72. my $user = $main->{current_user};
      73. return [$main->createErrorOutput('cannotkiss')] if($main->{current_user}{mentor4564589978} < 499);
      74. if ($hand)
      75. {
      77. $main->loadUser($user->{name},$user);
      79. if ($sum > 0)
      80. {
      81. $user->{points} += $points;
      82. my $output = $main->createInfoOutput('sps_win',
      83. {
      84. nick => $main->{current_user}{nick},
      85. hand => $hand,
      86. turnout => $turnout,
      87. points => $points,
      88. });
      89. $output->restrictToCurrentRoom();
      90. push @ret,$output;
      91. }
      92. elsif ($sum < 0)
      93. {
      94. $user->{points} -= $points;
      95. my $output = $main->createInfoOutput('sps_loss',
      96. {
      97. nick => $main->{current_user}{nick},
      98. hand => $hand,
      99. turnout => $turnout,
      100. points => $points,
      101. });
      102. $output->restrictToCurrentRoom();
      103. push @ret,$output;
      104. }
      105. elsif ($sum == 0)
      106. {
      107. my $output = $main->createInfoOutput('sps_draw',
      108. {
      109. nick => $main->{current_user}{nick},
      110. hand => $hand,
      111. turnout => $turnout,
      112. });
      113. $output->restrictToCurrentRoom();
      114. push @ret,$output;
      115. }
      116. $main->saveUser($user);
      117. }
      118. elsif (!$hand)
      119. {
      120. my $output = $main->createErrorOutput('sps');
      121. push @ret, $output->restrictToCurrentUser;
      123. }
      124. return \@ret;
      125. }
      127. sub getHand
      128. {
      129. my $text = shift;
      131. if ($text =~ /\bstein\b/i)
      132. {
      133. return ('stein',1);
      134. }
      135. elsif ($text =~ /\bschere\b/i)
      136. {
      137. return ('schere',2);
      138. }
      139. elsif ($text =~ /\bpapier\b/i)
      140. {
      141. return ('papier',3);
      142. }
      143. else
      144. {
      145. return (0,-5);
      146. }
      147. }
      149. sub getTurnout
      150. {
      151. my ($number,$sum) = @_;
      153. my @hands = ('papier','stein','schere','papier','stein');
      155. my $turnout = $number + $sum;
      157. return $hands[$turnout] if ($turnout >= 0);
      158. }


      Nun geht es aba in jeden channel :p

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Norris“ ()

      ungetestet, es sollte aber Funktionieren!



      Quellcode

      1. #####################################################
      2. # GTChat 0.95 Alpha Plugin - Schere, Stein, Papier #
      3. # Written for release whatever #
      4. # Author: SpiltCoffee #
      5. # Übersetzer: Çÿbë®Ðëmõñ #
      6. # #
      7. # Powered by GT-Chat.de #
      8. # #
      9. # This plugin provides the /rps command, a little #
      10. # game for you and your chat users to enjoy. #
      11. #####################################################
      13. package GTChat::Plugins::SPSCommand::095;
      14. use strict;
      16. return bless({
      17. command_handlers => {
      18. 'sps' => \&handler,
      19. },
      20. });
      22. sub check_gagged
      23. {
      24. my $main = shift;
      26. if (exists($main->{current_user}{gagtime}) && $main->{runtime}{now} < $main->{current_user}{gagtime})
      27. {
      28. return [$main->createErrorOutput('gagged',{seconds => $main->{current_user}{gagtime}-$main->{runtime}{now}})];
      29. }
      30. return undef;
      31. }
      33. sub check_allowed
      34. {
      35. my $main = shift;
      37. if (exists($main->{current_user}{sps}) && $main->{runtime}{now} < $main->{current_user}{sps})
      38. {
      39. return [$main->createErrorOutput('sps_notallowed',{seconds => $main->{current_user}{sps}-$main->{runtime}{now}})];
      40. }
      41. return undef;
      42. }
      44. sub handler
      45. {
      46. my($self,$main,$command,$text) = @_;
      48. $main->fatal_error('a',{a => "Sie müssen sich im Channel _S-S-Papier_ befinden, um diesen Befehl auszuführen."}) if($main->{current_user}{room} ne 'S-S-Papier');
      50. my @ret=();
      52. my $waittime = 5; # Minuten, die man zwischen den Spielen warten muss
      53. my $points = 10; # Punkte pro gewonnene / verlorene Runde
      55. if (my $error=check_gagged($main))
      56. {
      57. return $error;
      58. }
      59. if (my $error=check_allowed($main))
      60. {
      61. return $error;
      62. }
      64. my $sum = sprintf '%.0f', rand(2)-1;
      66. $sum = int($sum);
      68. my ($hand,$number) = getHand($text);
      70. my $turnout = getTurnout($number,$sum);
      72. my $user = $main->{current_user};
      74. if ($hand)
      75. {
      77. $main->loadUser($user->{name},$user);
      79. if ($sum > 0)
      80. {
      81. $user->{points} += $points;
      82. my $output = $main->createInfoOutput('sps_win',
      83. {
      84. nick => $main->{current_user}{nick},
      85. hand => $hand,
      86. turnout => $turnout,
      87. points => $points,
      88. });
      89. $output->restrictToCurrentRoom();
      90. push @ret,$output;
      91. }
      92. elsif ($sum < 0)
      93. {
      94. $user->{points} -= $points;
      95. my $output = $main->createInfoOutput('sps_loss',
      96. {
      97. nick => $main->{current_user}{nick},
      98. hand => $hand,
      99. turnout => $turnout,
      100. points => $points,
      101. });
      102. $output->restrictToCurrentRoom();
      103. push @ret,$output;
      104. }
      105. elsif ($sum == 0)
      106. {
      107. my $output = $main->createInfoOutput('sps_draw',
      108. {
      109. nick => $main->{current_user}{nick},
      110. hand => $hand,
      111. turnout => $turnout,
      112. });
      113. $output->restrictToCurrentRoom();
      114. push @ret,$output;
      115. }
      116. $user->{sps} = $main->{runtime}{now}+(60*$waittime);
      117. $main->saveUser($user);
      118. }
      119. elsif (!$hand)
      120. {
      121. my $output = $main->createErrorOutput('sps');
      122. push @ret, $output->restrictToCurrentUser;
      124. }
      125. return \@ret;
      126. }
      128. sub getHand
      129. {
      130. my $text = shift;
      132. if ($text =~ /\bstein\b/i)
      133. {
      134. return ('stein',1);
      135. }
      136. elsif ($text =~ /\bschere\b/i)
      137. {
      138. return ('schere',2);
      139. }
      140. elsif ($text =~ /\bpapier\b/i)
      141. {
      142. return ('papier',3);
      143. }
      144. else
      145. {
      146. return (0,-5);
      147. }
      148. }
      150. sub getTurnout
      151. {
      152. my ($number,$sum) = @_;
      154. my @hands = ('papier','stein','schere','papier','stein');
      156. my $turnout = $number + $sum;
      158. return $hands[$turnout] if ($turnout >= 0);
      159. }



      Gruß, Lukas

      Norris schrieb:

      Hm möchte jetzt hier nix lernen wollte das einfach haben ?? Kann mir da keiner helfen ?.


      Im Grunde sollte man aus einen Support Forum schon was lernen, auch wenn es nicht viel ist am ende. ;) Und du als Freehoster solltest erst recht was lernen. ;)

      Coder schrieb:

      Lies bitte was ich geschrieben habe.

      Das waren "Hilfs-Schnippsel", die du brauchst, um das zu machen!
      Nein. Du brauchst eine eigene Abfrage.
      Aber willst du nicht erstmal die Grundsachen von Perl lernen? Du kannst ja, wie ich sehe, nicht mal einfachste if()s.


      Entwerde 100% hilfe geben oder gar keine.
      Nicht jeder kann hier Perl und wenn du es kannst, schreib die Lösungen doch gleich richtig hin. So lernt jemand eher was als von sinnlosen Schnippsel-Codes.