Player dont get the prize when killing the bapho event

[madtoyz 2]

Event : Find the Baphomet

By : youtube

 

- ive already setup the prize "7539" (poring coin) in side script and in game.

but when player kill the Baphomet,they will no get prize.

 

//Created by youtubeizlude,159,128,3	script	Find the Baphomet	736,{mes "[ Find The Baphomet ]";if(getgmlevel() < 50) {    if(.Event==0) mes "There is no Find the Baphomet event.";    else {        mes "There is a Find the Baphomet event on now!";        mes "Location: "+ .Map$;        mes "Prize: " + getitemname(.ItemID);        mes "Number of Baphomets: " + .Baphomets;    }    close;}    mes "Hello "+strcharinfo(0)+"! Please customize this event:";Main:next;mes "[ Find The Baphomet ]";    switch(select("Item [" + getitemname(.ItemID) + "]:Start Event:End Event")) {        case 1:            mes "Which item would you like the Baphomet to drop?";            mes "Please input the item ID:";            input .ItemID;            goto Main;        case 2:            mes "Starting the event now...";            set .Event,1;            close2;            goto OnStart;                case 3:            mes "Ending the event now...";            if(.Event) announce ""+strcharinfo(0)+" ended Find the Baphomet Event!",bc_all;            killmonster  .Map$,"All";            set .Event,0;        close;}OnMinute51: //CHANGE THIS TO THE MINUTE YOU WOULD LIKE THIS EVENT TO LOAD!OnMinute20:OnStart:    announce "Find the Baphomet : It's time to play Find the Baphomet!",0;    sleep2 1000;    set $@ran, rand(1,11);    if ($@ran == 11) set .Map$,"splendide";    if ($@ran == 10) set .Map$,"hugel";    if ($@ran == 9) set .Map$,"yuno";    if ($@ran == 8) set .Map$,"comodo";    if ($@ran == 7) set .Map$,"xmas";    if ($@ran == 6) set .Map$,"aldebaran";    if ($@ran == 5) set .Map$,"izlude";    if ($@ran == 4) set .Map$,"payon";    if ($@ran == 3) set .Map$,"geffen";    if ($@ran == 2) set .Map$,"morocc";    if ($@ran == 1) set .Map$,"prontera";    sleep2 1000;    set $@ran2, rand(1,5);    if ($@ran2 == 5) set .Baphomets,"5";    if ($@ran2 == 4) set .Baphomets,"4";    if ($@ran2 == 3) set .Baphomets,"3";    if ($@ran2 == 2) set .Baphomets,"2";    if ($@ran2 == 1) set .Baphomets,"1";    announce "Find the Baphomet : The Baphomet has spawned in "+ .Map$ +"!",0;    sleep2 10000;    announce "Find the Baphomet : " + .Baphomets + " Baphomets have spawned in "+ .Map$ +"!",0;    sleep2 10000;    monster .Map$,0,0,"PLEASE DONT HIT ME!",1039,.Baphomets,"Find the Baphomet::OnMobKilled";    end;OnMobKilled:    mapannounce .Map$,"We've got a winner: " + strcharinfo(0) + " Congrats!",0;    set zeny,zeny+10000000;    getitem .7539,500;    set .Event,0;    end;}

 

[jaBote 438]

It's badly done. Attempting to correct an error and adding item amount configuration OnInit (untested):

//Created by youtubeizlude,159,128,3	script	Find the Baphomet	736,{mes "[ Find The Baphomet ]";if(getgmlevel() < 50) {    if(.Event==0) mes "There is no Find the Baphomet event.";    else {        mes "There is a Find the Baphomet event on now!";        mes "Location: "+ .Map$;        mes "Prize: " + .ItemQty + " " + getitemname(.ItemID);        mes "Number of Baphomets: " + .Baphomets;    }    close;}    mes "Hello "+strcharinfo(0)+"! Please customize this event:";Main:next;mes "[ Find The Baphomet ]";    switch(select("Item [" + .ItemQty + " " + getitemname(.ItemID) + "]:Start Event:End Event")) {        case 1:            mes "Which item would you like the Baphomet to drop?";            mes "Please input the item ID:";            input .ItemID;			next;			mes "Also please input the amount of items you want the Baphomet to drop to the winner:";			input .ItemQty;            goto Main;        case 2:            mes "Starting the event now...";            set .Event,1;            close2;            goto OnStart;                case 3:            mes "Ending the event now...";            if(.Event) announce ""+strcharinfo(0)+" ended Find the Baphomet Event!",bc_all;            killmonster  .Map$,"All";            set .Event,0;        close;}OnMinute51: //CHANGE THIS TO THE MINUTE YOU WOULD LIKE THIS EVENT TO LOAD!OnMinute20:OnStart:    announce "Find the Baphomet : It's time to play Find the Baphomet!",0;    sleep2 1000;    set $@ran, rand(1,11);    if ($@ran == 11) set .Map$,"splendide";    if ($@ran == 10) set .Map$,"hugel";    if ($@ran == 9) set .Map$,"yuno";    if ($@ran == 8) set .Map$,"comodo";    if ($@ran == 7) set .Map$,"xmas";    if ($@ran == 6) set .Map$,"aldebaran";    if ($@ran == 5) set .Map$,"izlude";    if ($@ran == 4) set .Map$,"payon";    if ($@ran == 3) set .Map$,"geffen";    if ($@ran == 2) set .Map$,"morocc";    if ($@ran == 1) set .Map$,"prontera";    sleep2 1000;    set $@ran2, rand(1,5);    if ($@ran2 == 5) set .Baphomets,"5";    if ($@ran2 == 4) set .Baphomets,"4";    if ($@ran2 == 3) set .Baphomets,"3";    if ($@ran2 == 2) set .Baphomets,"2";    if ($@ran2 == 1) set .Baphomets,"1";    announce "Find the Baphomet : The Baphomet has spawned in "+ .Map$ +"!",0;    sleep2 10000;    announce "Find the Baphomet : " + .Baphomets + " Baphomets have spawned in "+ .Map$ +"!",0;    sleep2 10000;    monster .Map$,0,0,"PLEASE DONT HIT ME!",1039,.Baphomets,"Find the Baphomet::OnMobKilled";    end;OnMobKilled:    mapannounce .Map$,"We've got a winner: " + strcharinfo(0) + " Congrats!",0;    set zeny,zeny+10000000;    getitem .ItemID,.ItemQty;    set .Event,0;    end;OnInit:	set .ItemID, 512;	set .ItemQty, 1;	end;}

 

This is a quick fix since I'm in a rush, so maybe it won't work properly but I think yes. Remember to edit the OnInit label for adjusting the prize to your needs.

[madtoyz 2]

This is for what ?

    set .Event,0;

[Emistry 144]

OnMobKilled:    mapannounce .Map$,"We've got a winner: " + strcharinfo(0) + " Congrats!",0;    set zeny,zeny+10000000;    getitem 7539,500;    set .Event,0;    end;

[Dastgir 1244]

This is for what ?

 

set .Event,0;

For checking if event is started or not.

[madtoyz 2]

 

OnMobKilled:    mapannounce .Map$,"We've got a winner: " + strcharinfo(0) + " Congrats!",0;    set zeny,zeny+10000000;    getitem 7539,500;    set .Event,0;    end;

 

nothing happen with that sir.

[madtoyz 2]

It's badly done. Attempting to correct an error and adding item amount configuration OnInit (untested):

//Created by youtubeizlude,159,128,3	script	Find the Baphomet	736,{mes "[ Find The Baphomet ]";if(getgmlevel() < 50) {    if(.Event==0) mes "There is no Find the Baphomet event.";    else {        mes "There is a Find the Baphomet event on now!";        mes "Location: "+ .Map$;        mes "Prize: " + .ItemQty + " " + getitemname(.ItemID);        mes "Number of Baphomets: " + .Baphomets;    }    close;}    mes "Hello "+strcharinfo(0)+"! Please customize this event:";Main:next;mes "[ Find The Baphomet ]";    switch(select("Item [" + .ItemQty + " " + getitemname(.ItemID) + "]:Start Event:End Event")) {        case 1:            mes "Which item would you like the Baphomet to drop?";            mes "Please input the item ID:";            input .ItemID;			next;			mes "Also please input the amount of items you want the Baphomet to drop to the winner:";			input .ItemQty;            goto Main;        case 2:            mes "Starting the event now...";            set .Event,1;            close2;            goto OnStart;                case 3:            mes "Ending the event now...";            if(.Event) announce ""+strcharinfo(0)+" ended Find the Baphomet Event!",bc_all;            killmonster  .Map$,"All";            set .Event,0;        close;}OnMinute51: //CHANGE THIS TO THE MINUTE YOU WOULD LIKE THIS EVENT TO LOAD!OnMinute20:OnStart:    announce "Find the Baphomet : It's time to play Find the Baphomet!",0;    sleep2 1000;    set $@ran, rand(1,11);    if ($@ran == 11) set .Map$,"splendide";    if ($@ran == 10) set .Map$,"hugel";    if ($@ran == 9) set .Map$,"yuno";    if ($@ran == 8) set .Map$,"comodo";    if ($@ran == 7) set .Map$,"xmas";    if ($@ran == 6) set .Map$,"aldebaran";    if ($@ran == 5) set .Map$,"izlude";    if ($@ran == 4) set .Map$,"payon";    if ($@ran == 3) set .Map$,"geffen";    if ($@ran == 2) set .Map$,"morocc";    if ($@ran == 1) set .Map$,"prontera";    sleep2 1000;    set $@ran2, rand(1,5);    if ($@ran2 == 5) set .Baphomets,"5";    if ($@ran2 == 4) set .Baphomets,"4";    if ($@ran2 == 3) set .Baphomets,"3";    if ($@ran2 == 2) set .Baphomets,"2";    if ($@ran2 == 1) set .Baphomets,"1";    announce "Find the Baphomet : The Baphomet has spawned in "+ .Map$ +"!",0;    sleep2 10000;    announce "Find the Baphomet : " + .Baphomets + " Baphomets have spawned in "+ .Map$ +"!",0;    sleep2 10000;    monster .Map$,0,0,"PLEASE DONT HIT ME!",1039,.Baphomets,"Find the Baphomet::OnMobKilled";    end;OnMobKilled:    mapannounce .Map$,"We've got a winner: " + strcharinfo(0) + " Congrats!",0;    set zeny,zeny+10000000;    getitem .ItemID,.ItemQty;    set .Event,0;    end;OnInit:	set .ItemID, 512;	set .ItemQty, 1;	end;}

 

This is a quick fix since I'm in a rush, so maybe it won't work properly but I think yes. Remember to edit the OnInit label for adjusting the prize to your needs.

 

thanks,problem solve