Player dont get the prize when killing the bapho event

M

madtoyz

New member
Messages
173
Points
0
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.

Code: 
//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;}
 
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.

 
Last edited by a moderator:
Code: 
OnMobKilled:    mapannounce .Map$,"We've got a winner: " + strcharinfo(0) + " Congrats!",0;    set zeny,zeny+10000000;    getitem 7539,500;    set .Event,0;    end;
 
jaBote said:
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.
Click to expand...
thanks,problem solve

 
You must log in or register to reply here.
Back
Top