Jump to content

SlashGeeGee

Members
 View Profile  See their activity

  • Posts

    573

  • Joined

  • Last visited

  • Days Won

    1

 Content Type 

Posts posted by SlashGeeGee

    Script Error [ Help ]

    in Scripting Support

    Posted 

    -<tab>script<tab>Shop5<tab>-1,{
...
OnShop:
...
}

    *doevent "<NPC object name>::<event label>";

    This command will start a new execution thread in a specified NPC object at the

    specified label. The execution of the script running this command will not stop.

    No parameters may be passed with a doevent call.

    The script of the NPC object invoked in this manner will run as if it's been

    invoked by the RID that was active in the script that issued a 'doevent'.

    place' date='100,100,1%TAB%script%TAB%NPC%TAB%53,{

    mes "This is what you will see when you click me";

    close;

    OnLabel:

    mes "This is what you will see if the doevent is activated";

    close;

    }

    doevent "NPC::OnLabel";[/quote']

    it isi already in tab sir but still doesnt work :D

    Script Error [ Help ]

    in Scripting Support

    Posted

    When I Click the NPC it shows the menu but when i click any of the two the shop doesnt pop out :D

    BTW , here's the error at the server :

    308xl3d.jpg

    Script

    
prontera,97,66,6 script Quest NPC 997,{
mes "Choose your Shop";
switch (select ("Headgears:Armors")) {
Case 1: doevent "Shop5::OnShop"; end;
Case 2: doevent "Shop6::OnShop"; end;
}

}




// -- ***************************************** F I R S T    S H O P **********************************************

- shop quest_shop5 -1,501:50
- script Shop5 -1,{
set @i,0;
mes "[Equipment Quest Collector]";
mes "Which item do you wish to obtain?";
mes "Select only one.";
callshop "quest_shop5",1;
npcshopattach "quest_shop5";
end;

OnBuyItem:
if(.Buildquests) {
for(set .e,0; !compare(getarg(.e+1)+"", "Zeny"); set .e,.e+2) {}
npcshopadditem "quest_shop65",getarg(.e+2),getarg(.e)*compare(getarg(.e+1),"SZeny");
setarray .Shop[.i],getarg(.e+2);
set .i,.i+1;
goto quests_Setup;
}
if(.Shop[@i]!=@bought_nameid) for(set @i,1; 1; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set .i,@i; callsub quests_Setup; }
for(set @i,1; !@e; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set @e,1; set .i,@i; callsub quests_Setup; }
mes "[shop quests NPC]";
mes "I require the following:";
for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) mes "^FF0000" + ((countitem(getarg(@i))>=getarg(@i+1))? "^00FF00":"") + "" + getarg(@i+1) + " " + getitemname(getarg(@i)) + " [" + countitem(getarg(@i)) + "/" + getarg(@i+1) + "]";
if(getarg(@i)) mes "^FF0000" + ((Zeny>=getarg(@i))? "^00FF00":"") + "" + getarg(@i) + " Zeny";
mes "^000000In exchange, I will give you:^0000FF";
for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) mes getarg(@i+1) + " " + getitemname(getarg(@i));
switch(select("Exchange:" + (((((getiteminfo(@bought_nameid,5) & 1) || (getiteminfo(@bought_nameid,5) & 256) || (getiteminfo(@bought_nameid,5) & 512)) && @equip==0))? "Preview Item":"") + ":No thanks")) {
case 1:
for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) if(countitem(getarg(@i)) < getarg(@i+1)) {
next;
mes "You have " + countitem(getarg(@i)) + " " + getitemname(getarg(@i)) + ", while I require " + getarg(@i+1) + ".";
mes "Please obtain ^FF0000" + (getarg(@i+1)-countitem(getarg(@i))) + " more " + getitemname(getarg(@i)) + "^000000.";
close;
}
if(Zeny < getarg(@i)) {
next;
mes "You do not have enough Zeny.";
mes "Please obtain ^FF0000" + (getarg(@i)-Zeny) + " more Zeny^000000.";
close;
}
for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) delitem getarg(@i),getarg(@i+1);
set Zeny,Zeny-getarg(@i);
for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) getitem getarg(@i),getarg(@i+1);
if (compare(getarg(@i,0),"announce")) announce strcharinfo(0) + " has just obtained " + getitemname(@bought_nameid) + "!",bc_all;
close;
case 2:
set @bottomview, getlook(3);
set @topview, getlook(4);
set @midview, getlook(5);
addtimer 1000, strnpcinfo(3)+"::On_Leave";
set @equip,getiteminfo(@bought_nameid, 5);
set @view, getiteminfo(@bought_nameid, 11);
if(@equip != -1 && @view > 0) {
if(@equip & 1) atcommand "@changelook 3 " + @view;
if(@equip & 256) atcommand "@changelook 1 " + @view;
if(@equip & 512) atcommand "@changelook 2 " + @view;
}
next;
goto OnBuyItem;
case 3:
close;
}
On_Leave:
atcommand "@changelook 1 " + @topview;
atcommand "@changelook 2 " + @midview;
atcommand "@changelook 3 " + @bottomview;
set @equip,0;
set @view,0;
set @topview,0;
set @midview,0;
set @bottomview,0;
end;
OnInit:
npcshopitem "quest_shop5",0,0;
set .Buildquests,1;
set .i,1;
quests_Setup:
switch(.i) {
default: set .Buildquests,0; set .e,0; set .i,0; end;
case 1: callsub OnBuyItem,7227,20,7069,300,978,1,7094,100,50000000,"SZeny",2357,1;
case 2: callsub OnBuyItem,7227,15,2106,1,1095,50,7094,75,50000000,"SZeny",2115,1;
case 3: callsub OnBuyItem,7227,15,916,150,947,150,7094,60,50000000,"SZeny",2524,1;
case 4: callsub OnBuyItem,7227,15,916,100,949,100,7094,50,50000000,"SZeny",2421,1;

}
}




// -- ***************************************** S E C O N D    S H O P **********************************************

- shop quest_shop6 -1,501:50
- script Shop6 -1,{
set @i,0;
mes "[Headgear Quest Collector]";
mes "Which item do you wish to obtain?";
mes "Select only one.";
callshop "quest_shop6",1;
npcshopattach "quest_shop6";
end;

OnBuyItem:
if(.BuildQuest) {
for(set .e,0; !compare(getarg(.e+1)+"", "Zeny"); set .e,.e+2) {}
npcshopadditem "quest_shop6",getarg(.e+2),getarg(.e)*compare(getarg(.e+1),"SZeny");
setarray .Shop[.i],getarg(.e+2);
set .i,.i+1;
goto Quest_Setup;
}
if(.Shop[@i]!=@bought_nameid) for(set @i,1; 1; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set .i,@i; callsub Quest_Setup; }
for(set @i,1; !@e; set @i,@i+1) if(.Shop[@i]==@bought_nameid) { set @e,1; set .i,@i; callsub Quest_Setup; }
mes "[shop Quest NPC]";
mes "I require the following:";
for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) mes "^FF0000" + ((countitem(getarg(@i))>=getarg(@i+1))? "^00FF00":"") + "" + getarg(@i+1) + " " + getitemname(getarg(@i)) + " [" + countitem(getarg(@i)) + "/" + getarg(@i+1) + "]";
if(getarg(@i)) mes "^FF0000" + ((Zeny>=getarg(@i))? "^00FF00":"") + "" + getarg(@i) + " Zeny";
mes "^000000In exchange, I will give you:^0000FF";
for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) mes getarg(@i+1) + " " + getitemname(getarg(@i));
switch(select("Exchange:" + (((((getiteminfo(@bought_nameid,5) & 1) || (getiteminfo(@bought_nameid,5) & 256) || (getiteminfo(@bought_nameid,5) & 512)) && @equip==0))? "Preview Item":"") + ":No thanks")) {
case 1:
for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) if(countitem(getarg(@i)) < getarg(@i+1)) {
next;
mes "You have " + countitem(getarg(@i)) + " " + getitemname(getarg(@i)) + ", while I require " + getarg(@i+1) + ".";
mes "Please obtain ^FF0000" + (getarg(@i+1)-countitem(getarg(@i))) + " more " + getitemname(getarg(@i)) + "^000000.";
close;
}
if(Zeny < getarg(@i)) {
next;
mes "You do not have enough Zeny.";
mes "Please obtain ^FF0000" + (getarg(@i)-Zeny) + " more Zeny^000000.";
close;
}
for(set @i,0; !compare(getarg(@i+1),"Zeny"); set @i,@i+2) delitem getarg(@i),getarg(@i+1);
set Zeny,Zeny-getarg(@i);
for(set @i,@i+2; getarg(@i+1,0); set @i,@i+2) getitem getarg(@i),getarg(@i+1);
if (compare(getarg(@i,0),"announce")) announce strcharinfo(0) + " has just obtained " + getitemname(@bought_nameid) + "!",bc_all;
close;
case 2:
set @bottomview, getlook(3);
set @topview, getlook(4);
set @midview, getlook(5);
addtimer 1000, strnpcinfo(3)+"::On_Leave";
set @equip,getiteminfo(@bought_nameid, 5);
set @view, getiteminfo(@bought_nameid, 11);
if(@equip != -1 && @view > 0) {
if(@equip & 1) atcommand "@changelook 3 " + @view;
if(@equip & 256) atcommand "@changelook 1 " + @view;
if(@equip & 512) atcommand "@changelook 2 " + @view;
}
next;
goto OnBuyItem;
case 3:
close;
}
On_Leave:
atcommand "@changelook 1 " + @topview;
atcommand "@changelook 2 " + @midview;
atcommand "@changelook 3 " + @bottomview;
set @equip,0;
set @view,0;
set @topview,0;
set @midview,0;
set @bottomview,0;
end;
OnInit:
npcshopitem "quest_shop6",0,0;
set .BuildQuest,1;
set .i,1;
Quest_Setup:
switch(.i) {
default: set .BuildQuest,0; set .e,0; set .i,0; end;
case 1: callsub OnBuyItem,7227,3,7063,50,982,1,5172,1,5000000,"SZeny",5170,1;
case 2: callsub OnBuyItem,7227,3,1019,100,978,1,5000000,"SZeny",5579,1;
case 3: callsub OnBuyItem,7227,3,1059,75,907,75,975,1,5000000,"SZeny",5467,1;
case 4: callsub OnBuyItem,7227,3,916,100,7063,1,982,1,5000000,"SZeny",5372,1;

}
}

    Thank You for Helping :)

    Thor Patcher - Failed to Get File

    in Client-side Support

    Posted · Edited by SlashGeeGee

    My Thor Patcher works but when i add a patch in plist.txt it say's failed to get file .

    here's the ss :

    10ym7h4.jpg

    My Config :

    // Thor Patcher Internal Config File
// Note: any entry leaves as blank will use default value

// True = 1
// False = 0
// Note that true or 1 both works fine (that's why I put "=")


//base_url - everything except patch files will read from here
//The address should point to a directory with / at end
//
// example:
//  [url="http://domain.com/patch/"]http://domain.com/patch/[/url]
//	NOT
//  [url="http://domain.com/patch"]http://domain.com/patch[/url]
//
base_url=http://www.intelro.webcrewhosting.com/patch/

//notice_file - [Relative Address]
//You should able to access this file by combine base_url & notice_file
notice_file=http://www.intelro.webcrewhosting.com/patch/notice.html

//core_file - [Relative Address]
//this internal config file only store whats required,
//but core_file is a remote config file that stores on your web host
core_file=main.ini

//TimeOut - timeout of connection in seconds
//0 is default setting, leave it as 0 unless you know what you are doing!
TimeOut=0

//=============================
// File below is on local disk
//=============================
[Local]
//status_file - [Relative Address]
//It used to store information such as last patch id etc,
status_file=illusivero.dat

//grf_file - [Relative Address]
grf_file=your-illusivero.grf

//client_file - [Relative Address]
//It's GAME EXE not patcher's
client_file=IllusiveRO.exe

//client_parameter - [self Explained]
client_parameter=-1sak1

    My Main.INI :

    
//Thor Patcher remote config file
[Main]
//Allow patching or not?
allow=true

//Should patcher ignore everything else and finish patch immediately?
Force_Start=false

//if not, what message should appear?
policy_msg=Server is taking a nap.

//file_url - patch files should ALL put here.
// This config entry will override the one in embed config.
// o HTTP:
//		 [url="http://domain.com/dir/"]http://domain.com/dir/[/url]
// o FTP:
//		 [url="ftp://domain.com/dir/"]ftp://domain.com/dir/[/url]
//	 o With <Username> [Password] [Port]
// [url="ftp://username:[email protected]:port/dir/"][url="ftp://username:passw...n.com:port/dir/"]ftp://username:passw...n.com:port/dir/[/url]
//	 o Note: username is required if want put password, otherwise everything is optional.
file_url=http://www.intelro.webcrewhosting.com/patch/data/

[Patch]
//use CheckSum tool, hash for client & patcher
// used to make sure exe is up to date
//  (leave empty to disable this feature)
ClientSum=
PatcherSum=


//This is compressed file for patcher & client update
// To make these work, ClientSum and/or PatcherSum can't be empty
// Note: these files should put same place as patch file (file_url in internal config)
//Relative address, not FULL URL!
ClientPath=
PatcherPath=

// Patch list file
PatchList=plist.txt

    I'd be glad if someone helped me /no1

    Solved :)

    By Setting Up Again.

    Comfort Of The Stars

    in Tulong para sa Server

    Posted

    Comfort of the Stars (Skill ID# 433)

    Type: Active Max Level: 4

    Requirements: Feeling of the Sun, Moon and Stars Level 3

    SP Cost: 80 – SkillLV*10

    Target: Self

    Cast Time: Instant

    Duration: 80*SkillLV sec

    Effect: It can be used anytime when you are in the Day of the Stars in the map that is memorized as “Place of the Stars” (in other days or maps the skill don’t trigger and the SP is not spent). This skill increases your ASPD by (LV+DEX+LUK)/10 %

    Days of Star : Are 5,10,15,20,25,30

    [Free]Signature/Banner

    in Arts & Writings

    Posted

    Just Post your Request here

    i will do my best <3

    Format

    Color : ( Color of the background )

    Name : ( Name )

    Size : ( Size of the Signature / Banner )

    Anime : ( Picture of Anime or Character do you like to put in your Signature or Banner )

    Animation ( What kind of Animation do you like )

    Color : Blue & Black

    Name : Mysterious Ragnarok Online

    Size : 420x60

    Anime : Picture of Assassin Cross, Sniper, and Lordknight

    Animation : N / A

    PS: Can you do a border like the image you have on your siggy?

    rate 1 - 10

    346us6e.jpg

    Good Job 8/10 :)

    You Love Patterns ? Seems like all your works have patterns :)

×
×
  • Create New...