Wer hat Interresse an dem Foto Kommentar addon von mir?? is sogar mit dem /m system von burli001 verbunden :D
Geschenke
Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen
-
-
-
-
-
-
-
-
Das währe z.B die rose.pm
Quellcode
- ################################################################################# ## Rose.pm 0.95a40115 ## ## GTChat 0.95 Alpha Plugin ## Written for release 20040112 ## Author: Norman Rath ## E-Mail: Norman.Rath@o2online.de ## ## Send a rose to your friend ## #################################################################################
- package GTChat::Plugins::Rose;use strict;
- bless({ template_var_handlers => { 'rose' => \&handlerRoseProfil, 'rose_send' => \&handlerRoseSend, },});
- sub handlerRoseSend{ my($self,$main) = @_;
- my $user = $main->loadUser($main->{input}{username});
- my $existsuser;
- #foreach (split(/\|/,$user->{rose})) #{ #if($_ eq $main->{current_user}{name}) #{ #$existsuser = 1; #last; #} #}
- return [$main->{template_vars}{rose_send} = 3] if($existsuser);
- if(($main->{runtime}{now} - $main->{current_user}{lastsendrose}) < 10) { $main->{template_vars}{rose_send} = 1; return [$main->{template_vars}{rose_days} = sprintf "%.1f",((10 - ($main->{runtime}{now} - $main->{current_user}{lastsendrose})) / 86400)]; }
- ### START PointSystem.pm-Zugehörigkeit ### if($main->{current_user}{points} < 100) { $main->{template_vars}{rose_send} = 2; return [$main->{template_vars}{rose_points} = sprintf "%.1f",(100 - $main->{current_user}{points})]; }
- $main->{current_user}{points} -= 100; ### ENDE PointSystem.pm-Zugehörigkeit ###
- $main->{current_user}{lastsendrose} = $main->{runtime}{now}; $main->saveUser($main->{current_user});
- if($user->{rose}) { $user->{rose} = $user->{rose}."|".$main->{current_user}{name}; } else { $user->{rose} = $main->{current_user}{name}; }
- $main->saveUser($user);
- $main->{template_vars}{rose_send} = 0;}
- sub handlerRoseProfil{ my($self,$main) = @_;
- my $user = $main->loadUser($main->{input}{username});
- my @ret=();
- foreach (split(/\|/,$user->{rose})) { $user = $main->loadUser($_); push @ret, $user->{nick}; }
- $main->{template_vars}{rose} = \@ret;}
Keine mehr da.... -
-
-
ich hab wieder was neues wobei mir vill jemand helfen kann
Ich möchte in die geschenk_sent.html ein eingabefeld machen wo man eine persönliche nachricht hinterlassen kann
wie soll das funktionieren?
Ich habe das /m System von burli001 eingebaut und es wird eine /m an den benutzer geschickt das er ein geschenk bekommen hat.
nun möchte ich das man in der _sent.html ein eingabefeld hat wo man etwas schreiben kann
is das so richtig mit dem {GET|$user_information.geschenketext}
Danke schon malWer hat Interresse an dem Foto Kommentar addon von mir?? is sogar mit dem /m system von burli001 verbunden :D -
Diesen Code in die Plugins/VarHandlers/ProfileLoader.pm ziemlich am Ende, kurz vor templates_vars
Profilfeld:
ROSEN = Nicknamen ausgeben
ROSEanzahl = eben die Zahl.
-
Teilen
- Facebook 0
- Twitter 0
- Google Plus 0
- Reddit 0