Fonction $replace (ecriture lamer)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 845 fois - Téléchargée 26 fois

Contenu du snippet

Ce code vous permettre d'ecrire en lamer et vous apprend la fonction $replace (tres simple)

Source / Exemple :


;Section aliase
/lamer {
  set %btext %s1
  %btext = $replace( %btext ,a,å)
  %btext = $replace( %btext ,b,ß)
  %btext = $replace( %btext ,C,©)
  %btext = $replace( %btext ,d,Ð)
  %btext = $replace( %btext ,e,£)
  %btext = $replace( %btext ,f,f)
  %btext = $replace( %btext ,g,g)
  %btext = $replace( %btext ,h,H)
  %btext = $replace( %btext ,i,ï)
  %btext = $replace( %btext ,j,j)
  %btext = $replace( %btext ,k,K)
  %btext = $replace( %btext ,l,L)
  %btext = $replace( %btext ,m,M)
  %btext = $replace( %btext ,n,ñ)
  %btext = $replace( %btext ,o,ø)
  %btext = $replace( %btext ,p,þ)
  %btext = $replace( %btext ,q,Q)
  %btext = $replace( %btext ,r,®)
  %btext = $replace( %btext ,s,$)
  %btext = $replace( %btext ,t,T)
  %btext = $replace( %btext ,u,µ)
  %btext = $replace( %btext ,v,V)
  %btext = $replace( %btext ,w,W)
  %btext = $replace( %btext ,x,×)
  %btext = $replace( %btext ,y,¥)
  %btext = $replace( %btext ,z,z)
  %btext = $replace( %btext ,?,¿)
  %btext = $replace( %btext ,!,¡)
  %btext = $replace( %btext ,ks,%ks)
  say %btext
  unset %btext
}

;Remote
on *:INPUT:#:{
      If ($left($1,1) = !) { msg $chan $1- | halt }
      Else { set %s1 $1- | lamer | halt }
}

Conclusion :


Bonne programmation !

A voir également

Ajouter un commentaire Commentaires
Messages postés
947
Date d'inscription
mercredi 19 novembre 2003
Statut
Membre
Dernière intervention
5 avril 2008
3
A oué pas mal !
Sans trop enfenser Youl je prefere la version de WinWarrior.
Messages postés
654
Date d'inscription
jeudi 3 avril 2003
Statut
Membre
Dernière intervention
10 février 2009
1
J'allai oublier, por désactiver/activer le script:
menu channel {
Ecriture lamer
.$iif(!%elamer,Activer):set %elamer 1
.$iif(%elamer,Désactiver):unset %elamer
}
on *:INPUT:#:{
if ($left($1,1) = /) / $+ $1-
elseif (%elamer) {
msg # $replace($1-,a,å,b,ß,c,©,d,Ð,e,£,h,H,i,ï,k,K,l,L,m,M,n,ñ,o,ø,p,þ,q,Q,r,®,s,$,t,T,u,µ,v,V,w,W,x,×,y,¥,?,¿,!,¡)
halt
}
}
Messages postés
654
Date d'inscription
jeudi 3 avril 2003
Statut
Membre
Dernière intervention
10 février 2009
1
Version courte et améliorée:

on *:INPUT:#:{
if ($left($1,1) = /) / $+ $1-
else { msg # $replace($1-,a,å,b,ß,c,©,d,Ð,e,£,h,H,i,ï,k,K,l,L,m,M,n,ñ,o,ø,p,þ,q,Q,r,®,s,$,t,T,u,µ,v,V,w,W,x,×,y,¥,?,¿,!,¡) | halt }
}
Messages postés
21
Date d'inscription
mercredi 12 mars 2003
Statut
Membre
Dernière intervention
9 avril 2003

hum...c'est bien mais seulement tou foire quand j'ecrit avec des couleur (sa ecrit double).
Messages postés
3
Date d'inscription
lundi 4 novembre 2002
Statut
Membre
Dernière intervention
4 novembre 2002

Trop de variable pour rien bordel !
Afficher les 11 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.