Fonction $replace (ecriture lamer)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 740 fois - Téléchargée 25 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

juki_webmaster
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.
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
}
}
winwarrior
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 }
}
NitriX
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).
zuckyz
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 !

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.