Accueil > > > PHOTOS EN PV - DISCUT.NET
PHOTOS EN PV - DISCUT.NET
Information sur la source
Description
Un simple addon pour voir les photos en pv sur irc.discut.net (avec le client mIRC). - soit la photo s'affiche automatiquement lorsqu'une personne vient vous voir en pv - soit il faut taper /query pseudo pour que la photo s'affiche si c'est vous qui ouvrez un pv. Addon en socket... pas très dur a faire, donc pas détaillé. (je le poste surtout pour ceux qui vont sur ce serveur et dont ca intéresse). Merci a Sonarca d'avoir passé un peu de temps pour m'aider.
Source
- ;——————————————————————————————————
- ; Addon - Photos en pv - par uaip
- ;——————————————————————————————————
-
- on *:open:?:if ($network == DiscuT) dpv $nick
- alias query { query $$1 | if ($network == DiscuT) dpv $$1 }
- alias dpv {
- set %ppvpt $+(ville=&age_min=10&age_max=99&sex=-1&pays=xx&dpt=-1&situation=-1&type_rencontre=-1&orientation=-1&pseudo=,$$1)
- set %ppvpseudo $$1 | sockclose ppv | sockopen ppv www.discut.fr 80
- }
- alias -l dpvaff { if (%ppvpfid == $true) { background -p %ppvpseudo dphoto.jpg | unset %ppvp* | unset %temp } }
- alias -l swr sockwrite -n $sockname $1-
- on *:sockopen:ppv:{
- if ($sockerr) { echo 4 -a ** Erreur ouverture site IP | halt }
- swr POST /profile_search.php HTTP/1.1
- swr Host: discut.fr:80
- swr Content-Type: application/x-www-form-urlencoded
- swr Content-Length: $len(%ppvpt) $+ $crlf $+ $crlf
- swr %ppvpt
- }
- on *:sockread:ppv:{
- sockread %temp
- if ($+(Photo,$chr(32),de,$chr(32),$gettok(%ppvpt,11,61)) isin %temp) {
- set %ppvphoto $gettok(%temp,2,34)
- sockclose ppv | sockclose ppv2 | sockopen ppv2 www.discut.fr 80
- }
- }
- on *:sockopen:ppv2:{
- .remove dphoto.jpg
- set %ppvpfid $false
- swr GET / $+ %ppvphoto HTTP/1.1
- swr Host: discut.fr:80 $+ $crlf $+ $crlf
- }
- on *:sockread:ppv2:{
- if ($sockerr) { echo 4 -a ** Erreur ouverture site IP | halt }
- if (%ppvpfid == $false) { sockread %a | if (%a == $null) { set %ppvpfid $true } }
- else {
- sockread &a
- bwrite dphoto.jpg -1 -1 &a
- .timerdpv -m 1 500 dpvaff
- }
- }
;——————————————————————————————————
; Addon - Photos en pv - par uaip
;——————————————————————————————————
on *:open:?:if ($network == DiscuT) dpv $nick
alias query { query $$1 | if ($network == DiscuT) dpv $$1 }
alias dpv {
set %ppvpt $+(ville=&age_min=10&age_max=99&sex=-1&pays=xx&dpt=-1&situation=-1&type_rencontre=-1&orientation=-1&pseudo=,$$1)
set %ppvpseudo $$1 | sockclose ppv | sockopen ppv www.discut.fr 80
}
alias -l dpvaff { if (%ppvpfid == $true) { background -p %ppvpseudo dphoto.jpg | unset %ppvp* | unset %temp } }
alias -l swr sockwrite -n $sockname $1-
on *:sockopen:ppv:{
if ($sockerr) { echo 4 -a ** Erreur ouverture site IP | halt }
swr POST /profile_search.php HTTP/1.1
swr Host: discut.fr:80
swr Content-Type: application/x-www-form-urlencoded
swr Content-Length: $len(%ppvpt) $+ $crlf $+ $crlf
swr %ppvpt
}
on *:sockread:ppv:{
sockread %temp
if ($+(Photo,$chr(32),de,$chr(32),$gettok(%ppvpt,11,61)) isin %temp) {
set %ppvphoto $gettok(%temp,2,34)
sockclose ppv | sockclose ppv2 | sockopen ppv2 www.discut.fr 80
}
}
on *:sockopen:ppv2:{
.remove dphoto.jpg
set %ppvpfid $false
swr GET / $+ %ppvphoto HTTP/1.1
swr Host: discut.fr:80 $+ $crlf $+ $crlf
}
on *:sockread:ppv2:{
if ($sockerr) { echo 4 -a ** Erreur ouverture site IP | halt }
if (%ppvpfid == $false) { sockread %a | if (%a == $null) { set %ppvpfid $true } }
else {
sockread &a
bwrite dphoto.jpg -1 -1 &a
.timerdpv -m 1 500 dpvaff
}
}
Conclusion
On peut sans doute faire beaucoup mieux, j'attends donc vos commentaires.
(pas besoin de .zip pour une si petite source).
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
débutant....juste un script "répondeu" PV Chat [ par vincefriends ]
bonjour je sui débutant....je laisse le chat de wanadoo allumé toute la journée kan je travaille....je voudré juste avoir un message du genre"je sui p
Notice après fermeture d un PV [ par Chutney ]
voila je voudré ke kan je ferme ma fenetre de query sa envoie une notice o gars concerné een disant : My Query with you has been close; un truc du gen
font pour pv [ par Zzeubi ]
salut tout le monde :) en faite j'aimerai bien qu'il y est la meme font pour tout les pvs , si quelq'un peut me dire c'est vraiment sympa :)SchuSs tou
Comment mettre une image de fond ds les pv et le gen plz? jai tout dé sof sa ds mon script :) [ par roxorz ]
Comment mettre une image de fond ds les pv et le gen plz? jai tout dé sof sa ds mon script :) Vla LoL :)
commande en pv et /writeini [ par Zioa ]
BonjourTout dabort j'aimerait saoir quelle remote utiliser pour faire executer une commande alias lorsque l'on envoye un message en pv du style:/msg &
comandes en pv [ par Zioa ]
Bonjourquel est le remote pour envoyer des msg en pv qui face des action ex: /msg nick !voice <un_nick> que le remote le reconnaice et execute /
Script qui pv toutes les personnes d'un chan [ par trasher ]
Bonjour, je voudrais savoir si quelqu'un pourrais me faire un script ou si il en existe deja un qui permet de PV toutes les personne d'un chan et leur
Un bot avec plein de truc [ par yoshiyo ]
Tout a d'abord bonjour,Desoler pour le titre qui n'est pas tres explicatif mais je ne savais pas quoi mettre.Je vous explique exactment ce dont j'ai b
Copier en "live", un général dans un pv [ par lhemgui60 ]
BonjourJe ne m'y connais pas très bien en scripting, je connais un peu les trucs de bases (en fait mon truc c'est plutôt VB, mais une fois lancé en sc
PM quelqu'un une fois sur deux [ par trasher ]
Bonjour !Je voudrais savoir comment faire quand quelqu'un rentre sur un chan ba je pv un gars une fois sur deux !!!Ex :Je suis sur le chan #rollerJuli
|
Derniers Blogs
TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Arnault Nouvel et Antoine Dongois Le processus à prendre : Apprendre (découvrir la plateforme) Préparer (documenter l'historique et choisir la méthode de MAJ) Test (Test de MAJ) Implémenter (Effectuer la MAJ) Valid...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOURTECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOUR par ROMELARD Fabrice
Après un retour sur l'histoire des TechDays de Paris et le fait que ce soit le plus gros event MS au monde (du fait de sa gratuité), le président de MS France (Eric Boustoullier) a fait une présentation de la vision Microsoft pour les années à venir...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice CRéATION D'UNE BASE DE DONNéE SOUS SQL AZURECRéATION D'UNE BASE DE DONNéE SOUS SQL AZURE par junarnoalg
Sans rentrer dans les détails, je me propose ici de faire un rapide tour de ce que propose SQL Azure.
SQL Azure est avant tout un service d'hébergement de base de données relationnelles construit sur SQL Server. Il permet aux entreprises d...
Cliquez pour lire la suite de l'article par junarnoalg
Forum
RE : ON RAWMODERE : ON RAWMODE par WorldDMT
Cliquez pour lire la suite par WorldDMT AVERTISSMENT ET KIKKAVERTISSMENT ET KIKK par mouhcine951990
Cliquez pour lire la suite par mouhcine951990
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|