Pour les admin !! Pas les joueur

Poring Nombre de messages : 2 Age : 29 Date d'inscription : 27/10/2006

Salut les admin ....
Alors voila m'ont idée c'est de faire un forum IG voila le script :

Citation :: prontera.gat,153,162,1 script Forum 722,{
mes "Messages :";
if($prtmesA1$!="") mes "(^FF0000" + $prtmesA1$ + "^000000) " + $prtmes1$;
if($prtmesA2$!="") mes "(^FF0000" + $prtmesA2$ + "^000000) " + $prtmes2$;
if($prtmesA3$!="") mes "(^FF0000" + $prtmesA3$ + "^000000) " + $prtmes3$;
if($prtmesA4$!="") mes "(^FF0000" + $prtmesA4$ + "^000000) " + $prtmes4$;
if($prtmesA5$!="") mes "(^FF0000" + $prtmesA5$ + "^000000) " + $prtmes5$;
next;
if ($prttotalmes<6>0) goto Lmenugm;
menu "Ecrire un nouveau message (^FF00005000^000000z)",Lnouvmess,"Ne rien faire",-;
Close;
Lmenugm:
menu "Ecrire un nouveau message (^FF00005000^000000z)",Lnouvmess,"Effacer un message",Lefface,"Ne rien faire",-;
Close;

Lefface:
mes "Quel message voulez vous effacer ?";
next;
menu "1. (^FF0000" + $prtmesA1$ + "^000000) " + $prtmes1$,Ldel1,"2. (^FF0000" + $prtmesA2$ + "^000000) " + $prtmes2$,Ldel2,"3. (^FF0000" + $prtmesA3$ + "^000000) " + $prtmes3$,Ldel3,"4. (^FF0000" + $prtmesA4$ + "^000000) " + $prtmes4$,Ldel4,"5. (^FF0000" + $prtmesA5$ + "^000000) " + $prtmes5$,Ldel5,"6. (^FF0000" + $prtmesA6$ + "^000000) " + $prtmes6$,Ldel6,"7. (^FF0000" + $prtmesA7$ + "^000000) " + $prtmes7$,Ldel7,"8. (^FF0000" + $prtmesA8$ + "^000000) " + $prtmes8$,Ldel8,"9. (^FF0000" + $prtmesA9$ + "^000000) " + $prtmes9$,Ldel9,"10. (^FF0000" + $prtmesA10$ + "^000000) " + $prtmes10$,Ldel10;

Ldel1:
mes "Etes vous sur de vouloir effacer le message suivant :";
mes "(^FF0000" + $prtmesA1$ + "^000000) " + $prtmes1$;
next;
menu "Oui",-,"Non",Lfin;
set $prtmesA1$,$prtmesA2$;
set $prtmesA2$,$prtmesA3$;
set $prtmesA3$,$prtmesA4$;
set $prtmesA4$,$prtmesA5$;
set $prtmesA5$,$prtmesA6$;
set $prtmesA6$,$prtmesA7$;
set $prtmesA7$,$prtmesA8$;
set $prtmesA8$,$prtmesA9$;
set $prtmesA9$,$prtmesA10$;
set $prtmesA10$,"";
set $prtmes1$,$prtmes2$;
set $prtmes2$,$prtmes3$;
set $prtmes3$,$prtmes4$;
set $prtmes4$,$prtmes5$;
set $prtmes5$,$prtmes6$;
set $prtmes6$,$prtmes7$;
set $prtmes7$,$prtmes8$;
set $prtmes8$,$prtmes9$;
set $prtmes9$,$prtmes10$;
set $prtmes10$,"";
goto Ldeletfin;

Ldel2:
mes "Etes vous sur de vouloir effacer le message suivant :";
mes "(^FF0000" + $prtmesA2$ + "^000000) " + $prtmes2$;
next;
menu "Oui",-,"Non",Lfin;
set $prtmesA2$,$prtmesA3$;
set $prtmesA3$,$prtmesA4$;
set $prtmesA4$,$prtmesA5$;
set $prtmesA5$,$prtmesA6$;
set $prtmesA6$,$prtmesA7$;
set $prtmesA7$,$prtmesA8$;
set $prtmesA8$,$prtmesA9$;
set $prtmesA9$,$prtmesA10$;
set $prtmesA10$,"";
set $prtmes2$,$prtmes3$;
set $prtmes3$,$prtmes4$;
set $prtmes4$,$prtmes5$;
set $prtmes5$,$prtmes6$;
set $prtmes6$,$prtmes7$;
set $prtmes7$,$prtmes8$;
set $prtmes8$,$prtmes9$;
set $prtmes9$,$prtmes10$;
set $prtmes10$,"";
goto Ldeletfin;

Ldel3:
mes "Etes vous sur de vouloir effacer le message suivant :";
mes "(^FF0000" + $prtmesA3$ + "^000000) " + $prtmes3$;
next;
menu "Oui",-,"Non",Lfin;
set $prtmesA3$,$prtmesA4$;
set $prtmesA4$,$prtmesA5$;
set $prtmesA5$,$prtmesA6$;
set $prtmesA6$,$prtmesA7$;
set $prtmesA7$,$prtmesA8$;
set $prtmesA8$,$prtmesA9$;
set $prtmesA9$,$prtmesA10$;
set $prtmesA10$,"";
set $prtmes3$,$prtmes4$;
set $prtmes4$,$prtmes5$;
set $prtmes5$,$prtmes6$;
set $prtmes6$,$prtmes7$;
set $prtmes7$,$prtmes8$;
set $prtmes8$,$prtmes9$;
set $prtmes9$,$prtmes10$;
set $prtmes10$,"";
goto Ldeletfin;

Ldel4:
mes "Etes vous sur de vouloir effacer le message suivant :";
mes "(^FF0000" + $prtmesA4$ + "^000000) " + $prtmes4$;
next;
menu "Oui",-,"Non",Lfin;
set $prtmesA4$,$prtmesA5$;
set $prtmesA5$,$prtmesA6$;
set $prtmesA6$,$prtmesA7$;
set $prtmesA7$,$prtmesA8$;
set $prtmesA8$,$prtmesA9$;
set $prtmesA9$,$prtmesA10$;
set $prtmesA10$,"";
set $prtmes4$,$prtmes5$;
set $prtmes5$,$prtmes6$;
set $prtmes6$,$prtmes7$;
set $prtmes7$,$prtmes8$;
set $prtmes8$,$prtmes9$;
set $prtmes9$,$prtmes10$;
set $prtmes10$,"";
goto Ldeletfin;

Ldel5:
mes "Etes vous sur de vouloir effacer le message suivant :";
mes "(^FF0000" + $prtmesA5$ + "^000000) " + $prtmes5$;
next;
menu "Oui",-,"Non",Lfin;
set $prtmesA5$,$prtmesA6$;
set $prtmesA6$,$prtmesA7$;
set $prtmesA7$,$prtmesA8$;
set $prtmesA8$,$prtmesA9$;
set $prtmesA9$,$prtmesA10$;
set $prtmesA10$,"";
set $prtmes5$,$prtmes6$;
set $prtmes6$,$prtmes7$;
set $prtmes7$,$prtmes8$;
set $prtmes8$,$prtmes9$;
set $prtmes9$,$prtmes10$;
set $prtmes10$,"";
goto Ldeletfin;

Ldel6:
mes "Etes vous sur de vouloir effacer le message suivant :";
mes "(^FF0000" + $prtmesA6$ + "^000000) " + $prtmes6$;
next;
menu "Oui",-,"Non",Lfin;
set $prtmesA6$,$prtmesA7$;
set $prtmesA7$,$prtmesA8$;
set $prtmesA8$,$prtmesA9$;
set $prtmesA9$,$prtmesA10$;
set $prtmesA10$,"";
set $prtmes6$,$prtmes7$;
set $prtmes7$,$prtmes8$;
set $prtmes8$,$prtmes9$;
set $prtmes9$,$prtmes10$;
set $prtmes10$,"";
goto Ldeletfin;

Ldel7:
mes "Etes vous sur de vouloir effacer le message suivant :";
mes "(^FF0000" + $prtmesA7$ + "^000000) " + $prtmes7$;
next;
menu "Oui",-,"Non",Lfin;
set $prtmesA7$,$prtmesA8$;
set $prtmesA8$,$prtmesA9$;
set $prtmesA9$,$prtmesA10$;
set $prtmesA10$,"";
set $prtmes7$,$prtmes8$;
set $prtmes8$,$prtmes9$;
set $prtmes9$,$prtmes10$;
set $prtmes10$,"";
goto Ldeletfin;

Ldel8:
mes "Etes vous sur de vouloir effacer le message suivant :";
mes "(^FF0000" + $prtmesA8$ + "^000000) " + $prtmes8$;
next;
menu "Oui",-,"Non",Lfin;
set $prtmesA8$,$prtmesA9$;
set $prtmesA9$,$prtmesA10$;
set $prtmesA10$,"";
set $prtmes8$,$prtmes9$;
set $prtmes9$,$prtmes10$;
set $prtmes10$,"";
goto Ldeletfin;

Ldel9:
mes "Etes vous sur de vouloir effacer le message suivant :";
mes "(^FF0000" + $prtmesA9$ + "^000000) " + $prtmes9$;
next;
menu "Oui",-,"Non",Lfin;
set $prtmesA9$,$prtmesA10$;
set $prtmesA10$,"";
set $prtmes9$,$prtmes10$;
set $prtmes10$,"";
goto Ldeletfin;

Ldel10:
mes "Etes vous sur de vouloir effacer le message suivant :";
mes "(^FF0000" + $prtmesA10$ + "^000000) " + $prtmes10$;
next;
menu "Oui",-,"Non",Lfin;
set $prtmesA10$,"";
set $prtmes10$,"";
goto Ldeletfin;
Ldeletfin:
mes "Message effacé.";
set $prttotalmes,$prttotalmes - 1;
close;

Lnouvmess:
mes "Un message vous coutera ^FF00005000^000000z.";
if(zeny<5000) goto Lpasassez;
mes "Voulez vous continuer ?";
next;
menu "Oui",Loui,"Non",-;
Close;

Loui:
set zeny,zeny-5000;
mes "Veuillez taper votre message.";
next;
input @message$;

set $prtmesA10$,$prtmesA9$;
set $prtmesA9$,$prtmesA8$;
set $prtmesA8$,$prtmesA7$;
set $prtmesA7$,$prtmesA6$;
set $prtmesA6$,$prtmesA5$;
set $prtmesA5$,$prtmesA4$;
set $prtmesA4$,$prtmesA3$;
set $prtmesA3$,$prtmesA2$;
set $prtmesA2$,$prtmesA1$;
set $prtmesA1$,strcharinfo(0);

set $prtmes10$,$prtmes9$;
set $prtmes9$,$prtmes8$;
set $prtmes8$,$prtmes7$;
set $prtmes7$,$prtmes6$;
set $prtmes6$,$prtmes5$;
set $prtmes5$,$prtmes4$;
set $prtmes4$,$prtmes3$;
set $prtmes3$,$prtmes2$;
set $prtmes2$,$prtmes1$;
set $prtmes1$,@message$;

if($prttotalmes<9) set $prttotalmes,$prttotalmes + 1;

mes "Votre message à été écrit.";
Close;

Lpasassez:
mes "Mais vous n'avez pas assez d'argent ...";

Lfin:
Close;

}

merci, on va voir pour placer ca =)

Bah ca a été implanté donc bien joué pour avoir donné ça Very Happy

» Prontera City
» Pour remplacer la bank!
» Un Chateau pour ma guilde!!!
» bon pour teakwon et soulinker