Seuls les membres ayant 30 points peuvent parler sur le chat.

Forum Casio - Discussions


Index du Forum » Discussions » IA de leek wars
DarkysunHors ligneMembrePoints: 1747 Défis: 52 Message

IA de leek wars

Posté le 04/07/2014 16:00

Update : les IA furent proposées il y a longtemps et ne sont évidemment plus (et n'ont en réalité jamais été) très viables. Elles restent potables si vous êtes très bas level cependant.

Pour de meilleurs IA (haut level)
Cliquer pour enrouler
Et bien pour ça il va falloir se débrouiller un peu elle ne va pas vous tomber tout cru
Je vous donne en passant des optimisations essentielles pour une "bonne" IA

Se cacher
Une bonne IA fait en sorte de prendre le moins de dégâts possibles et pour ça le mieux est tout simplement de se cacher intelligemment au lieu de fuir l’ennemi n'importe comment !
Pour cela la méthode est relativement simple :

-Récupérer toutes les cellules accessibles avec les MP qu'il nous reste (évitez en général de travailler avec getPathLength( . , . ) car cette fonction consomme beaucoup d'opérations)

-Faire de même pour l'adversaire

-Trouver une case accessible ou l'adversaire n'as pas de ligne de vue depuis toutes ses cases accessibles

Je vous laisse vous INSPIRER (pas copier non mais) du code proposé par pierrotdu18 https://leekwars.com/forum/category-7/topic-1922
Vous remarquerez que le code n'est pas au complet mais l'essentiel y est. Attention j'ai bien dit vous inspirez car il reste du travail a faire !
Dépatouillez vous pour vous cacher la où ça vous arrange le plus (le plus loin, le plus proche etc), ne pas se cacher derrière des alliés (qui peuvent bouger ou tout simplement former des zones facile pour l'adversaire), et encore prendre en compte le fait que si vous n’êtes plus a portée de l'adversaire, c'est tout comme si vous étiez cachés (presque...)
Allez ça je vous aide il suffit de rajouter getAliveAllies() en 3eme paramètre de
... lineOfSight(hisCell, myCell, getAliveAllies()) ...


Une fois cette étape faite, il est simple de créer une fonction similaire pour avancer sinueusement (avancer au plus possible tout en restant caché)

Optimiser les attaques en zone
Si ne pas prendre de dégâts, en faire le maximum est tout aussi important ! (Cette partie ne compte évidemment que pour les attaques de zone...)
Pour cela plusieurs méthodes existent (comme pour tout), je vous livre la mienne même si c'est loin d'être la moins gourmande en terme d'opérations elle marche très bien il s'agit de :
si on sait quel ennemi est visé

-récupérer toutes les cases où notre arme lui inflige des dégâts (pour cela il faut récupérer une zone d'une certaine taille autour de l'adversaire)

-enlever toutes celles trop loin pour que vous puissiez tirer dessus, celles ou depuis toutes les cases accessibles, vous n'avez aucune ligne de vue

-calculer les dégâts infligés aux ennemis en tirant sur chaque case de celles restantes

Pour calculer les dégâts totaux il faut ajouter chaque dégât infligé sur chaque personne qu'on touche en tirant sur la case en question (s'aider de getWeaponTargets(...) puis multiplier les dégâts par un coefficient avant de les ajouter au total

Ce coefficient doit (par exemple) être de -1 si c'est un allié qui est touché, 1 si c'est un ennemi, ensuite a vous de jouer avec (on peut considérer que toucher une invoc ennemie est moins important que d'infliger des dégâts a un ennemi, ou affecter un coeff de 0 si l'allié touché est une de nos invocs etc...)

Attention cependant a bien prendre les armures des ennemis en compte ainsi que la distance a la case sur laquelle on tire !
les dégâts que va subir l'ennemi se détermine selon
degats_de_larme*(1+getStrength()/100)*((100-getRelativeShield(ennemi))/100)-getAbsoluteShield(ennemi);

et la réduction de dégats selon la distance via
1-0.5*getCellDistance(celluleSurLaquelleOnTire, getCell(enemi))/rayon


Dernières optimisations
Bien sur il ne faut pas oublier que quand un ennemi n'a presque plus de vie, pas besoin d'utiliser son attaque la plus chère en PT pour l'achever testez donc si une attaque plus faible ne le tue pas a tous les coups.
Gérer les poisons qu'on a sur soit :
Celle la c'est cadeau parce que vous laissez la chercher n'a pas non plus beaucoup d’intérêt :
function getDegatsPoison(){
    var dpoison=0;
    for(var i in getEffects()){
        if(i[0]==13)        dpoison+=i[1];
    }
    return dpoison;
}

Vous voila parés à utiliser la puce antidote !
(De même utilisez la puce libération pour enlever les armures de l'adversaire...)

Vous avez a présent de quoi faire les bases d'une IA assez bonne (vous attendez pas non plus a tout casser avec ces seules optimisations) ! Voici une IA sur ce principe https://leekwars.com/leek/4771 et franchement elle marche assez bien (pas non plus god tier hein me faites pas dire ce que je n'ai pas dit) au vu le nombre de lignes de codes assez bas (400 avec une optimisation digne d'un singe) ce qui reste vraiment bas devant les meilleurs IA qui dépassent les 4000 lignes (et oui y a des mecs qui sont vraiment chauds))

Dernier point : Allez sur le forum du jeu ! Vous trouverez pleins d'autres astuces etc !
Sur ce : bon jeu !



Salut à tous
Comme je l'ai appris très récemment (hier soir ), certains membres jouent à leek wars, un jeu de poireaux très marrant .
Je ne suis que lvl 5 mais j'ai déjà pas mal d'idée d'IA et je propose qu'on se les partage ici .
Je commence avec la mienne :
IA avec pistolet (dispo lvl 10)
Cliquer pour enrouler
global tour=0;
var i;
global dit=0;
var enemy = getNearestEnemy();
var name=getName(enemy);
var arme=getWeapon(enemy);
if(arme==1) arme="ton pistolet";
if(arme==2) arme="ta mitrailleuse";
if(arme==3) arme="ton double gun";
if(arme==4) arme="ton shotgun";
if(arme==5) arme="ton magnum";
if(arme==6) arme="ton laser";

if(getCellDistance(enemy, getCell()) <= ((getMP(getLeek()) + getMP(enemy))*3))    useChip(CHIP_HELMET, getLeek());


if(tour==0)    setWeapon(WEAPON_PISTOL);
if(tour==1 && dit==0 || getWeapon(enemy)!=-1 && tour==0){
    say(name +", "+arme+" ne me fais pas peur : je vais te tayer en julienne !!!");
    dit=1;
}

var portee_enemy=getWeaponMaxScope(getWeapon(enemy));
enemy = getNearestEnemy();

if(portee_enemy>=getWeaponMaxScope(getWeapon())) moveToward(enemy);
else    for (i = 1; i < 4; i++) if (getCellDistance(getCell(),getCell(enemy)) > 7) moveToward(enemy,1);

useWeapon(enemy);
useWeapon(enemy);
if(getLife()<getLife(enemy) && getLife()<getTotalLife())    useChip(CHIP_BANDAGE, getLeek());
useChip(CHIP_SPARK, enemy);


if(getTP()>0){
enemy = getNearestEnemy();
portee_enemy=getWeaponMaxScope(getWeapon(enemy));

if(portee_enemy>=getWeaponMaxScope(getWeapon())) moveToward(enemy);
else    for (i = 1; i < 4; i++) if (getCellDistance(getCell(),getCell(enemy)) > 7) moveToward(enemy,1);

useWeapon(enemy);
useWeapon(enemy);
if(getLife()<getLife(enemy) && getLife()<getTotalLife())    useChip(CHIP_BANDAGE, getLeek());
useChip(CHIP_SPARK, enemy);
}

useChip(CHIP_SHOCK, enemy);
useChip(CHIP_SHOCK, enemy);

if(portee_enemy<getWeaponMaxScope(getWeapon()))    moveAwayFrom(enemy);

if(getLife()<getTotalLife() && getLife(enemy)>0)    useChip(CHIP_BANDAGE, getLeek());

name=getName(enemy);

if(isDead(enemy))    debug("Kill "+name+"=Done !!!");

if(getTP()!=0 && tour==0)say("Vous ne perdez rien pour attendre bande de noobs !");
if(getTP()!=0 && tour==1)say("Attention j'arrive !");
if(getTP()!=0 && tour==2)say("Préparez le grand POT-AU-FEU !!!");
if(getTP()!=0 && tour==3)say("Inclinez vous devant votre DIEU : poiraxx le grand !!!");

tour++;


IA avec double gun (dispo lvl 10)
Cliquer pour enrouler
global tour=0;
var i;
global dit=0;
var enemy = getNearestEnemy();
var name=getName(enemy);
var arme=getWeapon(enemy);
if(arme==1) arme="ton pistolet";
if(arme==2) arme="ta mitrailleuse";
if(arme==3) arme="ton double gun";
if(arme==4) arme="ton shotgun";
if(arme==5) arme="ton magnum";
if(arme==6) arme="ton laser";

if(getCellDistance(enemy, getCell()) <= ((getMP(getLeek()) + getMP(enemy))*3))    useChip(CHIP_HELMET, getLeek());

if(tour==0)    setWeapon(WEAPON_DOUBLE_GUN);
if(tour==1 && dit==0 || getWeapon(enemy)!=-1 && tour==0){
    say(name +", "+arme+" ne me fais pas peur : je vais te tayer en julienne !!!");
    dit=1;
}

var portee_enemy=getWeaponMaxScope(getWeapon(enemy));
enemy = getNearestEnemy();

if(portee_enemy>=getWeaponMaxScope(getWeapon())) moveTowardCell(getCellToUseWeapon(enemy));
else{
    for (i = 1; i < 4; i++){
        if (getCellDistance(getCell(),getCell(enemy)) > 7){
            moveToward(enemy,1);
        }
        if(getCellDistance(getCell(), getCell(enemy))<2){
            moveTowardCell(getCellToUseWeapon(enemy));
        }
    }
}
useWeapon(enemy);
useWeapon(enemy);
useChip(CHIP_SPARK, enemy);

enemy = getNearestEnemy();
portee_enemy=getWeaponMaxScope(getWeapon(enemy));

if(getTP()>0 && isDead(enemy)==False){

if(portee_enemy>=getWeaponMaxScope(getWeapon())) moveTowardCell(getCellToUseWeapon(enemy));
else{
    for (i = 1; i < 4; i++){
        if (getCellDistance(getCell(),getCell(enemy)) > 7){
            moveToward(enemy,1);
        }
        if(getCellDistance(getCell(), getCell(enemy))<2){
            moveTowardCell(getCellToUseWeapon(enemy));
        }
    }
}
useWeapon(enemy);
useWeapon(enemy);
useChip(CHIP_SPARK, enemy);
}

useChip(CHIP_SHOCK, enemy);
useChip(CHIP_SHOCK, enemy);

if(portee_enemy<getWeaponMaxScope(getWeapon()))    moveAwayFrom(enemy);


name=getName(enemy);
if(isDead(enemy))    debug("Kill "+name+"=Done !!!");

if(getLife()<getTotalLife())    useChip(CHIP_BANDAGE, getLeek());


if(getTP()!=0 && tour==0)say("Vous ne perdez rien pour attendre bande de noobs !");
if(getTP()!=0 && tour==1)say("Attention j'arrive !");
if(getTP()!=0 && tour==2)say("Préparez le grand POT-AU-FEU !!!");
if(getTP()!=0 && tour==3)say("Inclinez vous devant votre DIEU : poiraxx le grand !!!");

tour++;


Voilà c'est tout, bonne chance avec vos poireaux




Infos diverses :
-> Les tournois

Pour parler entre nous des zones, voici celles proposées :
-> Zone de combat rapproché
-> Zone de combat éloigné
-> Zone d'approche
-> Zone sûre.




Pages : 1, 2, 3, 4, 5, 6, ... 9Suivante
DarkysunHors ligneMembrePoints: 1747 Défis: 52 Message

Citer : Posté le 04/07/2014 16:03 | #


d'ailleurs si quelqu'un le veux mon pseudo est darkysun quelle surprise et mon poireau porte le nom de poireattaque

EDIT : mtn j'ai un deuxième poireaux : lvl 6, mon nom est DIEU et son nom est poiraxx (j'ai d'ailleurs postulé pour la team)

pour les parrainages DIEU merci
Si je ne réponds pas à un post depuis trop longtemps : envoyez-moi un message pour me le rappeler !




Dark stormEn ligneMembre d'honneurPoints: 10831 Défis: 176 Message

Citer : Posté le 04/07/2014 16:49 | #


Je ne pense pas que poster ici les code sources entiers des IA soit une bonne idée, le but est (selon moi) de faire découvrir la programmation d'IA, pas de donner des trucs a bouffer tout cuits.

Par contre je ne suis pas contre les astuces

Bref, pour l'arme, il y a moyen de faire pls simple : if(getWeapon() == -1) setWeapon(WEAPON);
Et ça s'applique dès le niveau 1.

Pour ce qui est du tir, le mieux est de faire une boucle pour garder des TP : il existe une fonction getTP() et getWeaponCost()
Avec ça vous devriez vous en sortir. Attention a ne pas faire planter l'IA dans le cas où on ne peux pas tirer.

A partir du niveau 5, on peut créer une condition pour s'avancer à la limite de la zone de tir de l'ennemi et donc de tirer le premier.

Finir est souvent bien plus difficile que commencer. — Jack Beauregard
Páranÿe quetë Quendya
EltoredoHors ligneModérateurPoints: 4295 Défis: 35 Message

Citer : Posté le 04/07/2014 16:54 | #


J'ai 2 astuces :

Acheter la puce étincelle et n'attaquer qu'avec celle-ci en s'éloignant le maximum de l'ennemi tant qu'on reste dans la portée de 0 à 10 (intouchable au pistolet !) mais s'il s'approche assez prêt de vous, vous le touchez au pistolet

Faire en sorte de passer son tour et s'approcher de l'ennemi que quand VOUS pourrez l'attaquer en premier (en gros s'il est à une distance ou lui ne peut pas tirer mais que vous le pouvez en avançant, alors vous arrêtez de passer vos tours pour l'attaquer)

Ces 2 techniques sont à utiliser séparément, une si vous préférez la puce, une si vous préférez le pistolet
La procrastination est une vertu. (voir ma description pour comprendre mon raisonnement)
Dark stormEn ligneMembre d'honneurPoints: 10831 Défis: 176 Message

Citer : Posté le 04/07/2014 17:38 | #


Si on commence les bastion d'équipe, il faudrait faire des poireaux spécifiques (genre un bourrin qui a de la vie, un qui soigne les autres, etc.)
Finir est souvent bien plus difficile que commencer. — Jack Beauregard
Páranÿe quetë Quendya
DarkysunHors ligneMembrePoints: 1747 Défis: 52 Message

Citer : Posté le 04/07/2014 17:39 | #


ok je serais le dps/tank
Si je ne réponds pas à un post depuis trop longtemps : envoyez-moi un message pour me le rappeler !




-florian66-Hors ligneAncien rédacteurPoints: 2301 Défis: 20 Message

Citer : Posté le 04/07/2014 17:40 | #


ouai mais faut faire des combats pour ça
In Arch, I trust ! And you ?
EltoredoHors ligneModérateurPoints: 4295 Défis: 35 Message

Citer : Posté le 04/07/2014 17:45 | #


Dans ce cas la certains devrais se booster la vie plus que d'autre pour remplir leur rôle
La procrastination est une vertu. (voir ma description pour comprendre mon raisonnement)
DarkysunHors ligneMembrePoints: 1747 Défis: 52 Message

Citer : Posté le 04/07/2014 17:50 | #


donc je fais des rôles : dites moi ce que vous voudriez être
Si je ne réponds pas à un post depuis trop longtemps : envoyez-moi un message pour me le rappeler !




LephenixnoirEn ligneAdministrateurPoints: 16021 Défis: 140 Message

Citer : Posté le 04/07/2014 17:52 | #


Je peux être le PNJ ?
Oui oui, poireau non joueur.
La fenêtre c'est bien par là ?
DarkysunHors ligneMembrePoints: 1747 Défis: 52 Message

Citer : Posté le 04/07/2014 17:54 | #


oui c'est bien par là. Tu veux que je t'aide ?

Si je ne réponds pas à un post depuis trop longtemps : envoyez-moi un message pour me le rappeler !




Dark stormEn ligneMembre d'honneurPoints: 10831 Défis: 176 Message

Citer : Posté le 04/07/2014 17:55 | #


J'ai commencé un bon bourrin (niveau 15, j'ai un ratio de 10 (50-5), 210PV)
Par contre, je ne ferai pas le tank qui encaisse sans trop taper, moi je bourrine
Finir est souvent bien plus difficile que commencer. — Jack Beauregard
Páranÿe quetë Quendya
EltoredoHors ligneModérateurPoints: 4295 Défis: 35 Message

Citer : Posté le 04/07/2014 18:06 | #


J'suis lvl 5 (j'ai recommencé comme je l'ai dit), j'ai 20 victoires et 0 défaites et j'ai pas encore distribué mes points pour le moment
La procrastination est une vertu. (voir ma description pour comprendre mon raisonnement)
Dark stormEn ligneMembre d'honneurPoints: 10831 Défis: 176 Message

Citer : Posté le 04/07/2014 18:11 | #


Garde les pour des TP je pense
Si tu veux faire "guérisseur"
Finir est souvent bien plus difficile que commencer. — Jack Beauregard
Páranÿe quetë Quendya
EltoredoHors ligneModérateurPoints: 4295 Défis: 35 Message

Citer : Posté le 04/07/2014 18:32 | #


Je sais pas encore, je vais réfléchir, en attendant mon autre lvl 10 est boosté à 15 dans la force et le reste dans la vie
La procrastination est une vertu. (voir ma description pour comprendre mon raisonnement)
Drakalex007Hors ligneMembrePoints: 623 Défis: 0 Message

Citer : Posté le 04/07/2014 18:51 | #


On est d'accord que ça revient à peu près au même ?

for (i = [maroon]1[/maroon]; i < 4; i++) [b][blue]if[/blue][/b] (getCellDistance(getCell(),getCell(enemy)) > 2) moveToward(enemy,[maroon]1[/maroon]); [green]// on avance le plus possible en s'arretant une case avant lui[/green]
[b][blue]if[/blue][/b] (getCellDistance(getCell(),getCell(enemy)) < 2) moveAwayFrom(enemy, [maroon]2[/maroon]-getCellDistance(getCell(),getCell(enemy))); [green]// si on est collé à lui on recule[/green]

et
moveTowardCell(getCellToUseWeapon(enemy));


x)
Jouez dès maintenant à Jetpack Joyride sur votre calculatrice !
Pour les curieux
Cliquer pour enrouler
Un très bon Monopoly : Monopoly 2.0 !
Vous aimez Minecraft ? Venez voir ma chaîne ! (même si je fais plus de vidéos dessus)
Dark stormEn ligneMembre d'honneurPoints: 10831 Défis: 176 Message

Citer : Posté le 04/07/2014 18:56 | #


Oui. Tu remplace ainsi un gros code bourrin par une petite instruction

Ajouté le 04/07/2014 à 18:57 :
Par contre, si tu as la puce SPARK, tu peux regarder si tu peux tirer à l'arme depuis la case dans laquelle t'es (dans ce cas on tire), et sinon si tu peux utiliser la puce => tu rentabilise tes TP

Ajouté le 04/07/2014 à 18:58 :
if(getCell() == getCellWeaponToUse(enemy) // renvoie vrai si tu peux lui tirer dessus, faux sinon

Finir est souvent bien plus difficile que commencer. — Jack Beauregard
Páranÿe quetë Quendya
Drakalex007Hors ligneMembrePoints: 623 Défis: 0 Message

Citer : Posté le 04/07/2014 19:00 | #


Ah non moi ce q due je fais c'est que je lui dit d'attaquer au maximum, et ensuite je lui dit d'utiliser la chip, du coup si ill peut pas attaquer il a pas perdu de PT et donc peut utiliser la chip, sinon non
Jouez dès maintenant à Jetpack Joyride sur votre calculatrice !
Pour les curieux
Cliquer pour enrouler
Un très bon Monopoly : Monopoly 2.0 !
Vous aimez Minecraft ? Venez voir ma chaîne ! (même si je fais plus de vidéos dessus)
Dark stormEn ligneMembre d'honneurPoints: 10831 Défis: 176 Message

Citer : Posté le 04/07/2014 19:09 | #


Pas bête, j'ai modifié et j'ai gagné 10 lignes
Finir est souvent bien plus difficile que commencer. — Jack Beauregard
Páranÿe quetë Quendya
Drakalex007Hors ligneMembrePoints: 623 Défis: 0 Message

Citer : Posté le 04/07/2014 19:10 | #


C'est plus une astuce et moins conventionnel, mais ça marche
Jouez dès maintenant à Jetpack Joyride sur votre calculatrice !
Pour les curieux
Cliquer pour enrouler
Un très bon Monopoly : Monopoly 2.0 !
Vous aimez Minecraft ? Venez voir ma chaîne ! (même si je fais plus de vidéos dessus)
Dark stormEn ligneMembre d'honneurPoints: 10831 Défis: 176 Message

Citer : Posté le 04/07/2014 23:59 | #


A la toute fin de votre code, je vous conseille de mettre ceci :

if(isDead(enemy))
    debugE("I killed " + getName(enemy) + " !");


Ca met un message en rouge dans le rapport lorsque vous tuez un ennemi, ça met en évidence les kills de chacun sans se faire chier à tout éplucher
Finir est souvent bien plus difficile que commencer. — Jack Beauregard
Páranÿe quetë Quendya
Pages : 1, 2, 3, 4, 5, 6, ... 9Suivante

Planète Casio v42 © créé par Neuronix et Muelsaco 2004 - 2019 | Il y a 78 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements

Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd