CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2009 01 09 11:18:45

ESSAYEZ WINDOWS 7 GRATUITEMENT DèS DEMAIN par fabien

LUCENE - IGNORER LES ACCENTS LORS DE L'INDEXATION ET LA RECHERCHE | IGNORE DIACRITICS par cyril

MESH OBJECTS BROWSER - MOB 1.0 SUR CODEPLEX par redo

MICROSOFT TAG par khamlon

[LINQTOSQL] REQUêTES ASYNCHRONES SIMULTANéES par NeuroCypher

RE : PROBLEME LOGICIEL PUTTY par PaDa

RE : PROBLEME LOGICIEL PUTTY par BLackHayate

PROBLEME LOGICIEL PUTTY par BLackHayate

RE : NOUVEAU SERVER IRC par Rooxx

RE : NOUVEAU SERVER IRC par PaDa

+ de logiciels à télécharger

1 330 693 membres
151 nouveaux aujourd'hui
14 644 membres club

Trouver une ressource

Trouvez une ressource parmi 39 263 codes, 1 223 349 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

FONCTION $REPLACE (ECRITURE LAMER)

Information sur la source

Catégorie :AddOns Niveau : Débutant Date de création : 10/04/2002 Date de mise à jour : 10/04/2002 03:19:14 Vu : 4 671

Auteur : youl46

Site perso

Ecrire un message privé

Note :

6,50 / 10

Commentaire sur cette source (11)

Ajouter un commentaire et/ou une note

Description

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

Source

;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 }
}

;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 !

Sources du même auteur

AIDE DE MIRC 6.0.1 EN FRANÇAIS

MOO.DLL

INTERDICTION DE PSEUDO EN DIALOG!

TOUCHE F1,F2,F3 ETC...

DETECTION DE LIEN

Toutes les sources de youl46

Sources de la même categorie

ONERADIOPLAYER par Bestdoud

WORLDDMT - STATISTIQUE V 1.0 par WorldDMT

WORLDDMT - INFOS DES CANAUX V 1.1 par WorldDMT

RACCOURCIS PERSONNELS par donkishock

EPGUIDES : SORTIES DES SÉRIES par RCA ArKanis

Toutes les sources de la catégorie AddOns

Commentaires et avis

Commentaire de softkey le 10/04/2002 04:12:53

Cool ca! Bonne source! :) Mais je ne comprend pas pourquoi tu set %sl et ensuite tu met set %btext %s1.. T'aurais pu tout simplet remplacer les %btext :P Ou encore à place de faire: (set %s1 $1- | lamer) juste faire lamer $1- Et de remplacer le btext par $1- Mais.. ca reste que c un bon code pareille! :) Ca vaut bien un 9 sur 10!

Commentaire de CrazyLink62 le 10/04/2002 14:27:15

Mouais, c'est pas trop mal

Simplement, je voudrais vous dire un petit truc, ce caractère 'ß' qu'on dit tjs que c'est un 'b' n'est autre qu'un ess-tzet (un SZ si vous préféré), un caractère allemand ... DONC ARRETER D'UTILISER LES CARACTERES ETRANGERS POUR LES UTILISER EN CARACTèRES INSINIFIANT !!!!

Commentaire de youl46 le 10/04/2002 16:25:58

pour le %s1 ct pour faire un test mé g oublié de l'enlevé lol

Commentaire de Yus le 03/06/2002 20:50:10

Et moi je voudrais dire un truc à "CrazyLink62" ce caractère 'ß' que tu dit n'être autre qu'un 'ess-tzet' (caractère allemand) c'est vrai t'as raison, MAIS c'est AVANT TOUT la lettre B grèque c'est à dire "BETA". Bref calme toi un peu :P

Commentaire de IsHnOuG le 05/06/2002 01:35:15

lol c enorme, c plus trop lisible mais c marrant :p

Commentaire de Sverdlovsky le 26/07/2002 23:25:18

Lol, c'est fun.Et dire que ça existe en Javascript cette fonction "replace", qui sert à échapper les caractères dans un FORM ou une URL (perl, php, cgi) contre les attaques de type scriptkiddies.

Commentaire de zuckyz le 04/11/2002 20:44:34

Trop de variable pour rien bordel !

Commentaire de NitriX le 02/04/2003 13:06:44

hum...c'est bien mais seulement tou foire quand j'ecrit avec des couleur (sa ecrit double).

Commentaire de winwarrior le 15/03/2004 22:37:41

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 }
}

Commentaire de winwarrior le 15/03/2004 22:44:03

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
}
}