0,]']Б>Sя}WџЭuЇ№p8Зd%qy)6o;]ЩAІіsяїєєє”АТVl†3;940>0>??0<70>;852<:84020=0?000011111233349667<8<9=:>;<<=?000000000000000000000000000000 Р?нннннннннннннннннннннннннннннннннннннннннннкнкннннннннннннннннннннн """""аннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн """"аннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн "" "нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн " нннннннн-ннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн ""нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннкнннннннннннннннннннананннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннвннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн}нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннвннннвннннн-ннннннннннннннннннннннннннннннннннннннџџпџџнннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннџннн§пннзннннннннннннннннннннннн­ннннннннннннннннннннннннннннннннннкннннннннннннннннннннннннннннннннннннннннннннннннннннџџн§џнннннннннннннннннннннннннкнннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн§пџннннннннннннннннннннннннаннннннннннннкннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннџџнџџпннннннннннннннннннннн ЊЊ ннннннннннннннннннннннннннннннннннннннннннннннннннннн-нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн ЊЊЊаннннкнннннннннннннннннннннннннннн-ннннннн-нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн ЊЊЊЊ ннннннннннннннннннннннннннннннннннннннннннн-ннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннЊЊЊЊанннн­ннннннннннннннннннн­ннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннЊЊ ЊЊаннннннннннннннннннннннннннннннннннннннннвнннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн ЊЊЊЊЊакннннннннннннннннннннннннннннннннннннннннннннннннннннн-нннннннннннннннннннннннннннннннннџн§џннннннннннннннннннннн ЊЊ ЊЊанннннннннннннннннннннннн­нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн§џнџ§пннннннннннннннннннннЊЊ ЊЊанннннннннннннннннннннннннннннннннннннннннннннн--нннннннннннннннннннннннннннннннннннннннџ§нџппнннннннннннннннннннн  Њ н­ннннннннннннннннннннннннннннннннннн-ннннннннннннннннннннннннннннннннннннннннннннннннннџџпџнпнннннннннннннннннннн  Њ Њанннннннннннннннннннннннннннннннннннннннннннннннннннннвннннннннннннннннннннннннннннннннннн§н§џннннннннннннннннннннна Њ ннwзнннннннн­ннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннан}wwнннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннwwwзннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн}wнн}wwwwнннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннwwзн}wwwwнннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн}wwwн}wwwwннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннwwwwзнwwwзннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннwwwwзн}wwнннннннннннннннннннннннннннннннн-нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн}нннwwwwзннwзнннннннннннннннннннннннннннннннннн-нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн}wwwнннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннwwзн}wwзнннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн}wwннннн}w}н}wwwннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннwwwзнннwзн}wwwwwзнннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн}wwwwЬм}wwwwwwwwwwннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннwwwwwЬ|wwwwwwwwwwwннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннwwwwwЬ|wwwwwwwwwwwннннннннннннннннннннннннннннннннннннннннннннннннннвнннннннннннннннннннннннннннннннннннннннннннннннннннwwЧЬЬ|wwwwwwwwwwwwнннннн­нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннwwЧЬЬ|wwwwwwwwwwwwЬмннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннwwЧЬЬ|wwwwwwwwwwwзЬмнннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн}ннннннн}wЧЬЬ|wwwwwwwwwwwнЬмннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн}нннннннwЧЬЬ|wwwwwwwwwwwннннннннннннннннннннннннннннннннннннннннннннннннн-ннннннннанннннннннннннннннннннннннннннннннннннннннн}ЧЬЬ|wwwwwwwwwwwнннннннннннннннннннннннннннннннннннннннннннннннннннн-нннн"""аннннннннннннннннннннннннннннннннннннннннннн}wwwwwwwwwwwwwwзнннннннннннннннннннннннннннннннннннннннннннннннннннннн """""нннннннннннннннннннннннннннннннннннннннннннwwwwwwwwwwwwwwwзнннннннннннннннннннннннннннннннннннннннннннннннннннннн """"""аннннннннннннннннннннннннннннннннннннннннннwwwwwwwwwwwwwwwwннннннннннннннннннннннннннннннннннннннннннннннннннннн """""""ннннннннннннннннннннннннннннннннннннннннннwwwwwwwwwwwwwwwwзнннннннннннннннннннннннннннннннннннннннннннннннннннн """"""""анннннннннннннннннннннннннннннннннннннннннwwwwwwwwwwwwwwwwзнннннннннннннннннннннннннннннннннннннннннннннннннннн """"""""анннннннннннннннннннннннннн}ннннннннн}ннннwwwwwwwwwwwwwwwwзннннннннннннннннннннннннннннннннннннннннннннннннннн """""""""ннннннннннннннннннннннннннннннннннннннннн}wwwwwwwwwwwwwwwзннннннннннннннннннннннннннннннннннннннннннннннннннн " " """ннннннннннннннннннннннннннннннннннннннннн}wwwwwwwwwwwwwwwзннннннннннннннннннннннннннннннннннннннннннвнннннннн "" """""ннннннннннннннннннннннннннннннннннннннннннwwwwwwwwwwwwwwwнннннннннзнннннннннннннннннннннннннннннннннннннннннн """""""""нннннннннннннннбнннннннннннннннннннннннннн}wwwwwwwwwwwwwзнннннннннннннннннннннннннннннннннннннннннвнннннннннн """" """нннннннннннннннннннннннннннннннннннннннннннwwwwwwwwwwwwwзнннннзнннннннннннннннннннннннннннннннннннннннннннннн "" """""ннннннннннннннннннннннн}ннннннннннннннннннн}wwн}wwwwwwwwзнннннннннннннннннннннннннннннннннннннннннннннннннннн """"""нннннннннннннннннннннннннннннннннннннннннннннннннн}wwwwwнннннннннннннннннннннннннннннннннннннннннннннннннннннн " """""анннннннннннннннннннннннннзнннннннннннннннннннннннннwwwwзнннннннннннннннннннннннннннннннннннннннннннннннннннннн """ """аннннннннннннннннннннннннннннннннннннзнннннннннннннн}wwwннннннннннннннннннннннннннннннннннннннннннннннннннннннн """""""нннннннннннннннннннннннннннннннннннннннннннннннннннннwwзнннннннннннннннннннннннннннннннннннннннннннннннннннннннн """"""аннннннннннннннннннннннннннннннннннннннннннннзннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн """""нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн"""аннннннннннннннннннннннннннннннннннн}нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннаннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн}нннннннннгнннннннннннннннннннн-ннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн}ннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн-нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннбнннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн}нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннзнннннннннн}нн}нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннзнннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннзнннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн}нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннзнннн нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннpwwаннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн wwwнннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннpwwwwаннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн wpwннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн}нннннннннннн}нннннннннн wwpwннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн wwwwwннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн}н wwpнннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннбнннннннннннннннн} wwpwннннннннннннннннннннннннннннзнннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннpwwwанннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн wwаннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннзннннннннннннннннpwwанннннннннннннннннннннннннннннннннннннннннннннннвнннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн ннн}ннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннзнннннннннннннннннннннннннннннннннн}нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннзнннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннзннннннннннннннннннннннннннннннннннннннннннннннннзннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннбннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннзнннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн=ннннзнннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннзннннннннннннннннннннннннннннннннн}ннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннзнннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннзннннннннн н нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннpwаннннанннннннннннннннннннннннннннннннннннннннннннннннннннннзнннннннннннннннннннннннннннннннннннннннннннннннннннннн}wнннаннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннаннннннннннннннннннннннннннннннннн wwнб ннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн333анннннннннннннннннннннннннннннннна wwннаннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн 33333ннннннннннннннннннннннннннннннннанpан ннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн0333333аннннннннннннннннннннннннннннннннн нн нннннннннннннннннбнннннннннннннннннннннн}ннннннннннннннннннннннннн 3333333нннннннннннннннннннннннннннннннннннннанннннннннннннннннннннннннннннннннннннннннннннннзннннннннннннннннн033333333аннннннннннннннннннннннннннннннннннннаннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн033333333аннннннннннннннннннннннннннннннннннннанннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн 3303033ннннннннннннннннннннннннннннннннннннанннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн 3333333ннннннннннннннннннннннннннннннннзнннанннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн 33303333нннннннннннннннннннннннннннннннннннн нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн 33333033нннннннннннннннннннннннннннннннннннн ннннннннннннннннннннннннннннннннннннннннннннннзнннннннннннннннннн 3330333нннннннннннннннннннннннннннн}ннннннннаннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн 333333ннннннннннннннннннннзнннннннннннннннн нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн 3330333нннннннннннннннннннннннннннЬЬЬЬЬЬЬЬнннаннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн03333033аннннннннннннннннннннннннзнн Рннннанннннннннннннннннннннннннннннннннннннннн}нннннннннзннннннннннннннннн033333333аннннннннннннннннннннннннннн Рннннннннннннннннннннннннннннннннннннннннннннн}ннннннннннннннннннннннннннннн 3333333нннннннннннннннннннннннннннн Рннннннннннннннннннннннннннннннннннннннннннннннзнннннннннннннннннннннннннннн0333333анннннннннннннннннннннннннннн Рнннннннбнннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн 33333ннннннннннннннннннннннннннннн Рннннннннннннбннннннннннннннннннннннннннннннннн}ннннннннннннннннннннннннннннн333аннннннннннннннннннннннннннннн Рнннннннннннннннннннннннннннннннннннннннннннн}зннннннннннннннннннннннннннннннннанннннннннннннннннннннннннннннн Рнннннннннннннннннннннннннннннннннннннннннннн}ннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн Рнннннннбннннннннннннннннннннннннннннннннннн}нннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн Рннннннннннннннннннннннннннннннннннннннннннннн нннннннннннннннннннннннннннннннннннннннннннннннннннн}ннннннннннн Рннннннннннннннннннннннннннннннннннннннннннннpwаннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн Рнннннннннннннннннннннннннннннннннннннннннннн ppннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн Рннннннннннннннннннннннннннннннннннннннннннннwwpwанннннннн}ннннннннннннннннннннннннннннннннннннннннннннннннннннн Рннннннннннннннннннннннннннннннннннннннннннн pwwwнннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннн Рннннннннннннннннннннннннннннннннннннннннннн ppwннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннннЬЬЬЬЬЬЬЬ;*-- title: Kibuble -- author: OdiStudio , odistudio4444@gmail.com -- desc: Pierce all buble -- site: https//: -- license: All right reserved(c) -- version: 0.1 -- script: lua t=0 x=96 y=67 -- math rnd,sin,cos=math.random,math.sin,math.cos -- mouse variable mou={ x=96, y=24, g=3, sp=0, ml=0, mm=0, mr=0 } -- mouse function mousePlayer() print(mou.x,10,10) print(mou.y,10,20) mou.x,mou.y,mou.ml,mou.mm,mou.mr=mouse() if mou.x<=0 then mou.x=0 elseif mou.x>=245 then mou.x=245 end if mou.y<=0 then mou.y=0 elseif mou.y>=145 then mou.y=145 end if mou.ml then x=mou.x y=mou.y end if mou.mm then x=mou.x y=mou.y end if mou.mr then x=mou.x y=mou.y end weapon() end -- coldown cdd=0 cdtt=0 cd=0 cdm=0 -- coldwon for weapon chgw=0 -- change weapon function weapon() -- parametre coldown if cd<=0 and mou.ml then addWeapon() cd=cdm end if cd>=0 then cd=cd-1 end -- if mou.g==0 then mou.sp=17 cdm=15 elseif mou.g==1 then mou.sp=18 cdm=60 elseif mou.g==2 then mou.sp=19 cdm=25 elseif mou.g==3 then mou.sp=20 cdm=8 end if cdd==1 then cdtt=cdtt+1 end if cdtt>=40 then cdd=0 cdtt=0 end -- change weapon if mou.mr and cdd==0 then cdd=1 mou.g=mou.g+1 end if mou.g>=4 then mou.g=0 end -- graphisme spr(mou.sp,224,120,1,2) if cd>=0 then if mou.g==0 then rect(224,120,16,cdm%15-(-cd),0) elseif mou.g==1 then rect(224,120,16,cdm%15-(-cd),0) elseif mou.g==2 then rect(224,120,16,cdm%12-(-cd),0) elseif mou.g==3 then rect(224,120,16,cdm%15-(-cd*9),0) end end rectb(224,120,16,16,12) end -- table weapon Weapon={} function addWeapon() local w={} w.x=mou.x-10 w.y=mou.y-10 w.chg=0 w.sp=0 w.spsword=rnd(4) w.t=0 table.insert(Weapon,w) end function ticWeapon() ticExplosion() for k,w in pairs(Weapon) do -- weapon 1 click w.t=w.t+1 if mou.g==0 then if w.chg==0 then w.sp=5 w.t=0 w.chg=1 end spr(w.sp+w.t%40//5,w.x,w.y,0,2) if w.t>=19 then table.remove(Weapon,k) end -- weapon 2 bombe elseif mou.g==1 then if w.chg==0 then w.sp=5 w.t=0 w.chg=1 end addExplosion(w.x,w.y) if w.t>=5 then table.remove(Weapon,k) end -- weapon 3 sword elseif mou.g==2 then if w.chg==0 then w.t=0 w.chg=1 end if w.spsword==0 then w.sp=9 elseif w.spsword==1 then w.sp=25 elseif w.spsword==2 then w.sp=41 elseif w.spsword==3 then w.sp=57 elseif w.spsword==4 then w.sp=73 end spr(w.sp+w.t%40//5,w.x,w.y,0,3) if w.t>=19 then table.remove(Weapon,k) end -- weapon 4 dagger elseif mou.g==3 then if w.chg==0 then w.t=0 w.chg=1 w.sp=21 end spr(w.sp+w.t%40//5,w.x,w.y,0,3) if w.t>=19 then table.remove(Weapon,k) end end end end -- explosion explosion={} function addExplosion(x,y) local ex={} ex.x=x+rnd(-60.0,60.0)/10 ex.y=y+rnd(-60.0,60.0)/10 ex.r=8 ex.c=4 ex.cc=3 table.insert(explosion,ex) end function ticExplosion() for k,ex in pairs(explosion) do ex.r=ex.r-0.5 -- graphism circ(ex.x,ex.y,ex.r,ex.c) circb(ex.x,ex.y,ex.r,ex.cc) addPart(ex.x,ex.y,ex.c) addPartb(ex.x,ex.y,ex.c,1) if ex.r>=4 and ex.r<=5 then ex.c=3 ex.cc=2 elseif ex.r>=3 and ex.r<4 then ex.c=2 ex.cc=14 elseif ex.r>=2 and ex.r<3 then ex.c=14 ex.cc=15 elseif ex.r<2 then ex.c=15 ex.cc=0 end -- remove explosion if ex.r<=0 then table.remove(explosion,k) end end end -- -- add particles balle partb={} function addPartb(x,y,c,explo) local pab={} pab.x=x pab.y=y pab.dx=math.random(-30.0,30.0)/20 pab.dy=math.random(-30.0,30.0)/20 pab.c=c pab.r=10 pab.rm=0.4 pab.t=0 pab.explo=explo table.insert(partb,pab) end function ticPartb() for k,pab in pairs(partb) do pab.t=pab.t+1 pab.x=pab.x+pab.dx pab.y=pab.y+pab.dy pab.r=pab.r-pab.rm circ(pab.x,pab.y,pab.r,pab.c) if pab.explo==1 then circb(pab.x,pab.y,pab.r,pab.c-1) end if pab.r<=0 then table.remove(partb,k) end end end -- add particles part={} function addPart(x,y,c) local pa={} pa.x=x pa.y=y pa.dx=math.random(-30.0,30.0)/20 pa.dy=math.random(-30.0,30.0)/20 pa.c=c pa.t=0 table.insert(part,pa) end function ticPart() for k,pa in pairs(part) do pa.t=pa.t+1 pa.x=pa.x+pa.dx pa.y=pa.y+pa.dy pix(pa.x,pa.y,pa.c) if pa.t>=30 then table.remove(part,k) end end end -- add circle spawn balle apar={} function addApar(x,y,balle) local ap={} ap.x=x ap.y=y ap.balle=balle ap.dx=0 ap.dy=0 ap.c=math.random(1,12) ap.r=30 ap.rr=1 ap.t=0 ap.tt=0 table.insert(apar,ap) end function ticApar() for k,ap in pairs(apar) do ap.t=ap.t+1 ap.x=ap.x+ap.dx ap.y=ap.y+ap.dy ap.r=ap.r-ap.rr circb(ap.x,ap.y,ap.r,ap.c) sfx(2,"F-5",100) -- spawn Balle sp==1 -- spawn Baller sp==2 -- spawn Bidispaire sp==3 -- spawn spike balle sp==4 if ap.r<=0 then addBalle(ap.x,ap.y,ap.c,sp) table.remove(apar,k) end -- end end -- add balle balle={} function addBalle(x,y,c,g) local b={} -- position b.x=x b.y=y b.c=c -- direction b.dx=math.random(1,2) b.dy=math.random(1,2) b.dxx=math.random(0,1) b.dyy=math.random(0,1) -- rayon b.r=0 -- die b.d=0 b.dmax=0 -- genre of balle b.genreBalle=g b.gb=0 -- for initialize ennemies -- b.dt=0 -- health b.imu=0 -- imunity after hit b.imuTime=0 -- imunity time b.telepurt=0 -- teleportion -- b.p=0.4 b.m=0.2 -- b.ex=0 -- explo b.ext=1 -- explo -- sprite b.sp=2 table.insert(balle,b) end function ticBalle() for k,b in ipairs(balle) do if b.genreBalle==0 then b.genreBalle=1 end -- Ennemies -- Ennemie 1 Balle if b.genreBalle==1 then if b.gb==0 then b.gb=1 b.dmax=1 end -- draw ball circ(b.x,b.y,b.r,b.c) circb(b.x,b.y,b.r,0) if b.r>=10 and b.d<=0 then b.r=10 elseif b.r<10 and b.d<=0 then b.r=b.r+b.p end if b.r>=0 and b.r<10 then addPart(b.x,b.y,b.c) end spr(b.sp,b.x-b.r/2.5,b.y-b.r/4.7,7,1) -- Ennemie 2 Baller elseif b.genreBalle==2 then if b.gb==0 then b.gb=1 b.dmax=4 end -- draw ball circ(b.x,b.y,b.r,b.c) circb(b.x,b.y,b.r,0) if b.r>=10 and b.d<=0 then b.r=10 elseif b.r<10 and b.d<=0 then b.r=b.r+b.p end if b.r>=0 and b.r<10 then addPart(b.x,b.y,b.c) end -- move balle if b.x<=0 then b.dxx=1 elseif b.x>=235 then b.dxx=0 end if b.y<=0 then b.dyy=1 elseif b.y>=135 then b.dyy=0 end if b.dxx==0 then b.x=b.x-b.dx elseif b.dxx==1 then b.x=b.x+b.dx end if b.dyy==0 then b.y=b.y-b.dy elseif b.dyy==1 then b.y=b.y+b.dy end -- Ennemie 3 Bidispaire elseif b.genreBalle==3 then if b.gb==0 then b.gb=1 b.dmax=3 end -- draw ball circ(b.x,b.y,b.r,b.c) circb(b.x,b.y,b.r,0) if b.r>=6 and b.d<=0 then b.r=6 elseif b.r<6 and b.d<=0 then b.r=b.r+b.p end if b.r>=0 and b.r<10 then addPart(b.x,b.y,b.c) end -- behavior if b.imu==1 and b.telepurt==0 then for i=1,10 do addPartb(b.x,b.y,b.c,0) addPart(b.x,b.y,b.c) end b.telepurt=1 b.x=rnd(20,220) b.y=rnd(20,110) elseif b.imu==0 and b.telepurt==1 then b.telepurt=0 end -- move balle if b.x<=0 then b.dxx=1 elseif b.x>=235 then b.dxx=0 end if b.y<=0 then b.dyy=1 elseif b.y>=135 then b.dyy=0 end if b.dxx==0 then b.x=b.x-b.dx elseif b.dxx==1 then b.x=b.x+b.dx end if b.dyy==0 then b.y=b.y-b.dy elseif b.dyy==1 then b.y=b.y+b.dy end -- Ennemie 4 spike balle elseif b.genreBalle==4 then if b.gb==0 then b.gb=1 b.dmax=5 end -- draw ball circ(b.x,b.y,b.r,b.c) circb(b.x,b.y,b.r,0) if b.ex<500 then spr(49,b.x-11,b.y-15,4,2,0,0,2,2) elseif b.ex>=500 then spr(51,b.x-15,b.y-15,4,2,0,0,2,2) end if b.ex>=700 then b.ex=0 spr(49,b.x-11,b.y-15,4,2,0,0,2,2) end if b.r>=10 and b.d<=0 then b.r=10 elseif b.r<10 and b.d<=0 then b.r=b.r+b.p end if b.r>=0 and b.r<10 then addPart(b.x,b.y,b.c) end -- move balle if b.x<=0 then b.dxx=1 elseif b.x>=235 then b.dxx=0 end if b.y<=0 then b.dyy=1 elseif b.y>=135 then b.dyy=0 end if b.dxx==0 then b.x=b.x-b.dx elseif b.dxx==1 then b.x=b.x+b.dx end if b.dyy==0 then b.y=b.y-b.dy elseif b.dyy==1 then b.y=b.y+b.dy end end ---------------------------------- -- remove balle if b.dt>=30 then table.remove(balle,k) end -- with time if b.d>=b.dmax then b.dt=b.dt+1 b.r=b.r-b.m addPartb(b.x,b.y,b.c,0) addPart(b.x,b.y,b.c) end -- weapon 0 click if mou.g==0 then for s,w in pairs(Weapon) do if w.x<=b.x+(b.r*2.2) and w.x>=b.x-(b.r*2.2) and w.yb.y-(b.r*2.2) and b.imu==0 then b.d=b.d+1 b.imu=1 end end -- weapon 1 bombe elseif mou.g==1 then for s,w in pairs(Weapon) do if w.x<=b.x+(b.r*4.2) and w.x>=b.x-(b.r*4.2) and w.yb.y-(b.r*4.2) and b.imu==0 then b.d=b.d+1 b.imu=1 end end -- weapon 2 sword elseif mou.g==2 then for s,w in pairs(Weapon) do if w.x<=b.x+(b.r*2.2) and w.x>=b.x-(b.r*2.2) and w.yb.y-(b.r*2.2) and b.imu==0 then b.d=b.d+1 b.imu=1 end end -- weapon 3 dagger elseif mou.g==3 then for s,w in pairs(Weapon) do if w.x<=b.x+(b.r*0.6) and w.x>=b.x-(b.r*2.3) and w.yb.y-(b.r*2.3) and b.imu==0 then b.d=b.d+1 b.imu=1 end end end -- explobe for attack player b.ex=b.ex+b.ext spr(b.sp,b.x-4,b.y-3,7,1) if b.ex>=150 and b.ex<=300 then b.sp=3 end if b.ex>300 then b.sp=4 end if b.ex>=500 and b.genreBalle~=4 then b.d=b.d+1 end -- imunity after hit if b.imu==1 then b.imuTime=b.imuTime+1 b.sp=33 if b.d<=b.dmax then circb(b.x,b.y,b.r+b.imuTime*2,0) end end if b.imuTime>=5 then b.imuTime=0 b.imu=0 end end end -- variable from spawn one1=0 one2=0 one3=0 one3=0 sp=0 alx=0 aly=0 function TIC() cls(13) -- balle ticBalle() ticApar() ticPart() ticPartb() -- mouse mousePlayer() ticWeapon() -- spawn balle alx=math.random(230) aly=math.random(130) sp=math.random(4) if sp==0 then sp=1 end if one1>=50 then one1=0 addApar(alx,aly,sp) end one1=one1+1 t=t+1 end