Dabar yra 2019 Rgp 21 13:56




 Puslapis 11 [ 5 pranešimai(ų) ] 
Autorius Žinutė
 Pranešimo tema: Swear Filter
Žinutės numeris: #1  StandartinėParašytas: 2010 Rgs 10 13:01 
O taip. Jis jau surinko 50 žinučių!

Užsiregistravo: 2010 Rgs 04 11:59
Pranešimai: 50
Karma: 0
  1. /* AMX Mod script.
  2. *
  3. * (c) Copyright 2004, SuicideDog
  4. * This file is provided as is (no warranties).
  5. * Code gleemed from old RAV plugin.
  6. *
  7. * Simple Swear filter.  Replaces badwords with *'s
  8. *
  9. * Uses swearwords.ini file (/$customdir/swear/swearwords.ini)
  10. * It can use the same file as RS's advanced swear filter.
  11. *
  12. * I made this because it's easier to use. No config and one ini file
  13. *
  14. */
  15.  
  16. #include <amxmodx>
  17. #include <amxmisc>
  18.  
  19. // max number of words in word list
  20. #define MAX_WORDS 192
  21.  
  22. new g_swearsNames[MAX_WORDS][32]
  23. new g_swearsNum
  24.  
  25. public plugin_init()
  26. {
  27.     register_plugin("Swear Filter","1.0a","SuicideDog")
  28.     register_clcmd("say","swearcheck")
  29.     register_clcmd("say_team","swearcheck")
  30.     readList()
  31. }
  32.  
  33. readList()
  34. {
  35.     // file to read words from
  36.     new szCustomDir[64]
  37.     new filename[64]
  38.     get_customdir( szCustomDir, 63 )
  39.     format(filename, 63, "%s/swear/swearwords.ini", szCustomDir )
  40.  
  41.     if(!file_exists(filename) ){
  42.         log_message("Swear Filter: file %s not found", filename)
  43.         return
  44.     }
  45.     new iLen
  46.     while( g_swearsNum < MAX_WORDS && read_file(filename, g_swearsNum ,g_swearsNames[g_swearsNum][1],30,iLen) )
  47.     {
  48.     if( g_swearsNames[g_swearsNum][0] == ';') continue
  49.     g_swearsNames[g_swearsNum][0] = iLen
  50.     ++g_swearsNum
  51.     }
  52.     log_message("Swear Filter: loaded %d words",g_swearsNum )
  53. }
  54.  
  55. public swearcheck(id)
  56. {
  57.     new szSaid[192]
  58.     read_args(szSaid,191)
  59.     new bool:found = false
  60.     new pos, i = 0
  61.     while ( i < g_swearsNum )
  62.     {
  63.     if ( (pos = containi(szSaid,g_swearsNames[i][1])) != -1 ){
  64.         new len = g_swearsNames[i][0]
  65.         while(len--)
  66.         szSaid[pos++] = 'Keiksmazodis'
  67.         found = true
  68.         continue
  69.     }
  70.     ++i
  71.     }
  72.     if ( found ){
  73.         new cmd[32]
  74.         read_argv(0,cmd,31)          
  75.         engclient_cmd(id,cmd,szSaid)    
  76.     }
  77.     return PLUGIN_CONTINUE
  78. }
  79.  
  80.  

Kaip padaryti kad keiksmazodi nekeistu i ***** o i zodi
nes galima dabar daryti tik po viena raide
o reikia kad butu zodis kaip parasiau tik sitas kodas neveikia...

EDIT :
jai dar galite padaryte kad pvz swearwords.ini irasyta
pvz : who
Ir jei kas nors parasytu whore
tai kad pakeistu visa zodi o ne who
aciu :)
Tipo visa keiksmazodi pakeistu
is poros raidziu is swearwords

Tikiuosi supratot,

Aciu


Atsijungęs
 Aprašymas  
 
 Pranešimo tema: Re: Swear Filter
Žinutės numeris: #2  StandartinėParašytas: 2010 Rgs 10 14:16 
Vyr. diskusijų administratorius
Vartotojo avataras

Užsiregistravo: 2010 Rgp 31 13:21
Pranešimai: 3891
Karma: 183
Emm sudėtinga. Nesugalvoju dabar kaip daryti.



_________________
Palikau CS pasaulį ;/ . Nebepasiekiamas.
Atsijungęs
 Aprašymas  
 
 Pranešimo tema: Re: Swear Filter
Žinutės numeris: #3  StandartinėParašytas: 2010 Rgs 10 19:26 
Ar galit patikėti? Jis jau parašė 20 žinučių

Užsiregistravo: 2010 Rgs 03 16:00
Pranešimai: 27
Karma: 0
Naudok armasi.us redaguotą pluginą ,ten viskas paprasta jį rast gali hamoi.


Atsijungęs
 Aprašymas  
 
 Pranešimo tema: Re: Swear Filter
Žinutės numeris: #4  StandartinėParašytas: 2010 Rgs 10 19:53 
Vyr. diskusijų administratorius
Vartotojo avataras

Užsiregistravo: 2010 Rgp 31 13:21
Pranešimai: 3891
Karma: 183
Nejuokauk :D Ten nėra net jokio keitimo, tiesiog blokuoja žinutę.
Čia reikia rasti tikslų keiksmažodžio žodį žaidėjo komandoje.
Kažkur skaičiau vieną būdą, bet nelabai pamenu dabar.



_________________
Palikau CS pasaulį ;/ . Nebepasiekiamas.
Atsijungęs
 Aprašymas  
 
 Pranešimo tema: Re: Swear Filter
Žinutės numeris: #5  StandartinėParašytas: 2010 Rgs 10 20:48 
O taip. Jis jau surinko 50 žinučių!

Užsiregistravo: 2010 Rgs 04 11:59
Pranešimai: 50
Karma: 0
Nu jai toks sunkus tai nelabai rupi sitas :)
Rupi tas kur siunciau i PM


Atsijungęs
 Aprašymas  
 
Rodyti paskutinius pranešimus:  Rūšiuoti pagal  
 Puslapis 11 [ 5 pranešimai(ų) ] 


Dabar prisijungę

Vartotojai naršantys šį forumą: Registruotų vartotojų nėra ir 4 svečių


Jūs negalite kurti naujų temų šiame forume
Jūs negalite atsakinėti į temas šiame forume
Jūs negalite redaguoti savo pranešimų šiame forume
Jūs negalite trinti savo pranešimų šiame forume
Jūs negalite prikabinti failų šiame forume

Ieškoti:
Pereiti į: